|
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: 5888 (0x1700)
Notes: MEMBER_S, Member_Text
Names: »BOG140 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦1fc10e824⟧
└─⟦this⟧ ».BOG140 «
U B BOG140
H 14 D.J 1 BOG140
F****************************************************************
F* *
F* COPYRIGHT= *
F* 5797-TFT COPYRIGHT IBM DANMARK 1983 LICENSED MATERIAL - *
F* PROGRAM PROPERTY OF IBM *
F* DER HENVISES TIL INSTRUCTIONS ON COPYRIGHT NOTICE - FORM *
F* NO G120-2083 *
F* ----------------------------------------------------------- *
F* AUTO SRT *
F* PROGRAM B O G 1 4 0 - OPDATERING AF KONTI/HOVEDBOG *
F* ----------- *
F* *
F****************************************************************
F/COPY FMBOG,BKODE
F/COPY FMBOG,KPLAN
F/COPY FMBOG,BPTRAN
I 9 90FI L3
I 10 110AFD L2
I KTOKEYL1
FCHPOST UC 78 78R16AI 3 DISK
ICHPOST NS 01 1 CX
FADPOST O 3900 78 16AI 3 DISK A
FLISTE O 132 132 OF LPRINTER
E COIBM 1 1 79 COPYRIGHT NOTICE
LLISTE 051FL042OL
IBILDAT DS
I 1 20BIL$R
I 3 40BILM$N
I 5 60BILDAG
C* I N D I K A T O R O V E R S I G T
C* U1 - FIRMANAVN FINDES IKKE I KODEKARTOTEK
C* U2 - KONTO FINDES IKKE
C* U3 - AFDELINGSNAVN FINDES IKKE I KODEKARTOTEK
C* U4 - POSTERINGSPERIDE ER 0 (NUL) ELLER NEGATIV
C* U5 - DEBET STEMMER IKKE MED KREDIT FOR K@RSLEN
C* U6 - OPDATERING IKKE AFSLUTTET NORMALT
C* U8 - EFTERPOSTERINGER
C 89 GOTO TAG10
C Z-ADDPOSTPR MO 20 8080
C 80 SETON U4 UGYLDIG PER.
C 80 GOTO SLUT
C TIME TIME 60
C MOVE ' ' WRK09 16
C Z-ADD0 WRK10 80
C WRK09 CHAINCHPOST 80 PARM. REC.
C WRK10 CHAINPLAN 80 PARM. REC.
C Z-ADDOPDAT OPDAT 8080
C 80 SETON U6 UNDER OPDATER.
C 80 GOTO SLUT
C*
C TIME XTD 120 GENERATION
C ADD 1 OPDAT OPDATERING
C ADD 1 HLINR 81 DAN N#STE NR.
C 81 ADD 1 HLINR HVIS 0 - +1
C EXCPT OPDATER T#LLER
C*
C SETOF 01
C 80 SETON U2 MICNR-0013
C 80 GOTO SLUT
C SETON 89
C*
C TAG10 TAG
C L2 SETOF 40 NY AFD->SKIP
C 40 SETOF 41 PRINT AF HDR
C N40 SETON 4041
C NL3 GOTO TAG20
C*
C Z-ADD0 L3DBT 112 DEBET/FIRMA
C Z-ADD0 L3CRT 112 KREDIT/FIRMA
C MOVE 'A' TYPE
C MOVE ' ' KODE
C MOVELFI KODE
C EXSR CHNKOD
C 80 SETON U1 MICNR-1130
C 80 GOTO SLUT
C*
C TAG20 TAG
C NL2 GOTO TAG30
C Z-ADD0 L2DBT 112 DEBET/AFD
C Z-ADD0 L2CRT 112 KREDIT/AFD
C MOVE 'B' TYPE
C MOVE AFD KODE
C EXSR CHNKOD
C 80 SETON U3 MICNR-1140
C 80 GOTO SLUT
C*
C TAG30 TAG
C* BEHANDLING AF POSTERINGSRECORD.
C NL1 GOTO TAG40
C Z-ADD0 L1DBT 112 DEBET/KONTO
C Z-ADD0 L1CRT 112 KREDIT/KONTO
C*
C KTOKEY CHAINPLAN 80 KONTORECORD
C 01 SETON 80 PARM.REC.
C N80 STAKOD COMP 'A' 8080 SLET./INAKTIV
C 80 SETON U2 FINDES IKKE
C 80 GOTO SLUT MICNR-0013
C*
C Z-ADD1 M 20
C Z-ADDCBALF CAMPRI 112 PRIMOBEH.
C*
C TAG35 TAG
C ADD CAM,M CAMPRI
C ADD 1 M
C M COMP MO 80
C N80 GOTO TAG35
C Z-ADDCAMPRI CAMULT 112 ULTIMOBEH.
C*
C TAG40 TAG
C Z-ADDBEL@B BEL@B 71 DEBETPOST?
C BRUTTO COMP BEL@B 6767
C 71 ADD BEL@B L1DBT JA
C N71 SUB BEL@B L1CRT
C*
C ADD BEL@B CAM,MO OPDATER SALDO
C* RETTET TIL ADD Z-ADD1 REL,MO OPDATER POINTER
C ADD 1 REL,MO 16/9 87 PS
C ADD BEL@B CAMULT
C*
C SLUT TAG
C U1
COR U2
COR U3
COR U4
COR U6 SETON 73 ABNORMAL END
C 73 SETON LR ABNORMAL END
C*
CL1 EXSR UPDKTO
CL1 ADD L1DBT L2DBT
CL1 ADD L1CRT L2CRT
C*
CL2 ADD L2DBT L3DBT DEBETTOTAL
CL2 ADD L2CRT L3CRT KREDITTOTAL
C*
CL3 ADD L3DBT LRDBT 112 DEBETTOTAL
CL3 ADD L3CRT LRCRT 112 KREDITTOTAL
C*
CLR LRDBT COMP LRCRT 7272 STEMMER IKKE
CLR 72 SETON U5
CLRN72N73 WRK10 CHAINPLAN 80 PARM. REC.
CLR Z-ADD0 OPDAT
C/COPY FMBOG,BOGKOD
C UPDKTO BEGSR
C SETON 61
C EXCPT
C SETOF 61
C ENDSR
OLISTE D 102 41
O OR OF
O 5 'DATO'
O UDATE Y 14
O 19 'KL'
O TIME Y 28
O 28 ' '
O 65 'FINANSBOGHOLDERI - HOVED'
O 78 'BOGSLISTE NR.'
O HLINR 4 84
O FI 89
O FITXT 120
O 125 'SIDE'
O PAGE 130
O D 2 41
O OR OF
O 17 'REGNSKABSPERIODE'
O MO 20
O AFD 89
O AFDTXT 120
O U8 43 '***EFTERPOSTERINGER***'
O 129 '**BOG140**'
O D 1 41
O OR OF
O 10 'KONTONR'
O 19 'DATO'
O 34 'BILAG TEKST'
O 59 '- MOMS'
O 77 'GAMMEL PER.SALDO'
O 91 'DEBET'
O 108 'KREDIT'
O 129 'NY PER.SALDO'
O D 1 L1
O KTOKEY 12 '0 - - - '
O KTONVN 43
O CAMPRIJ 76
O D 1 20
O BILDAG 15
O 16 '.'
O BILM$N 18
O 19 '.'
O BIL$R 21
O BILAG Z 28
O TEKST 59
O 67 MOMKT1 61
O 71 BEL@B 1 92
O N71 BEL@B 1 109
O T 2 L1
O 72 'KONTOTOTALER'
O L1DBT 1 92
O L1CRT 1 109
O CAMULTJ 128
O 130 '*'
O T 2 L2
O 76 'AFDELINGSTOTALER'
O L2DBT 1 92
O L2CRT 1 109
O T 2 L3
O 72 'FIRMATOTALER'
O L3DBT 1 92
O L3CRT 1 109
O T 22 LR 72
O 89 '***FEJL***'
O 115 'DEBET STEMMER IKKE MED K'
O 120 'REDIT'
O T 2 LR 72
O 112 '*** RESTART FRA BACK UP'
O 116 '***'
OADPOST DADD 20
O 2 'TA'
O KTOKEY 10
O POSTPR 12
O BILDAT 18
O TEKST 48
O BEL@B 58
O BILAG 64
O BRUTTO 74
O MOMSPR 78
O* OPDATERING AF GENERATIONSCHECK
OCHPOST E 01N89
O XTD 30
O* OPDATERING AF M$NEDSSALDO
OPLAN E 61
O CAM 202P
O REL 262P
O* OPDATERING AF HOVEDBOGSLISTET#LLER
O E 01N89
O XTD 32
O HLINR 47
O OPDAT 72
O* NULSTILLING AF OPDATERINGSKODE
O T LRN72N73
O OPDAT 72
**
5797-TFT COPYRIGHT IBM DANMARK 1983 LICENSED MATERIAL - PROGRAM PROPERTY OF IBM