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

⟦7c372b8b2⟧

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

Derivation

└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
    └─⟦10fd7efe5⟧ 
        └─⟦this⟧ ».SEUDROP « 

Text Member

// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' SEUDROP?M5500?'                                  
// IF DATAF1-#SEULIB DELETE #SEULIB,F1,REMOVE,,LIBR                             
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEU                         
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEUFMRI                     
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEUILOD                     
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEULOAD                     
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEUMRI                      
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEUSAVE                     
// DELETE NAME-#SE.ALL,LIBRARY-O,LIBRNAME-#LIBRARY,RETAIN-S                     
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEUFDROP                    
// DELETE LIBRARY-P,LIBRNAME-#LIBRARY,RETAIN-S,NAME-SEUDROP                     
// IF LOAD-'#SESPD01,#LIBRARY' DELETE LIBRARY-O,NAME-#SESPD.ALL,RETAIN-S        
// END                                                                          
// IFF ?CD?/0000 RETURN                                                         
LOGPLD DROP,SEU                                                                 
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUDROP 43'                                 
// LOAD $CNDRP                                                                  
// RUN                                                                          

Full view