|
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: 1536 (0x600)
Notes: MEMBER_S, Member_Text
Names: »FAK320 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».FAK320 «
Kostbel¦b for kreditnotaer indg}r ikke i beregningen af
d{kningsbidraget p} fakturajournalen. Totalen pr. valuta vil
derfor v{re misvisende, hvis der indg}r store kreditnotaer.
Samtidig vil d{kningsbidrag og -grad nu blive vist for
kreditnotaer.
Rettelse pr. 31/12 1984.
C* I N D I C A T O R O V E R S I G T
add C* 71 - D#KNINGSGRAD PR. LINIE ST@RRE END 999
add C* 72 - D#KNINGSGRAD PR. VALUTA ST@RRE END 999
C* UDREGNING AF D#KNINGSBIDRAG OG D#KNINGSGRAD PR VALUTA
{ndr CL1 Z-ADDWRK33D WRK33D 72
{ndr CL1N72 WRK33D SUB WRK30 WRK15 102
{ndr CL1N72 WRK15 DIV WRK33D WRK63 H
{ndr CL1N72 WRK63 MULT 100 WRK16 41
C TOT02 TAG
slet C 08 GOTO ENDTOT
C* UDREGN D#KNINGSBIDRAG OG D#KNINGSGRAD PR. FAKTURA.
C ADD FAKKOS WRK30 102
C VARTDK SUB FAKKOS WRK65 92
{ndr C Z-ADDVARTDK VARTDK 71
{ndr C N71 WRK65 DIV VARTDK WRK63 93H
{ndr C N71 WRK63 MULT 100 WRK66 41
add C N71 MOVELWRK63 TEST 50
add C N71 TEST COMP 0 7171
C ENDTOT ENDSR
{ndr O WRK65 M 126
{ndr O WRK66 L 132
add O 71 131 '*****'
O D 04
O KUNAVN 50
O T 21 L1
O VALUTA 10
O 30 '*** TOTALER ***'
O WRK18 M 54
O WRK32 M 78
O WRK13 M 102
{ndr O WRK15 M 126
{ndr O WRK16 M 132
add O 72 131 '*****'
0x000…001 0x60
0x001…002 0x09
0x002…003 0xb7
0x003…03a »Kostbel¦b for kreditnotaer indg}r ikke i beregningen af«
0x03a…03b 0x20
0x03b…03c 0x09
0x03c…03d 0xbc
0x03d…079 »d{kningsbidraget p} fakturajournalen. Totalen pr. valuta vil«
0x079…07a 0x1b
0x07a…07b 0x09
0x07b…07c 0xbb
0x07c…0b7 »derfor v{re misvisende, hvis der indg}r store kreditnotaer.«
0x0b7…0b8 0x1c
0x0b8…0b9 0x09
0x0b9…0ba 0xb6
0x0ba…0f0 »Samtidig vil d{kningsbidrag og -grad nu blive vist for«
0x0f0…0f1 0x21
0x0f1…0f2 0x09
0x0f2…0f3 0x8d
0x0f3…100 »kreditnotaer.«
0x100…101 0x4a
0x101…102 0x60
0x102…103 0x09
0x103…104 0x98
0x104…11c »Rettelse pr. 31/12 1984.«
0x11c…11d 0x3f
0x11d…11e 0x60
0x11e…11f 0x05
0x11f…120 0x82
0x120…122 »C*«
0x122…123 0x0a
0x123…124 0xa1
0x124…145 »I N D I C A T O R O V E R S I G T«
0x145…146 0x2e
0x146…147 0x83
0x147…14a »add«
0x14a…14b 0x02
0x14b…14c 0x82
0x14c…14e »C*«
0x14e…14f 0x04
0x14f…150 0x82
0x150…152 »71«
0x152…153 0x02
0x153…154 0x81
0x154…155 »-«
0x155…156 0x02
0x156…157 0xa5
0x157…17c »D#KNINGSGRAD PR. LINIE ST@RRE END 999«
0x17c…17d 0x29
0x17d…17e 0x83
0x17e…181 »add«
0x181…182 0x02
0x182…183 0x82
0x183…185 »C*«
0x185…186 0x04
0x186…187 0x82
0x187…189 »72«
0x189…18a 0x02
0x18a…18b 0x81
0x18b…18c »-«
0x18c…18d 0x02
0x18d…18e 0xa6
0x18e…1b4 »D#KNINGSGRAD PR. VALUTA ST@RRE END 999«
0x1b4…1b5 0x28
0x1b5…1b6 0x60
0x1b6…1b7 0x05
0x1b7…1b8 0x82
0x1b8…1ba »C*«
0x1ba…1bb 0x02
0x1bb…1bc 0xb5
0x1bc…1f1 »UDREGNING AF D#KNINGSBIDRAG OG D#KNINGSGRAD PR VALUTA«
0x1f1…1f2 0x22
0x1f2…1f3 0x88
0x1f3…1fb »{ndr CL1«
0x1fb…1fc 0x13
0x1fc…1fd 0x8b
0x1fd…208 »Z-ADDWRK33D«
0x208…209 0x04
0x209…20a 0x86
0x20a…210 »WRK33D«
0x210…211 0x09
0x211…212 0x82
0x212…214 »72«
0x214…215 0x25
0x215…216 0x8b
0x216…221 »{ndr CL1N72«
0x221…222 0x06
0x222…223 0x86
0x223…229 »WRK33D«
0x229…22a 0x04
0x22a…22b 0x83
0x22b…22e »SUB«
0x22e…22f 0x02
0x22f…230 0x85
0x230…235 »WRK30«
0x235…236 0x05
0x236…237 0x85
0x237…23c »WRK15«
0x23c…23d 0x02
0x23d…23e 0x83
0x23e…241 »102«
0x241…242 0x2c
0x242…243 0x8b
0x243…24e »{ndr CL1N72«
0x24e…24f 0x06
0x24f…250 0x85
0x250…255 »WRK15«
0x255…256 0x05
0x256…257 0x83
0x257…25a »DIV«
0x25a…25b 0x02
0x25b…25c 0x86
0x25c…262 »WRK33D«
0x262…263 0x04
0x263…264 0x85
0x264…269 »WRK63«
0x269…26a 0x05
0x26a…26b 0x81
0x26b…26c »H«
0x26c…26d 0x2b
0x26d…26e 0x8b
0x26e…279 »{ndr CL1N72«
0x279…27a 0x06
0x27a…27b 0x85
0x27b…280 »WRK63«
0x280…281 0x05
0x281…282 0x88
0x282…28a »MULT 100«
0x28a…28b 0x07
0x28b…28c 0x85
0x28c…291 »WRK16«
0x291…292 0x03
0x292…293 0x82
0x293…295 »41«
0x295…296 0x2c
0x296…297 0x60
0x297…298 0x05
0x298…299 0x81
0x299…29a »C«
0x29a…29b 0x0b
0x29b…29c 0x85
0x29c…2a1 »TOT02«
0x2a1…2a2 0x05
0x2a2…2a3 0x83
0x2a3…2a6 »TAG«
0x2a6…2a7 0x42
0x2a7…2a8 0x86
0x2a8…2ae »slet C«
0x2ae…2af 0x03
0x2af…2b0 0x82
0x2b0…2b2 »08«
0x2b2…2b3 0x10
0x2b3…2b4 0x8b
0x2b4…2bf »GOTO ENDTOT«
0x2bf…2c0 0x3a
0x2c0…2c1 0x05
0x2c1…2c2 0x82
0x2c2…2c4 »C*«
0x2c4…2c5 0x02
0x2c5…2c6 0xb2
0x2c6…2f8 »UDREGN D#KNINGSBIDRAG OG D#KNINGSGRAD PR. FAKTURA.«
0x2f8…2f9 0x25
0x2f9…2fa 0x05
0x2fa…2fb 0x81
0x2fb…2fc »C«
0x2fc…2fd 0x15
0x2fd…2fe 0x83
0x2fe…301 »ADD«
0x301…302 0x02
0x302…303 0x86
0x303…309 »FAKKOS«
0x309…30a 0x04
0x30a…30b 0x85
0x30b…310 »WRK30«
0x310…311 0x02
0x311…312 0x83
0x312…315 »102«
0x315…316 0x2c
0x316…317 0x05
0x317…318 0x81
0x318…319 »C«
0x319…31a 0x0b
0x31a…31b 0x86
0x31b…321 »VARTDK«
0x321…322 0x04
0x322…323 0x83
0x323…326 »SUB«
0x326…327 0x02
0x327…328 0x86
0x328…32e »FAKKOS«
0x32e…32f 0x04
0x32f…330 0x85
0x330…335 »WRK65«
0x335…336 0x03
0x336…337 0x82
0x337…339 »92«
0x339…33a 0x2c
0x33a…33b 0x86
0x33b…341 »{ndr C«
0x341…342 0x15
0x342…343 0x8b
0x343…34e »Z-ADDVARTDK«
0x34e…34f 0x04
0x34f…350 0x86
0x350…356 »VARTDK«
0x356…357 0x09
0x357…358 0x82
0x358…35a »71«
0x35a…35b 0x25
0x35b…35c 0x86
0x35c…362 »{ndr C«
0x362…363 0x02
0x363…364 0x83
0x364…367 »N71«
0x367…368 0x06
0x368…369 0x85
0x369…36e »WRK65«
0x36e…36f 0x05
0x36f…370 0x83
0x370…373 »DIV«
0x373…374 0x02
0x374…375 0x86
0x375…37b »VARTDK«
0x37b…37c 0x04
0x37c…37d 0x85
0x37d…382 »WRK63«
0x382…383 0x03
0x383…384 0x83
0x384…387 »93H«
0x387…388 0x2b
0x388…389 0x86
0x389…38f »{ndr C«
0x38f…390 0x02
0x390…391 0x83
0x391…394 »N71«
0x394…395 0x06
0x395…396 0x85
0x396…39b »WRK63«
0x39b…39c 0x05
0x39c…39d 0x88
0x39d…3a5 »MULT 100«
0x3a5…3a6 0x07
0x3a6…3a7 0x85
0x3a7…3ac »WRK66«
0x3ac…3ad 0x03
0x3ad…3ae 0x82
0x3ae…3b0 »41«
0x3b0…3b1 0x2c
0x3b1…3b2 0x83
0x3b2…3b5 »add«
0x3b5…3b6 0x02
0x3b6…3b7 0x81
0x3b7…3b8 »C«
0x3b8…3b9 0x02
0x3b9…3ba 0x83
0x3ba…3bd »N71«
0x3bd…3be 0x10
0x3be…3bf 0x8a
0x3bf…3c9 »MOVELWRK63«
0x3c9…3ca 0x05
0x3ca…3cb 0x84
0x3cb…3cf »TEST«
0x3cf…3d0 0x04
0x3d0…3d1 0x82
0x3d1…3d3 »50«
0x3d3…3d4 0x2c
0x3d4…3d5 0x83
0x3d5…3d8 »add«
0x3d8…3d9 0x02
0x3d9…3da 0x81
0x3da…3db »C«
0x3db…3dc 0x02
0x3dc…3dd 0x83
0x3dd…3e0 »N71«
0x3e0…3e1 0x06
0x3e1…3e2 0x84
0x3e2…3e6 »TEST«
0x3e6…3e7 0x06
0x3e7…3e8 0x86
0x3e8…3ee »COMP 0«
0x3ee…3ef 0x14
0x3ef…3f0 0x84
0x3f0…3f4 »7171«
0x3f4…3f5 0x27
0x3f5…3f6 0x05
0x3f6…3f7 0x81
0x3f7…3f8 »C«
0x3f8…3f9 0x0b
0x3f9…3fa 0x86
0x3fa…400 »ENDTOT«
0x400…401 0x04
0x401…402 0x85
0x402…407 »ENDSR«
0x407…408 0x40
0x408…409 0x60
0x409…40a 0x86
0x40a…410 »{ndr O«
0x410…411 0x19
0x411…412 0x87
0x412…419 »WRK65 M«
0x419…41a 0x02
0x41a…41b 0x83
0x41b…41e »126«
0x41e…41f 0x35
0x41f…420 0x86
0x420…426 »{ndr O«
0x426…427 0x19
0x427…428 0x87
0x428…42f »WRK66 L«
0x42f…430 0x02
0x430…431 0x83
0x431…434 »132«
0x434…435 0x35
0x435…436 0x83
0x436…439 »add«
0x439…43a 0x02
0x43a…43b 0x81
0x43b…43c »O«
0x43c…43d 0x11
0x43d…43e 0x82
0x43e…440 »71«
0x440…441 0x0f
0x441…442 0x8b
0x442…44d »131 '*****'«
0x44d…44e 0x2d
0x44e…44f 0x05
0x44f…450 0x81
0x450…451 »O«
0x451…452 0x08
0x452…453 0x81
0x453…454 »D«
0x454…455 0x08
0x455…456 0x82
0x456…458 »04«
0x458…459 0x47
0x459…45a 0x05
0x45a…45b 0x81
0x45b…45c »O«
0x45c…45d 0x19
0x45d…45e 0x86
0x45e…464 »KUNAVN«
0x464…465 0x04
0x465…466 0x82
0x466…468 »50«
0x468…469 0x35
0x469…46a 0x05
0x46a…46b 0x81
0x46b…46c »O«
0x46c…46d 0x08
0x46d…46e 0x84
0x46e…472 »T 21«
0x472…473 0x05
0x473…474 0x82
0x474…476 »L1«
0x476…477 0x47
0x477…478 0x05
0x478…479 0x81
0x479…47a »O«
0x47a…47b 0x19
0x47b…47c 0x86
0x47c…482 »VALUTA«
0x482…483 0x04
0x483…484 0x82
0x484…486 »10«
0x486…487 0x35
0x487…488 0x05
0x488…489 0x81
0x489…48a »O«
0x48a…48b 0x23
0x48b…48c 0x87
0x48c…493 »30 '***«
0x493…494 0x02
0x494…495 0x87
0x495…49c »TOTALER«
0x49c…49d 0x02
0x49d…49e 0x84
0x49e…4a2 »***'«
0x4a2…4a3 0x21
0x4a3…4a4 0x05
0x4a4…4a5 0x81
0x4a5…4a6 »O«
0x4a6…4a7 0x19
0x4a7…4a8 0x87
0x4a8…4af »WRK18 M«
0x4af…4b0 0x03
0x4b0…4b1 0x82
0x4b1…4b3 »54«
0x4b3…4b4 0x35
0x4b4…4b5 0x05
0x4b5…4b6 0x81
0x4b6…4b7 »O«
0x4b7…4b8 0x19
0x4b8…4b9 0x87
0x4b9…4c0 »WRK32 M«
0x4c0…4c1 0x03
0x4c1…4c2 0x82
0x4c2…4c4 »78«
0x4c4…4c5 0x35
0x4c5…4c6 0x05
0x4c6…4c7 0x81
0x4c7…4c8 »O«
0x4c8…4c9 0x19
0x4c9…4ca 0x87
0x4ca…4d1 »WRK13 M«
0x4d1…4d2 0x02
0x4d2…4d3 0x83
0x4d3…4d6 »102«
0x4d6…4d7 0x35
0x4d7…4d8 0x86
0x4d8…4de »{ndr O«
0x4de…4df 0x19
0x4df…4e0 0x87
0x4e0…4e7 »WRK15 M«
0x4e7…4e8 0x02
0x4e8…4e9 0x83
0x4e9…4ec »126«
0x4ec…4ed 0x35
0x4ed…4ee 0x86
0x4ee…4f4 »{ndr O«
0x4f4…4f5 0x19
0x4f5…4f6 0x87
0x4f6…4fd »WRK16 M«
0x4fd…4fe 0x02
0x4fe…4ff 0x83
0x4ff…502 »132«
0x502…503 0x35
0x503…504 0x83
0x504…507 »add«
0x507…508 0x02
0x508…509 0x81
0x509…50a »O«
0x50a…50b 0x11
0x50b…50c 0x82
0x50c…50e »72«
0x50e…50f 0x0f
0x50f…510 0x8b
0x510…51b »131 '*****'«
0x51b…51c 0x2d
0x51c…51d 0x60
0x51d…51e 0x00
0x51e…520 e3 c4 ┆TD┆
0x520…540 d2 04 83 e2 e4 c2 02 86 c6 c1 d2 d2 d6 e2 04 85 e6 d9 d2 f6 f5 03 82 f9 f2 2c 86 c0 95 84 99 40 ┆K cSUB fFAKKOS eWRK65 b92 f{ndr ┆
0x540…560 c3 15 8b e9 60 c1 c4 c4 e5 c1 d9 e3 c4 d2 04 86 e5 c1 d9 e3 c4 d2 09 82 f7 f1 25 86 c0 95 84 99 ┆C »Z-ADDVARTDK fVARTDK b71 f{ndr┆
0x560…580 40 c3 02 83 d5 f7 f1 06 85 e6 d9 d2 f6 f5 05 83 c4 c9 e5 02 86 e5 c1 d9 e3 c4 d2 04 85 e6 d9 d2 ┆ C cN71 eWRK65 cDIV fVARTDK eWRK┆
0x580…5a0 f6 f3 03 83 f9 f3 c8 2b 86 c0 95 84 99 40 c3 02 83 d5 f7 f1 06 85 e6 d9 d2 f6 f3 05 88 d4 e4 d3 ┆63 c93H f{ndr C cN71 eWRK63 hMUL┆
0x5a0…5c0 e3 40 f1 f0 f0 07 85 e6 d9 d2 f6 f6 03 82 f4 f1 2c 83 81 84 84 02 81 c3 02 83 d5 f7 f1 10 8a d4 ┆T 100 eWRK66 b41 cadd aC cN71 «M┆
0x5c0…5e0 d6 e5 c5 d3 e6 d9 d2 f6 f3 05 84 e3 c5 e2 e3 04 82 f5 f0 2c 83 81 84 84 02 81 c3 02 83 d5 f7 f1 ┆OVELWRK63 dTEST b50 cadd aC cN71┆
0x5e0…600 06 84 e3 c5 e2 e3 06 86 c3 d6 d4 d7 40 f0 14 84 f7 f1 f7 f1 27 05 81 c3 0b 86 c5 d5 c4 e3 d6 e3 ┆ dTEST fCOMP 0 d7171 aC fENDTOT┆