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

⟦468a754e7⟧

    Length: 1536 (0x600)
    Notes: MEMBER_S, Member_Text
    Names: »BOG211  «

Derivation

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

Text Member

     U                       B                                            BOG211                
     H      14    D.J               B       1                             BOG211                
     F****************************************************************                          
     F*                                                              *                          
     F*  AUTO  SRT                                                   *                          
     F*    PROGRAM   B O G 2 1 1   -   MANGLENDE BILAGSNUMRE         *                          
     F*              -----------                                     *                          
     F*                                                              *                          
     F*  MANGLENDE NUMMERSERIER UDSKRIVES                            *                          
     F*                                                              *                          
     F*  SEEBACH DATA APS   4/8 1988                                 *                          
     F*                                                              *                          
     F****************************************************************                          
     FLISTE   O     132 132     OF     PRINTER                                                  
     FPOS1    IP    234  78 14AI  EXTK DISK                                                     
     IPOS1    NS  20   1 CT                                                                     
     I                                        2   2 STAKOD                                      
     I                                        3  100KTOKEY                                      
     I                                       11  120POSTPR                                      
     I                                       13  180BILDAT                                      
     I                                       19  48 TEKST                                       
     I                                       49  582BEL@B                                       
     I                                       59  640BILAG                                       
     I                                       65  742BRUTTO                                      
     I                                       75  782MOMSPR                                      
     I        NS  87                                                                            
     I           UDS                                                                            
     I                                        1   60TIME                                        
     I                                       50  52 FIRMA                                       
     C   89                GOTO START                                                           
     C                     Z-ADDBILAG     GEMBIL  60                                            
     C           BILAG     IFGT 1                          .IF                                  
     C                     Z-ADD1         B1      60                                            
     C                     EXSR FEJL                                                            
     C                     END                             .END                                 
     C                     SETON                     89                                         
     C                     GOTO SLUT                                                            
     C*                                                                                         
     C           START     TAG                                                                  
     C           GEMBIL    ADD  1         B1                                                    
     C           B1        IFLT BILAG                      .IF                                  
     C                     EXSR FEJL                                                            
     C                     END                             .END                                 
     C                     Z-ADDBILAG     GEMBIL  60                                            
     C*                                                                                         
     C           SLUT      TAG                                                                  
     C*                                                                                         
     CLR                   EXSR FEJL                                                            
     C*                                                                                         
     C           FEJL      BEGSR                                                                
     C           BILAG     SUB  1         B2      60                                            
     C   LR                Z-ADD999999    B2                                                    
     C           B1        COMP B2                       70 ENS                                 
     C                     EXCPTMGL                                                             
     C                     ENDSR                                                                
     C*                                                                                         
     OLISTE   H  202   1P                                                                       
     O       OR        OF                                                                       
     O                                    5 'DATO'                                              
     O                         UDATE Y   14                                                     
     O                                   19 'KL'                                                
     O                         TIME  Y   28                                                     
     O                                   28 '   '                                               
     O                                   60 'FINANSBOGHOLDERI -'                                
     O                                   74 'NUMMERKONTROL'                                     
     O                         FIRMA     89                                                     
     O                                  125 'SIDE'                                              
     O                         PAGE  Z  130                                                     
     O        EF11             MGL                                                              
     O                         B1    Z   10                                                     
     O                N70                12 '-'                                                 
     O                N70      B2    Z   19                                                     
     O                                   44 '*** BILAGSNR MANGLER ***'                          

Full view