|
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: 1536 (0x600)
Notes: MEMBER_S, Member_Text
Names: »FAK320 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».FAK320 «
Kostbel¦b for kreditnotaer indg}r ikke i beregningen af
d{kningsbidraget p} fakturajournalen. Totalen pr. valuta vil
derfor v{re misvisende, hvis der indg}r store kreditnotaer.
Samtidig vil d{kningsbidrag og -grad nu blive vist for
kreditnotaer.
Rettelse pr. 31/12 1984.
C* I N D I C A T O R O V E R S I G T
add C* 71 - D#KNINGSGRAD PR. LINIE ST@RRE END 999
add C* 72 - D#KNINGSGRAD PR. VALUTA ST@RRE END 999
C* UDREGNING AF D#KNINGSBIDRAG OG D#KNINGSGRAD PR VALUTA
{ndr CL1 Z-ADDWRK33D WRK33D 72
{ndr CL1N72 WRK33D SUB WRK30 WRK15 102
{ndr CL1N72 WRK15 DIV WRK33D WRK63 H
{ndr CL1N72 WRK63 MULT 100 WRK16 41
C TOT02 TAG
slet C 08 GOTO ENDTOT
C* UDREGN D#KNINGSBIDRAG OG D#KNINGSGRAD PR. FAKTURA.
C ADD FAKKOS WRK30 102
C VARTDK SUB FAKKOS WRK65 92
{ndr C Z-ADDVARTDK VARTDK 71
{ndr C N71 WRK65 DIV VARTDK WRK63 93H
{ndr C N71 WRK63 MULT 100 WRK66 41
add C N71 MOVELWRK63 TEST 50
add C N71 TEST COMP 0 7171
C ENDTOT ENDSR
{ndr O WRK65 M 126
{ndr O WRK66 L 132
add O 71 131 '*****'
O D 04
O KUNAVN 50
O T 21 L1
O VALUTA 10
O 30 '*** TOTALER ***'
O WRK18 M 54
O WRK32 M 78
O WRK13 M 102
{ndr O WRK15 M 126
{ndr O WRK16 M 132
add O 72 131 '*****'