|
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: »ANLZRPG «
└─⟦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⟧ ».ANLZRPG «
// MEMBER USER1-#MY#1MSG,USER2-#MY#2MSG,LIBRARY-#MYLIB
// IF ?1?/ #ERR 3010,3,MIGR
// IFF DATAF1-?1? #ERR 3020,3,MIGR
// LOCAL OFFSET-001,BLANK-8,DATA-'?1?'
// LOCAL OFFSET-009,BLANK-8,DATA-'?USER?'
// EVALUATE P3=?TIME?
// LOAD $FBLD
// RUN
// FILE LABEL-MY?3?,ATTRIB-I,RECORDS-1000,+
RECL-11,POSITION-1,LENGTH-8,EXTEND-100,RETAIN-J
// FILE LABEL-MA?3?,ATTRIB-I,RECORDS-2000,+
RECL-21,POSITION-1,LENGTH-14,EXTEND-500,RETAIN-J
// END
// LOAD MYR01
// FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J
// RUN
// LOAD MYR02
// FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J
// FILE NAME-FLDFILE,LABEL-MA?3?,RETAIN-J
// RUN
UPDATEAF ?1?,RPG,?2?
0x000…001 0xb6 0x001…037 »// MEMBER USER1-#MY#1MSG,USER2-#MY#2MSG,LIBRARY-#MYLIB« 0x037…038 0x1a 0x038…039 0x9b 0x039…054 »// IF ?1?/ #ERR 3010,3,MIGR« 0x054…055 0x35 0x055…056 0x91 0x056…067 »// IFF DATAF1-?1?« 0x067…068 0x02 0x068…069 0x90 0x069…079 »#ERR 3020,3,MIGR« 0x079…07a 0x2d 0x07a…07b 0xa6 0x07b…0a1 »// LOCAL OFFSET-001,BLANK-8,DATA-'?1?'« 0x0a1…0a2 0x2a 0x0a2…0a3 0xa9 0x0a3…0cc »// LOCAL OFFSET-009,BLANK-8,DATA-'?USER?'« 0x0cc…0cd 0x27 0x0cd…0ce 0x95 0x0ce…0e3 »// EVALUATE P3=?TIME?« 0x0e3…0e4 0x3b 0x0e4…0e5 0x87 0x0e5…0ec »// LOAD« 0x0ec…0ed 0x12 0x0ed…0ee 0x85 0x0ee…0f3 »$FBLD« 0x0f3…0f4 0x32 0x0f4…0f5 0x86 0x0f5…0fb »// RUN« 0x0fb…0fc 0x4a 0x0fc…0fd 0x87 0x0fd…104 »// FILE« 0x104…105 0x12 0x105…106 0xa3 0x106…129 »LABEL-MY?3?,ATTRIB-I,RECORDS-1000,+« 0x129…12a 0x14 0x12a…12b 0x1a 0x12b…12c 0xaf 0x12c…15b »RECL-11,POSITION-1,LENGTH-8,EXTEND-100,RETAIN-J« 0x15b…15c 0x07 0x15c…15d 0x87 0x15d…164 »// FILE« 0x164…165 0x12 0x165…166 0xa3 0x166…189 »LABEL-MA?3?,ATTRIB-I,RECORDS-2000,+« 0x189…18a 0x14 0x18a…18b 0x1a 0x18b…18c 0xb0 0x18c…1bc »RECL-21,POSITION-1,LENGTH-14,EXTEND-500,RETAIN-J« 0x1bc…1bd 0x06 0x1bd…1be 0x86 0x1be…1c4 »// END« 0x1c4…1c5 0x4a 0x1c5…1c6 0x87 0x1c6…1cd »// LOAD« 0x1cd…1ce 0x12 0x1ce…1cf 0x85 0x1cf…1d4 »MYR01« 0x1d4…1d5 0x32 0x1d5…1d6 0x87 0x1d6…1dd »// FILE« 0x1dd…1de 0x12 0x1de…1df 0xa1 0x1df…200 »NAME-MBRFILE,LABEL-MY?3?,RETAIN-J« 0x200…201 0x16 0x201…202 0x86 0x202…208 »// RUN« 0x208…209 0x4a 0x209…20a 0x87 0x20a…211 »// LOAD« 0x211…212 0x12 0x212…213 0x85 0x213…218 »MYR02« 0x218…219 0x32 0x219…21a 0x87 0x21a…221 »// FILE« 0x221…222 0x12 0x222…223 0xa1 0x223…244 »NAME-MBRFILE,LABEL-MY?3?,RETAIN-J« 0x244…245 0x16 0x245…246 0x87 0x246…24d »// FILE« 0x24d…24e 0x12 0x24e…24f 0xa1 0x24f…270 »NAME-FLDFILE,LABEL-MA?3?,RETAIN-J« 0x270…271 0x16 0x271…272 0x86 0x272…278 »// RUN« 0x278…279 0x4a 0x279…27a 0x94 0x27a…28e »UPDATEAF ?1?,RPG,?2?« 0x28e…28f 0x3c 0x28f…290 0x00 0x290…2a0 66 00 00 00 00 00 00 00 00 d7 c3 d3 d9 d7 c1 d3 ┆Ã␣␣␣␣␣␣␣␣PCLRPAL┆ 0x2a0…2c0 e2 d6 00 23 98 50 00 1c 00 00 00 00 40 00 02 00 51 00 05 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆SO␣ q&␣ ␣␣␣␣ ␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆ 0x2c0…2e0 00 80 3f 99 00 00 00 00 00 00 00 00 d7 c3 d3 d9 d7 c6 40 40 40 00 23 97 50 00 01 00 00 00 00 40 ┆␣Ø r␣␣␣␣␣␣␣␣PCLRPF ␣ p&␣ ␣␣␣␣ ┆ 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 ┆␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣␣␣␣␣␣␣ ┆