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

⟦d6d2ea64e⟧ 

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

Derivation

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

Text Member

                                                                                                
             #ndring af kunder.                                                                 
      Valutakoden kan ikke {ndres selv om saldo er nul og der ikke er ordrer.                   
                                                                                                
      Rettelse pr. 31/12 1984.                                                                  
                                                                                                
     I##SAVE      DS                                                                            
     .                                                                                          
{ndr I                                      182 185 VALUTA                                      
     .                                                                                          
{ndr I                                      236 239 XVALUT                                      
                                                                                                
add  C   79                MOVE VALUTA    XVALUT                                                
     C*  DISPLAY SK#RMBILLEDE 2 MED DATA 1                                                      
     C           DISP2     TAG                                                                  
                                                                                                
     C           DISP3     TAG                                                                  
slet C   79                MOVE VALUTA    XVALUT                                                
                                                                                                
     C           CHK2      BEGSR                                                                
slet C   78                MOVE XVALUT    VALUTA                                                
     C   78                GOTO OPRVAL                                                          
     C           XVALUT    COMP VALUTA                   80                                     
     C   80                GOTO ENDVAL                                                          
     C                     Z-ADDNYSALD    NYSALD         80                                     
     C   80                Z-ADDRELORD    RELORD         80                                     
     C   80      POSKOD    COMP '1'                    80                                       
slet C   80                MOVE XVALUT    VALUTA

Full view