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

⟦92f83c8a2⟧ 

    Length: 512 (0x200)
    Notes: MEMBER_P, Member_Text
    Names: »BOG500  «

Derivation

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

Text Member

*  PROCEDURE   B O G 5 0 0                                                                                              
*  ENDELIG $RSAFSLUTNING                                                                                                
// MEMBER USER1-BOGMSG                                                                                                  
// ERR 1230,03                                                                                                          
// IF DATAF1-ZZS.T140 BOGERR ,,,,C                                                                                      
// IF DATAF1-ZZS.T130 BOGERR ,,,,C                                                                                      
// IF DATAF1-ZZS.T120 BOGERR ,,,,C                                                                                      
// IF DATAF1-ZZS.TRAN BOGERR ,,,,C                                                                                      
// LOAD BOG500                                                                                                          
// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM                                                                             
// FILE NAME-SIPL,LABEL-ZZS.PLAN,DISP-OLD                                                                               
// FILE NAME-PLAN,LABEL-ZZB.PLAN,DISP-OLD                                                                               
// RUN                                                                                                                  
// IF SWITCH1-1 BOGERR 5010,,,,C

Full view