|
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