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

⟦6452131ac⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_S, Member_Text
    Names: »FAK108  «

Derivation

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

Text Member

                                                                                                
         Ved direkte udskrift af f¦lgeseddel under ordreregistrering er der                     
         uoverensstemmelse mellem linienumre p} f¦lgeseddel og linienumre                       
         ved tilbagemelding.                                                                    
                                                                                                
    Rettelse pr. 30/4 1984:                                                                     
                                                                                                
     I                                    P  77  800ORDANT    04                                
     I                                    P  81  840LEVANT    04                                
add  I                                      110 114 VAPLAC    04                                
                                                                                                
                                                                                                
                                                                                                
     C                     MOVE 'F'       KODE2                                                 
add  C                     MOVE '     '   VAPLAC                                                
add  C                     MOVE LINNR     VAPLAC                                                
     C                     SETON                     62                                         
     C                     EXCPT                                                                
     C                     SETOF                     606272                                     
     C   OF                SETON                     60    OVERFLOW PRINT                       
     C                     SETOF                     OF                                         
     C                     GOTO UPDO01                                                          
     C           UPDO99    ENDSR                                                                
     OORDREFILE        60 02                                                                    
     O       OR        62 03                                                                    
     O       OR        62 04                                                                    
     O       OR        62 05                                                                    
     O       OR        62 06                                                                    
     O                         KODE1      3                                                     
     O                         KODE2      4                                                     
     O                         KODE3      5                                                     
     O                    04   LEVANT    84P                                                    
add  O                    04   VAPLAC   114

Full view