|
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: 1792 (0x700)
Notes: MEMBER_S, Member_Text
Names: »BOG950 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦1fc10e824⟧
└─⟦this⟧ ».BOG950 «
H 14 D.J 1 BOG950
F****************************************************************
F* PROGRAM B O G 9 5 0 - RETTELSE AF ET BILAGSNUMMER *
F* ----------- *
F* SEEBACH DATA APS 21/5 1988 *
F****************************************************************
FPOS1 UF 234 78L14AI EXTK DISK
FLISTE O 132 132 OF PRINTER
IPOS1 NS 20 1 CT
I 2 2 STAKOD
I 3 100KTOKEY
I 11 120MO
I 13 180BILDAT
I 19 48 TEKST
I 49 582BEL@B
I 59 640BILAG
I 65 742BRUTTO
I 75 782MOMSPR
I NS 01 1 CX
IBILDAT DS
I 1 20BIL$R
I 3 40BILM$N
I 5 60BILDAG
I UDS
I 1 60NYTNR
I 8 130XBILAG
I 8 21 KEY
I 50 51 FIRMA
C Z-ADD0 L1DBT 112 DEBET/KONTO
C Z-ADD0 L1CRT 112 KREDIT/KONTO
C*
C KEY SETLLPOS1
C LOOP TAG
C READ POS1 76
C N76 BILAG COMP XBILAG 7676
C 76 GOTO SLUT
C Z-ADDBEL@B BEL@B 71 DEBETPOST?
C 71 SUB BEL@B L1DBT JA
C N71 ADD BEL@B L1CRT
C EXCPTRETBI
C GOTO LOOP
C*
C SLUT TAG
C*
C SETON LR
OLISTE H 102 1P
O OR OF
O 5 'DATO'
O UDATE Y 14
O 45 'FINANSBOGHOLDERI - RETT'
O 57 'ET BILAG NR.'
O XBILAG 64
O 68 'TIL'
O NYTNR 75
O FIRMA 89
O 125 'SIDE'
O PAGE 130
O H 1 1P
O OR OF
O 10 'KONTONR'
O 19 'DATO'
O 34 'BILAG TEKST'
O 91 'DEBET'
O 108 'KREDIT'
O E 1 RETBI
O KTOKEY 12 '0 - - - '
O BILDAG 15
O 16 '.'
O BILM$N 18
O 19 '.'
O BIL$R 21
O BILAG Z 28
O TEKST 59
O 71 BEL@B 1 92
O N71 BEL@B 1 109
O T 2 LR
O 72 'BILAGSTOTALER'
O L1DBT 1 92
O L1CRT 1 109
O 130 '*'
OPOS1 E RETBI
O NYTNR 64