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

⟦2400189ad⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »BOG020  «

Derivation

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

Text Member

* PROCEDURE   B O G 0 2 0                                                                                               
*    TILF@JET "DFILE" , BLDINDEX OG BOGDEL        /PS 1987                                                              
// SWITCH 1000000X                                                                                                      
// IFF DATAF1-?L'50,3'?.POST SWITCH 0100000X                                                                            
// LOAD BOG020                                                                                                          
// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHR                                                                         
// IF SWITCH1-1 FILE NAME-POST,LABEL-?L'50,3'?.POST,DISP-SHR                                                            
// ELSE FILE NAME-NYPOST,LABEL-?L'50,3'?.POST,RECORDS-5000,DISP-NEW,DUPKEYS-YES,DFILE-YES                               
// RUN                                                                                                                  
// IFF DATAF1-?L'50,3'?.POS1 BOGALT                                                                                     
// IF SWITCH-XX00000X RETURN                                                                                            
// IF SWITCH3-1 * 'POSTERINGER OG KONTOPLAN IKKE SAMME GENERATION'                                                      
// IF SWITCH4-1 * 'KONTOPLAN HAR GENERATIONSFELT, MEN POSTERINGER FINDES IKKE'                                          
// IF SWITCH5-1 * 'PARAMETER-RECORD I POSTERINGSKARTOTEK MANGLER'                                                       
// IF SWITCH6-1 * 'PARAMETER RECORD I KONTOPLAN MANGLER'                                                                
// IF SWITCH2-1 BOGDEL ?L'50,3'?.POS1                                                                                   
// IF SWITCH2-1 BOGDEL ?L'50,3'?.POST                                                                                   
// PAUSE '-->   JOBBET AFBRYDES.  RESTART FRA BACKUP'                                                                   
// CANCEL

Full view