|
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: 768 (0x300)
Notes: MEMBER_S, Member_Text
Names: »DEB200 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».DEB200 «
'Forfalden saldo' er ikke l¦bende ajour.
Det skyldes, at der - i hvert fald i teorien - forfalder poster
hver dag, og der s} skal k¦res en opdatering for at f} rettet
tallene op.
Nedenst}ende tilf¦jelse bevirker at forfalden saldo f¦res ajour
ved k¦rsel af likviditetsoversigt (Menu DEBET pkt. 7)
Se ogs} DEB210.
Rettelse pr. 31/12 1984.
{ndr FKUNDEVALUP F 512 512 12AI 318 DISK
C NOTL1 TAG
C*
flyt C SUB PER00 PER00 112
C Z-ADDNYSALD NYSALD 5151 SALDO P$ KUNDE?
C N51 GOTO END SKAL IKKE SKRIVES
C SUB PER01 PER01 112
add OKUNDEVALD 20
add O PER00 253P
Samtidig rettes f¦lgende statement i procedure DEB200:
// FILE NAME-KUNDEVAL,LABEL-xx.KUVAL,DISP-SHRMM
0x000…001 0x60
0x001…002 0x09
0x002…003 0xa8
0x003…02b »'Forfalden saldo' er ikke l¦bende ajour.«
0x02b…02c 0x2f
0x02c…02d 0x09
0x02d…02e 0xbf
0x02e…06d »Det skyldes, at der - i hvert fald i teorien - forfalder poster«
0x06d…06e 0x18
0x06e…06f 0x09
0x06f…070 0xbd
0x070…0ad »hver dag, og der s} skal k¦res en opdatering for at f} rettet«
0x0ad…0ae 0x1a
0x0ae…0af 0x09
0x0af…0b0 0x8b
0x0b0…0bb »tallene op.«
0x0bb…0bc 0x4c
0x0bc…0bd 0x09
0x0bd…0be 0xbf
0x0be…0fd »Nedenst}ende tilf¦jelse bevirker at forfalden saldo f¦res ajour«
0x0fd…0fe 0x18
0x0fe…0ff 0x09
0x0ff…100 0xb5
0x100…135 »ved k¦rsel af likviditetsoversigt (Menu DEBET pkt. 7)«
0x135…136 0x22
0x136…137 0x09
0x137…138 0x8f
0x138…147 »Se ogs} DEB210.«
0x147…148 0x48
0x148…149 0x60
0x149…14a 0x09
0x14a…14b 0x98
0x14b…163 »Rettelse pr. 31/12 1984.«
0x163…164 0x3f
0x164…165 0x60
0x165…166 0x90
0x166…176 »{ndr FKUNDEVALUP«
0x176…177 0x02
0x177…178 0x8e
0x178…186 »F 512 512 12AI«
0x186…187 0x03
0x187…188 0x88
0x188…190 »318 DISK«
0x190…191 0x35
0x191…192 0x60
0x192…193 0x05
0x193…194 0x81
0x194…195 »C«
0x195…196 0x0b
0x196…197 0x85
0x197…19c »NOTL1«
0x19c…19d 0x05
0x19d…19e 0x83
0x19e…1a1 »TAG«
0x1a1…1a2 0x42
0x1a2…1a3 0x05
0x1a3…1a4 0x82
0x1a4…1a6 »C*«
0x1a6…1a7 0x59
0x1a7…1a8 0x86
0x1a8…1ae »flyt C«
0x1ae…1af 0x15
0x1af…1b0 0x83
0x1b0…1b3 »SUB«
0x1b3…1b4 0x02
0x1b4…1b5 0x85
0x1b5…1ba »PER00«
0x1ba…1bb 0x05
0x1bb…1bc 0x85
0x1bc…1c1 »PER00«
0x1c1…1c2 0x02
0x1c2…1c3 0x83
0x1c3…1c6 »112«
0x1c6…1c7 0x2c
0x1c7…1c8 0x05
0x1c8…1c9 0x81
0x1c9…1ca »C«
0x1ca…1cb 0x15
0x1cb…1cc 0x8b
0x1cc…1d7 »Z-ADDNYSALD«
0x1d7…1d8 0x04
0x1d8…1d9 0x86
0x1d9…1df »NYSALD«
0x1df…1e0 0x05
0x1e0…1e1 0x84
0x1e1…1e5 »5151«
0x1e5…1e6 0x03
0x1e6…1e7 0x8f
0x1e7…1f6 »SALDO P$ KUNDE?«
0x1f6…1f7 0x15
0x1f7…1f8 0x05
0x1f8…1f9 0x81
0x1f9…1fa »C«
0x1fa…1fb 0x02
0x1fb…1fc 0x83
0x1fc…1ff »N51«
0x1ff…200 0x10
0x200…201 0x88
0x201…209 »GOTO END«
0x209…20a 0x18
0x20a…20b 0x91
0x20b…21c »SKAL IKKE SKRIVES«
0x21c…21d 0x14
0x21d…21e 0x05
0x21e…21f 0x81
0x21f…220 »C«
0x220…221 0x15
0x221…222 0x83
0x222…225 »SUB«
0x225…226 0x02
0x226…227 0x85
0x227…22c »PER01«
0x22c…22d 0x05
0x22d…22e 0x85
0x22e…233 »PER01«
0x233…234 0x02
0x234…235 0x83
0x235…238 »112«
0x238…239 0x2c
0x239…23a 0x60
0x23a…23b 0x83
0x23b…23e »add«
0x23e…23f 0x02
0x23f…240 0x8a
0x240…24a »OKUNDEVALD«
0x24a…24b 0x08
0x24b…24c 0x82
0x24c…24e »20«
0x24e…24f 0x47
0x24f…250 0x83
0x250…253 »add«
0x253…254 0x02
0x254…255 0x81
0x255…256 »O«
0x256…257 0x19
0x257…258 0x85
0x258…25d »PER00«
0x25d…25e 0x04
0x25e…25f 0x84
0x25f…263 »253P«
0x263…264 0x34
0x264…265 0x60
0x265…266 0x09
0x266…267 0xb6
0x267…29d »Samtidig rettes f¦lgende statement i procedure DEB200:«
0x29d…29e 0x21
0x29e…29f 0x60
0x29f…2a0 0xaf
0x2a0…2cf »// FILE NAME-KUNDEVAL,LABEL-xx.KUVAL,DISP-SHRMM«
0x2cf…2d0 0x31
0x2d0…2d1 0x60
0x2d1…2d2 0x00
0x2d2…2e0 93 a2 85 40 82 85 a5 89 99 92 85 99 40 81 ┆lse bevirker a┆
0x2e0…300 a3 40 86 96 99 86 81 93 84 85 95 40 a2 81 93 84 96 40 86 6a 99 85 a2 40 81 91 96 a4 99 18 09 b5 ┆t forfalden saldo f¦res ajour §┆