|
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: 768 (0x300)
Notes: MEMBER_P, Member_Text
Names: »MYREPLST«
└─⟦5475bb115⟧ Bits:30009795 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 001 of 002
└─⟦9d4f33051⟧
└─⟦this⟧ ».MYREPLST«
// LIBRARY NAME-#MYLIB // IF DATAF1-$MYVTOC DELETE $MYVTOC,F1 // IF DATAF1-$MYWRK1 DELETE $MYWRK1,F1 // MEMBER USER1-#MY#1MSG,LIBRARY-#MYLIB // MEMBER USER2-#MY#2MSG,LIBRARY-#MYLIB // IF JOBQ-NO * 4003 // LOAD #MYVT // FILE NAME-$MYVTOC,RECORDS-1500 // RUN COPYDATA $MYVTOC,,$MYWRK1,RECORDS,1500,,T,NOREORG,OMIT,2,EQ,'EXTENT',,,I,1,15 // IF DATAF1-$MYVTOC DELETE $MYVTOC,F1 COPYDATA $MYWRK1,,$MYVTOC,RECORDS,1500,,T,REORG // IFF '?1?'/ LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?1?',BLANK-8 // LOAD #MYLA // FILE NAME-$MYVTOC // RUN // IF DATAF1-$MYWRK1 DELETE $MYWRK1,F1 // IF DATAF1-$MYVTOC DELETE $MYVTOC,F1
0x000…001 0x96 0x001…017 »// LIBRARY NAME-#MYLIB« 0x017…018 0x3a 0x018…019 0xa6 0x019…03f »// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1« 0x03f…040 0x2a 0x040…041 0xa6 0x041…067 »// IF DATAF1-$MYWRK1 DELETE $MYWRK1,F1« 0x067…068 0x2a 0x068…069 0xa7 0x069…090 »// MEMBER USER1-#MY#1MSG,LIBRARY-#MYLIB« 0x090…091 0x29 0x091…092 0xa7 0x092…0b9 »// MEMBER USER2-#MY#2MSG,LIBRARY-#MYLIB« 0x0b9…0ba 0x29 0x0ba…0bb 0x94 0x0bb…0cf »// IF JOBQ-NO * 4003« 0x0cf…0d0 0x3c 0x0d0…0d1 0x8d 0x0d1…0de »// LOAD #MYVT« 0x0de…0df 0x43 0x0df…0e0 0xa1 0x0e0…101 »// FILE NAME-$MYVTOC,RECORDS-1500« 0x101…102 0x2f 0x102…103 0x86 0x103…109 »// RUN« 0x109…10a 0x4a 0x10a…10b 0xcd 0x10b…158 »COPYDATA $MYVTOC,,$MYWRK1,RECORDS,1500,,T,NOREORG,OMIT,2,EQ,'EXTENT',,,I,1,15« 0x158…159 0x03 0x159…15a 0xa6 0x15a…180 »// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1« 0x180…181 0x2a 0x181…182 0xaf 0x182…1b1 »COPYDATA $MYWRK1,,$MYVTOC,RECORDS,1500,,T,REORG« 0x1b1…1b2 0x21 0x1b2…1b3 0xbd 0x1b3…1f0 »// IFF '?1?'/ LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?1?',BLANK-8« 0x1f0…1f1 0x13 0x1f1…1f2 0x8d 0x1f2…1ff »// LOAD #MYLA« 0x1ff…200 0x43 0x200…201 0x94 0x201…215 »// FILE NAME-$MYVTOC« 0x215…216 0x3c 0x216…217 0x86 0x217…21d »// RUN« 0x21d…21e 0x4a 0x21e…21f 0xa6 0x21f…245 »// IF DATAF1-$MYWRK1 DELETE $MYWRK1,F1« 0x245…246 0x2a 0x246…247 0xa6 0x247…26d »// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1« 0x26d…26e 0x2a 0x26e…26f 0x00 0x26f…280 00 12 e1 50 00 92 00 00 00 00 40 00 02 00 51 00 1b ┆␣ ÷&␣k␣␣␣␣ ␣ ␣é␣ ┆ 0x280…2a0 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 e2 c5 c3 c5 c4 c9 ┆ ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣PSECEDI┆ 0x2a0…2c0 e3 40 00 12 b3 50 00 12 00 00 00 00 40 00 02 00 51 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆T ␣ ·&␣ ␣␣␣␣ ␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆ 0x2c0…2e0 00 00 00 00 00 00 00 00 00 00 00 00 d7 e3 d9 c1 c3 c5 f3 f6 40 00 23 ba 50 00 03 00 00 00 00 40 ┆␣␣␣␣␣␣␣␣␣␣␣␣PTRACE36 ␣ [&␣ ␣␣␣␣ ┆ 0x2e0…300 00 02 00 51 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f cc 00 00 00 00 00 00 00 00 ff ┆␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣␣␣␣␣␣␣ ┆