|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Notes: MEMBER_S, Member_Text
Names: »DEB310 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».DEB310 «
Kontoudtog er forkert.
----------------------
Fejlen h{nger sammen med fejl i DEB140, DEB150 og DEB300. Se disse.
Rettelse pr. 31/12 1984:
I 107 107 KONTUD
add I* Udligningsdato - $MD
add I 108 1130UDLDAT
ISYSCTL NS 05 2 C5
add I* DAGS DATO - $MD
add I DS
add I 1 60UDATO
add I 1 2 U$R
add I 5 6 UDG
add C*
add C Z-ADDUDATE UDATO DAGS DATO
add C MOVE UYEAR U$R VENDES
add C MOVE UDAY UDG
C*
C START TAG START
{ndr C N33 FORDAT COMP UDATO 8080 HVIS DEBET OG FORF.
C 33 OPDATER
CORN33 80 ADD BEL@B FORSAL FORFALDEN SALDO
add C POSTYP COMP '0' 42 KONTANTFAKTURA
{ndr C POSTYP COMP '1' 8080 HVIS FAKTURA/KREDN.
C 80 ADD BEL@B FAK$TD OPDATER $.T.D.
C 80 ADD PMOMS MOM$TD
{ndr C N42 ADD BEL@B GLSALD OPDATER GL. SALDO
C TSTUD0 TAG
C MOVE '1' KONTUD MARKER FOR KTO UDSK
C*
C TSTUDL TAG
C UDLKOD COMP '9' 80 HVIS UDLIGNET
add C 80 UDLDAT COMP UDSDAT 8080
C 80 MOVE '9' KONTUD EJ MERE P$ KTO.UDT
C EXCPTUPDPOS OPDATER POSTEN
C GOTO LOOP1
C*
C OPDDM TAG
{ndr C POSTYP COMP '1' 8080 HVIS FAKTURA/KREDN.