|
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: »FAK310 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».FAK310 «
Difference p} 1 ¦re p} fakturabundlinien.
Der m} ikke foretages `half-adjust` p} b}de fakturarabat og momsgrundlag
Rettelse pr. 27/4 1984:
C FAKTRB BEGSR
C Z-ADD0 FAKRAB
C Z-ADDFAKRPC FAKRPC 71 RABAT %
C N71 GOTO FAKT99
C Z-ADD0 WRK43 43
C MOVE FAKRPC WRK43
{ndr C FAKBEL MULT WRK43 FAKRAB 71
-
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Statistikopsamling under fakturaudskrift.
Varegruppe for skaffevarer kan v{re forkert i statistikerne.
Rettelse pr. 31/7 1984.
C REC04 TAG
C SETOF 42
C SETOF 44
C 51 KODE1 COMP 'D' 80
C 51N80 GOTO REC01
C 05 MOVE GEMK1 KODE1 TXTLIN = TIDL.
C 05 MOVE GEMK2 KODE2
C 06
{ndr COR 04 EXSR VARCHN
---
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Momsprocenten b¦r ikke udskrives til momsfrie kunder.
Rettelse pr. 31/7 84.
C* I N D I C A T O R O V E R S I G T
C*
add C* 76 - KUNDE UDEN MOMS
C TOTAL BEGSR
C* HENT 02 IGEN MED ORDREOPLYSNINGER
C Z-ADDGEM02 WRK01
C EXSR ORDCHN
C* F045
{ndr C MOMKU1 COMP 'N' 76 INGEN
{ndr C 76 Z-ADD0 MOMSG1 MOMS
{ndr O N76 MOMPC14 51
O MOMS1 4 65
O FAKBEL4 82
O E 1 75 74
O* LINIE MED KONTANTRABAT
0x000…001 0x60
0x001…002 0x09
0x002…003 0xa9
0x003…02c »Difference p} 1 ¦re p} fakturabundlinien.«
0x02c…02d 0x2e
0x02d…02e 0x09
0x02e…02f 0xc8
0x02f…077 »Der m} ikke foretages `half-adjust` p} b}de fakturarabat og momsgrundlag«
0x077…078 0x0f
0x078…079 0x60
0x079…07a 0x04
0x07a…07b 0x97
0x07b…092 »Rettelse pr. 27/4 1984:«
0x092…093 0x45
0x093…094 0x60
0x094…095 0x05
0x095…096 0x81
0x096…097 »C«
0x097…098 0x0b
0x098…099 0x86
0x099…09f »FAKTRB«
0x09f…0a0 0x04
0x0a0…0a1 0x85
0x0a1…0a6 »BEGSR«
0x0a6…0a7 0x40
0x0a7…0a8 0x05
0x0a8…0a9 0x81
0x0a9…0aa »C«
0x0aa…0ab 0x15
0x0ab…0ac 0x86
0x0ac…0b2 »Z-ADD0«
0x0b2…0b3 0x09
0x0b3…0b4 0x86
0x0b4…0ba »FAKRAB«
0x0ba…0bb 0x30
0x0bb…0bc 0x05
0x0bc…0bd 0x81
0x0bd…0be »C«
0x0be…0bf 0x15
0x0bf…0c0 0x8b
0x0c0…0cb »Z-ADDFAKRPC«
0x0cb…0cc 0x04
0x0cc…0cd 0x86
0x0cd…0d3 »FAKRPC«
0x0d3…0d4 0x05
0x0d4…0d5 0x82
0x0d5…0d7 »71«
0x0d7…0d8 0x04
0x0d8…0d9 0x87
0x0d9…0e0 »RABAT %«
0x0e0…0e1 0x1e
0x0e1…0e2 0x05
0x0e2…0e3 0x81
0x0e3…0e4 »C«
0x0e4…0e5 0x02
0x0e5…0e6 0x83
0x0e6…0e9 »N71«
0x0e9…0ea 0x10
0x0ea…0eb 0x8b
0x0eb…0f6 »GOTO FAKT99«
0x0f6…0f7 0x3a
0x0f7…0f8 0x05
0x0f8…0f9 0x81
0x0f9…0fa »C«
0x0fa…0fb 0x15
0x0fb…0fc 0x86
0x0fc…102 »Z-ADD0«
0x102…103 0x09
0x103…104 0x85
0x104…109 »WRK43«
0x109…10a 0x03
0x10a…10b 0x82
0x10b…10d »43«
0x10d…10e 0x2c
0x10e…10f 0x05
0x10f…110 0x81
0x110…111 »C«
0x111…112 0x15
0x112…113 0x8b
0x113…11e »MOVE FAKRPC«
0x11e…11f 0x04
0x11f…120 0x85
0x120…125 »WRK43«
0x125…126 0x31
0x126…127 0x86
0x127…12d »{ndr C«
0x12d…12e 0x0b
0x12e…12f 0x86
0x12f…135 »FAKBEL«
0x135…136 0x04
0x136…137 0x8a
0x137…141 »MULT WRK43«
0x141…142 0x05
0x142…143 0x86
0x143…149 »FAKRAB«
0x149…14a 0x05
0x14a…14b 0x82
0x14b…14d »71«
0x14d…14e 0x29
0x14e…14f 0x34
0x14f…150 0x81
0x150…151 »-«
0x151…152 0x2b
0x152…153 0xcf
0x153…1a2 »-------------------------------------------------------------------------------«
0x1a2…1a3 0x11
0x1a3…1a4 0xcf
0x1a4…1f3 »-------------------------------------------------------------------------------«
0x1f3…1f4 0x11
0x1f4…1f5 0x60
0x1f5…1f6 0x0e
0x1f6…1f7 0xa9
0x1f7…220 »Statistikopsamling under fakturaudskrift.«
0x220…221 0x29
0x221…222 0x09
0x222…223 0xbc
0x223…25f »Varegruppe for skaffevarer kan v{re forkert i statistikerne.«
0x25f…260 0x1b
0x260…261 0x60
0x261…262 0x04
0x262…263 0x97
0x263…27a »Rettelse pr. 31/7 1984.«
0x27a…27b 0x45
0x27b…27c 0x60
0x27c…27d 0x05
0x27d…27e 0x81
0x27e…27f »C«
0x27f…280 0x0b
0x280…281 0x85
0x281…286 »REC04«
0x286…287 0x05
0x287…288 0x83
0x288…28b »TAG«
0x28b…28c 0x42
0x28c…28d 0x05
0x28d…28e 0x81
0x28e…28f »C«
0x28f…290 0x15
0x290…291 0x85
0x291…296 »SETOF«
0x296…297 0x15
0x297…298 0x82
0x298…29a »42«
0x29a…29b 0x29
0x29b…29c 0x05
0x29c…29d 0x81
0x29d…29e »C«
0x29e…29f 0x15
0x29f…2a0 0x85
0x2a0…2a5 »SETOF«
0x2a5…2a6 0x17
0x2a6…2a7 0x82
0x2a7…2a9 »44«
0x2a9…2aa 0x27
0x2aa…2ab 0x05
0x2ab…2ac 0x81
0x2ac…2ad »C«
0x2ad…2ae 0x03
0x2ae…2af 0x82
0x2af…2b1 »51«
0x2b1…2b2 0x06
0x2b2…2b3 0x85
0x2b3…2b8 »KODE1«
0x2b8…2b9 0x05
0x2b9…2ba 0x88
0x2ba…2c2 »COMP 'D'«
0x2c2…2c3 0x16
0x2c3…2c4 0x82
0x2c4…2c6 »80«
0x2c6…2c7 0x25
0x2c7…2c8 0x05
0x2c8…2c9 0x81
0x2c9…2ca »C«
0x2ca…2cb 0x03
0x2cb…2cc 0x85
0x2cc…2d1 »51N80«
0x2d1…2d2 0x0d
0x2d2…2d3 0x8a
0x2d3…2dd »GOTO REC01«
0x2dd…2de 0x3b
0x2de…2df 0x05
0x2df…2e0 0x81
0x2e0…2e1 »C«
0x2e1…2e2 0x03
0x2e2…2e3 0x82
0x2e3…2e5 »05«
0x2e5…2e6 0x10
0x2e6…2e7 0x8a
0x2e7…2f1 »MOVE GEMK1«
0x2f1…2f2 0x05
0x2f2…2f3 0x85
0x2f3…2f8 »KODE1«
0x2f8…2f9 0x0c
0x2f9…2fa 0x8e
0x2fa…308 »TXTLIN = TIDL.«
0x308…309 0x17
0x309…30a 0x05
0x30a…30b 0x81
0x30b…30c »C«
0x30c…30d 0x03
0x30d…30e 0x82
0x30e…310 »05«
0x310…311 0x10
0x311…312 0x8a
0x312…31c »MOVE GEMK2«
0x31c…31d 0x05
0x31d…31e 0x85
0x31e…323 »KODE2«
0x323…324 0x31
0x324…325 0x05
0x325…326 0x81
0x326…327 »C«
0x327…328 0x03
0x328…329 0x82
0x329…32b »06«
0x32b…32c 0x55
0x32c…32d 0x8b
0x32d…338 »{ndr COR 04«
0x338…339 0x10
0x339…33a 0x8b
0x33a…345 »EXSR VARCHN«
0x345…346 0x3a
0x346…347 0x0b
0x347…348 0x83
0x348…34b »---«
0x34b…34c 0x52
0x34c…34d 0x60
0x34d…34e 0xcf
0x34e…39d »-------------------------------------------------------------------------------«
0x39d…39e 0x11
0x39e…39f 0xcf
0x39f…3ee »-------------------------------------------------------------------------------«
0x3ee…3ef 0x11
0x3ef…3f0 0x60
0x3f0…3f1 0x09
0x3f1…3f2 0xb5
0x3f2…427 »Momsprocenten b¦r ikke udskrives til momsfrie kunder.«
0x427…428 0x22
0x428…429 0x60
0x429…42a 0x09
0x42a…42b 0x95
0x42b…440 »Rettelse pr. 31/7 84.«
0x440…441 0x42
0x441…442 0x60
0x442…443 0x05
0x443…444 0x82
0x444…446 »C*«
0x446…447 0x0a
0x447…448 0xa1
0x448…469 »I N D I C A T O R O V E R S I G T«
0x469…46a 0x2e
0x46a…46b 0x05
0x46b…46c 0x82
0x46c…46e »C*«
0x46e…46f 0x59
0x46f…470 0x83
0x470…473 »add«
0x473…474 0x02
0x474…475 0x82
0x475…477 »C*«
0x477…478 0x04
0x478…479 0x82
0x479…47b »76«
0x47b…47c 0x02
0x47c…47d 0x81
0x47d…47e »-«
0x47e…47f 0x02
0x47f…480 0x8f
0x480…48f »KUNDE UDEN MOMS«
0x48f…490 0x3f
0x490…491 0x60
0x491…492 0x05
0x492…493 0x81
0x493…494 »C«
0x494…495 0x0b
0x495…496 0x85
0x496…49b »TOTAL«
0x49b…49c 0x05
0x49c…49d 0x85
0x49d…4a2 »BEGSR«
0x4a2…4a3 0x40
0x4a3…4a4 0x05
0x4a4…4a5 0x82
0x4a5…4a7 »C*«
0x4a7…4a8 0x02
0x4a8…4a9 0xa1
0x4a9…4ca »HENT 02 IGEN MED ORDREOPLYSNINGER«
0x4ca…4cb 0x36
0x4cb…4cc 0x05
0x4cc…4cd 0x81
0x4cd…4ce »C«
0x4ce…4cf 0x15
0x4cf…4d0 0x8a
0x4d0…4da »Z-ADDGEM02«
0x4da…4db 0x05
0x4db…4dc 0x85
0x4dc…4e1 »WRK01«
0x4e1…4e2 0x31
0x4e2…4e3 0x05
0x4e3…4e4 0x81
0x4e4…4e5 »C«
0x4e5…4e6 0x15
0x4e6…4e7 0x8b
0x4e7…4f2 »EXSR ORDCHN«
0x4f2…4f3 0x3a
0x4f3…4f4 0x05
0x4f4…4f5 0x87
0x4f5…4fc »C* F045«
0x4fc…4fd 0x54
0x4fd…4fe 0x86
0x4fe…504 »{ndr C«
0x504…505 0x0b
0x505…506 0x86
0x506…50c »MOMKU1«
0x50c…50d 0x04
0x50d…50e 0x88
0x50e…516 »COMP 'N'«
0x516…517 0x16
0x517…518 0x82
0x518…51a »76«
0x51a…51b 0x02
0x51b…51c 0x85
0x51c…521 »INGEN«
0x521…522 0x1e
0x522…523 0x86
0x523…529 »{ndr C«
0x529…52a 0x03
0x52a…52b 0x82
0x52b…52d »76«
0x52d…52e 0x10
0x52e…52f 0x86
0x52f…535 »Z-ADD0«
0x535…536 0x09
0x536…537 0x86
0x537…53d »MOMSG1«
0x53d…53e 0x0f
0x53e…53f 0x84
0x53f…543 »MOMS«
0x543…544 0x1d
0x544…545 0x60
0x545…546 0x86
0x546…54c »{ndr O«
0x54c…54d 0x10
0x54d…54e 0x83
0x54e…551 »N76«
0x551…552 0x06
0x552…553 0x87
0x553…55a »MOMPC14«
0x55a…55b 0x03
0x55b…55c 0x82
0x55c…55e »51«
0x55e…55f 0x35
0x55f…560 0x05
0x560…561 0x81
0x561…562 »O«
0x562…563 0x19
0x563…564 0x87
0x564…56b »MOMS1 4«
0x56b…56c 0x03
0x56c…56d 0x82
0x56d…56f »65«
0x56f…570 0x35
0x570…571 0x05
0x571…572 0x81
0x572…573 »O«
0x573…574 0x19
0x574…575 0x87
0x575…57c »FAKBEL4«
0x57c…57d 0x03
0x57d…57e 0x82
0x57e…580 »82«
0x580…581 0x35
0x581…582 0x05
0x582…583 0x81
0x583…584 »O«
0x584…585 0x08
0x585…586 0x81
0x586…587 »E«
0x587…588 0x02
0x588…589 0x81
0x589…58a »1«
0x58a…58b 0x05
0x58b…58c 0x85
0x58c…591 »75 74«
0x591…592 0x44
0x592…593 0x05
0x593…594 0x99
0x594…5ad »O* LINIE MED KONTANTRABAT«
0x5ad…5ae 0x42
0x5ae…5af 0x60
0x5af…5b0 0x00
0x5b0…5c0 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 ┆----------------┆
0x5c0…5e0 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 ┆--------------------------------┆
0x5e0…600 60 60 60 60 60 60 60 60 60 60 60 60 60 60 11 60 09 b5 d4 96 94 a2 97 99 96 83 85 95 a3 85 95 40 ┆-------------- - §Momsprocenten ┆