|
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: »ANLZCBL «
└─⟦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⟧ ».ANLZCBL «
// 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 // END // LOAD MYC01 // FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J // RUN // LOAD $FBLD // RUN // FILE LABEL-MX?3?,ATTRIB-I,RECORDS-1000, // RECL-8,POSITION-1,LENGTH-8,EXTEND-100,RETAIN-J // END // LOAD MYC02 // FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J // FILE NAME-LIBFILE,LABEL-MX?3?,RETAIN-J // RUN UPDATEAF ?1?,CBL,?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 0x8d 0x0e5…0f2 »// LOAD $FBLD« 0x0f2…0f3 0x43 0x0f3…0f4 0x86 0x0f4…0fa »// RUN« 0x0fa…0fb 0x4a 0x0fb…0fc 0xaa 0x0fc…126 »// FILE LABEL-MY?3?,ATTRIB-I,RECORDS-1000,« 0x126…127 0x26 0x127…128 0x82 0x128…12a »//« 0x12a…12b 0x0c 0x12b…12c 0xaf 0x12c…15b »RECL-11,POSITION-1,LENGTH-8,EXTEND-100,RETAIN-J« 0x15b…15c 0x13 0x15c…15d 0x86 0x15d…163 »// END« 0x163…164 0x4a 0x164…165 0x8d 0x165…172 »// LOAD MYC01« 0x172…173 0x43 0x173…174 0xa9 0x174…19d »// FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J« 0x19d…19e 0x27 0x19e…19f 0x86 0x19f…1a5 »// RUN« 0x1a5…1a6 0x4a 0x1a6…1a7 0x8d 0x1a7…1b4 »// LOAD $FBLD« 0x1b4…1b5 0x43 0x1b5…1b6 0x86 0x1b6…1bc »// RUN« 0x1bc…1bd 0x4a 0x1bd…1be 0xaa 0x1be…1e8 »// FILE LABEL-MX?3?,ATTRIB-I,RECORDS-1000,« 0x1e8…1e9 0x26 0x1e9…1ea 0x82 0x1ea…1ec »//« 0x1ec…1ed 0x0c 0x1ed…1ee 0xae 0x1ee…21c »RECL-8,POSITION-1,LENGTH-8,EXTEND-100,RETAIN-J« 0x21c…21d 0x14 0x21d…21e 0x86 0x21e…224 »// END« 0x224…225 0x4a 0x225…226 0x8d 0x226…233 »// LOAD MYC02« 0x233…234 0x43 0x234…235 0xa9 0x235…25e »// FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J« 0x25e…25f 0x27 0x25f…260 0xa9 0x260…289 »// FILE NAME-LIBFILE,LABEL-MX?3?,RETAIN-J« 0x289…28a 0x27 0x28a…28b 0x86 0x28b…291 »// RUN« 0x291…292 0x4a 0x292…293 0x94 0x293…2a7 »UPDATEAF ?1?,CBL,?2?« 0x2a7…2a8 0x3c 0x2a8…2a9 0x00 0x2a9…2c0 00 00 00 40 00 02 00 51 00 07 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣ ␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆ 0x2c0…2e0 00 00 00 00 00 00 00 00 00 00 00 00 d7 c1 d5 d3 e9 f0 f0 f1 40 00 12 a1 50 00 04 00 00 00 00 40 ┆␣␣␣␣␣␣␣␣␣␣␣␣PANLZ001 ␣ ~&␣ ␣␣␣␣ ┆ 0x2e0…300 00 02 00 51 00 01 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 ff ┆␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ┆