|
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