DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦a725a47da⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »#DSU    «

Derivation

└─⟦7674f3f85⟧ Bits:30009796 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 002 of 002
    └─⟦d68e75ec6⟧ 
        └─⟦this⟧ ».#DSU    «

Text Member

// MEMBER USER1-#ED#RXM1,USER2-#ED#M3,PROGRAM1-#ED#M1,PROGRAM2-#ED#M2,          
//        LIBRARY-#DSULIB                                                       
// IF JOBQ-YES #ERR 0015,23,DSU                                                 
// IF EVOKED-YES #ERR 0015,23,DSU                                               
// IF ?CD?=1012 GOTO ENDPROC                                                    
// IF ?1?=EDIT    GOTO EDIT                                                     
// IF ?1?/        GOTO PROCHELP                                                 
// TAG LIBRARY                                                                  
// * 0002                                                                       
// LOAD #EDIS,#DSULIB                                                           
// WORKSTN RESTORE-YES,UNIT-?WS?                                                
// PRINTER NAME-#DSUPRNT                                                        
// RUN                                                                          
// DSU FUNCTION-?1?,LIBRARY-?2'?CLIB?'?,TYPE-?3?,FORMAT-?4?,+                   
DSPSIZE-?8?                                                                     
// END                                                                          
// GOTO ENDPROC                                                                 
// TAG EDIT                                                                     
// * 0002                                                                       
// LOAD #EDIS,#DSULIB                                                           
// WORKSTN RESTORE-YES,UNIT-?WS?                                                
// PRINTER NAME-#DSUPRNT                                                        
// RUN                                                                          
// DSU FUNCTION-?1?,NAME-?2?,TYPE-?3?,FORMAT-?4?,LENGTH-?5?,+                   
LIBRARY-?6'?CLIB?'?,DSFNAME-?7?,DSPSIZE-?8?                                     
// END                                                                          
// GOTO ENDPROC                                                                 
// TAG PROCHELP                                                                 
// HELP DSU ?1?,?2?,?3?,?4?,?5?,?6'?CLIB?'?,?7?,?8?                             
// RETURN                                                                       
// TAG ENDPROC

Full view