|
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: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »ANLZCNFG«
└─⟦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⟧ ».ANLZCNFG«
// EVALUATE CD=0000 P63='ANLZCNFG' ?9'U'? ?4'?DATE?'? ?5'?TIME?'? 00002900 // MEMBER USER1-#MY#1MSG,USER2-#MY#2MSG,LIBRARY-#MYLIB 00003600 // IFF ?1?/MASTER IFF ?1?/CNFGFILE IFF ?1?/CNFGMBRS #ERR 3711,23,MIGR 00003800 // IF ?CD?=1012 RETURN 00003900 // IFF ?1?/CNFGMBRS GOTO ANLZREST 00004200 // IF ?1?/CNFGMBRS EVALUATE P8='CNF' 00004800 // IF ?2?/ #ERR 3713,23,MIGR 00004200 // IF ?CD?=1012 RETURN 00004300 // GOTO MODLOAD // TAG ANLZREST // IFF ?2?/ #ERR 3714,23,MIGR 00004600 // IF ?CD?=1012 RETURN 00004700 // IF ?1?/MASTER GOTO ANLZMSTR // IF ?1?/CNFGFILE EVALUATE P8='CNF' // GOTO MODLOAD // TAG ANLZMSTR // IF ?1?/MASTER EVALUATE P8='MAST' // IF DATAF1-#MYLIB4 GOTO NOBUILD BLDLIBR #MYLIB4,50,15 // TAG NOBUILD // LOAD #DCPM,#MYLIB // RUN // TAG MODLOAD // LOAD #DCAC,#MYLIB // RUN UPDATEAF ?2?,?8? // RETURN 00004900
0x000…001 0x93
0x001…014 »// EVALUATE CD=0000«
0x014…015 0x02
0x015…016 0x95
0x016…02b »P63='ANLZCNFG' ?9'U'?«
0x02b…02c 0x02
0x02c…02d 0x8b
0x02d…038 »?4'?DATE?'?«
0x038…039 0x02
0x039…03a 0x8b
0x03a…045 »?5'?TIME?'?«
0x045…046 0x04
0x046…047 0x88
0x047…04f »00002900«
0x04f…050 0xb6
0x050…086 »// MEMBER USER1-#MY#1MSG,USER2-#MY#2MSG,LIBRARY-#MYLIB«
0x086…087 0x12
0x087…088 0x88
0x088…090 »00003600«
0x090…091 0xc5
0x091…0d6 »// IFF ?1?/MASTER IFF ?1?/CNFGFILE IFF ?1?/CNFGMBRS #ERR 3711,23,MIGR«
0x0d6…0d7 0x03
0x0d7…0d8 0x88
0x0d8…0e0 »00003800«
0x0e0…0e1 0x96
0x0e1…0f7 »// IF ?CD?=1012 RETURN«
0x0f7…0f8 0x32
0x0f8…0f9 0x88
0x0f9…101 »00003900«
0x101…102 0xa1
0x102…123 »// IFF ?1?/CNFGMBRS GOTO ANLZREST«
0x123…124 0x27
0x124…125 0x88
0x125…12d »00004200«
0x12d…12e 0x92
0x12e…140 »// IF ?1?/CNFGMBRS«
0x140…141 0x02
0x141…142 0x91
0x142…153 »EVALUATE P8='CNF'«
0x153…154 0x23
0x154…155 0x88
0x155…15d »00004800«
0x15d…15e 0x9c
0x15e…17a »// IF ?2?/ #ERR 3713,23,MIGR«
0x17a…17b 0x2c
0x17b…17c 0x88
0x17c…184 »00004200«
0x184…185 0x96
0x185…19b »// IF ?CD?=1012 RETURN«
0x19b…19c 0x32
0x19c…19d 0x88
0x19d…1a5 »00004300«
0x1a5…1a6 0x8f
0x1a6…1b5 »// GOTO MODLOAD«
0x1b5…1b6 0x41
0x1b6…1b7 0x8f
0x1b7…1c6 »// TAG ANLZREST«
0x1c6…1c7 0x41
0x1c7…1c8 0x9d
0x1c8…1e5 »// IFF ?2?/ #ERR 3714,23,MIGR«
0x1e5…1e6 0x2b
0x1e6…1e7 0x88
0x1e7…1ef »00004600«
0x1ef…1f0 0x96
0x1f0…206 »// IF ?CD?=1012 RETURN«
0x206…207 0x32
0x207…208 0x88
0x208…210 »00004700«
0x210…211 0x90
0x211…221 »// IF ?1?/MASTER«
0x221…222 0x02
0x222…223 0x8d
0x223…230 »GOTO ANLZMSTR«
0x230…231 0x31
0x231…232 0x92
0x232…244 »// IF ?1?/CNFGFILE«
0x244…245 0x02
0x245…246 0x91
0x246…257 »EVALUATE P8='CNF'«
0x257…258 0x2b
0x258…259 0x8f
0x259…268 »// GOTO MODLOAD«
0x268…269 0x41
0x269…26a 0x8f
0x26a…279 »// TAG ANLZMSTR«
0x279…27a 0x41
0x27a…27b 0x90
0x27b…28b »// IF ?1?/MASTER«
0x28b…28c 0x02
0x28c…28d 0x92
0x28d…29f »EVALUATE P8='MAST'«
0x29f…2a0 0x2c
0x2a0…2a1 0xa1
0x2a1…2c2 »// IF DATAF1-#MYLIB4 GOTO NOBUILD«
0x2c2…2c3 0x2f
0x2c3…2c4 0x95
0x2c4…2d9 »BLDLIBR #MYLIB4,50,15«
0x2d9…2da 0x3b
0x2da…2db 0x8e
0x2db…2e9 »// TAG NOBUILD«
0x2e9…2ea 0x42
0x2ea…2eb 0x94
0x2eb…2ff »// LOAD #DCPM,#MYLIB«
0x2ff…300 0x3c
0x300…301 0x86
0x301…307 »// RUN«
0x307…308 0x4a
0x308…309 0x8e
0x309…317 »// TAG MODLOAD«
0x317…318 0x42
0x318…319 0x94
0x319…32d »// LOAD #DCAC,#MYLIB«
0x32d…32e 0x3c
0x32e…32f 0x86
0x32f…335 »// RUN«
0x335…336 0x4a
0x336…337 0x90
0x337…347 »UPDATEAF ?2?,?8?«
0x347…348 0x40
0x348…349 0x89
0x349…352 »// RETURN«
0x352…353 0x3f
0x353…354 0x88
0x354…35c »00004900«
0x35c…35d 0x00
0x35d…360 00 00 00 ┆␣␣␣┆
0x360…380 00 00 00 00 00 00 d7 c3 c1 c3 c8 c5 40 40 40 00 23 83 48 00 0c 00 00 00 00 c0 00 02 00 51 00 02 ┆␣␣␣␣␣␣PCACHE ␣ cç␣ ␣␣␣␣{␣ ␣é␣ ┆
0x380…3a0 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 00 d7 c3 d3 d9 d7 c1 d3 ┆ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø Ã␣␣␣␣␣␣␣␣PCLRPAL┆
0x3a0…3c0 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&␣ ␣␣␣␣ ␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆
0x3c0…3e0 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&␣ ␣␣␣␣ ┆
0x3e0…400 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 ┆␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣␣␣␣␣␣␣ ┆