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

⟦6b4cab680⟧ 

    Length: 2048 (0x800)
    Notes: MEMBER_P, Member_Text
    Names: »BOG400  «

Derivation

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

Text Member

* PROCEDURE   B O G 4 0 0                                                                                               
* $RSAFSLUTNING                                                                                                         
// MEMBER USER1-BOGMSG                                                                                                  
// ERR 1230,03                                                                                                          
// * '* KONTROL AF DAGLIGE K@RSLERS NORMALE AFSLUTNING'                                                                 
// IF DATAF1-ZZB.T130 BOGERR 0140,,,T130,C                                                                              
// IF DATAF1-ZZB.T120 BOGERR 0140,,,T120,C                                                                              
* HER KAN INDS#TTES BOGSTAVER ANVENDT FOR SK#RM-ID AF HENSYN TIL KONTROL                                                
// LOCAL DATA-'W '                                                                                                      
** LOCAL DATA-'ABCDEFGHIJKLMNOPQRSTUVWXYZ '                                                                             
// EVALUATE P2,2=1                                                                                                      
// TAG NYTBOG                                                                                                           
// IF ?L'?2?,1'?/ GOTO END2                                                                                             
// EVALUATE ?3F'?L'?2?,1'?'?                                                                                            
// EVALUATE P1,1=0                                                                                                      
// TAG IGEN                                                                                                             
// IF DATAF1-ZZB.T3?3??1? BOGERR 0140,,,T3?3??1?,C                                                                      
// IF DATAF1-ZZB.T2?3??1? BOGERR 0140,,,T2?3??1?,C                                                                      
// IF DATAF1-ZZB.L1?3??1? BOGERR 0140,,,L1?3??1?,C                                                                      
// IF DATAF1-ZZB.TR?3??1? BOGERR 0140,,,TR?3??1?,C                                                                      
// IF ?1?/9 GOTO END1                                                                                                   
// EVALUATE P1=?1?+1                                                                                                    
// GOTO IGEN                                                                                                            
// TAG END1                                                                                                             
// EVALUATE P2=?2?+1                                                                                                    
// GOTO NYTBOG                                                                                                          
// TAG END2                                                                                                             
// IF DATAF1-ZZB.RSLT BOGDEL ZZB.RSLT                                                                                   
// PROMPT MEMBER-BOGPR,FORMAT-BOG400PR                                                                                  
// IFF ?1?/JA RETURN                                                                                                    
// SWITCH 00000000                                                                                                      
// IF DATAF1-ZZS.PLAN SWITCH 1XXXXXXX                                                                                   
// IF DATAF1-ZZS.POST SWITCH X1XXXXXX                                                                                   
// IFF SWITCH-00XXXXXX PAUSE '--> SIDSTE $RS KARTOTEKER FINDES OG VIL BLIVE SLETTET **'                                 
// IFF SWITCH-00XXXXXX BOGDELGR ,,,ZZS                                                                                  
// IF DATAF1-ZZB.POS1 DELETE ZZB.POS1,F1                                                                                
BOGREN ZZB.PLAN,ZZS.PLAN,ZZB.POST,ZZS.POST                                                                              
BOGREN ZZB.ADR1,ZZS.ADR1,ZZB.ADR2,ZZS.ADR2                                                                              
BOGREN ZZB.ADR3,ZZS.ADR3,ZZB.BUDG,ZZS.BUDG                                                                              
// * '**  OPRET NY KONTOPLAN'                                                                                           
// LOAD BOG400                                                                                                          
// FILE NAME-PLAN,LABEL-ZZS.PLAN                                                                                        
// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHR                                                                               
// FILE NAME-SIPL,LABEL-ZZB.PLAN,RECORDS-?F'A,ZZS.PLAN'?                                                                
// FILE NAME-BUDGET,LABEL-ZZS.BUDG,DISP-SHR                                                                             
// RUN                                                                                                                  
// * '**  OPRET NYT BUDGETKARTOTEK'                                                                                     
// LOAD BOG410                                                                                                          
// FILE NAME-SIBUD,LABEL-ZZS.BUDG                                                                                       
// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHR                                                                               
// FILE NAME-BUDGET,LABEL-ZZB.BUDG,RECORDS-?F'S,ZZS.BUDG'?                                                              
// RUN                                                                                                                  
// BOGSOR ZZB                                                                                                           
// LOCAL OFFSET-50,DATA-'ZZS'                                                                                           
BOGFIL

Full view