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

⟦77809f786⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »BOGSLET «

Derivation

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

Text Member

*  PROCEDURE   B O G S L E T                                                                                            
// MEMBER USER1-BOGMSG                                                                                                  
// IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOGSLET,C                                                    
// LOCAL DATA-'-------------            '                                                                               
// IFF DATAF1-?L'50,3'?.POS1 BOGALT                                                                                     
// LOAD BOG970                                                                                                          
// FILE NAME-POS1,LABEL-?L'50,3'?.POS1                                                                                  
// RUN                                                                                                                  
// * '*?L'1,13'?*'                                                                                                      
// WAIT INTERVAL-000002                                                                                                 
// IF ?L'1,7'?/SLET IF ?L'8,6'?>000000 RESET BOG940                                                                     
// IF ?L'1,4'?/IKKE * 'POST.PERIODE ER IKKE 12'                                                                         
// IF ?L'1,4'?/IKKE WAIT INTERVAL-000002                                                                                
// IFF ?L'1,7'?/RET RETURN                                                                                              
// * 'INDTAST NYT BILAGSNUMMER'                                                                                         
// EVALUATE P60,6=?R?                                                                                                   
// LOCAL DATA-'?60?'                                                                                                    
// ATTR CANCEL-YES                                                                                                      
// PAUSE 'BILAGSNUMMER ?L'8,6'? RETTES TIL ?L'1,6'?'                                                                    
BOG950

Full view