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

⟦365178738⟧ 

    Length: 1792 (0x700)
    Notes: MEMBER_P, Member_Text
    Names: »ES3270  «

Derivation

└─⟦c8ae05145⟧ Bits:30009820 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 5 Created 19950301 Level 01 Seq 001 of 011
    └─⟦ac51fb3f2⟧ 
        └─⟦this⟧ ».ES3270  «

Text Member

// LIBRARY NAME-#LIBRARY                                              
// MEMBER USER1-#ES#M1,PROGRAM1-#ES#M1                                
// * 1000                                                             
// IF ?4?/Y  EVALUATE P4='YES'                                        
// IF ?4?/N  EVALUATE P4='NO'                                         
// IF ?5?/Y  EVALUATE P5='YES'                                        
// IF ?5?/N  EVALUATE P5='NO'                                         
// LOCAL OFFSET-236,DATA-'          ',AREA-SYSTEM                     
// IFF ?2'ON'?/ON  EVALUATE P9='OP'                                   
// IF ?4?/NO   EVALUATE P9='OP'                                       
// IF ?9?/     EVALUATE P9='OP'                                       
// IF ?9?/OP GOTO NINEOK                                              
// IF ?9?/BR GOTO NINEOK                                              
// IF ?9?>99 INCLUDE #ERR 2012,C,ESU                                  
// IF 01>?9? INCLUDE #ERR 2012,C,ESU                                  
// TAG NINEOK                                                         
// LOCAL OFFSET-236,DATA-'?9?',AREA-SYSTEM                            
// IF ?8?/ LOCAL OFFSET-238,DATA-'   ',AREA-SYSTEM                    
// ELSE    LOCAL OFFSET-238,DATA-'?8?',AREA-SYSTEM                    
// IF ?7?/ LOCAL OFFSET-241,DATA-'   ',AREA-SYSTEM                    
// ELSE    LOCAL OFFSET-241,DATA-'?7?',AREA-SYSTEM                    
// IF ?4?/ LOCAL OFFSET-244,DATA-'  ',AREA-SYSTEM                     
// ELSE IF ?4?/YES LOCAL OFFSET-244,DATA-'  ',AREA-SYSTEM             
// ELSE IF ?4?/NO  LOCAL OFFSET-244,DATA-'  ',AREA-SYSTEM             
// ELSE            LOCAL OFFSET-244,DATA-'?4?',AREA-SYSTEM            
// LOCAL OFFSET-246,DATA-'        ',AREA-SYSTEM                       
// IF      ?3?/  LOCAL OFFSET-246,DATA-'        ',AREA-SYSTEM         
// ELSE          LOCAL OFFSET-246,DATA-'?3?',AREA-SYSTEM              
// IF ?2?/ON     LOCAL OFFSET-254,DATA-'1',AREA-SYSTEM                
// ELSE IF ?2?/OFF   LOCAL OFFSET-254,DATA-'0',AREA-SYSTEM            
// ELSE IF ?2?/CLO   LOCAL OFFSET-254,DATA-'3',AREA-SYSTEM            
// ELSE INCLUDE #ERR 2010,C,ESU                                       
// IF ?1?/ LOCAL OFFSET-255,DATA-'?WS?',AREA-SYSTEM                   
// ELSE    LOCAL OFFSET-255,DATA-'?1?',AREA-SYSTEM                    
// LOAD #ESFP                                                         
// RUN                                                                
// IF ?L'254,1'?/0 RETURN                                             
// IF ?L'254,1'?/3 RETURN                                             
// IF ?L'255,2'?/?WS?  LOCAL OFFSET-254,DATA-'1',AREA-SYSTEM          
// ELSE                LOCAL OFFSET-254,DATA-'0',AREA-SYSTEM          
//      IF ?L'252,1'?/W   INCLUDE #ES3277                             
// ELSE GOTO PRINT                                                    
// RETURN                                                             
// TAG PRINT                                                          
// IF ?4?/NO    LOCAL OFFSET-252,DATA-'P',AREA-SYSTEM                 
// INCLUDE #ES3288 ?4'YES'?,?5'YES'?,?6'1'?

Full view