|
|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 512 (0x200)
Notes: MEMBER_P, Member_Text
Names: »SDADROP «
└─⟦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
└─⟦059c4c04f⟧
└─⟦this⟧ ».SDADROP «
// MEMBER USER1-##MSG2 // IF JOBQ-NO IF EVOKED-NO * ' SDADROP?M5500?' // IF DATAF1-#SDALIB DELETE #SDALIB,F1,REMOVE,,LIBR // LOAD $MAINT // RUN // DELETE LIBRARY-P,NAME-SDA.ALL,RETAIN-S // IF LOAD-'#SAPPD01,#LIBRARY' DELETE LIBRARY-O,NAME-#SAPPD.ALL,RETAIN-S // END // IFF ?CD?/0000 RETURN LOGPLD DROP,SDA // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SDADROP 44' // LOAD $CNDRP // RUN