|
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: »FAK500 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».FAK500 «
Ny funktion indlagt pr. 31/12 1984.
----------------------------------
Det er nu muligt at anvende fakturarabat p} kreditnota. Kundens
normale rabat vil blive vist p} samme billede som navnet og kan
s} evt. rettes eller slettes som ved ordreindtastning.
Samtidig skal udskriftsprogrammet FAK520 rettes. (Se dette.)
I format FAK500FM tilf¦jes i billede FAK50002 f¦lgende to linier:
DFAKNR1 61125Y YN B Y Y
add D 171148Y N CFakturarabat %...
add DFAKRPC 31167Y YN B Y Y
D 192011Y N * CMD 12 - FORFRA *
I program FAK500 rettes og tilf¦jes f¦lgende.
{ndr FSK#RM CD F 160 WORKSTN
add E FRAB 9 3 1 RABAT ARRAY
I* FORMAT - FAK50002
I NS 42 1 C2
add I 99 1011XFAKRP
I* FELTER TIL 02-RECORD
add I 66 681FAKRPC 02
IKUNDEFILNS 20 1 CK
add I 185 1850FAKOD
ISYSCTL NS 01 2 C5
add I 107 133 FRAB
C* FLYT FRA KUNDEFIL TIL INPUTFELTER
add C Z-ADD0 FAKRPC
add C Z-ADDFAKOD FAKOD 80 RABAT GIVES
add C 80 Z-ADDFRAB,FAKODFAKRPC
C 83 Z-ADD4027 MICNR MSG 4027
C 83 GOTO DISP2
add C Z-ADDXFAKRP FAKRPC
O* OUTPUT TIL ORDREFILE
O E 52
O BLANK 157
add O FAKRPC 68
add O FAKRPC 154
{ndr O 83 MIC 160
O* DISPLAY OVERSKRIFTER