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

⟦be5a50f04⟧ 

    Length: 2304 (0x900)
    Notes: MEMBER_P, Member_Text
    Names: »BOG260  «

Derivation

└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
    └─⟦1fc10e824⟧ 
        └─⟦this⟧ ».BOG260  «

Text Member

* PROCEDURE   B O G 2 6 0                                                                                               
* STATUS            KONTO/FIRMA   GRUPPE/FIRMA   KONCERN                                                                
*                     BOG260         BOG270       BOG280                                                                
// MEMBER USER1-BOGMSG                                                                                                  
// SWITCH 0000000X                                                                                                      
// IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOG260,C                                                     
// IFF DATAF1-?L'50,3'?.RSLT BOGERR 0191,,,,C                                                                           
// IF SWITCH8-0 GOTO TG8 ?8F'X'?                                                                                        
// ELSE GOTO TG8 ?8F''?                                                                                                 
// TAG TG8                                                                                                              
// IF ?10?/NOPROM LOCAL DATA-'?11?'                                         PS                                          
// IF ?10?/NOPROM GOTO NOPR                                                 PS                                          
// PROMPT MEMBER-BOGPR,FORMAT-BOG260PR                                                                                  
// IFF ?4?/ SWITCH XXXXXX1X                                                                                             
// IFF ?3?/ GOTO BOG280                                                                                                 
// IFF ?2?/ GOTO BOG270                                                                                                 
* KONTO PR. FIRMA                     BOG260                                                                            
// PROMPT MEMBER-BOGPR,FORMAT-BOG260P1                                                                                  
// IFF ?1?/ SWITCH XXXX1XXX                                                                                             
// IF SWITCH7-0 GOTO HOP                                                                                                
// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR                                                                                  
// IFF ?1?/ SWITCH XXXXX10X                                                                                             
// TAG HOP                                                                                                              
BOG190 07                                                                                                               
// TAG NOPR                                                                 PS                                          
// SWITCH 0111XXXX                                                                                                      
// LOAD BOG260                                                                                                          
// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM                                                                             
// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHR                                                                         
// FILE NAME-PLANUPD,LABEL-?L'50,3'?.PLAN,DISP-SHR                                                                      
// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR3,DISP-SHRRR                                                                    
// FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-SHR                                                                         
// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM                                                                     
// RUN                                                                                                                  
// RETURN                                                                                                               
* KONTOGRUPPE PR. FIRMA               BOG270                                                                            
// TAG BOG270                                                                                                           
// IF SWITCH7-0 GOTO HOP                                                                                                
// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR                                                                                  
// IFF ?1?/ SWITCH XXXXX10X                                                                                             
// TAG HOP                                                                                                              
// PROMPT MEMBER-BOGPR,FORMAT-BOG280PR                                                                                  
// IFF ?1?/ SWITCH XX1XXXXX                                                                                             
BOG190 08                                                                                                               
// LOAD BOG270                                                                                                          
// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM                                                                             
// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM                                                                     
// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM                                                                       
// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR1,DISP-SHRRR                                                                    
// FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-SHR                                                                         
// RUN                                                                                                                  
// RETURN                                                                                                               
* STATUS FOR KONCERN                  BOG280                                                                            
// TAG BOG280                                                                                                           
// IF SWITCH7-0 GOTO HOP                                                                                                
// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR                                                                                  
// IFF ?1?/ SWITCH XXXXX10X                                                                                             
// TAG HOP                                                                                                              
// PROMPT MEMBER-BOGPR,FORMAT-BOG280PR                                                                                  
// IFF ?1?/ SWITCH XX1XXXXX                                                                                             
BOG190 11                                                                                                               
// LOAD BOG280                                                                                                          
// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM                                                                             
// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM                                                                       
// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM                                                                     
// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR2,DISP-SHRRR                                                                    
// RUN

Full view