|
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: 1024 (0x400)
Notes: MEMBER_S, Member_Text
Names: »DEB210 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».DEB210 «
'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 forfaldsliste (Menu DEBET pkt. 8)
Se ogs} DEB200.
Rettelse pr. 31/12 1984.
{ndr FKUNDEVALUP F 512 512 12AI 318 DISK
IKUNDEVALNS 20 1 CK
add I P 248 2532FORSAL
{ndr C* 60 - BEL@B I PERIODE 4
{ndr C* 61 - BEL@B I PERIODE 3
C* 62 - BEL@B I PERIODE 2
{ndr C* 63 - BEL@B I PERIODE 1
{ndr C* 64 - BEL@B I PERIODE 0 (IKKE FORFALDENT)
C NOTL1 TAG
C*
C Z-ADDNYSALD NYSALD 5151 SALDO P$ KUNDE?
add C N51 SUB FORSAL FORSAL
C N51 GOTO END SKAL IKKE SKRIVES
add C NYSALD SUB PER00 FORSAL
C* SUMMER TIL TOTALER PR. VALUTA
add OKUNDEVALD 20
add O FORSAL 253P
Samtidig rettes f¦lgende statement i procedure DEB210:
// FILE NAME-KUNDEVAL,LABEL-PS.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 0xaf
0x100…12f »ved k¦rsel af forfaldsliste (Menu DEBET pkt. 8)«
0x12f…130 0x28
0x130…131 0x09
0x131…132 0x8f
0x132…141 »Se ogs} DEB200.«
0x141…142 0x48
0x142…143 0x60
0x143…144 0x09
0x144…145 0x98
0x145…15d »Rettelse pr. 31/12 1984.«
0x15d…15e 0x3f
0x15e…15f 0x60
0x15f…160 0x90
0x160…170 »{ndr FKUNDEVALUP«
0x170…171 0x02
0x171…172 0x8e
0x172…180 »F 512 512 12AI«
0x180…181 0x03
0x181…182 0x88
0x182…18a »318 DISK«
0x18a…18b 0x35
0x18b…18c 0x60
0x18c…18d 0x05
0x18d…18e 0x8b
0x18e…199 »IKUNDEVALNS«
0x199…19a 0x02
0x19a…19b 0x82
0x19b…19d »20«
0x19d…19e 0x03
0x19e…19f 0x84
0x19f…1a3 »1 CK«
0x1a3…1a4 0x45
0x1a4…1a5 0x83
0x1a5…1a8 »add«
0x1a8…1a9 0x02
0x1a9…1aa 0x81
0x1aa…1ab »I«
0x1ab…1ac 0x24
0x1ac…1ad 0x90
0x1ad…1bd »P 248 2532FORSAL«
0x1bd…1be 0x26
0x1be…1bf 0x60
0x1bf…1c0 0x87
0x1c0…1c7 »{ndr C*«
0x1c7…1c8 0x04
0x1c8…1c9 0x82
0x1c9…1cb »60«
0x1cb…1cc 0x02
0x1cc…1cd 0x81
0x1cd…1ce »-«
0x1ce…1cf 0x02
0x1cf…1d0 0x91
0x1d0…1e1 »BEL@B I PERIODE 4«
0x1e1…1e2 0x3d
0x1e2…1e3 0x87
0x1e3…1ea »{ndr C*«
0x1ea…1eb 0x04
0x1eb…1ec 0x82
0x1ec…1ee »61«
0x1ee…1ef 0x02
0x1ef…1f0 0x81
0x1f0…1f1 »-«
0x1f1…1f2 0x02
0x1f2…1f3 0x91
0x1f3…204 »BEL@B I PERIODE 3«
0x204…205 0x3d
0x205…206 0x05
0x206…207 0x82
0x207…209 »C*«
0x209…20a 0x04
0x20a…20b 0x82
0x20b…20d »62«
0x20d…20e 0x02
0x20e…20f 0x81
0x20f…210 »-«
0x210…211 0x02
0x211…212 0x91
0x212…223 »BEL@B I PERIODE 2«
0x223…224 0x3d
0x224…225 0x87
0x225…22c »{ndr C*«
0x22c…22d 0x04
0x22d…22e 0x82
0x22e…230 »63«
0x230…231 0x02
0x231…232 0x81
0x232…233 »-«
0x233…234 0x02
0x234…235 0x91
0x235…246 »BEL@B I PERIODE 1«
0x246…247 0x3d
0x247…248 0x87
0x248…24f »{ndr C*«
0x24f…250 0x04
0x250…251 0x82
0x251…253 »64«
0x253…254 0x02
0x254…255 0x81
0x255…256 »-«
0x256…257 0x02
0x257…258 0xa3
0x258…27b »BEL@B I PERIODE 0 (IKKE FORFALDENT)«
0x27b…27c 0x2b
0x27c…27d 0x60
0x27d…27e 0x05
0x27e…27f 0x81
0x27f…280 »C«
0x280…281 0x0b
0x281…282 0x85
0x282…287 »NOTL1«
0x287…288 0x05
0x288…289 0x83
0x289…28c »TAG«
0x28c…28d 0x42
0x28d…28e 0x05
0x28e…28f 0x82
0x28f…291 »C*«
0x291…292 0x59
0x292…293 0x05
0x293…294 0x81
0x294…295 »C«
0x295…296 0x15
0x296…297 0x8b
0x297…2a2 »Z-ADDNYSALD«
0x2a2…2a3 0x04
0x2a3…2a4 0x86
0x2a4…2aa »NYSALD«
0x2aa…2ab 0x05
0x2ab…2ac 0x84
0x2ac…2b0 »5151«
0x2b0…2b1 0x03
0x2b1…2b2 0x8f
0x2b2…2c1 »SALDO P$ KUNDE?«
0x2c1…2c2 0x15
0x2c2…2c3 0x83
0x2c3…2c6 »add«
0x2c6…2c7 0x02
0x2c7…2c8 0x81
0x2c8…2c9 »C«
0x2c9…2ca 0x02
0x2ca…2cb 0x83
0x2cb…2ce »N51«
0x2ce…2cf 0x10
0x2cf…2d0 0x83
0x2d0…2d3 »SUB«
0x2d3…2d4 0x02
0x2d4…2d5 0x86
0x2d5…2db »FORSAL«
0x2db…2dc 0x04
0x2dc…2dd 0x86
0x2dd…2e3 »FORSAL«
0x2e3…2e4 0x30
0x2e4…2e5 0x05
0x2e5…2e6 0x81
0x2e6…2e7 »C«
0x2e7…2e8 0x02
0x2e8…2e9 0x83
0x2e9…2ec »N51«
0x2ec…2ed 0x10
0x2ed…2ee 0x88
0x2ee…2f6 »GOTO END«
0x2f6…2f7 0x18
0x2f7…2f8 0x91
0x2f8…309 »SKAL IKKE SKRIVES«
0x309…30a 0x14
0x30a…30b 0x60
0x30b…30c 0x83
0x30c…30f »add«
0x30f…310 0x02
0x310…311 0x81
0x311…312 »C«
0x312…313 0x0b
0x313…314 0x86
0x314…31a »NYSALD«
0x31a…31b 0x04
0x31b…31c 0x83
0x31c…31f »SUB«
0x31f…320 0x02
0x320…321 0x85
0x321…326 »PER00«
0x326…327 0x05
0x327…328 0x86
0x328…32e »FORSAL«
0x32e…32f 0x30
0x32f…330 0x05
0x330…331 0xa0
0x331…351 »C* SUMMER TIL TOTALER PR. VALUTA«
0x351…352 0x3b
0x352…353 0x60
0x353…354 0x83
0x354…357 »add«
0x357…358 0x02
0x358…359 0x8a
0x359…363 »OKUNDEVALD«
0x363…364 0x08
0x364…365 0x82
0x365…367 »20«
0x367…368 0x47
0x368…369 0x83
0x369…36c »add«
0x36c…36d 0x02
0x36d…36e 0x81
0x36e…36f »O«
0x36f…370 0x19
0x370…371 0x86
0x371…377 »FORSAL«
0x377…378 0x03
0x378…379 0x84
0x379…37d »253P«
0x37d…37e 0x34
0x37e…37f 0x60
0x37f…380 0x09
0x380…381 0xb6
0x381…3b7 »Samtidig rettes f¦lgende statement i procedure DEB210:«
0x3b7…3b8 0x21
0x3b8…3b9 0x60
0x3b9…3ba 0xaf
0x3ba…3e9 »// FILE NAME-KUNDEVAL,LABEL-PS.KUVAL,DISP-SHRMM«
0x3e9…3ea 0x31
0x3ea…3eb 0x60
0x3eb…3ec 0x00
0x3ec…400 f6 f1 02 81 60 02 91 c2 c5 d3 7c c2 40 c9 40 d7 c5 d9 c9 d6 ┆61 a- jBEL@B I PERIO┆