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

⟦a261cfd71⟧ 

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

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⟧ ».MYREPLST«

Text Member

// LIBRARY NAME-#MYLIB                                                          
// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1                                          
// IF DATAF1-$MYWRK1 DELETE $MYWRK1,F1                                          
// MEMBER USER1-#MY#1MSG,LIBRARY-#MYLIB                                         
// MEMBER USER2-#MY#2MSG,LIBRARY-#MYLIB                                         
// IF JOBQ-NO * 4003                                                            
// LOAD #MYVT                                                                   
// FILE NAME-$MYVTOC,RECORDS-1500                                               
// RUN                                                                          
COPYDATA $MYVTOC,,$MYWRK1,RECORDS,1500,,T,NOREORG,OMIT,2,EQ,'EXTENT',,,I,1,15   
// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1                                          
COPYDATA $MYWRK1,,$MYVTOC,RECORDS,1500,,T,REORG                                 
// IFF '?1?'/ LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?1?',BLANK-8                   
// LOAD #MYLA                                                                   
// FILE NAME-$MYVTOC                                                            
// RUN                                                                          
// IF DATAF1-$MYWRK1 DELETE $MYWRK1,F1                                          
// IF DATAF1-$MYVTOC DELETE $MYVTOC,F1

Full view