|
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: 1280 (0x500)
Notes: MEMBER_S, Member_Text
Names: »DEB310 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».DEB310 «
Kontoudtog er forkert.
----------------------
Fejlen h{nger sammen med fejl i DEB140, DEB150 og DEB300. Se disse.
Rettelse pr. 31/12 1984:
I 107 107 KONTUD
add I* Udligningsdato - $MD
add I 108 1130UDLDAT
ISYSCTL NS 05 2 C5
add I* DAGS DATO - $MD
add I DS
add I 1 60UDATO
add I 1 2 U$R
add I 5 6 UDG
add C*
add C Z-ADDUDATE UDATO DAGS DATO
add C MOVE UYEAR U$R VENDES
add C MOVE UDAY UDG
C*
C START TAG START
{ndr C N33 FORDAT COMP UDATO 8080 HVIS DEBET OG FORF.
C 33 OPDATER
CORN33 80 ADD BEL@B FORSAL FORFALDEN SALDO
add C POSTYP COMP '0' 42 KONTANTFAKTURA
{ndr C POSTYP COMP '1' 8080 HVIS FAKTURA/KREDN.
C 80 ADD BEL@B FAK$TD OPDATER $.T.D.
C 80 ADD PMOMS MOM$TD
{ndr C N42 ADD BEL@B GLSALD OPDATER GL. SALDO
C TSTUD0 TAG
C MOVE '1' KONTUD MARKER FOR KTO UDSK
C*
C TSTUDL TAG
C UDLKOD COMP '9' 80 HVIS UDLIGNET
add C 80 UDLDAT COMP UDSDAT 8080
C 80 MOVE '9' KONTUD EJ MERE P$ KTO.UDT
C EXCPTUPDPOS OPDATER POSTEN
C GOTO LOOP1
C*
C OPDDM TAG
{ndr C POSTYP COMP '1' 8080 HVIS FAKTURA/KREDN.
0x000…001 0x60
0x001…002 0x10
0x002…003 0x96
0x003…019 »Kontoudtog er forkert.«
0x019…01a 0x3a
0x01a…01b 0x10
0x01b…01c 0x96
0x01c…032 »----------------------«
0x032…033 0x3a
0x033…034 0x09
0x034…035 0xc3
0x035…078 »Fejlen h{nger sammen med fejl i DEB140, DEB150 og DEB300. Se disse.«
0x078…079 0x14
0x079…07a 0x60
0x07a…07b 0x04
0x07b…07c 0x98
0x07c…094 »Rettelse pr. 31/12 1984:«
0x094…095 0x44
0x095…096 0x60
0x096…097 0x05
0x097…098 0x81
0x098…099 »I«
0x099…09a 0x26
0x09a…09b 0x8e
0x09b…0a9 »107 107 KONTUD«
0x0a9…0aa 0x26
0x0aa…0ab 0x83
0x0ab…0ae »add«
0x0ae…0af 0x02
0x0af…0b0 0x82
0x0b0…0b2 »I*«
0x0b2…0b3 0x03
0x0b3…0b4 0x94
0x0b4…0c8 »Udligningsdato - $MD«
0x0c8…0c9 0x42
0x0c9…0ca 0x83
0x0ca…0cd »add«
0x0cd…0ce 0x02
0x0ce…0cf 0x81
0x0cf…0d0 »I«
0x0d0…0d1 0x26
0x0d1…0d2 0x8e
0x0d2…0e0 »108 1130UDLDAT«
0x0e0…0e1 0x26
0x0e1…0e2 0x05
0x0e2…0e3 0x87
0x0e3…0ea »ISYSCTL«
0x0ea…0eb 0x02
0x0eb…0ec 0x82
0x0ec…0ee »NS«
0x0ee…0ef 0x02
0x0ef…0f0 0x82
0x0f0…0f2 »05«
0x0f2…0f3 0x03
0x0f3…0f4 0x84
0x0f4…0f8 »2 C5«
0x0f8…0f9 0x45
0x0f9…0fa 0x83
0x0fa…0fd »add«
0x0fd…0fe 0x02
0x0fe…0ff 0x92
0x0ff…111 »I* DAGS DATO - $MD«
0x111…112 0x49
0x112…113 0x83
0x113…116 »add«
0x116…117 0x02
0x117…118 0x81
0x118…119 »I«
0x119…11a 0x0c
0x11a…11b 0x82
0x11b…11d »DS«
0x11d…11e 0x4c
0x11e…11f 0x83
0x11f…122 »add«
0x122…123 0x02
0x123…124 0x81
0x124…125 »I«
0x125…126 0x28
0x126…127 0x81
0x127…128 »1«
0x128…129 0x03
0x129…12a 0x87
0x12a…131 »60UDATO«
0x131…132 0x27
0x132…133 0x83
0x133…136 »add«
0x136…137 0x02
0x137…138 0x81
0x138…139 »I«
0x139…13a 0x28
0x13a…13b 0x81
0x13b…13c »1«
0x13c…13d 0x03
0x13d…13e 0x85
0x13e…143 »2 U$R«
0x143…144 0x29
0x144…145 0x83
0x145…148 »add«
0x148…149 0x02
0x149…14a 0x81
0x14a…14b »I«
0x14b…14c 0x28
0x14c…14d 0x81
0x14d…14e »5«
0x14e…14f 0x03
0x14f…150 0x85
0x150…155 »6 UDG«
0x155…156 0x29
0x156…157 0x60
0x157…158 0x83
0x158…15b »add«
0x15b…15c 0x02
0x15c…15d 0x82
0x15d…15f »C*«
0x15f…160 0x59
0x160…161 0x83
0x161…164 »add«
0x164…165 0x02
0x165…166 0x81
0x166…167 »C«
0x167…168 0x15
0x168…169 0x8a
0x169…173 »Z-ADDUDATE«
0x173…174 0x05
0x174…175 0x85
0x175…17a »UDATO«
0x17a…17b 0x0d
0x17b…17c 0x89
0x17c…185 »DAGS DATO«
0x185…186 0x1b
0x186…187 0x83
0x187…18a »add«
0x18a…18b 0x02
0x18b…18c 0x81
0x18c…18d »C«
0x18d…18e 0x15
0x18e…18f 0x8a
0x18f…199 »MOVE UYEAR«
0x199…19a 0x05
0x19a…19b 0x83
0x19b…19e »U$R«
0x19e…19f 0x11
0x19f…1a0 0x86
0x1a0…1a6 »VENDES«
0x1a6…1a7 0x1c
0x1a7…1a8 0x83
0x1a8…1ab »add«
0x1ab…1ac 0x02
0x1ac…1ad 0x81
0x1ad…1ae »C«
0x1ae…1af 0x15
0x1af…1b0 0x89
0x1b0…1b9 »MOVE UDAY«
0x1b9…1ba 0x06
0x1ba…1bb 0x83
0x1bb…1be »UDG«
0x1be…1bf 0x33
0x1bf…1c0 0x05
0x1c0…1c1 0x82
0x1c1…1c3 »C*«
0x1c3…1c4 0x59
0x1c4…1c5 0x05
0x1c5…1c6 0x81
0x1c6…1c7 »C«
0x1c7…1c8 0x0b
0x1c8…1c9 0x85
0x1c9…1ce »START«
0x1ce…1cf 0x05
0x1cf…1d0 0x83
0x1d0…1d3 »TAG«
0x1d3…1d4 0x1d
0x1d4…1d5 0x85
0x1d5…1da »START«
0x1da…1db 0x20
0x1db…1dc 0x60
0x1dc…1dd 0x86
0x1dd…1e3 »{ndr C«
0x1e3…1e4 0x02
0x1e4…1e5 0x83
0x1e5…1e8 »N33«
0x1e8…1e9 0x06
0x1e9…1ea 0x86
0x1ea…1f0 »FORDAT«
0x1f0…1f1 0x04
0x1f1…1f2 0x8a
0x1f2…1fc »COMP UDATO«
0x1fc…1fd 0x12
0x1fd…1fe 0x98
0x1fe…216 »8080 HVIS DEBET OG FORF.«
0x216…217 0x11
0x217…218 0x05
0x218…219 0x81
0x219…21a »C«
0x21a…21b 0x03
0x21b…21c 0x82
0x21c…21e »33«
0x21e…21f 0x32
0x21f…220 0x87
0x220…227 »OPDATER«
0x227…228 0x1c
0x228…229 0x05
0x229…22a 0x89
0x22a…233 »CORN33 80«
0x233…234 0x0d
0x234…235 0x83
0x235…238 »ADD«
0x238…239 0x02
0x239…23a 0x85
0x23a…23f »BEL@B«
0x23f…240 0x05
0x240…241 0x86
0x241…247 »FORSAL«
0x247…248 0x0e
0x248…249 0x8f
0x249…258 »FORFALDEN SALDO«
0x258…259 0x13
0x259…25a 0x60
0x25a…25b 0x83
0x25b…25e »add«
0x25e…25f 0x02
0x25f…260 0x81
0x260…261 »C«
0x261…262 0x0b
0x262…263 0x86
0x263…269 »POSTYP«
0x269…26a 0x04
0x26a…26b 0x88
0x26b…273 »COMP '0'«
0x273…274 0x16
0x274…275 0x91
0x275…286 »42 KONTANTFAKTURA«
0x286…287 0x16
0x287…288 0x86
0x288…28e »{ndr C«
0x28e…28f 0x0b
0x28f…290 0x86
0x290…296 »POSTYP«
0x296…297 0x04
0x297…298 0x88
0x298…2a0 »COMP '1'«
0x2a0…2a1 0x14
0x2a1…2a2 0x98
0x2a2…2ba »8080 HVIS FAKTURA/KREDN.«
0x2ba…2bb 0x11
0x2bb…2bc 0x05
0x2bc…2bd 0x81
0x2bd…2be »C«
0x2be…2bf 0x03
0x2bf…2c0 0x82
0x2c0…2c2 »80«
0x2c2…2c3 0x10
0x2c3…2c4 0x83
0x2c4…2c7 »ADD«
0x2c7…2c8 0x02
0x2c8…2c9 0x85
0x2c9…2ce »BEL@B«
0x2ce…2cf 0x05
0x2cf…2d0 0x86
0x2d0…2d6 »FAK$TD«
0x2d6…2d7 0x0d
0x2d7…2d8 0x8e
0x2d8…2e6 »OPDATER $.T.D.«
0x2e6…2e7 0x15
0x2e7…2e8 0x05
0x2e8…2e9 0x81
0x2e9…2ea »C«
0x2ea…2eb 0x03
0x2eb…2ec 0x82
0x2ec…2ee »80«
0x2ee…2ef 0x10
0x2ef…2f0 0x83
0x2f0…2f3 »ADD«
0x2f3…2f4 0x02
0x2f4…2f5 0x85
0x2f5…2fa »PMOMS«
0x2fa…2fb 0x05
0x2fb…2fc 0x86
0x2fc…302 »MOM$TD«
0x302…303 0x30
0x303…304 0x86
0x304…30a »{ndr C«
0x30a…30b 0x02
0x30b…30c 0x83
0x30c…30f »N42«
0x30f…310 0x10
0x310…311 0x83
0x311…314 »ADD«
0x314…315 0x02
0x315…316 0x85
0x316…31b »BEL@B«
0x31b…31c 0x05
0x31c…31d 0x86
0x31d…323 »GLSALD«
0x323…324 0x0c
0x324…325 0x91
0x325…336 »OPDATER GL. SALDO«
0x336…337 0x13
0x337…338 0x05
0x338…339 0x81
0x339…33a »C«
0x33a…33b 0x0b
0x33b…33c 0x86
0x33c…342 »TSTUD0«
0x342…343 0x04
0x343…344 0x83
0x344…347 »TAG«
0x347…348 0x42
0x348…349 0x05
0x349…34a 0x81
0x34a…34b »C«
0x34b…34c 0x15
0x34c…34d 0x88
0x34d…355 »MOVE '1'«
0x355…356 0x07
0x356…357 0x86
0x357…35d »KONTUD«
0x35d…35e 0x0c
0x35e…35f 0x93
0x35f…372 »MARKER FOR KTO UDSK«
0x372…373 0x11
0x373…374 0x05
0x374…375 0x82
0x375…377 »C*«
0x377…378 0x59
0x378…379 0x05
0x379…37a 0x81
0x37a…37b »C«
0x37b…37c 0x0b
0x37c…37d 0x86
0x37d…383 »TSTUDL«
0x383…384 0x04
0x384…385 0x83
0x385…388 »TAG«
0x388…389 0x42
0x389…38a 0x05
0x38a…38b 0x81
0x38b…38c »C«
0x38c…38d 0x0b
0x38d…38e 0x86
0x38e…394 »UDLKOD«
0x394…395 0x04
0x395…396 0x88
0x396…39e »COMP '9'«
0x39e…39f 0x16
0x39f…3a0 0x90
0x3a0…3b0 »80 HVIS UDLIGNET«
0x3b0…3b1 0x17
0x3b1…3b2 0x83
0x3b2…3b5 »add«
0x3b5…3b6 0x02
0x3b6…3b7 0x81
0x3b7…3b8 »C«
0x3b8…3b9 0x03
0x3b9…3ba 0x82
0x3ba…3bc »80«
0x3bc…3bd 0x06
0x3bd…3be 0x86
0x3be…3c4 »UDLDAT«
0x3c4…3c5 0x04
0x3c5…3c6 0x8b
0x3c6…3d1 »COMP UDSDAT«
0x3d1…3d2 0x11
0x3d2…3d3 0x84
0x3d3…3d7 »8080«
0x3d7…3d8 0x25
0x3d8…3d9 0x05
0x3d9…3da 0x81
0x3da…3db »C«
0x3db…3dc 0x03
0x3dc…3dd 0x82
0x3dd…3df »80«
0x3df…3e0 0x10
0x3e0…3e1 0x88
0x3e1…3e9 »MOVE '9'«
0x3e9…3ea 0x07
0x3ea…3eb 0x86
0x3eb…3f1 »KONTUD«
0x3f1…3f2 0x0d
0x3f2…3f3 0x92
0x3f3…405 »EJ MERE P$ KTO.UDT«
0x405…406 0x11
0x406…407 0x05
0x407…408 0x81
0x408…409 »C«
0x409…40a 0x15
0x40a…40b 0x8b
0x40b…416 »EXCPTUPDPOS«
0x416…417 0x16
0x417…418 0x8e
0x418…426 »OPDATER POSTEN«
0x426…427 0x16
0x427…428 0x05
0x428…429 0x81
0x429…42a »C«
0x42a…42b 0x15
0x42b…42c 0x8a
0x42c…436 »GOTO LOOP1«
0x436…437 0x3b
0x437…438 0x05
0x438…439 0x82
0x439…43b »C*«
0x43b…43c 0x59
0x43c…43d 0x05
0x43d…43e 0x81
0x43e…43f »C«
0x43f…440 0x0b
0x440…441 0x85
0x441…446 »OPDDM«
0x446…447 0x05
0x447…448 0x83
0x448…44b »TAG«
0x44b…44c 0x42
0x44c…44d 0x86
0x44d…453 »{ndr C«
0x453…454 0x0b
0x454…455 0x86
0x455…45b »POSTYP«
0x45b…45c 0x04
0x45c…45d 0x88
0x45d…465 »COMP '1'«
0x465…466 0x14
0x466…467 0x98
0x467…47f »8080 HVIS FAKTURA/KREDN.«
0x47f…480 0x11
0x480…481 0x60
0x481…482 0x00
0x482…4a0 e3 e4 d9 c1 16 86 c0 95 84 99 40 c3 0b 86 d7 d6 e2 e3 e8 d7 04 88 c3 d6 d4 d7 40 7d f1 7d ┆TURA f{ndr C fPOSTYP hCOMP '1'┆
0x4a0…4c0 14 98 f8 f0 f8 f0 40 c8 e5 c9 e2 40 c6 c1 d2 e3 e4 d9 c1 61 d2 d9 c5 c4 d5 4b 11 05 81 c3 03 82 ┆ q8080 HVIS FAKTURA/KREDN. aC b┆
0x4c0…4e0 f8 f0 10 83 c1 c4 c4 02 85 c2 c5 d3 7c c2 05 86 c6 c1 d2 5b e3 c4 0d 8e d6 d7 c4 c1 e3 c5 d9 40 ┆80 cADD eBEL@B fFAK$TD þOPDATER ┆
0x4e0…500 5b 4b e3 4b c4 4b 15 05 81 c3 03 82 f8 f0 10 83 c1 c4 c4 02 85 d7 d4 d6 d4 e2 05 86 d4 d6 d4 5b ┆$.T.D. aC b80 cADD ePMOMS fMOM$┆