|
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: 2560 (0xa00)
Notes: MEMBER_S, Member_Text
Names: »BOG940 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦1fc10e824⟧
└─⟦this⟧ ».BOG940 «
H 14 D.J 1 BOG940
F****************************************************************
F* PROGRAM B O G 9 4 0 - SLETNING AF ET BILAG *
F* ----------- *
F* SEEBACH DATA APS 16/9 1987 *
F****************************************************************
FPOS1 UF 234 78L14AI EXTK DISK
FPLAN UC 262 262R08AI 3 DISK
FLISTE O 132 132 OF PRINTER
E CAM 12 11 2 SALDI I $R
E REL 12 7 0 POST ADRESSER
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
IPLAN GL 02 1 CG
I 2 2 STAKOD
I 3 30FI
I 4 50AFD
I 6 70KTOGRP
I 6 100KTONR
I 3 100KTOKEY
I 12 12 POSL$S
I 13 14 KUKODE
I 15 16 PALCD
I 17 17 EXPCD
I 18 18 PORLC
I 19 19 MOMKT1
I 20 49 KTONVN
I 50 51 FORDEL
I P 54 580$RSBUD
I P 131 202 CAM
I P 203 2082PBALF
I P 209 2142CBALF
I P 215 262 REL
I NS 01 1 CX
I 11 144MOMPC1 MOMSPROCENT
I 43 470HLINR HOVEDBOGSLISTENR
IBILDAT DS
I 1 20BIL$R
I 3 40BILM$N
I 5 60BILDAG
I UDS
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 KTOKEY CHAINPLAN 80 KONTORECORD
C*
C Z-ADDBEL@B BEL@B 71 DEBETPOST?
C 71 SUB BEL@B L1DBT JA
C N71 ADD BEL@B L1CRT
C*
C SUB BEL@B CAM,MO OPDATER SALDO
C SUB 1 REL,MO 80 OPDATER POINTER
C 80 Z-ADD0 REL,MO
C EXCPTSLETBI
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 65 'FINANSBOGHOLDERI - SLETT'
O 77 'ET BILAG NR.'
O XBILAG 84
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 SLETBI
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 EDEL SLETBI
O* OPDATERING AF M$NEDSSALDO
OPLAN E SLETBI
O CAM 202P
O REL 262P