|
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: »ANLZALL «
└─⟦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
└─⟦9ca9049e8⟧
└─⟦this⟧ ».ANLZALL «
// LIBRARY NAME-#MYLIB // MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'MIGRATE',BLANK-512 // LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8 // LOCAL AREA-SYSTEM,OFFSET-117,DATA-'$MYAUD',BLANK-8 // EVALUATE P1=' ' // IFF SECURITY-ACTIVE GOTO SCREEN // IF SECURITY-S GOTO SCREEN // EVALUATE P1='2101' // TAG SCREEN // IF DSPLY-IGC PROMPT MEMBER-#MY$FMT1,FORMAT-MYS220,LENGTH-'79' // IFF DSPLY-IGC PROMPT MEMBER-#MY@FMT1,FORMAT-MYS220,LENGTH-'79' // IF ?CD?=0000 GOTO ENTER // IF ?CD?=2003 RETURN // IF ?CD?=2004 JOBQ 3,#MYLIB,ANLZ001,JOBQ // IF ?CD?=2004 RETURN // IF ?CD?=2007 RETURN // TAG ENTER // ATTR RELEASE-YES // INCLUDE ANLZ001,#MYLIB JOB // RETURN
0x000…001 0x96 0x001…017 »// LIBRARY NAME-#MYLIB« 0x017…018 0x3a 0x018…019 0xcb 0x019…064 »// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB« 0x064…065 0x05 0x065…066 0xb6 0x066…09c »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'MIGRATE',BLANK-512« 0x09c…09d 0x1a 0x09d…09e 0xb5 0x09e…0d3 »// LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8« 0x0d3…0d4 0x1b 0x0d4…0d5 0xb5 0x0d5…10a »// LOCAL AREA-SYSTEM,OFFSET-117,DATA-'$MYAUD',BLANK-8« 0x10a…10b 0x1b 0x10b…10c 0x90 0x10c…11c »// EVALUATE P1='« 0x11c…11d 0x04 0x11d…11e 0x81 0x11e…11f »'« 0x11f…120 0x3b 0x120…121 0xa2 0x121…143 »// IFF SECURITY-ACTIVE GOTO SCREEN« 0x143…144 0x2e 0x144…145 0x9c 0x145…161 »// IF SECURITY-S GOTO SCREEN« 0x161…162 0x34 0x162…163 0x95 0x163…178 »// EVALUATE P1='2101'« 0x178…179 0x3b 0x179…17a 0x8d 0x17a…187 »// TAG SCREEN« 0x187…188 0x43 0x188…189 0xc0 0x189…1c9 »// IF DSPLY-IGC PROMPT MEMBER-#MY$FMT1,FORMAT-MYS220,LENGTH-'79'« 0x1c9…1ca 0x10 0x1ca…1cb 0xc1 0x1cb…20c »// IFF DSPLY-IGC PROMPT MEMBER-#MY@FMT1,FORMAT-MYS220,LENGTH-'79'« 0x20c…20d 0x0f 0x20d…20e 0x9a 0x20e…228 »// IF ?CD?=0000 GOTO ENTER« 0x228…229 0x36 0x229…22a 0x96 0x22a…240 »// IF ?CD?=2003 RETURN« 0x240…241 0x3a 0x241…242 0xaa 0x242…26c »// IF ?CD?=2004 JOBQ 3,#MYLIB,ANLZ001,JOBQ« 0x26c…26d 0x26 0x26d…26e 0x96 0x26e…284 »// IF ?CD?=2004 RETURN« 0x284…285 0x3a 0x285…286 0x96 0x286…29c »// IF ?CD?=2007 RETURN« 0x29c…29d 0x3a 0x29d…29e 0x8c 0x29e…2aa »// TAG ENTER« 0x2aa…2ab 0x44 0x2ab…2ac 0x93 0x2ac…2bf »// ATTR RELEASE-YES« 0x2bf…2c0 0x3d 0x2c0…2c1 0x9d 0x2c1…2de »// INCLUDE ANLZ001,#MYLIB JOB« 0x2de…2df 0x33 0x2df…2e0 0x89 0x2e0…2e9 »// RETURN« 0x2e9…2ea 0x47 0x2ea…2eb 0x00 0x2eb…300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ┆