DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦6b221503f⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »LISTALL «

Derivation

└─⟦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⟧ ».LISTALL «

Text Member

// LIBRARY NAME-#MYLIB                                                          
// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB     
// IF DSPLY-IGC PROMPT MEMBER-#MY$FMT1,FORMAT-MYS210                            
// ELSE PROMPT MEMBER-#MY@FMT1,FORMAT-MYS210                                    
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'MIGRATE',BLANK-256                          
// LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8                           
// LOCAL AREA-SYSTEM,OFFSET-117,DATA-'$MYAUD',BLANK-8                           
// IF ?CD?=0000 INCLUDE MYREPLST,#MYLIB                                         
// IF ?CD?=2003 RETURN                                                          
// IF ?CD?=2004 JOBQ 3,#MYLIB,MYREPLST,'?USER?'                                 
// IF ?CD?=2004 RETURN                                                          
// IF ?CD?=2007 RETURN                                                          
// RETURN

Full view