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

⟦0b1025cb1⟧ 

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

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
    └─⟦9d4f33051⟧ 
        └─⟦this⟧ ».ANLZCBL «

Text Member

// MEMBER USER1-#MY#1MSG,USER2-#MY#2MSG,LIBRARY-#MYLIB                          
// IF ?1?/ #ERR 3010,3,MIGR                                                     
// IFF DATAF1-?1?  #ERR 3020,3,MIGR                                             
// LOCAL OFFSET-001,BLANK-8,DATA-'?1?'                                          
// LOCAL OFFSET-009,BLANK-8,DATA-'?USER?'                                       
// EVALUATE P3=?TIME?                                                           
// LOAD $FBLD                                                                   
// RUN                                                                          
// FILE LABEL-MY?3?,ATTRIB-I,RECORDS-1000,                                      
//            RECL-11,POSITION-1,LENGTH-8,EXTEND-100,RETAIN-J                   
// END                                                                          
// LOAD MYC01                                                                   
// FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J                                       
// RUN                                                                          
// LOAD $FBLD                                                                   
// RUN                                                                          
// FILE LABEL-MX?3?,ATTRIB-I,RECORDS-1000,                                      
//            RECL-8,POSITION-1,LENGTH-8,EXTEND-100,RETAIN-J                    
// END                                                                          
// LOAD MYC02                                                                   
// FILE NAME-MBRFILE,LABEL-MY?3?,RETAIN-J                                       
// FILE NAME-LIBFILE,LABEL-MX?3?,RETAIN-J                                       
// RUN                                                                          
UPDATEAF ?1?,CBL,?2?

Full view