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

⟦9ca3ea9ec⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_S, Member_Text
    Names: »DEB210  «

Derivation

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

Text Member

                                                                                                
         'Forfalden saldo' er ikke l¦bende ajour.                                               
         Det skyldes, at der - i hvert fald i teorien - forfalder poster                        
         hver dag, og der s} skal k¦res en opdatering for at f} rettet                          
         tallene op.                                                                            
         Nedenst}ende tilf¦jelse bevirker at forfalden saldo f¦res ajour                        
         ved k¦rsel af forfaldsliste (Menu DEBET pkt. 8)                                        
         Se ogs} DEB200.                                                                        
                                                                                                
         Rettelse pr. 31/12 1984.                                                               
                                                                                                
{ndr FKUNDEVALUP  F 512 512 12AI   318 DISK                                                     
                                                                                                
     IKUNDEVALNS  20   1 CK                                                                     
add  I                                    P 248 2532FORSAL                                      
                                                                                                
{ndr C*    60  -  BEL@B I PERIODE 4                                                             
{ndr C*    61  -  BEL@B I PERIODE 3                                                             
     C*    62  -  BEL@B I PERIODE 2                                                             
{ndr C*    63  -  BEL@B I PERIODE 1                                                             
{ndr C*    64  -  BEL@B I PERIODE 0 (IKKE FORFALDENT)                                           
                                                                                                
     C           NOTL1     TAG                                                                  
     C*                                                                                         
     C                     Z-ADDNYSALD    NYSALD     5151   SALDO P$ KUNDE?                     
add  C  N51                SUB  FORSAL    FORSAL                                                
     C  N51                GOTO END                        SKAL IKKE SKRIVES                    
                                                                                                
add  C           NYSALD    SUB  PER00     FORSAL                                                
     C* SUMMER TIL TOTALER PR. VALUTA                                                           
                                                                                                
add  OKUNDEVALD        20                                                                       
add  O                         FORSAL   253P                                                    
                                                                                                
         Samtidig rettes f¦lgende statement i procedure DEB210:                                 
                                                                                                
// FILE NAME-KUNDEVAL,LABEL-PS.KUVAL,DISP-SHRMM

Full view