|
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: 1792 (0x700)
Notes: MEMBER_P, Member_Text
Names: »SEUSAVE «
└─⟦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⟧ ».SEUSAVE «
// MEMBER USER1-##MSG2 // IF JOBQ-NO IF EVOKED-NO * ' SEUSAVE?M5500?' // IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?' // IF DATAI1-SEU DELETE SEU,I1 // IF DATAI1-SEUFMRI DELETE SEUFMRI,I1 // IF DATAI1-SEUMODS DELETE SEUMODS,I1 // LOAD $MAINT // FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEU // FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUMODS // FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUFMRI // FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUFSMRI // RUN // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEU,LIBRARY-P // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUDROP,LIBRARY-P,ADD-YES // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUFDROP,LIBRARY-P,ADD-YES // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUFMRI,LIBRARY-P,ADD-YES // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUILOD,LIBRARY-P,ADD-YES // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEULOAD,LIBRARY-P,ADD-YES // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUMRI,LIBRARY-P,ADD-YES // COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUSAVE,LIBRARY-P,ADD-YES // IF LOAD-'#SESPD01,#LIBRARY' COPY FROM-#LIBRARY,TO-DISK,LIBRARY-O,+ NAME-#SESPD.ALL,FILE-SEU,ADD-YES // COPY FROM-#LIBRARY,TO-DISK,FILE-SEUFMRI,NAME-#SE.ALL,LIBRARY-O // COPY FROM-#SEULIB,TO-DISK,FILE-SEUMODS,NAME-#SE.ALL,LIBRARY-O // COPY FROM-#SEULIB,TO-DISK,FILE-SEUMODS,NAME-ALL,LIBRARY-P,ADD-YES // IF ?L'230,1'?/1 IFF SOURCE-'#SE$XTRA,#SEULIB' GOTO CONTIN // IFF ?L'230,1'?/1 IFF SOURCE-'#SE@XTRA,#SEULIB' GOTO CONTIN // COPY FROM-#SEULIB,TO-DISK,FILE-SEUFSMRI,NAME-#SE.ALL,LIBRARY-S // TAG CONTIN // END
0x000…001 0x96 0x001…017 »// MEMBER USER1-##MSG2« 0x017…018 0x3a 0x018…019 0xae 0x019…047 »// IF JOBQ-NO IF EVOKED-NO * ' SEUSAVE?M5500?'« 0x047…048 0x22 0x048…049 0xab 0x049…074 »// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'« 0x074…075 0x25 0x075…076 0x9e 0x076…094 »// IF DATAI1-SEU DELETE SEU,I1« 0x094…095 0x32 0x095…096 0xa6 0x096…0bc »// IF DATAI1-SEUFMRI DELETE SEUFMRI,I1« 0x0bc…0bd 0x2a 0x0bd…0be 0xa6 0x0be…0e4 »// IF DATAI1-SEUMODS DELETE SEUMODS,I1« 0x0e4…0e5 0x2a 0x0e5…0e6 0x8e 0x0e6…0f4 »// LOAD $MAINT« 0x0f4…0f5 0x42 0x0f5…0f6 0xaf 0x0f6…125 »// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEU« 0x125…126 0x21 0x126…127 0xb3 0x127…15a »// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUMODS« 0x15a…15b 0x1d 0x15b…15c 0xb3 0x15c…18f »// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUFMRI« 0x18f…190 0x1d 0x190…191 0xb4 0x191…1c5 »// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUFSMRI« 0x1c5…1c6 0x1c 0x1c6…1c7 0x86 0x1c7…1cd »// RUN« 0x1cd…1ce 0x4a 0x1ce…1cf 0xb9 0x1cf…208 »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEU,LIBRARY-P« 0x208…209 0x17 0x209…20a 0xc5 0x20a…24f »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUDROP,LIBRARY-P,ADD-YES« 0x24f…250 0x0b 0x250…251 0xc6 0x251…297 »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUFDROP,LIBRARY-P,ADD-YES« 0x297…298 0x0a 0x298…299 0xc5 0x299…2de »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUFMRI,LIBRARY-P,ADD-YES« 0x2de…2df 0x0b 0x2df…2e0 0xc5 0x2e0…325 »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUILOD,LIBRARY-P,ADD-YES« 0x325…326 0x0b 0x326…327 0xc5 0x327…36c »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEULOAD,LIBRARY-P,ADD-YES« 0x36c…36d 0x0b 0x36d…36e 0xc4 0x36e…3b2 »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUMRI,LIBRARY-P,ADD-YES« 0x3b2…3b3 0x0c 0x3b3…3b4 0xc5 0x3b4…3f9 »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUSAVE,LIBRARY-P,ADD-YES« 0x3f9…3fa 0x0b 0x3fa…3fb 0xc5 0x3fb…440 »// IF LOAD-'#SESPD01,#LIBRARY' COPY FROM-#LIBRARY,TO-DISK,LIBRARY-O,+« 0x440…441 0x0b 0x441…442 0xa0 0x442…462 »NAME-#SESPD.ALL,FILE-SEU,ADD-YES« 0x462…463 0x30 0x463…464 0xc1 0x464…4a5 »// COPY FROM-#LIBRARY,TO-DISK,FILE-SEUFMRI,NAME-#SE.ALL,LIBRARY-O« 0x4a5…4a6 0x0f 0x4a6…4a7 0xc0 0x4a7…4e7 »// COPY FROM-#SEULIB,TO-DISK,FILE-SEUMODS,NAME-#SE.ALL,LIBRARY-O« 0x4e7…4e8 0x10 0x4e8…4e9 0xc4 0x4e9…52d »// COPY FROM-#SEULIB,TO-DISK,FILE-SEUMODS,NAME-ALL,LIBRARY-P,ADD-YES« 0x52d…52e 0x0c 0x52e…52f 0xbc 0x52f…56b »// IF ?L'230,1'?/1 IFF SOURCE-'#SE$XTRA,#SEULIB' GOTO CONTIN« 0x56b…56c 0x14 0x56c…56d 0xbd 0x56d…5aa »// IFF ?L'230,1'?/1 IFF SOURCE-'#SE@XTRA,#SEULIB' GOTO CONTIN« 0x5aa…5ab 0x13 0x5ab…5ac 0xc1 0x5ac…5ed »// COPY FROM-#SEULIB,TO-DISK,FILE-SEUFSMRI,NAME-#SE.ALL,LIBRARY-S« 0x5ed…5ee 0x0f 0x5ee…5ef 0x8d 0x5ef…5fc »// TAG CONTIN« 0x5fc…5fd 0x43 0x5fd…5fe 0x86 0x5fe…604 »// END« 0x604…605 0x4a 0x605…606 0x00 0x606…620 60 d7 17 c5 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b ┆-P E// COPY FROM-#LIBRARY,┆ 0x620…640 e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 e2 c5 e4 6b d5 c1 d4 c5 60 e2 c5 e4 c4 d9 d6 d7 6b d3 c9 ┆TO-DISK,FILE-SEU,NAME-SEUDROP,LI┆ 0x640…660 c2 d9 c1 d9 e8 60 d7 6b c1 c4 c4 60 e8 c5 e2 0b c6 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 ┆BRARY-P,ADD-YES F// COPY FROM-#L┆ 0x660…680 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 e2 c5 e4 6b d5 c1 d4 c5 60 e2 c5 e4 ┆IBRARY,TO-DISK,FILE-SEU,NAME-SEU┆ 0x680…6a0 c6 c4 d9 d6 d7 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b c1 c4 c4 60 e8 c5 e2 0a c5 61 61 40 c3 d6 d7 e8 ┆FDROP,LIBRARY-P,ADD-YES E// COPY┆ 0x6a0…6c0 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 e2 c5 e4 6b ┆ FROM-#LIBRARY,TO-DISK,FILE-SEU,┆ 0x6c0…6e0 d5 c1 d4 c5 60 e2 c5 e4 c6 d4 d9 c9 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b c1 c4 c4 60 e8 c5 e2 0b c5 ┆NAME-SEUFMRI,LIBRARY-P,ADD-YES E┆ 0x6e0…700 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 ┆// COPY FROM-#LIBRARY,TO-DISK,FI┆