DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Notes: MEMBER_P, Member_Text
    Names: »ANLZSECP«

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

Text Member

// MEMBER USER2-#MY#2MSG                                                        
// IFF DATAF1-$MYSC.U1 GOTO TAG01                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.U1                                                
// END                                                                          
// TAG TAG01                                                                    
// IFF DATAF1-$MYSC.R1 GOTO TAG02                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.R1                                                
// END                                                                          
// TAG TAG02                                                                    
// IFF DATAF1-$MYSC.R2 GOTO TAG03                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.R2                                                
// END                                                                          
// TAG TAG03                                                                    
// IFF DATAF1-$MYSC.R3 GOTO TAG04                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.R3                                                
// END                                                                          
// TAG TAG04                                                                    
// IFF DATAF1-$MYSC.O1 GOTO TAG05                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.O1                                                
// END                                                                          
// TAG TAG05                                                                    
// IFF DATAF1-$MYSC.O2 GOTO TAG06                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.O2                                                
// END                                                                          
// TAG TAG06                                                                    
// IFF DATAF1-$MYSC.O3 GOTO TAG07                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.O3                                                
// END                                                                          
// TAG TAG07                                                                    
// IFF DATAF1-$MYSC.O4 GOTO TAG08                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.O4                                                
// END                                                                          
// TAG TAG08                                                                    
// LOAD #RRMU                                                                   
// RUN                                                                          
// PRINTER CONTINUE-YES                                                         
// LOCAL OFFSET-39,DATA-'0',AREA-SYSTEM                                         
// LOCAL OFFSET-40,DATA-'        ',AREA-SYSTEM                                  
// LOCAL OFFSET-40,DATA-'?USER?',AREA-SYSTEM                                    
// LOCAL OFFSET-48,DATA-'?TIME?',AREA-SYSTEM                                    
// LOCAL OFFSET-54,DATA-'?DATE?',AREA-SYSTEM                                    
// IFF DATAF1-$MYSC.U1 GOTO TAG09                                               
// LOAD #RRAU                                                                   
// FILE NAME-MYSCU1,LABEL-$MYSC.U1,DISP-OLD                                     
// RUN                                                                          
// TAG TAG09                                                                    
// PRINTER CONTINUE-NO                                                          
// IFF DATAF1-$MYSC.U1 GOTO TAG10                                               
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE UNIT-F1,LABEL-$MYSC.U1                                                
// END                                                                          
// TAG TAG10                                                                    
// UPDATEAF  ,SEC