⟦2696d2ead⟧

HexDump

0x0000…0022 (0, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» IDENT SUBAPL  02.03.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0036              Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAPPL «, t00=0x0000, t01=0x0048}
0x005a…0070              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK1 «, t00=0x0000, t01=0x005e}
0x0070…0086              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK2 «, t00=0x0000, t01=0x0074}
0x0086…009c              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK3 «, t00=0x0000, t01=0x008a}
0x009c…00b2              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK4 «, t00=0x0000, t01=0x00a0}
0x00b2…00c8              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK5 «, t00=0x0000, t01=0x00b6}
0x00c8…00de              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK6 «, t00=0x0000, t01=0x00cc}
0x00de…00f4              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK7 «, t00=0x0000, t01=0x00e2}
0x00f4…010a              Head {h00=0x0012, h01=0x0050, text=» ENTRY SPTCHK «, t00=0x0000, t01=0x00f8}
0x010a…0120              Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKRE «, t00=0x0000, t01=0x010e}
0x0120…0136              Head {h00=0x0012, h01=0x0050, text=» ENTRY SETDEB «, t00=0x0000, t01=0x0124}
0x0136…014a              Head {h00=0x0010, h01=0x0050, text=» ENTRY CLRSW«, t00=0x0000, t01=0x013a}
0x014a…015e              Head {h00=0x0010, h01=0x0050, text=» ENTRY SELTR«, t00=0x0000, t01=0x014e}
0x015e…0172              Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x0162}
0x0172…0184              Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0000, t01=0x0176}
0x0184…0196              Head {h00=0x000e, h01=0x0050, text=» EXT KKCH «, t00=0x0000, t01=0x0188}
0x0196…01aa              Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x000a}
0x01aa…01c2              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x001e}
0x01c2…01dc              Head {h00=0x0016, h01=0x0050, text=»   STANDARD CHECKS«, t00=0x0001, t01=0x0036}
0x01dc…01e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…01fa              Head {h00=0x0010, h01=0x0050, text=»SPCHK1 PROC «, t00=0x0001, t01=0x005a}
0x01fa…0216              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x006e}
0x0216…0220              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008a}
0x0220…0244              Head {h00=0x0020, h01=0x0050, text=»*          SPCHK1 - CDVCHECK«, t00=0x0001, t01=0x0094}
0x0244…024e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b8}
0x024e…028e              Head {h00=0x003c, h01=0x0050, text=»*          PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x0001, t01=0x00c2}
0x028e…02ca              Head {h00=0x0038, h01=0x0050, text=»*          IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x0001, t01=0x0102}
0x02ca…02d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02f0              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0148}
0x02f0…031e              Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0001, t01=0x0164}
0x031e…0346 (2, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0002, t01=0x0004}
0x0346…0382              Head {h00=0x0038, h01=0x0050, text=» CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK «, t00=0x0002, t01=0x002c}
0x0382…03b8              Head {h00=0x0032, h01=0x0050, text=» CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR«, t00=0x0002, t01=0x0068}
0x03b8…03f4              Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK  (CIRNR) «, t00=0x0002, t01=0x009e}
0x03f4…0434              Head {h00=0x003c, h01=0x0050, text=» CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK   (CPRNR)«, t00=0x0002, t01=0x00da}
0x0434…0442              Head {h00=0x000a, h01=0x0050, text=»CHK10 «, t00=0x0002, t01=0x011a}
0x0442…045e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0002, t01=0x0128}
0x045e…047a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0002, t01=0x0144}
0x047a…04ae              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0002, t01=0x0160}
0x04ae…04ca (3, 0, 400)  Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0003, t01=0x0004}
0x04ca…04ec              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD6,=D'0',CHK1ER «, t00=0x0003, t01=0x0020}
0x04ec…04f4              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0042}
0x04f4…0522              Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0003, t01=0x004a}
0x0522…0562              Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0003, t01=0x0078}
0x0562…059c              Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x00b8}
0x059c…05c8              Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x00f2}
0x05c8…05f6              Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX«, t00=0x0003, t01=0x011e}
0x05f6…0626              Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM«, t00=0x0003, t01=0x014c}
0x0626…065a              Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT«, t00=0x0003, t01=0x017c}
0x065a…0678              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0004, t01=0x0020}
0x0678…06a0              Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0004, t01=0x003e}
0x06a0…06cc              Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0004, t01=0x0066}
0x06cc…06fe              Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x0092}
0x06fe…073c              Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x00c4}
0x073c…0746              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0746…0754              Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x010c}
0x0754…0770              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'6' «, t00=0x0004, t01=0x011a}
0x0770…079c              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0004, t01=0x0136}
0x079c…07a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0162}
0x07a6…07b6              Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0004, t01=0x016c}
0x07b6…07c2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x017c}
0x07c2…07d0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0188}
0x07d0…07de              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0008}
0x07de…07f2              Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0005, t01=0x0016}
0x07f2…080e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x002a}
0x080e…0818              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0046}
0x0818…083e              Head {h00=0x0022, h01=0x0050, text=»*          SPCHK2 - CHECK DATE«, t00=0x0005, t01=0x0050}
0x083e…0848              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x0848…087c              Head {h00=0x0030, h01=0x0050, text=»*          CHECKS  0<DAY<32  AND  0<MONTH<13«, t00=0x0005, t01=0x0080}
0x087c…08aa              Head {h00=0x002a, h01=0x0050, text=»*          DATE IS IN THE FORM  DDMMYY«, t00=0x0005, t01=0x00b4}
0x08aa…08d2              Head {h00=0x0024, h01=0x0050, text=»*          INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x00e2}
0x08d2…08dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x08dc…0918              Head {h00=0x0038, h01=0x0050, text=»*          IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x0114}
0x0918…0922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0922…093e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x015a}
0x093e…0946              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0176}
0x0946…0974              Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0005, t01=0x017e}
0x0974…099e              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0006, t01=0x001c}
0x099e…09c4              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0006, t01=0x0046}
0x09c4…09f6              Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=W'10' SET POINTER TO MONTH «, t00=0x0006, t01=0x006c}
0x09f6…0a32              Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x009e}
0x0a32…0a5e              Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x00da}
0x0a5e…0a7e              Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x0106}
0x0a7e…0aae              Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY«, t00=0x0006, t01=0x0126}
0x0aae…0ae8              Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0006, t01=0x0156}
0x0ae8…0b08              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0006, t01=0x0190}
0x0b08…0b28              Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0007, t01=0x0020}
0x0b28…0b3a              Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0007, t01=0x0040}
0x0b3a…0b46              Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0007, t01=0x0052}
0x0b46…0b70              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0007, t01=0x005e}
0x0b70…0b9a              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0007, t01=0x0088}
0x0b9a…0ba8              Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x00b2}
0x0ba8…0bc4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x00c0}
0x0bc4…0bd0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00dc}
0x0bd0…0bde              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00e8}
0x0bde…0bec              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00f6}
0x0bec…0c00              Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x0104}
0x0c00…0c18              Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x0118}
0x0c18…0c22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c22…0c48              Head {h00=0x0022, h01=0x0050, text=»*         SPCHK3 - CHECK MONTH«, t00=0x0007, t01=0x013a}
0x0c48…0c52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0160}
0x0c52…0c78              Head {h00=0x0022, h01=0x0050, text=»*          CHECKS  0<MONTH<13 «, t00=0x0007, t01=0x016a}
0x0c78…0ca4              Head {h00=0x0028, h01=0x0050, text=»*          MONTH IS IN THE FORM  MM «, t00=0x0007, t01=0x0190}
0x0ca4…0cca              Head {h00=0x0022, h01=0x0050, text=»*         INPUT FIELD: SPINPUT«, t00=0x0008, t01=0x002c}
0x0cca…0cd4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0052}
0x0cd4…0d10              Head {h00=0x0038, h01=0x0050, text=»*          IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0008, t01=0x005c}
0x0d10…0d1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1a…0d34              Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x00a2}
0x0d34…0d5c              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x00bc}
0x0d5c…0d88              Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x00e4}
0x0d88…0da8              Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x0110}
0x0da8…0dd4              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0008, t01=0x0130}
0x0dd4…0de6              Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0008, t01=0x015c}
0x0de6…0df2              Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0008, t01=0x016e}
0x0df2…0e1c              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0008, t01=0x017a}
0x0e1c…0e46              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0009, t01=0x0014}
0x0e46…0e54              Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0009, t01=0x003e}
0x0e54…0e60              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x004c}
0x0e60…0e6e              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0058}
0x0e6e…0e7c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0066}
0x0e7c…0e90              Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0009, t01=0x0074}
0x0e90…0eac              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0088}
0x0eac…0eb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb6…0ef6              Head {h00=0x003c, h01=0x0050, text=»*          SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x00ae}
0x0ef6…0f00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ee}
0x0f00…0f1c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00f8}
0x0f1c…0f38              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x0114}
0x0f38…0f5c              Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,=W'18',CH4RET «, t00=0x0009, t01=0x0130}
0x0f5c…0f88              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x0009, t01=0x0154}
0x0f88…0fa4              Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x0009, t01=0x0180}
0x0fa4…0fc2              Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x000a, t01=0x000c}
0x0fc2…0fee              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,=W'3' SIMULATE EOI-KEY«, t00=0x000a, t01=0x002a}
0x0fee…0ffc              Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x000a, t01=0x0056}
0x0ffc…1008              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0064}
0x1008…1016              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0070}
0x1016…1024              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x007e}
0x1024…1038              Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x000a, t01=0x008c}
0x1038…1054              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00a0}
0x1054…105e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00bc}
0x105e…108c              Head {h00=0x002a, h01=0x0050, text=»*          SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x00c6}
0x108c…1096              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x1096…10b2              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x00fe}
0x10b2…10ce              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x011a}
0x10ce…10fc              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000a, t01=0x0136}
0x10fc…1132              Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000a, t01=0x0164}
0x1132…1154              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000b, t01=0x000a}
0x1154…116e              Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000b, t01=0x002c}
0x116e…11a0              Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000b, t01=0x0046}
0x11a0…11bc              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000b, t01=0x0078}
0x11bc…11ec              Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x0094}
0x11ec…120a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x00c4}
0x120a…122e              Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,CMAXLIN,CH5ERR «, t00=0x000b, t01=0x00e2}
0x122e…1252              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x0106}
0x1252…125e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x012a}
0x125e…126c              Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000b, t01=0x0136}
0x126c…1288              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000b, t01=0x0144}
0x1288…12a4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'8' «, t00=0x000b, t01=0x0160}
0x12a4…12b0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x017c}
0x12b0…12be              Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000b, t01=0x0188}
0x12be…12dc              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000c, t01=0x0008}
0x12dc…12e8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0026}
0x12e8…12f6              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0032}
0x12f6…1304              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0040}
0x1304…1318              Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000c, t01=0x004e}
0x1318…1334              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0062}
0x1334…133e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007e}
0x133e…1384              Head {h00=0x0042, h01=0x0050, text=»*          SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000c, t01=0x0088}
0x1384…13a0              Head {h00=0x0018, h01=0x0050, text=»*          KONTOKORT«, t00=0x000c, t01=0x00ce}
0x13a0…13aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ea}
0x13aa…13c6              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x00f4}
0x13c6…13d8              Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x0110}
0x13d8…1400              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000c, t01=0x0122}
0x1400…141c              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000c, t01=0x014a}
0x141c…144e              Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO«, t00=0x000c, t01=0x0166}
0x144e…1474              Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000d, t01=0x0008}
0x1474…1496              Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000d, t01=0x002e}
0x1496…14b2              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'13'«, t00=0x000d, t01=0x0050}
0x14b2…14c0              Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000d, t01=0x006c}
0x14c0…14cc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x007a}
0x14cc…14da              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0086}
0x14da…14e8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0094}
0x14e8…14fc              Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x00a2}
0x14fc…1508              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00b6}
0x1508…1516              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00c2}
0x1516…1524              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00d0}
0x1524…1538              Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x000d, t01=0x00de}
0x1538…1554              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00f2}
0x1554…155e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x155e…1590              Head {h00=0x002e, h01=0x0050, text=»*          SPTCHK - CONDITIONAL TABULATION«, t00=0x000d, t01=0x0118}
0x1590…15c2              Head {h00=0x002e, h01=0x0050, text=»*          CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x000d, t01=0x014a}
0x15c2…15cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017c}
0x15cc…15e8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0186}
0x15e8…1610              Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000e, t01=0x0012}
0x1610…1632              Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x000e, t01=0x003a}
0x1632…165a              Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,=W'16' ADJUST INDEX«, t00=0x000e, t01=0x005c}
0x165a…1672              Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3,  C «, t00=0x000e, t01=0x0084}
0x1672…1698              Head {h00=0x0022, h01=0x0050, text=»  TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x000e, t01=0x009c}
0x1698…16ba              Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x000e, t01=0x00c2}
0x16ba…16dc              Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x000e, t01=0x00e4}
0x16dc…16fa              Head {h00=0x001a, h01=0x0050, text=»TCHK00   CORRECT FIELD«, t00=0x000e, t01=0x0106}
0x16fa…1716              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x000e, t01=0x0124}
0x1716…1722              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0140}
0x1722…172c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014c}
0x172c…173a              Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x000e, t01=0x0156}
0x173a…1752              Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x000e, t01=0x0164}
0x1752…1764              Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000e, t01=0x017c}
0x1764…176e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018e}
0x176e…177c              Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x000f, t01=0x0008}
0x177c…178a              Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x000f, t01=0x0016}
0x178a…1798              Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x000f, t01=0x0024}
0x1798…17b0              Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x000f, t01=0x0032}
0x17b0…17c2              Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000f, t01=0x004a}
0x17c2…17cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005c}
0x17cc…17da              Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x000f, t01=0x0066}
0x17da…17f8              Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x0074}
0x17f8…1814              Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x0092}
0x1814…1850              Head {h00=0x0038, h01=0x0050, text=» CBG SPBINW3,CTR12(GTUWB,CBIN2),TCHK00 CONTINUE TAB «, t00=0x000f, t01=0x00ae}
0x1850…1870              Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x000f, t01=0x00ea}
0x1870…187a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010a}
0x187a…1888              Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x000f, t01=0x0114}
0x1888…18a6              Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x0122}
0x18a6…18c2              Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x0140}
0x18c2…18fe              Head {h00=0x0038, h01=0x0050, text=» CBG SPBINW3,CTR12(GTUWB,CBIN2),TCHK99 CORRECT FIELD«, t00=0x000f, t01=0x015c}
0x18fe…191c              Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x0010, t01=0x0008}
0x191c…1926              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0026}
0x1926…1934              Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x0010, t01=0x0030}
0x1934…1950              Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0010, t01=0x003e}
0x1950…1962              Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0010, t01=0x005a}
0x1962…196c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x196c…198a              Head {h00=0x001a, h01=0x0050, text=»TCHK99   CONTINUE TAB «, t00=0x0010, t01=0x0076}
0x198a…19a6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0010, t01=0x0094}
0x19a6…19b2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00b0}
0x19b2…19c0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00bc}
0x19c0…19ce              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00ca}
0x19ce…19e2              Head {h00=0x0010, h01=0x0050, text=»SPAPPL PROC «, t00=0x0010, t01=0x00d8}
0x19e2…19fe              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x00ec}
0x19fe…1a08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0108}
0x1a08…1a58              Head {h00=0x004c, h01=0x0050, text=»*          SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE «, t00=0x0010, t01=0x0112}
0x1a58…1a9a              Head {h00=0x003e, h01=0x0050, text=»*          IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. «, t00=0x0010, t01=0x0162}
0x1a9a…1aa4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0014}
0x1aa4…1ae8              Head {h00=0x0040, h01=0x0050, text=»*          APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)«, t00=0x0011, t01=0x001e}
0x1ae8…1b2c              Head {h00=0x0040, h01=0x0050, text=»*          A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT «, t00=0x0011, t01=0x0062}
0x1b2c…1b64              Head {h00=0x0034, h01=0x0050, text=»*          TESTING AND BRANCH TO PACKING ROUTINE«, t00=0x0011, t01=0x00a6}
0x1b64…1b6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00de}
0x1b6e…1b8a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00e8}
0x1b8a…1b94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0104}
0x1b94…1bc6              Head {h00=0x002e, h01=0x0050, text=»*          SPBINW3 IS CURRENT APPL NUMBER «, t00=0x0011, t01=0x010e}
0x1bc6…1bde              Head {h00=0x0014, h01=0x0050, text=»   ART - RETURN «, t00=0x0011, t01=0x0140}
0x1bde…1bfa              Head {h00=0x0018, h01=0x0050, text=»   APK - PACK FIELD «, t00=0x0011, t01=0x0158}
0x1bfa…1c20              Head {h00=0x0022, h01=0x0050, text=»   APF - PACK FIELD WITH SIGN «, t00=0x0011, t01=0x0174}
0x1c20…1c46              Head {h00=0x0022, h01=0x0050, text=»   AA01 - TEST FOR FIELD TO BE«, t00=0x0012, t01=0x000a}
0x1c46…1c62              Head {h00=0x0018, h01=0x0050, text=»   ---- - AUTODUPPED«, t00=0x0012, t01=0x0030}
0x1c62…1c88              Head {h00=0x0022, h01=0x0050, text=»   AA02 - TEST FOR AUTODUP KEY«, t00=0x0012, t01=0x004c}
0x1c88…1caa              Head {h00=0x001e, h01=0x0050, text=»   AA03 - IF LENGTH ZERO, «, t00=0x0012, t01=0x0072}
0x1caa…1cc8              Head {h00=0x001a, h01=0x0050, text=»   ---- - DELETE FIELS«, t00=0x0012, t01=0x0094}
0x1cc8…1ce6              Head {h00=0x001a, h01=0x0050, text=»   AA05 - TEST FIELD 5«, t00=0x0012, t01=0x00b2}
0x1ce6…1d04              Head {h00=0x001a, h01=0x0050, text=»   AA06 - TEST FIELD 6«, t00=0x0012, t01=0x00d0}
0x1d04…1d26              Head {h00=0x001e, h01=0x0050, text=»   AA11 - TEST VALOERDATE «, t00=0x0012, t01=0x00ee}
0x1d26…1d48              Head {h00=0x001e, h01=0x0050, text=»   AA17 - TEST FORFALDSAAR«, t00=0x0012, t01=0x0110}
0x1d48…1d6e              Head {h00=0x0022, h01=0x0050, text=»   AA65 - IF AA05, AA06 THERE «, t00=0x0012, t01=0x0132}
0x1d6e…1d92              Head {h00=0x0020, h01=0x0050, text=»   ---- - MIGHT BE A CHOICE «, t00=0x0012, t01=0x0158}
0x1d92…1db4              Head {h00=0x001e, h01=0x0050, text=»   ---- - OF NEW TRANSTYPE«, t00=0x0012, t01=0x017c}
0x1db4…1dd2              Head {h00=0x001a, h01=0x0050, text=»   A64 - TEST FIELD 64«, t00=0x0013, t01=0x000e}
0x1dd2…1df0              Head {h00=0x001a, h01=0x0050, text=»   A65 - TEST FIELD 65«, t00=0x0013, t01=0x002c}
0x1df0…1e18              Head {h00=0x0024, h01=0x0050, text=»   AA70 - KONTONR WITHOUT CHECK «, t00=0x0013, t01=0x004a}
0x1e18…1e3e              Head {h00=0x0022, h01=0x0050, text=»   AA71 - 'ANTAL' IN TRANSTYPE«, t00=0x0013, t01=0x0072}
0x1e3e…1e56              Head {h00=0x0014, h01=0x0050, text=»   ---- - 51, 53«, t00=0x0013, t01=0x0098}
0x1e56…1e7a              Head {h00=0x0020, h01=0x0050, text=»   A76  - COUNTER, TRANS 12 «, t00=0x0013, t01=0x00b0}
0x1e7a…1ea2              Head {h00=0x0024, h01=0x0050, text=»   A77  - TR 4, INSERT BKO 51,52«, t00=0x0013, t01=0x00d4}
0x1ea2…1ec8              Head {h00=0x0022, h01=0x0050, text=»   A78  - ACCOUNT NO, TRANS 12«, t00=0x0013, t01=0x00fc}
0x1ec8…1ef0              Head {h00=0x0024, h01=0x0050, text=»   A79  -   -  -  -  -  - (COPY)«, t00=0x0013, t01=0x0122}
0x1ef0…1f16              Head {h00=0x0022, h01=0x0050, text=»   A80-A87 - CHECK OF CONTROL «, t00=0x0013, t01=0x014a}
0x1f16…1f38              Head {h00=0x001e, h01=0x0050, text=»   ---- - INFORMATION FOR «, t00=0x0013, t01=0x0170}
0x1f38…1f54 (20, 0, 400) Head {h00=0x0018, h01=0x0050, text=»   ---- - TRANSTYPES«, t00=0x0014, t01=0x0004}
0x1f54…1f78              Head {h00=0x0020, h01=0x0050, text=»   A88  - AUTODUP BKO, TR 4 «, t00=0x0014, t01=0x0020}
0x1f78…1f9a              Head {h00=0x001e, h01=0x0050, text=»   A89  - STORE IN FIELD 6«, t00=0x0014, t01=0x0044}
0x1f9a…1fbe              Head {h00=0x0020, h01=0x0050, text=»   A90  - SPECIAL SLUT-FIELD«, t00=0x0014, t01=0x0066}
0x1fbe…1fe0              Head {h00=0x001e, h01=0x0050, text=»   A91 - ENTER TO SLUT-KEY«, t00=0x0014, t01=0x008a}
0x1fe0…1ffe              Head {h00=0x001a, h01=0x0050, text=»   A100 - CHECK TR 12 «, t00=0x0014, t01=0x00ac}
0x1ffe…2022              Head {h00=0x0020, h01=0x0050, text=»   A101 - CHECK BEHL. COUNT.«, t00=0x0014, t01=0x00ca}
0x2022…203c              Head {h00=0x0016, h01=0x0050, text=»   A102 - REL. DAY«, t00=0x0014, t01=0x00ee}
0x203c…205e              Head {h00=0x001e, h01=0x0050, text=»   A103 - SET BEHL. COUNT «, t00=0x0014, t01=0x0108}
0x205e…207c              Head {h00=0x001a, h01=0x0050, text=»   A104 - SET TRANS 12«, t00=0x0014, t01=0x012a}
0x207c…20cc              Head {h00=0x004c, h01=0x0050, text=»                                                 A105 - CTRL.DIGIT CALC.«, t00=0x0014, t01=0x0148}
0x20cc…20ee              Head {h00=0x001e, h01=0x0050, text=»   A106 - CHECK VALUE 0-3 «, t00=0x0015, t01=0x0008}
0x20ee…2108              Head {h00=0x0016, h01=0x0050, text=»   A107 - AS A102 «, t00=0x0015, t01=0x002a}
0x2108…212a              Head {h00=0x001e, h01=0x0050, text=»   A108 - SPG -REGKONTONR «, t00=0x0015, t01=0x0044}
0x212a…214a              Head {h00=0x001c, h01=0x0050, text=»   A109 - SPG-CPR/CIR/NR«, t00=0x0015, t01=0x0066}
0x214a…2166              Head {h00=0x0018, h01=0x0050, text=»   A110 - SPG-BELOB «, t00=0x0015, t01=0x0086}
0x2166…2188              Head {h00=0x001e, h01=0x0050, text=»   A111 - SPG-OTHER FIELD «, t00=0x0015, t01=0x00a2}
0x2188…21ae              Head {h00=0x0022, h01=0x0050, text=»   A112 - CHECK TASKNR, START «, t00=0x0015, t01=0x00c4}
0x21ae…21b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ea}
0x21b8…21f2              Head {h00=0x0036, h01=0x0050, text=» CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS «, t00=0x0015, t01=0x00f4}
0x21f2…21fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012e}
0x21fc…2206              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0138}
0x2206…2212              Head {h00=0x0008, h01=0x0050, text=»AA01«, t00=0x0015, t01=0x0142}
0x2212…2242              Head {h00=0x002c, h01=0x0050, text=» TBF GTADUPFL,AA02 AUTODUP TEST (VERIF) «, t00=0x0015, t01=0x014e}
0x2242…2276              Head {h00=0x0030, h01=0x0050, text=» CLEAR GTADUPFL IF FIELD IS TO BE AUTODUPPED«, t00=0x0015, t01=0x017e}
0x2276…22aa              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET DUP FIELD«, t00=0x0016, t01=0x0022}
0x22aa…22dc              Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,GTDUPF(GSWBIN1) AND CONTINUE«, t00=0x0016, t01=0x0056}
0x22dc…22ea              Head {h00=0x000a, h01=0x0050, text=» B AAA«, t00=0x0016, t01=0x0088}
0x22ea…22f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0096}
0x22f4…2300              Head {h00=0x0008, h01=0x0050, text=»AA02«, t00=0x0016, t01=0x00a0}
0x2300…2328              Head {h00=0x0024, h01=0x0050, text=» TBF GTAUTODP,AA03 AUTO DUP KEY «, t00=0x0016, t01=0x00ac}
0x2328…2350              Head {h00=0x0024, h01=0x0050, text=» CLEAR GTAUTODP IF GTAUTODP KEY,«, t00=0x0016, t01=0x00d4}
0x2350…2386              Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX«, t00=0x0016, t01=0x00fc}
0x2386…23c6              Head {h00=0x003c, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN1 AND SET GTAUTODPSWITCH FOR«, t00=0x0016, t01=0x0132}
0x23c6…23ea              Head {h00=0x0020, h01=0x0050, text=»   RELEVANT FIELD TO BE USED«, t00=0x0016, t01=0x0172}
0x23ea…2400              Head {h00=0x0012, h01=0x0050, text=»   IN FORMATS «, t00=0x0017, t01=0x0008}
0x2400…240a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001e}
0x240a…2416              Head {h00=0x0008, h01=0x0050, text=»AA03«, t00=0x0017, t01=0x0028}
0x2416…2448              Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO «, t00=0x0017, t01=0x0034}
0x2448…248a              Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 «, t00=0x0017, t01=0x0066}
0x248a…24ba              Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD«, t00=0x0017, t01=0x00a8}
0x24ba…24c8              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0017, t01=0x00d8}
0x24c8…24d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e6}
0x24d2…24ec              Head {h00=0x0016, h01=0x0050, text=»AAA IB SPBINW3,  C«, t00=0x0017, t01=0x00f0}
0x24ec…2528              Head {h00=0x0038, h01=0x0050, text=»  ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C «, t00=0x0017, t01=0x010a}
0x2528…256a              Head {h00=0x003e, h01=0x0050, text=»  APK,A11,APK,APK,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C «, t00=0x0017, t01=0x0146}
0x256a…25ac              Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C «, t00=0x0017, t01=0x0188}
0x25ac…25ee              Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C «, t00=0x0018, t01=0x003a}
0x25ee…2630              Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C «, t00=0x0018, t01=0x007c}
0x2630…2672              Head {h00=0x003e, h01=0x0050, text=»  APK,APK,APF,APF,A54,APF,APF,APF,APF,APF, FIELDS 50-59 C «, t00=0x0018, t01=0x00be}
0x2672…26b4              Head {h00=0x003e, h01=0x0050, text=»  APF,APF,APF,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C «, t00=0x0018, t01=0x0100}
0x26b4…26f6              Head {h00=0x003e, h01=0x0050, text=»  A70,A71,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C «, t00=0x0018, t01=0x0142}
0x26f6…2738              Head {h00=0x003e, h01=0x0050, text=»  A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C «, t00=0x0018, t01=0x0184}
0x2738…277a              Head {h00=0x003e, h01=0x0050, text=»  A90,A91,A92,A93,A94,ART,ART,ART,ART,ART, FIELDS 90,99 C «, t00=0x0019, t01=0x0036}
0x277a…27ae              Head {h00=0x0030, h01=0x0050, text=»  A100,A101,A102,A103,A104, FIELDS 100,104 C«, t00=0x0019, t01=0x0078}
0x27ae…27e2              Head {h00=0x0030, h01=0x0050, text=»  A105,A106,A107,A108,A109, FIELDS 105,109 C«, t00=0x0019, t01=0x00ac}
0x27e2…2814              Head {h00=0x002e, h01=0x0050, text=»  A110,A111,A112,ART,ART, FIELDS 110,114 C«, t00=0x0019, t01=0x00e0}
0x2814…2840              Head {h00=0x0028, h01=0x0050, text=»  ART,ART,ART,ART,ART,ART,  C EMPTY «, t00=0x0019, t01=0x0112}
0x2840…2854              Head {h00=0x0010, h01=0x0050, text=»  A121,A122 «, t00=0x0019, t01=0x013e}
0x2854…2866              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x0152}
0x2866…2892              Head {h00=0x0028, h01=0x0050, text=»A05   CHECK REGISTRERINGSKONTONUMMER«, t00=0x0019, t01=0x0164}
0x2892…28ba              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0019, t01=0x0190}
0x28ba…28f4              Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x001a, t01=0x0028}
0x28f4…2922              Head {h00=0x002a, h01=0x0050, text=» CMP GSWBIN1,=W'10' LENGTH MUST BE 10 «, t00=0x001a, t01=0x0062}
0x2922…2934              Head {h00=0x000e, h01=0x0050, text=» BNE A058 «, t00=0x001a, t01=0x0090}
0x2934…2952              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001a, t01=0x00a2}
0x2952…2976              Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x001a, t01=0x00c0}
0x2976…2994              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001a, t01=0x00e4}
0x2994…29ac              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1,  C «, t00=0x001a, t01=0x0102}
0x29ac…29ce              Head {h00=0x001e, h01=0x0050, text=»  A053,A053,A051,A053,A053«, t00=0x001a, t01=0x011a}
0x29ce…29da              Head {h00=0x0008, h01=0x0050, text=»A051«, t00=0x001a, t01=0x013c}
0x29da…29fa              Head {h00=0x001c, h01=0x0050, text=» B APK CPR NOT NECESSARY«, t00=0x001a, t01=0x0148}
0x29fa…2a16              Head {h00=0x0018, h01=0x0050, text=»A053   CPR NECESSARY«, t00=0x001a, t01=0x0168}
0x2a16…2a2e              Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX,  C«, t00=0x001a, t01=0x0184}
0x2a2e…2a60              Head {h00=0x002e, h01=0x0050, text=»  A054,A055,A054,A054,A055,A054,A055,A055 «, t00=0x001b, t01=0x000c}
0x2a60…2a6c              Head {h00=0x0008, h01=0x0050, text=»A054«, t00=0x001b, t01=0x003e}
0x2a6c…2a7a              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001b, t01=0x004a}
0x2a7a…2a86              Head {h00=0x0008, h01=0x0050, text=»A055«, t00=0x001b, t01=0x0058}
0x2a86…2aac              Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A056 ERROR «, t00=0x001b, t01=0x0064}
0x2aac…2aca              Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x001b, t01=0x008a}
0x2aca…2ada              Head {h00=0x000c, h01=0x0050, text=» B A054 «, t00=0x001b, t01=0x00a8}
0x2ada…2ae6              Head {h00=0x0008, h01=0x0050, text=»A056«, t00=0x001b, t01=0x00b8}
0x2ae6…2b02              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'19'«, t00=0x001b, t01=0x00c4}
0x2b02…2b10              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x00e0}
0x2b10…2b1c              Head {h00=0x0008, h01=0x0050, text=»A058«, t00=0x001b, t01=0x00ee}
0x2b1c…2b46              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'3' SET ERRORCODE «, t00=0x001b, t01=0x00fa}
0x2b46…2b54              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x0124}
0x2b54…2b66              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x0132}
0x2b66…2b88              Head {h00=0x001e, h01=0x0050, text=»A06   CHECK CPR/CIR NUMBER«, t00=0x001b, t01=0x0144}
0x2b88…2bb0              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001b, t01=0x0166}
0x2bb0…2bea              Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x001b, t01=0x018e}
0x2bea…2c14              Head {h00=0x0026, h01=0x0050, text=» SET BCPR SET CPR-SWITCH (CPR-NO) «, t00=0x001c, t01=0x0038}
0x2c14…2c32              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001c, t01=0x0062}
0x2c32…2c54              Head {h00=0x001e, h01=0x0050, text=» CMP GSWBCD1,=D'10000000' «, t00=0x001c, t01=0x0080}
0x2c54…2c64              Head {h00=0x000c, h01=0x0050, text=» BL A061«, t00=0x001c, t01=0x00a2}
0x2c64…2c80              Head {h00=0x0018, h01=0x0050, text=» SET BLEV LEVERAND. «, t00=0x001c, t01=0x00b2}
0x2c80…2ca4              Head {h00=0x0020, h01=0x0050, text=» CMP GSWBCD1,=D'3200000000' «, t00=0x001c, t01=0x00ce}
0x2ca4…2cb4              Head {h00=0x000c, h01=0x0050, text=» BG APK «, t00=0x001c, t01=0x00f2}
0x2cb4…2ccc              Head {h00=0x0014, h01=0x0050, text=» CLEAR BLEV CPR.«, t00=0x001c, t01=0x0102}
0x2ccc…2cda              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001c, t01=0x011a}
0x2cda…2ce6              Head {h00=0x0008, h01=0x0050, text=»A061«, t00=0x001c, t01=0x0128}
0x2ce6…2d14              Head {h00=0x002a, h01=0x0050, text=» CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) «, t00=0x001c, t01=0x0134}
0x2d14…2d22              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001c, t01=0x0162}
0x2d22…2d34              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0170}
0x2d34…2d5c              Head {h00=0x0024, h01=0x0050, text=»A54   FIELD 54 HAS BEEN ENTERED «, t00=0x001c, t01=0x0182}
0x2d5c…2d98              Head {h00=0x0038, h01=0x0050, text=» MOVE GSSWITCH(CBIN2),CBIN1 AND SHOULD BE AUTODUPPED«, t00=0x001d, t01=0x001a}
0x2d98…2da6              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001d, t01=0x0056}
0x2da6…2db4              Head {h00=0x000a, h01=0x0050, text=»******«, t00=0x001d, t01=0x0064}
0x2db4…2dc0              Head {h00=0x0008, h01=0x0050, text=»A065«, t00=0x001d, t01=0x0072}
0x2dc0…2dfa              Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) «, t00=0x001d, t01=0x007e}
0x2dfa…2e2a              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE «, t00=0x001d, t01=0x00b8}
0x2e2a…2e34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e8}
0x2e34…2e5c              Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM ROUTINE «, t00=0x001d, t01=0x00f2}
0x2e5c…2e6c              Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001d, t01=0x011a}
0x2e6c…2e8e              Head {h00=0x001e, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE «, t00=0x001d, t01=0x012a}
0x2e8e…2e9e              Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001d, t01=0x014c}
0x2e9e…2ea8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2ea8…2ed4              Head {h00=0x0028, h01=0x0050, text=»*          CHECK FOR VALID TRANSTYPE«, t00=0x001d, t01=0x0166}
0x2ed4…2ede (30, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0004}
0x2ede…2efe              Head {h00=0x001c, h01=0x0050, text=»*          ADJUST REGDEX«, t00=0x001e, t01=0x000e}
0x2efe…2f0c              Head {h00=0x000a, h01=0x0050, text=»A0655 «, t00=0x001e, t01=0x002e}
0x2f0c…2f16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f16…2f32              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001e, t01=0x0046}
0x2f32…2f6e              Head {h00=0x0038, h01=0x0050, text=»*   TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION«, t00=0x001e, t01=0x0062}
0x2f6e…2f88              Head {h00=0x0016, h01=0x0050, text=» TBT GTKASSE,A0672«, t00=0x001e, t01=0x009e}
0x2f88…2fc2              Head {h00=0x0036, h01=0x0050, text=» CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE «, t00=0x001e, t01=0x00b8}
0x2fc2…2fd2              Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x001e, t01=0x00f2}
0x2fd2…2fe0              Head {h00=0x000a, h01=0x0050, text=»A0672 «, t00=0x001e, t01=0x0102}
0x2fe0…3012              Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE «, t00=0x001e, t01=0x0110}
0x3012…301a              Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0142}
0x301a…302a              Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x001e, t01=0x014a}
0x302a…3034              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x015a}
0x3034…3040              Head {h00=0x0008, h01=0x0050, text=»A067«, t00=0x001e, t01=0x0164}
0x3040…3080              Head {h00=0x003c, h01=0x0050, text=» CBE GSWBCD3,CREGTAB(GSWBIN1,GTCLASS),A068 SEARCH REGNR «, t00=0x001e, t01=0x0170}
0x3080…30aa              Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CBIN1 ADD 1 TO INDEX «, t00=0x001f, t01=0x0020}
0x30aa…30ea              Head {h00=0x003c, h01=0x0050, text=» CBNE CREGTAB(GSWBIN1,GTCLASS),=D'-1',A067 END OF TABLE?«, t00=0x001f, t01=0x004a}
0x30ea…30f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008a}
0x30f4…3102              Head {h00=0x000a, h01=0x0050, text=»A0675 «, t00=0x001f, t01=0x0094}
0x3102…3130              Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,=W'9' INVALID TRANSTYPE «, t00=0x001f, t01=0x00a2}
0x3130…313e              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001f, t01=0x00d0}
0x313e…314a              Head {h00=0x0008, h01=0x0050, text=»A068«, t00=0x001f, t01=0x00de}
0x314a…3170              Head {h00=0x0022, h01=0x0050, text=»   TAKE CARE OF NEW TRANSTYPE «, t00=0x001f, t01=0x00ea}
0x3170…31aa              Head {h00=0x0036, h01=0x0050, text=» CBE SPBINW2,=W'18',A06KRE HANDLING OF KREDIT KEY «, t00=0x001f, t01=0x0110}
0x31aa…31da              Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,=W'17',A06DEB SLUT/DEB KEY «, t00=0x001f, t01=0x014a}
0x31da…3212              Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,=W'3',A06DEB HANDLING OF DEBIT KEY «, t00=0x001f, t01=0x017a}
0x3212…3244              Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,=W'4' HANDLING OF WRONG KEY «, t00=0x0020, t01=0x0022}
0x3244…3252              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0020, t01=0x0054}
0x3252…3260              Head {h00=0x000a, h01=0x0050, text=»A06KRE«, t00=0x0020, t01=0x0062}
0x3260…3274              Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0020, t01=0x0070}
0x3274…3284              Head {h00=0x000c, h01=0x0050, text=» B A066 «, t00=0x0020, t01=0x0084}
0x3284…3292              Head {h00=0x000a, h01=0x0050, text=»A06DEB«, t00=0x0020, t01=0x0094}
0x3292…32a6              Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0020, t01=0x00a2}
0x32a6…32b2              Head {h00=0x0008, h01=0x0050, text=»A066«, t00=0x0020, t01=0x00b6}
0x32b2…32d0              Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGNR,GSWBCD3 «, t00=0x0020, t01=0x00c2}
0x32d0…32ee              Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGDEX,GSWBIN1«, t00=0x0020, t01=0x00e0}
0x32ee…331a              Head {h00=0x0028, h01=0x0050, text=» SET GTREGFLG VALID TRANSTYPE FOUND «, t00=0x0020, t01=0x00fe}
0x331a…3340              Head {h00=0x0022, h01=0x0050, text=» SET TTEORFLG START NEW TRANS «, t00=0x0020, t01=0x012a}
0x3340…3354              Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0020, t01=0x0150}
0x3354…335e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0164}
0x335e…3398              Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED«, t00=0x0020, t01=0x016e}
0x3398…33a6              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x0018}
0x33a6…33b8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0021, t01=0x0026}
0x33b8…33d0              Head {h00=0x0014, h01=0x0050, text=»A07   BKO FIELD «, t00=0x0021, t01=0x0038}
0x33d0…33f2              Head {h00=0x001e, h01=0x0050, text=»   INSERT TEXT IN TT07TXT «, t00=0x0021, t01=0x0050}
0x33f2…3408              Head {h00=0x0012, h01=0x0050, text=» CLEAR TTASKAT«, t00=0x0021, t01=0x0072}
0x3408…3426              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0021, t01=0x0088}
0x3426…3448              Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD3,=D'51',A070 «, t00=0x0021, t01=0x00a6}
0x3448…345c              Head {h00=0x0010, h01=0x0050, text=» SET TTASKAT«, t00=0x0021, t01=0x00c8}
0x345c…3468              Head {h00=0x0008, h01=0x0050, text=»A070«, t00=0x0021, t01=0x00dc}
0x3468…348a              Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A0705«, t00=0x0021, t01=0x00e8}
0x348a…34b2              Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'51',A076 TRANS 3«, t00=0x0021, t01=0x010a}
0x34b2…34d2              Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD3,=D'52',A076«, t00=0x0021, t01=0x0132}
0x34d2…34e0              Head {h00=0x000a, h01=0x0050, text=»A0705 «, t00=0x0021, t01=0x0152}
0x34e0…3510              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING«, t00=0x0021, t01=0x0160}
0x3510…3542              Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0021, t01=0x0190}
0x3542…3560              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,TT07TXT «, t00=0x0022, t01=0x0032}
0x3560…357e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD3 «, t00=0x0022, t01=0x0050}
0x357e…359c              Head {h00=0x001a, h01=0x0050, text=» MOVE TT07TXT,CBLANKS «, t00=0x0022, t01=0x006e}
0x359c…35cc              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER «, t00=0x0022, t01=0x008c}
0x35cc…35e8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0022, t01=0x00bc}
0x35e8…3608              Head {h00=0x001c, h01=0x0050, text=» CBNG SPBINW1,=W'2',A071«, t00=0x0022, t01=0x00d8}
0x3608…363e              Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX «, t00=0x0022, t01=0x00f8}
0x363e…364a              Head {h00=0x0008, h01=0x0050, text=»A071«, t00=0x0022, t01=0x012e}
0x364a…3664              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN7«, t00=0x0022, t01=0x013a}
0x3664…3672              Head {h00=0x000a, h01=0x0050, text=»A0708 «, t00=0x0022, t01=0x0154}
0x3672…368c              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN7«, t00=0x0022, t01=0x0162}
0x368c…36ae              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,A075 «, t00=0x0022, t01=0x017c}
0x36ae…36e8              Head {h00=0x0036, h01=0x0050, text=» MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2«, t00=0x0023, t01=0x000e}
0x36e8…36fc              Head {h00=0x0010, h01=0x0050, text=» BNOK A0708 «, t00=0x0023, t01=0x0048}
0x36fc…3720              Head {h00=0x0020, h01=0x0050, text=»*  NEXT 5 CHARS CONTAIN TEXT«, t00=0x0023, t01=0x005c}
0x3720…373a              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'2'«, t00=0x0023, t01=0x0080}
0x373a…376c              Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0023, t01=0x009a}
0x376c…378e              Head {h00=0x001e, h01=0x0050, text=»*          SEE IF ALLOWED «, t00=0x0023, t01=0x00cc}
0x378e…37ca              Head {h00=0x0038, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3 «, t00=0x0023, t01=0x00ee}
0x37ca…37e4              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'5'«, t00=0x0023, t01=0x012a}
0x37e4…3802              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR2,CBLANKS «, t00=0x0023, t01=0x0144}
0x3802…383c              Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE«, t00=0x0023, t01=0x0162}
0x383c…385a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR2 «, t00=0x0024, t01=0x000c}
0x385a…387c              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',A077 OK«, t00=0x0024, t01=0x002a}
0x387c…38a8              Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN2),=D'10000000',A072«, t00=0x0024, t01=0x004c}
0x38a8…38da              Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED «, t00=0x0024, t01=0x0078}
0x38da…38ea              Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0024, t01=0x00aa}
0x38ea…38f6              Head {h00=0x0008, h01=0x0050, text=»A072«, t00=0x0024, t01=0x00ba}
0x38f6…3928              Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED «, t00=0x0024, t01=0x00c6}
0x3928…3938              Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0024, t01=0x00f8}
0x3938…3944              Head {h00=0x0008, h01=0x0050, text=»A075«, t00=0x0024, t01=0x0108}
0x3944…395e              Head {h00=0x0016, h01=0x0050, text=» TBT CBKOFLG,A077 «, t00=0x0024, t01=0x0114}
0x395e…396a              Head {h00=0x0008, h01=0x0050, text=»A076«, t00=0x0024, t01=0x012e}
0x396a…3986              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0024, t01=0x013a}
0x3986…3994              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0024, t01=0x0156}
0x3994…39a0              Head {h00=0x0008, h01=0x0050, text=»A077«, t00=0x0024, t01=0x0164}
0x39a0…39ae              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0024, t01=0x0170}
0x39ae…39c0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x017e}
0x39c0…39e8              Head {h00=0x0024, h01=0x0050, text=»A11   CHECK VAL DATE NOT GREATER«, t00=0x0024, t01=0x0190}
0x39e8…3a02              Head {h00=0x0016, h01=0x0050, text=»   THAN POST DATE «, t00=0x0025, t01=0x0028}
0x3a02…3a2c              Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'3',A0110 TRANS 3 «, t00=0x0025, t01=0x0042}
0x3a2c…3a56              Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'4',A0110 TRANS 4 «, t00=0x0025, t01=0x006c}
0x3a56…3a64              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0025, t01=0x0096}
0x3a64…3a72              Head {h00=0x000a, h01=0x0050, text=»A0110 «, t00=0x0025, t01=0x00a4}
0x3a72…3a9a              Head {h00=0x0024, h01=0x0050, text=»*     GET AND CHANGE VALOERDATE «, t00=0x0025, t01=0x00b2}
0x3a9a…3ab8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0025, t01=0x00da}
0x3ab8…3ae8              Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12«, t00=0x0025, t01=0x00f8}
0x3ae8…3b18              Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8«, t00=0x0025, t01=0x0128}
0x3b18…3b48              Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0025, t01=0x0158}
0x3b48…3b6e              Head {h00=0x0022, h01=0x0050, text=»*     GET AND CHANGE POSTDATE «, t00=0x0025, t01=0x0188}
0x3b6e…3b8a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,GTDATO«, t00=0x0026, t01=0x001e}
0x3b8a…3bba              Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12«, t00=0x0026, t01=0x003a}
0x3bba…3bea              Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN12,CBIN2,GSWBCD1,CBIN8«, t00=0x0026, t01=0x006a}
0x3bea…3c1a              Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0026, t01=0x009a}
0x3c1a…3c30              Head {h00=0x0012, h01=0x0050, text=»*     COMPARE «, t00=0x0026, t01=0x00ca}
0x3c30…3c4c              Head {h00=0x0018, h01=0x0050, text=» CMP GSWBCD6,GSWBCD1«, t00=0x0026, t01=0x00e0}
0x3c4c…3c5c              Head {h00=0x000c, h01=0x0050, text=» BNG APK«, t00=0x0026, t01=0x00fc}
0x3c5c…3c78              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'7' «, t00=0x0026, t01=0x010c}
0x3c78…3c86              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0026, t01=0x0128}
0x3c86…3c98              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0136}
0x3c98…3cbe              Head {h00=0x0022, h01=0x0050, text=»A17   CHECK 'FORFALDSAAR' FAAR«, t00=0x0026, t01=0x0148}
0x3cbe…3cd4              Head {h00=0x0012, h01=0x0050, text=»   FAAR >= 70 «, t00=0x0026, t01=0x016e}
0x3cd4…3cec              Head {h00=0x0014, h01=0x0050, text=»   FAAR <= YY+2 «, t00=0x0026, t01=0x0184}
0x3cec…3d12              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET FAAR«, t00=0x0027, t01=0x000c}
0x3d12…3d48              Head {h00=0x0032, h01=0x0050, text=» CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR«, t00=0x0027, t01=0x0032}
0x3d48…3d72              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD1,GTDATO GET POSTDATO «, t00=0x0027, t01=0x0068}
0x3d72…3d8e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'2' «, t00=0x0027, t01=0x0092}
0x3d8e…3dc8              Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR «, t00=0x0027, t01=0x00ae}
0x3dc8…3de8              Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD3,=D'2' ADD 2«, t00=0x0027, t01=0x00e8}
0x3de8…3e1a              Head {h00=0x002e, h01=0x0050, text=» CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2«, t00=0x0027, t01=0x0108}
0x3e1a…3e28              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0027, t01=0x013a}
0x3e28…3e36              Head {h00=0x000a, h01=0x0050, text=»A17ERR«, t00=0x0027, t01=0x0148}
0x3e36…3e62              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID NUMBER «, t00=0x0027, t01=0x0156}
0x3e62…3e70              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0027, t01=0x0182}
0x3e70…3e82              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x0190}
0x3e82…3e8e              Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x0028, t01=0x0012}
0x3e8e…3ec6              Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' «, t00=0x0028, t01=0x001e}
0x3ec6…3ee6              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'5',A649 «, t00=0x0028, t01=0x0056}
0x3ee6…3f06              Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'0',A649 «, t00=0x0028, t01=0x0076}
0x3f06…3f2e              Head {h00=0x0024, h01=0x0050, text=»   FIELD 64 HAS BEEN ENTERED AND«, t00=0x0028, t01=0x0096}
0x3f2e…3f68              Head {h00=0x0036, h01=0x0050, text=» MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED«, t00=0x0028, t01=0x00be}
0x3f68…3f76              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0028, t01=0x00f8}
0x3f76…3f82              Head {h00=0x0008, h01=0x0050, text=»A649«, t00=0x0028, t01=0x0106}
0x3f82…3f9e              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'10'«, t00=0x0028, t01=0x0112}
0x3f9e…3fac              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0028, t01=0x012e}
0x3fac…3fbe              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x013c}
0x3fbe…3fe2              Head {h00=0x0020, h01=0x0050, text=»A65   CHECK VALUE 1000-3999 «, t00=0x0028, t01=0x014e}
0x3fe2…400a              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT GET VALUE «, t00=0x0028, t01=0x0172}
0x400a…402c              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD4,=D'3999',A659«, t00=0x0029, t01=0x000a}
0x402c…404e              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD4,=D'1000',A659«, t00=0x0029, t01=0x002c}
0x404e…405c              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0029, t01=0x004e}
0x405c…4068              Head {h00=0x0008, h01=0x0050, text=»A659«, t00=0x0029, t01=0x005c}
0x4068…4084              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0029, t01=0x0068}
0x4084…4092              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0084}
0x4092…40a4              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0092}
0x40a4…40c8              Head {h00=0x0020, h01=0x0050, text=»A70   KONTONR WITHOUT CHECK «, t00=0x0029, t01=0x00a4}
0x40c8…40e4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'5' «, t00=0x0029, t01=0x00c8}
0x40e4…40fe              Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x0029, t01=0x00e4}
0x40fe…411c              Head {h00=0x001a, h01=0x0050, text=» BL A065 IF LENGTH < 3«, t00=0x0029, t01=0x00fe}
0x411c…4138              Head {h00=0x0018, h01=0x0050, text=» B APK NEW TRANSTYPE«, t00=0x0029, t01=0x011c}
0x4138…414a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0138}
0x414a…4156              Head {h00=0x0008, h01=0x0050, text=»A71 «, t00=0x0029, t01=0x014a}
0x4156…4186              Head {h00=0x002c, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN1 SET AUTODUP «, t00=0x0029, t01=0x0156}
0x4186…41a2              Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,SPINPUT «, t00=0x0029, t01=0x0186}
0x41a2…41cc              Head {h00=0x0026, h01=0x0050, text=» SUB GTSUM,=D'1' SUB 1 FROM ANTAL «, t00=0x002a, t01=0x0012}
0x41cc…41e8              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,GTSUM «, t00=0x002a, t01=0x003c}
0x41e8…4206              Head {h00=0x001a, h01=0x0050, text=» CBL GTSUM,=D'0',A715 «, t00=0x002a, t01=0x0058}
0x4206…4228              Head {h00=0x001e, h01=0x0050, text=» CMP GTSUM,=D'12' IF > 12 «, t00=0x002a, t01=0x0076}
0x4228…4238              Head {h00=0x000c, h01=0x0050, text=» BL ART «, t00=0x002a, t01=0x0098}
0x4238…4244              Head {h00=0x0008, h01=0x0050, text=»A715«, t00=0x002a, t01=0x00a8}
0x4244…426e              Head {h00=0x0026, h01=0x0050, text=» MOVE SPINPUT,=C'51' SIMULATE NEW «, t00=0x002a, t01=0x00b4}
0x426e…4294              Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'3' TRANSTYPE «, t00=0x002a, t01=0x00de}
0x4294…42c6              Head {h00=0x002e, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN0 DELETE AUTODUP«, t00=0x002a, t01=0x0104}
0x42c6…42d6              Head {h00=0x000c, h01=0x0050, text=» B A065 «, t00=0x002a, t01=0x0136}
0x42d6…42e8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0146}
0x42e8…430a              Head {h00=0x001e, h01=0x0050, text=»A76   COUNTER NO, TRANS 12«, t00=0x002a, t01=0x0158}
0x430a…4324              Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x002a, t01=0x017a}
0x4324…4348 (43, 0, 400) Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x002b, t01=0x0004}
0x4348…4370              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x002b, t01=0x0028}
0x4370…438e              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCNTNR,SPINPUT «, t00=0x002b, t01=0x0050}
0x438e…43b4              Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD3,=D'100' GET INDEX«, t00=0x002b, t01=0x006e}
0x43b4…43d2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x002b, t01=0x0094}
0x43d2…4400              Head {h00=0x002a, h01=0x0050, text=» CBG GSWBIN1,CTR12(GTUWB,CBIN2),A76NOK«, t00=0x002b, t01=0x00b2}
0x4400…4430              Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO«, t00=0x002b, t01=0x00e0}
0x4430…4458              Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN1,CTR12(GTUWB,CBIN1) «, t00=0x002b, t01=0x0110}
0x4458…4482              Head {h00=0x0026, h01=0x0050, text=» CBE CTR12NR(GSWBIN1),=D'0',A76NOK«, t00=0x002b, t01=0x0138}
0x4482…4498              Head {h00=0x0012, h01=0x0050, text=»   MUST BE > 0«, t00=0x002b, t01=0x0162}
0x4498…44ba              Head {h00=0x001e, h01=0x0050, text=» B ART TO WRITE ON SCREEN «, t00=0x002b, t01=0x0178}
0x44ba…44c8              Head {h00=0x000a, h01=0x0050, text=»A76NOK«, t00=0x002c, t01=0x000a}
0x44c8…44e4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'18'«, t00=0x002c, t01=0x0018}
0x44e4…44f2              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002c, t01=0x0034}
0x44f2…4504              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x0042}
0x4504…4526              Head {h00=0x001e, h01=0x0050, text=»A77   INSERT 51,52 IN TR 4«, t00=0x002c, t01=0x0054}
0x4526…454a              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x002c, t01=0x0076}
0x454a…456c              Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW1,=W'2' LENGTH«, t00=0x002c, t01=0x009a}
0x456c…4582              Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A775«, t00=0x002c, t01=0x00bc}
0x4582…45ae              Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x002c, t01=0x00d2}
0x45ae…45bc              Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x002c, t01=0x00fe}
0x45bc…45c8              Head {h00=0x0008, h01=0x0050, text=»A775«, t00=0x002c, t01=0x010c}
0x45c8…45f4              Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x002c, t01=0x0118}
0x45f4…4602              Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x002c, t01=0x0144}
0x4602…4614              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x0152}
0x4614…4634              Head {h00=0x001c, h01=0x0050, text=»A78   INSERT ACCOUNT NO «, t00=0x002c, t01=0x0164}
0x4634…4644              Head {h00=0x000c, h01=0x0050, text=»   11-15«, t00=0x002c, t01=0x0184}
0x4644…4670 (45, 0, 400) Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'5' SIMULATE FIELD 5«, t00=0x002d, t01=0x0004}
0x4670…467e              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002d, t01=0x0030}
0x467e…468e              Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x002d, t01=0x003e}
0x468e…46ae              Head {h00=0x001c, h01=0x0050, text=»A79   AUTODUP ACCOUNT NO«, t00=0x002d, t01=0x004e}
0x46ae…46d4              Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'5' IN FIELD 5«, t00=0x002d, t01=0x006e}
0x46d4…4700              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR GET COUNTER NO«, t00=0x002d, t01=0x0094}
0x4700…471c              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN1,=W'100'«, t00=0x002d, t01=0x00c0}
0x471c…4744              Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN1,CTR12(GTUWB,CBIN1) «, t00=0x002d, t01=0x00dc}
0x4744…476a              Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,CTR12NR(GSWBIN1)«, t00=0x002d, t01=0x0104}
0x476a…478e              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW1,=W'10' LENGTH «, t00=0x002d, t01=0x012a}
0x478e…479c              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002d, t01=0x014e}
0x479c…47ae              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x015c}
0x47ae…47d4              Head {h00=0x0022, h01=0x0050, text=»A80   CHECK HOVEDBOG, KONTONR «, t00=0x002d, t01=0x016e}
0x47d4…47f8 (46, 0, 400) Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x002e, t01=0x0004}
0x47f8…4828              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'2' MIGHT BE TRANSTYPE 2«, t00=0x002e, t01=0x0028}
0x4828…4854              Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x002e, t01=0x0058}
0x4854…4880              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A801 MUST BE 10 «, t00=0x002e, t01=0x0084}
0x4880…48a8              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x002e, t01=0x00b0}
0x48a8…48b6              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002e, t01=0x00d8}
0x48b6…48c2              Head {h00=0x0008, h01=0x0050, text=»A801«, t00=0x002e, t01=0x00e6}
0x48c2…48e0              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x002e, t01=0x00f2}
0x48e0…4904              Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x002e, t01=0x0110}
0x4904…4926              Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x002e, t01=0x0134}
0x4926…4944              Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x002e, t01=0x0156}
0x4944…4956              Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x002e, t01=0x0174}
0x4956…4978              Head {h00=0x001e, h01=0x0050, text=»A805   CHECK FUNCTION KEYS«, t00=0x002e, t01=0x0186}
0x4978…4994              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x002f, t01=0x0018}
0x4994…49b8              Head {h00=0x0020, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM KEY «, t00=0x002f, t01=0x0034}
0x49b8…49c8              Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x002f, t01=0x0058}
0x49c8…49ee              Head {h00=0x0022, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE KEY «, t00=0x002f, t01=0x0068}
0x49ee…49fe              Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x002f, t01=0x008e}
0x49fe…4a26              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x002f, t01=0x009e}
0x4a26…4a34              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002f, t01=0x00c6}
0x4a34…4a46              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x00d4}
0x4a46…4a6e              Head {h00=0x0024, h01=0x0050, text=»A81   CHECK HOVEDBOG, CPR/CIR/NR«, t00=0x002f, t01=0x00e6}
0x4a6e…4a92              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x002f, t01=0x010e}
0x4a92…4ac4              Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1 «, t00=0x002f, t01=0x0132}
0x4ac4…4af0              Head {h00=0x0028, h01=0x0050, text=» CBG SPBINW1,=W'2',A811 CHECK LENGTH«, t00=0x002f, t01=0x0164}
0x4af0…4b18              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x002f, t01=0x0190}
0x4b18…4b26              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0030, t01=0x0028}
0x4b26…4b42              Head {h00=0x0018, h01=0x0050, text=»A811   CPR OR CIR ? «, t00=0x0030, t01=0x0036}
0x4b42…4b5e              Head {h00=0x0018, h01=0x0050, text=» SET BCPR SET CPR NO«, t00=0x0030, t01=0x0052}
0x4b5e…4b7c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0030, t01=0x006e}
0x4b7c…4ba2              Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A814«, t00=0x0030, t01=0x008c}
0x4ba2…4bb4              Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x0030, t01=0x00b2}
0x4bb4…4bdc              Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A812«, t00=0x0030, t01=0x00c4}
0x4bdc…4bf0              Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0030, t01=0x00ec}
0x4bf0…4c00              Head {h00=0x000c, h01=0x0050, text=» B A812 «, t00=0x0030, t01=0x0100}
0x4c00…4c0c              Head {h00=0x0008, h01=0x0050, text=»A814«, t00=0x0030, t01=0x0110}
0x4c0c…4c2a              Head {h00=0x001a, h01=0x0050, text=» CLEAR BCPR SET CIR NO«, t00=0x0030, t01=0x011c}
0x4c2a…4c36              Head {h00=0x0008, h01=0x0050, text=»A812«, t00=0x0030, t01=0x013a}
0x4c36…4c58              Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0030, t01=0x0146}
0x4c58…4c76              Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0030, t01=0x0168}
0x4c76…4c88              Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0030, t01=0x0186}
0x4c88…4c9a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0008}
0x4c9a…4cc0              Head {h00=0x0022, h01=0x0050, text=»A82   CHECK HOVEDBOG, YD.MODT.«, t00=0x0031, t01=0x001a}
0x4cc0…4ce6              Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x0031, t01=0x0040}
0x4ce6…4d16              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'6' MIGHT BE TRANSTYPE 6«, t00=0x0031, t01=0x0066}
0x4d16…4d22              Head {h00=0x0008, h01=0x0050, text=»A821«, t00=0x0031, t01=0x0096}
0x4d22…4d50              Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,=W'3',A822 IF ENTER KEY,«, t00=0x0031, t01=0x00a2}
0x4d50…4d80              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,=W'17' SIMULATE DEBET KEY «, t00=0x0031, t01=0x00d0}
0x4d80…4d8c              Head {h00=0x0008, h01=0x0050, text=»A822«, t00=0x0031, t01=0x0100}
0x4d8c…4dae              Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0031, t01=0x010c}
0x4dae…4dcc              Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0031, t01=0x012e}
0x4dcc…4dde              Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0031, t01=0x014c}
0x4dde…4df0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x015e}
0x4df0…4e18              Head {h00=0x0024, h01=0x0050, text=»A83   CHECK DEBITOR, DEBITOR NR «, t00=0x0031, t01=0x0170}
0x4e18…4e3c              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0032, t01=0x0008}
0x4e3c…4e66              Head {h00=0x0026, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 FUNCTION? «, t00=0x0032, t01=0x002c}
0x4e66…4e86              Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW1,=W'7',A833 «, t00=0x0032, t01=0x0056}
0x4e86…4eb6              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'4' MIGHT BE TRANSTYPE 4«, t00=0x0032, t01=0x0076}
0x4eb6…4ed0              Head {h00=0x0016, h01=0x0050, text=» SET BCPR SET CPR «, t00=0x0032, t01=0x00a6}
0x4ed0…4eee              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0032, t01=0x00c0}
0x4eee…4f14              Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A831«, t00=0x0032, t01=0x00de}
0x4f14…4f26              Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x0032, t01=0x0104}
0x4f26…4f4e              Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A832«, t00=0x0032, t01=0x0116}
0x4f4e…4f62              Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0032, t01=0x013e}
0x4f62…4f72              Head {h00=0x000c, h01=0x0050, text=» B A832 «, t00=0x0032, t01=0x0152}
0x4f72…4f7e              Head {h00=0x0008, h01=0x0050, text=»A831«, t00=0x0032, t01=0x0162}
0x4f7e…4f9a              Head {h00=0x0018, h01=0x0050, text=» CLEAR BCPR SET CIR «, t00=0x0032, t01=0x016e}
0x4f9a…4fa6              Head {h00=0x0008, h01=0x0050, text=»A832«, t00=0x0032, t01=0x018a}
0x4fa6…4fba              Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x0033, t01=0x0008}
0x4fba…4fcc              Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x0033, t01=0x001c}
0x4fcc…4fe8              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'3' «, t00=0x0033, t01=0x002e}
0x4fe8…4ff6              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0033, t01=0x004a}
0x4ff6…5002              Head {h00=0x0008, h01=0x0050, text=»A833«, t00=0x0033, t01=0x0058}
0x5002…502a              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0033, t01=0x0064}
0x502a…5038              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0033, t01=0x008c}
0x5038…504a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x009a}
0x504a…506a              Head {h00=0x001c, h01=0x0050, text=»A84   CHECK DEBITOR, BKO«, t00=0x0033, t01=0x00ac}
0x506a…508e              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x0033, t01=0x00cc}
0x508e…50be              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3«, t00=0x0033, t01=0x00f0}
0x50be…50de              Head {h00=0x001c, h01=0x0050, text=» CBNE SPBINW2,=W'3',A842«, t00=0x0033, t01=0x0120}
0x50de…50fa              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'17'«, t00=0x0033, t01=0x0140}
0x50fa…5106              Head {h00=0x0008, h01=0x0050, text=»A842«, t00=0x0033, t01=0x015c}
0x5106…5124              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0033, t01=0x0168}
0x5124…5146              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+51',A845 «, t00=0x0033, t01=0x0186}
0x5146…5168              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+52',A845 «, t00=0x0034, t01=0x0018}
0x5168…5174              Head {h00=0x0008, h01=0x0050, text=»A843«, t00=0x0034, t01=0x003a}
0x5174…5188              Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x0034, t01=0x0046}
0x5188…519a              Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x0034, t01=0x005a}
0x519a…51a8              Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0034, t01=0x006c}
0x51a8…51b4              Head {h00=0x0008, h01=0x0050, text=»A845«, t00=0x0034, t01=0x007a}
0x51b4…51d0              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW5,=W'4' «, t00=0x0034, t01=0x0086}
0x51d0…51e0              Head {h00=0x000c, h01=0x0050, text=» B A843 «, t00=0x0034, t01=0x00a2}
0x51e0…51f2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x00b2}
0x51f2…521a              Head {h00=0x0024, h01=0x0050, text=»A85   CHECK REMITTERING, KONTONR«, t00=0x0034, t01=0x00c4}
0x521a…523e              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x0034, t01=0x00ec}
0x523e…526a              Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x0034, t01=0x0110}
0x526a…5296              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A850 MUST BE 10 «, t00=0x0034, t01=0x013c}
0x5296…52be              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0034, t01=0x0168}
0x52be…52cc              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0190}
0x52cc…52d8              Head {h00=0x0008, h01=0x0050, text=»A850«, t00=0x0035, t01=0x000e}
0x52d8…530c              Head {h00=0x0030, h01=0x0050, text=»  CMP SPBINW2,=W'3'   ONLY ENTER-KEY ALLOWED«, t00=0x0035, t01=0x001a}
0x530c…531e              Head {h00=0x000e, h01=0x0050, text=» BNE A855 «, t00=0x0035, t01=0x004e}
0x531e…533c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0035, t01=0x0060}
0x533c…5360              Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x0035, t01=0x007e}
0x5360…536e              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0035, t01=0x00a2}
0x536e…537a              Head {h00=0x0008, h01=0x0050, text=»A855«, t00=0x0035, t01=0x00b0}
0x537a…53a2              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x0035, t01=0x00bc}
0x53a2…53b0              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0035, t01=0x00e4}
0x53b0…53c2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x00f2}
0x53c2…53ea              Head {h00=0x0024, h01=0x0050, text=»A86   CHECK REMITTERING, LEV.NR.«, t00=0x0035, t01=0x0104}
0x53ea…540e              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0035, t01=0x012c}
0x540e…543e              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'8' MIGHT BE TRANSTYPE 8«, t00=0x0035, t01=0x0150}
0x543e…5474              Head {h00=0x0032, h01=0x0050, text=» CBG SPBINW1,=W'2',A811 CHECK LENGTH + CPR/CIR«, t00=0x0035, t01=0x0180}
0x5474…549c              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0036, t01=0x0026}
0x549c…54aa              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0036, t01=0x004e}
0x54aa…54bc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x005c}
0x54bc…54e6              Head {h00=0x0026, h01=0x0050, text=»A87   CHECK REMITTERING, YD.MODT. «, t00=0x0036, t01=0x006e}
0x54e6…550c              Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x0036, t01=0x0098}
0x550c…553c              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'9' MIGHT BE TRANSTYPE 9«, t00=0x0036, t01=0x00be}
0x553c…5562              Head {h00=0x0022, h01=0x0050, text=» B A821 CHECK FOR INVALID KEY «, t00=0x0036, t01=0x00ee}
0x5562…5574              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0114}
0x5574…5580              Head {h00=0x0008, h01=0x0050, text=»A88 «, t00=0x0036, t01=0x0126}
0x5580…55a4              Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x0036, t01=0x0132}
0x55a4…55c0              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'36'«, t00=0x0036, t01=0x0156}
0x55c0…55da              Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW1,='2'«, t00=0x0036, t01=0x0172}
0x55da…55f0              Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A885«, t00=0x0036, t01=0x018c}
0x55f0…561c              Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0037, t01=0x0012}
0x561c…562a              Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0037, t01=0x003e}
0x562a…5636              Head {h00=0x0008, h01=0x0050, text=»A885«, t00=0x0037, t01=0x004c}
0x5636…5662              Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0037, t01=0x0058}
0x5662…5670              Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0037, t01=0x0084}
0x5670…5682              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0092}
0x5682…568e              Head {h00=0x0008, h01=0x0050, text=»A89 «, t00=0x0037, t01=0x00a4}
0x568e…56ba              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'6' STORE IN FIELD 6«, t00=0x0037, t01=0x00b0}
0x56ba…56c8              Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x00dc}
0x56c8…56da              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x00ea}
0x56da…56e6              Head {h00=0x0008, h01=0x0050, text=»A90 «, t00=0x0037, t01=0x00fc}
0x56e6…56fa              Head {h00=0x0010, h01=0x0050, text=» SET TFELT90«, t00=0x0037, t01=0x0108}
0x56fa…570e              Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0037, t01=0x011c}
0x570e…572c              Head {h00=0x001a, h01=0x0050, text=» MOVE GTFELT90,SPINPUT«, t00=0x0037, t01=0x0130}
0x572c…573a              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0037, t01=0x014e}
0x573a…574c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x015c}
0x574c…5758              Head {h00=0x0008, h01=0x0050, text=»A91 «, t00=0x0037, t01=0x016e}
0x5758…576c              Head {h00=0x0010, h01=0x0050, text=» SET TFELT91«, t00=0x0037, t01=0x017a}
0x576c…5780              Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0037, t01=0x018e}
0x5780…579e              Head {h00=0x001a, h01=0x0050, text=» MOVE GTFELT91,SPINPUT«, t00=0x0038, t01=0x0012}
0x579e…57ac              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x0030}
0x57ac…57be              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x003e}
0x57be…57ca              Head {h00=0x0008, h01=0x0050, text=»A92 «, t00=0x0038, t01=0x0050}
0x57ca…57de              Head {h00=0x0010, h01=0x0050, text=» SET TFELT92«, t00=0x0038, t01=0x005c}
0x57de…57f2              Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0038, t01=0x0070}
0x57f2…5810              Head {h00=0x001a, h01=0x0050, text=» MOVE GTFELT92,SPINPUT«, t00=0x0038, t01=0x0084}
0x5810…581e              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x00a2}
0x581e…5830              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x00b0}
0x5830…583c              Head {h00=0x0008, h01=0x0050, text=»A93 «, t00=0x0038, t01=0x00c2}
0x583c…5850              Head {h00=0x0010, h01=0x0050, text=» SET TFELT93«, t00=0x0038, t01=0x00ce}
0x5850…5864              Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0038, t01=0x00e2}
0x5864…5882              Head {h00=0x001a, h01=0x0050, text=» MOVE GTFELT93,SPINPUT«, t00=0x0038, t01=0x00f6}
0x5882…5890              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x0114}
0x5890…58a2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x0122}
0x58a2…58ae              Head {h00=0x0008, h01=0x0050, text=»A94 «, t00=0x0038, t01=0x0134}
0x58ae…58c2              Head {h00=0x0010, h01=0x0050, text=» SET TFELT94«, t00=0x0038, t01=0x0140}
0x58c2…58d6              Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0038, t01=0x0154}
0x58d6…58f4              Head {h00=0x001a, h01=0x0050, text=» MOVE GTFELT94,SPINPUT«, t00=0x0038, t01=0x0168}
0x58f4…5902              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x0186}
0x5902…5914 (57, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0004}
0x5914…5934              Head {h00=0x001c, h01=0x0050, text=»A121   SIMULATE SLUT KEY«, t00=0x0039, t01=0x0016}
0x5934…594c              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLUTFL «, t00=0x0039, t01=0x0036}
0x594c…5964              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTADUPFL «, t00=0x0039, t01=0x004e}
0x5964…598a              Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'17' SLUT KEY «, t00=0x0039, t01=0x0066}
0x598a…59b2              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,=W'0' LENGTH ZERO «, t00=0x0039, t01=0x008c}
0x59b2…59c0              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0039, t01=0x00b4}
0x59c0…59d2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x00c2}
0x59d2…59f2              Head {h00=0x001c, h01=0x0050, text=»A122   ENTER TO SLUT KEY«, t00=0x0039, t01=0x00d4}
0x59f2…5a0c              Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,=W'3'«, t00=0x0039, t01=0x00f4}
0x5a0c…5a1c              Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0039, t01=0x010e}
0x5a1c…5a3a              Head {h00=0x001a, h01=0x0050, text=»  MOVE SPBINW2,=W'17' «, t00=0x0039, t01=0x011e}
0x5a3a…5a4a              Head {h00=0x000c, h01=0x0050, text=»  B ART «, t00=0x0039, t01=0x013c}
0x5a4a…5a5c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x014c}
0x5a5c…5a80              Head {h00=0x0020, h01=0x0050, text=»A100   CHECK TR 12 COUNTERS «, t00=0x0039, t01=0x015e}
0x5a80…5a9e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0039, t01=0x0182}
0x5a9e…5aba              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD1,=D'100'«, t00=0x003a, t01=0x0010}
0x5aba…5ad8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x003a, t01=0x002c}
0x5ad8…5b02              Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN6,CBIN1,A1009 TOO SMALL«, t00=0x003a, t01=0x004a}
0x5b02…5b38              Head {h00=0x0032, h01=0x0050, text=» CBG GSWBIN6,CTR12(GTUWB,CBIN2),A1009 TOO HIGH«, t00=0x003a, t01=0x0074}
0x5b38…5b60              Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CTR12(GTUWB,CBIN1) «, t00=0x003a, t01=0x00aa}
0x5b60…5b6e              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003a, t01=0x00d2}
0x5b6e…5b7c              Head {h00=0x000a, h01=0x0050, text=»A1009 «, t00=0x003a, t01=0x00e0}
0x5b7c…5b98              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003a, t01=0x00ee}
0x5b98…5ba6              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003a, t01=0x010a}
0x5ba6…5bb8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0118}
0x5bb8…5bdc              Head {h00=0x0020, h01=0x0050, text=»A101   CHECK BEHL. COUNTERS «, t00=0x003a, t01=0x012a}
0x5bdc…5bfa              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003a, t01=0x014e}
0x5bfa…5c1c              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',A101ER «, t00=0x003a, t01=0x016c}
0x5c1c…5c3a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x003a, t01=0x018e}
0x5c3a…5c68              Head {h00=0x002a, h01=0x0050, text=» CBG GSWBIN6,CBEH(GTUWB,CBIN2),A101ER «, t00=0x003b, t01=0x001c}
0x5c68…5c8e              Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN6,CBEH(GTUWB,CBIN1)«, t00=0x003b, t01=0x004a}
0x5c8e…5c9c              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003b, t01=0x0070}
0x5c9c…5caa              Head {h00=0x000a, h01=0x0050, text=»A101ER«, t00=0x003b, t01=0x007e}
0x5caa…5cc6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003b, t01=0x008c}
0x5cc6…5cd4              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003b, t01=0x00a8}
0x5cd4…5ce6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x00b6}
0x5ce6…5d08              Head {h00=0x001e, h01=0x0050, text=»A102   CHECK RELATIVE DAY «, t00=0x003b, t01=0x00c8}
0x5d08…5d26              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,CMASKDAT«, t00=0x003b, t01=0x00ea}
0x5d26…5d34              Head {h00=0x000a, h01=0x0050, text=»A102A «, t00=0x003b, t01=0x0108}
0x5d34…5d64              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.«, t00=0x003b, t01=0x0116}
0x5d64…5d8e              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x003b, t01=0x0146}
0x5d8e…5dbc              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN2,CBIN8 SET POINTER TO DAY«, t00=0x003b, t01=0x0170}
0x5dbc…5df6              Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY «, t00=0x003c, t01=0x000e}
0x5df6…5e26              Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY«, t00=0x003c, t01=0x0048}
0x5e26…5e56              Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN2,CBIN2 SET POINTER TO MONTH «, t00=0x003c, t01=0x0078}
0x5e56…5e92              Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH «, t00=0x003c, t01=0x00a8}
0x5e92…5ec4              Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS«, t00=0x003c, t01=0x00e4}
0x5ec4…5eee              Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD3,=D'30' EQUAL IN DAYS «, t00=0x003c, t01=0x0116}
0x5eee…5f0a              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3«, t00=0x003c, t01=0x0140}
0x5f0a…5f3a              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY«, t00=0x003c, t01=0x015c}
0x5f3a…5f54              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD5,=D'5'«, t00=0x003c, t01=0x018c}
0x5f54…5f82              Head {h00=0x002a, h01=0x0050, text=» CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL «, t00=0x003d, t01=0x0016}
0x5f82…5f9e              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,=D'10' «, t00=0x003d, t01=0x0044}
0x5f9e…5fcc              Head {h00=0x002a, h01=0x0050, text=» CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE «, t00=0x003d, t01=0x0060}
0x5fcc…5fde              Head {h00=0x000e, h01=0x0050, text=» B A102END«, t00=0x003d, t01=0x008e}
0x5fde…5fec              Head {h00=0x000a, h01=0x0050, text=»A102ER«, t00=0x003d, t01=0x00a0}
0x5fec…6016              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID VALUE«, t00=0x003d, t01=0x00ae}
0x6016…6026              Head {h00=0x000c, h01=0x0050, text=»A102END «, t00=0x003d, t01=0x00d8}
0x6026…6042              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x003d, t01=0x00e8}
0x6042…6050              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003d, t01=0x0104}
0x6050…6062              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0112}
0x6062…6084              Head {h00=0x001e, h01=0x0050, text=»A103   SET BEHL. COUNTERS «, t00=0x003d, t01=0x0124}
0x6084…60a2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x003d, t01=0x0146}
0x60a2…60c0              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x003d, t01=0x0164}
0x60c0…60e8              Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)«, t00=0x003d, t01=0x0182}
0x60e8…6114              Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A103ER TOO MANY «, t00=0x003e, t01=0x001a}
0x6114…6136              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1035 «, t00=0x003e, t01=0x0046}
0x6136…6150              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003e, t01=0x0068}
0x6150…617a              Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 «, t00=0x003e, t01=0x0082}
0x617a…6194              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x003e, t01=0x00ac}
0x6194…61a2              Head {h00=0x000a, h01=0x0050, text=»A1035 «, t00=0x003e, t01=0x00c6}
0x61a2…61c0              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x003e, t01=0x00d4}
0x61c0…61ea              Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 «, t00=0x003e, t01=0x00f2}
0x61ea…61f8              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003e, t01=0x011c}
0x61f8…6206              Head {h00=0x000a, h01=0x0050, text=»A103ER«, t00=0x003e, t01=0x012a}
0x6206…6222              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003e, t01=0x0138}
0x6222…6230              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003e, t01=0x0154}
0x6230…6242              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x0162}
0x6242…6264              Head {h00=0x001e, h01=0x0050, text=»A104   SET TR 12 COUNTERS «, t00=0x003e, t01=0x0174}
0x6264…6282              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT «, t00=0x003f, t01=0x0008}
0x6282…62a0              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x003f, t01=0x0026}
0x62a0…62ca              Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) «, t00=0x003f, t01=0x0044}
0x62ca…62f6              Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A104ER TOO MANY «, t00=0x003f, t01=0x006e}
0x62f6…6318              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1045 «, t00=0x003f, t01=0x009a}
0x6318…6332              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003f, t01=0x00bc}
0x6332…635c              Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6«, t00=0x003f, t01=0x00d6}
0x635c…6376              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x003f, t01=0x0100}
0x6376…6384              Head {h00=0x000a, h01=0x0050, text=»A1045 «, t00=0x003f, t01=0x011a}
0x6384…63a2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x003f, t01=0x0128}
0x63a2…63cc              Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6«, t00=0x003f, t01=0x0146}
0x63cc…63da              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003f, t01=0x0170}
0x63da…63e8              Head {h00=0x000a, h01=0x0050, text=»A104ER«, t00=0x003f, t01=0x017e}
0x63e8…6404              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003f, t01=0x018c}
0x6404…6412              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x0018}
0x6412…6424              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0026}
0x6424…6446              Head {h00=0x001e, h01=0x0050, text=»A105    CONRTL.DIGITCALC. «, t00=0x0040, t01=0x0038}
0x6446…6464              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0040, t01=0x005a}
0x6464…6486              Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,=W'3',CALCD01«, t00=0x0040, t01=0x0078}
0x6486…64a2              Head {h00=0x0018, h01=0x0050, text=» CMP SPBINW2,=W'17' «, t00=0x0040, t01=0x009a}
0x64a2…64b2              Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0040, t01=0x00b6}
0x64b2…64c2              Head {h00=0x000c, h01=0x0050, text=»CALCD01 «, t00=0x0040, t01=0x00c6}
0x64c2…64ec              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1   GET LENGTH«, t00=0x0040, t01=0x00d6}
0x64ec…6508              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0040, t01=0x0100}
0x6508…6524              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0040, t01=0x011c}
0x6524…6534              Head {h00=0x000c, h01=0x0050, text=»CALCD02 «, t00=0x0040, t01=0x0138}
0x6534…6552              Head {h00=0x001a, h01=0x0050, text=»  MOVE  GSWBCD3,=D'0' «, t00=0x0040, t01=0x0148}
0x6552…6594              Head {h00=0x003e, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2  GET NEXT DIGIT «, t00=0x0040, t01=0x0166}
0x6594…65cc              Head {h00=0x0034, h01=0x0050, text=» MUL GSWBCD3,WEIGTH(GSWBIN2)  MULTIPLY BY WEIGHT«, t00=0x0041, t01=0x0018}
0x65cc…65fa              Head {h00=0x002a, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3   ADD TO OLD SUM «, t00=0x0041, t01=0x0050}
0x65fa…6624              Head {h00=0x0026, h01=0x0050, text=»  SUB GSWBIN1,=W'1'  ADJUST LENGTH«, t00=0x0041, t01=0x007e}
0x6624…6654              Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'1'   ADJUST WEIGHT-INDEX«, t00=0x0041, t01=0x00a8}
0x6654…6676              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'0',CALCD02«, t00=0x0041, t01=0x00d8}
0x6676…6694              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0041, t01=0x00fa}
0x6694…66b0              Head {h00=0x0018, h01=0x0050, text=» DIV GSWBCD5,=D'11' «, t00=0x0041, t01=0x0118}
0x66b0…66cc              Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD5,=D'11' «, t00=0x0041, t01=0x0134}
0x66cc…6708              Head {h00=0x0038, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5           GET REMAINDER MOD 11 «, t00=0x0041, t01=0x0150}
0x6708…672c              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD4,=D'0',CALCD05 «, t00=0x0041, t01=0x018c}
0x672c…6748              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'11'«, t00=0x0042, t01=0x0020}
0x6748…6758              Head {h00=0x000c, h01=0x0050, text=»CALCD05 «, t00=0x0042, t01=0x003c}
0x6758…6774              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'11'«, t00=0x0042, t01=0x004c}
0x6774…67aa              Head {h00=0x0032, h01=0x0050, text=» SUB GSWBCD5,GSWBCD4   CALCULATE CONTROLDIGIT «, t00=0x0042, t01=0x0068}
0x67aa…67ba              Head {h00=0x000c, h01=0x0050, text=»  B ART «, t00=0x0042, t01=0x009e}
0x67ba…67cc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x00ae}
0x67cc…67ea              Head {h00=0x001a, h01=0x0050, text=»A106   CHECK VALUE 0-3«, t00=0x0042, t01=0x00c0}
0x67ea…6812              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0042, t01=0x00de}
0x6812…6830              Head {h00=0x001a, h01=0x0050, text=» CBL GSWBCD3,=D'6',ART«, t00=0x0042, t01=0x0106}
0x6830…6862              Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR 'OUT OF RANGE' «, t00=0x0042, t01=0x0124}
0x6862…6870              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0042, t01=0x0156}
0x6870…6882              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x0164}
0x6882…68aa              Head {h00=0x0024, h01=0x0050, text=»A107   REL DAY, 'POSTERINGSDATO'«, t00=0x0042, t01=0x0176}
0x68aa…68c6              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,GTDATO«, t00=0x0043, t01=0x000e}
0x68c6…68d6              Head {h00=0x000c, h01=0x0050, text=» B A102A«, t00=0x0043, t01=0x002a}
0x68d6…68e8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x003a}
0x68e8…6906              Head {h00=0x001a, h01=0x0050, text=»A108   SPG-REGKONTONR «, t00=0x0043, t01=0x004c}
0x6906…6922              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'5' «, t00=0x0043, t01=0x006a}
0x6922…6930              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x0086}
0x6930…6942              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0094}
0x6942…6960              Head {h00=0x001a, h01=0x0050, text=»A109   SPG-CPR/CIR/NR «, t00=0x0043, t01=0x00a6}
0x6960…697c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'6' «, t00=0x0043, t01=0x00c4}
0x697c…698a              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x00e0}
0x698a…699c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x00ee}
0x699c…69b4              Head {h00=0x0014, h01=0x0050, text=»A110   SPG-BELOB«, t00=0x0043, t01=0x0100}
0x69b4…69d0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'8' «, t00=0x0043, t01=0x0118}
0x69d0…69de              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x0134}
0x69de…69f0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0142}
0x69f0…6a0e              Head {h00=0x001a, h01=0x0050, text=»A111   SPG-OTHER FIELD«, t00=0x0043, t01=0x0154}
0x6a0e…6a2c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0043, t01=0x0172}
0x6a2c…6a50              Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD6,=D'90',A111ERR «, t00=0x0043, t01=0x0190}
0x6a50…6a6c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x0044, t01=0x0024}
0x6a6c…6a7a              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x0040}
0x6a7a…6a8a              Head {h00=0x000c, h01=0x0050, text=»A111ERR «, t00=0x0044, t01=0x004e}
0x6a8a…6aa6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0044, t01=0x005e}
0x6aa6…6ab4              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x007a}
0x6ab4…6ac6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x0088}
0x6ac6…6ad2              Head {h00=0x0008, h01=0x0050, text=»A112«, t00=0x0044, t01=0x009a}
0x6ad2…6af8              Head {h00=0x0022, h01=0x0050, text=»* CHECK TASKNR IN SYSTEMSTART «, t00=0x0044, t01=0x00a6}
0x6af8…6b16              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0044, t01=0x00cc}
0x6b16…6b34              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD6 «, t00=0x0044, t01=0x00ea}
0x6b34…6b5a              Head {h00=0x0022, h01=0x0050, text=» CBG GSWBIN2,CMAXTASK,A112ERR «, t00=0x0044, t01=0x0108}
0x6b5a…6b7c              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,CBIN1,A112ERR«, t00=0x0044, t01=0x012e}
0x6b7c…6b9e              Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD5,=D'1',A112OK«, t00=0x0044, t01=0x0150}
0x6b9e…6bc2              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD6,=D'1',A112ERR «, t00=0x0044, t01=0x0172}
0x6bc2…6bd0              Head {h00=0x000a, h01=0x0050, text=»A112OK«, t00=0x0045, t01=0x0008}
0x6bd0…6bde              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0016}
0x6bde…6bee              Head {h00=0x000c, h01=0x0050, text=»A112ERR «, t00=0x0045, t01=0x0024}
0x6bee…6c0a              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0045, t01=0x0034}
0x6c0a…6c18              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0050}
0x6c18…6c2a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x005e}
0x6c2a…6c48              Head {h00=0x001a, h01=0x0050, text=»APK   KEEP INFORMATION«, t00=0x0045, t01=0x0070}
0x6c48…6c70              Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APK00 FIRST FIELD?«, t00=0x0045, t01=0x008e}
0x6c70…6c90              Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW3,=W'5',APK10«, t00=0x0045, t01=0x00b6}
0x6c90…6cb8              Head {h00=0x0024, h01=0x0050, text=» MOVE GTKTTYP,=D'0' NOT KONTONR.«, t00=0x0045, t01=0x00d6}
0x6cb8…6cc6              Head {h00=0x000a, h01=0x0050, text=»APK10 «, t00=0x0045, t01=0x00fe}
0x6cc6…6cec              Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0045, t01=0x010c}
0x6cec…6cfe              Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0045, t01=0x0132}
0x6cfe…6d24              Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0045, t01=0x0144}
0x6d24…6d32              Head {h00=0x000a, h01=0x0050, text=»APK00 «, t00=0x0045, t01=0x016a}
0x6d32…6d6c              Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD «, t00=0x0045, t01=0x0178}
0x6d6c…6da4              Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER «, t00=0x0046, t01=0x0022}
0x6da4…6db2              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x005a}
0x6db2…6dc4              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x0068}
0x6dc4…6dd0              Head {h00=0x0008, h01=0x0050, text=»APF «, t00=0x0046, t01=0x007a}
0x6dd0…6df8              Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APF00 FIRST FIELD?«, t00=0x0046, t01=0x0086}
0x6df8…6e14              Head {h00=0x0018, h01=0x0050, text=» MOVE GTKTTYP,=D'0' «, t00=0x0046, t01=0x00ae}
0x6e14…6e3a              Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0046, t01=0x00ca}
0x6e3a…6e4c              Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0046, t01=0x00f0}
0x6e4c…6e72              Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0046, t01=0x0102}
0x6e72…6e80              Head {h00=0x000a, h01=0x0050, text=»APF00 «, t00=0x0046, t01=0x0128}
0x6e80…6e9a              Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,APF10 «, t00=0x0046, t01=0x0136}
0x6e9a…6ec2              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x0046, t01=0x0150}
0x6ec2…6ede              Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,GTDBKRS«, t00=0x0046, t01=0x0178}
0x6ede…6efc (71, 0, 400) Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0047, t01=0x0004}
0x6efc…6f0a              Head {h00=0x000a, h01=0x0050, text=»APF10 «, t00=0x0047, t01=0x0022}
0x6f0a…6f4c              Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD «, t00=0x0047, t01=0x0030}
0x6f4c…6f7a              Head {h00=0x002a, h01=0x0050, text=»*          MULTIPLY WITH -1 IF KREDIT «, t00=0x0047, t01=0x0072}
0x6f7a…6fbc              Head {h00=0x003e, h01=0x0050, text=»*          STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) «, t00=0x0047, t01=0x00a0}
0x6fbc…6fe2              Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 «, t00=0x0047, t01=0x00e2}
0x6fe2…7006              Head {h00=0x0020, h01=0x0050, text=» MUL GTUSED(GSWBIN1),=W'-1' «, t00=0x0047, t01=0x0108}
0x7006…7014              Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0047, t01=0x012c}
0x7014…7026              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x013a}
0x7026…7032              Head {h00=0x0008, h01=0x0050, text=»ART «, t00=0x0047, t01=0x014c}
0x7032…704e              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0047, t01=0x0158}
0x704e…706e              Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW4,CBIN3,ARET «, t00=0x0047, t01=0x0174}
0x706e…708a (72, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x0048, t01=0x0004}
0x708a…7096              Head {h00=0x0008, h01=0x0050, text=»ARET«, t00=0x0048, t01=0x0020}
0x7096…70a2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x002c}
0x70a2…70b0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0048, t01=0x0038}
0x70b0…70cc              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x0046}
0x70cc…70da              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0062}
0x70da…70ee              Head {h00=0x0010, h01=0x0050, text=»SETKRE PROC «, t00=0x0048, t01=0x0070}
0x70ee…710a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x0084}
0x710a…7114              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00a0}
0x7114…7148              Head {h00=0x0030, h01=0x0050, text=»*          SETKRE - SET  KREDIT INFORMATION «, t00=0x0048, t01=0x00aa}
0x7148…7152              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00de}
0x7152…716e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x00e8}
0x716e…718c              Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' KRE'«, t00=0x0048, t01=0x0104}
0x718c…71a8              Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'-1'«, t00=0x0048, t01=0x0122}
0x71a8…71c4              Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'1' «, t00=0x0048, t01=0x013e}
0x71c4…71e0              Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'1' «, t00=0x0048, t01=0x015a}
0x71e0…71ec              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x0176}
0x71ec…71fa              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0048, t01=0x0182}
0x71fa…7204              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0190}
0x7204…720e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x000a}
0x720e…7218              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0014}
0x7218…7222              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001e}
0x7222…722c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0028}
0x722c…7240              Head {h00=0x0010, h01=0x0050, text=»SETDEB PROC «, t00=0x0049, t01=0x0032}
0x7240…725c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x0046}
0x725c…7266              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0062}
0x7266…7298              Head {h00=0x002e, h01=0x0050, text=»*          SETDEB - SET DEBET INFORMATION «, t00=0x0049, t01=0x006c}
0x7298…72a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x009e}
0x72a2…72be              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x00a8}
0x72be…72dc              Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' DEB'«, t00=0x0049, t01=0x00c4}
0x72dc…72f8              Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'+1'«, t00=0x0049, t01=0x00e2}
0x72f8…7314              Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'2' «, t00=0x0049, t01=0x00fe}
0x7314…7330              Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'2' «, t00=0x0049, t01=0x011a}
0x7330…733c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x0136}
0x733c…734a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0049, t01=0x0142}
0x734a…7358              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0150}
0x7358…736a              Head {h00=0x000e, h01=0x0050, text=»CLRSW PROC«, t00=0x0049, t01=0x015e}
0x736a…7386              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x0170}
0x7386…7390              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x018c}
0x7390…73c2              Head {h00=0x002e, h01=0x0050, text=»*          CLRSW - CLEAR ALL AUTODUP FLAGS«, t00=0x004a, t01=0x0008}
0x73c2…73cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x003a}
0x73cc…73e8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004a, t01=0x0044}
0x73e8…7404              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x004a, t01=0x0060}
0x7404…7412              Head {h00=0x000a, h01=0x0050, text=»CLRSW1«, t00=0x004a, t01=0x007c}
0x7412…7438              Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN0 «, t00=0x004a, t01=0x008a}
0x7438…7452              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x004a, t01=0x00b0}
0x7452…7476              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,CLRSW1 «, t00=0x004a, t01=0x00ca}
0x7476…7482              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x00ee}
0x7482…7490              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004a, t01=0x00fa}
0x7490…749e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0108}
0x749e…74b0              Head {h00=0x000e, h01=0x0050, text=»SELTR PROC«, t00=0x004a, t01=0x0116}
0x74b0…74cc              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004a, t01=0x0128}
0x74cc…74d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0144}
0x74d6…7518              Head {h00=0x003e, h01=0x0050, text=»*          SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN «, t00=0x004a, t01=0x014e}
0x7518…7534              Head {h00=0x0018, h01=0x0050, text=»*          SELECTED.«, t00=0x004a, t01=0x0190}
0x7534…7568              Head {h00=0x0030, h01=0x0050, text=»*          SELECTED TRANSTYPE IS IN SPBINW5 «, t00=0x004b, t01=0x001c}
0x7568…7572              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0050}
0x7572…758e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004b, t01=0x005a}
0x758e…75b8              Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'3',SELOK ENTER KEY«, t00=0x004b, t01=0x0076}
0x75b8…75e4              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',SEL10 KREDIT KEY«, t00=0x004b, t01=0x00a0}
0x75e4…7610              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'17',SEL20 DEBET KEY «, t00=0x004b, t01=0x00cc}
0x7610…7638              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x004b, t01=0x00f8}
0x7638…7660              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x004b, t01=0x0120}
0x7660…766c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x0148}
0x766c…7682              Head {h00=0x0012, h01=0x0050, text=»SEL10   KREDIT«, t00=0x004b, t01=0x0154}
0x7682…7696              Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x004b, t01=0x016a}
0x7696…76a6              Head {h00=0x000c, h01=0x0050, text=» B SEL30«, t00=0x004b, t01=0x017e}
0x76a6…76bc              Head {h00=0x0012, h01=0x0050, text=»SEL20   DEBET «, t00=0x004b, t01=0x018e}
0x76bc…76d0              Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x004c, t01=0x0014}
0x76d0…76f2              Head {h00=0x001e, h01=0x0050, text=»SEL30   TRANSTYPE SELECTED«, t00=0x004c, t01=0x0028}
0x76f2…7710              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x004c, t01=0x004a}
0x7710…7728              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1,  C «, t00=0x004c, t01=0x0068}
0x7728…7750              Head {h00=0x0024, h01=0x0050, text=»  SEL40,SEL40,SEL90,SEL40,SEL40 «, t00=0x004c, t01=0x0080}
0x7750…7760              Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x004c, t01=0x00a8}
0x7760…776e              Head {h00=0x000a, h01=0x0050, text=»SEL40 «, t00=0x004c, t01=0x00b8}
0x776e…7786              Head {h00=0x0014, h01=0x0050, text=» IB SPBINW5,  C «, t00=0x004c, t01=0x00c6}
0x7786…77c6              Head {h00=0x003c, h01=0x0050, text=»  SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 «, t00=0x004c, t01=0x00de}
0x77c6…77d4              Head {h00=0x000a, h01=0x0050, text=»SEL45 «, t00=0x004c, t01=0x011e}
0x77d4…77f4              Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN1,CBIN3,SEL50«, t00=0x004c, t01=0x012c}
0x77f4…7812              Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x004c, t01=0x014c}
0x7812…7822              Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x004c, t01=0x016a}
0x7822…7830              Head {h00=0x000a, h01=0x0050, text=»SEL50 «, t00=0x004c, t01=0x017a}
0x7830…7852              Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'19' ERROR«, t00=0x004c, t01=0x0188}
0x7852…786a              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x004d, t01=0x001a}
0x786a…7876              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x0032}
0x7876…7884              Head {h00=0x000a, h01=0x0050, text=»SEL90 «, t00=0x004d, t01=0x003e}
0x7884…78a6              Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGNR,SPBINW5 TYPE«, t00=0x004d, t01=0x004c}
0x78a6…78dc              Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11 «, t00=0x004d, t01=0x006e}
0x78dc…7910              Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED«, t00=0x004d, t01=0x00a4}
0x7910…7924              Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x004d, t01=0x00d8}
0x7924…7932              Head {h00=0x000a, h01=0x0050, text=»SELOK «, t00=0x004d, t01=0x00ec}
0x7932…7958              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x004d, t01=0x00fa}
0x7958…7964              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x0120}
0x7964…7972              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004d, t01=0x012c}
0x7972…797c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x013a}
0x797c…7990              Head {h00=0x0010, h01=0x0050, text=»SPACES PROC «, t00=0x004d, t01=0x0144}
0x7990…79ac              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'25'«, t00=0x004d, t01=0x0158}
0x79ac…79c8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x004d, t01=0x0174}
0x79c8…79e4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x004d, t01=0x0190}
0x79e4…7a1e              Head {h00=0x0036, h01=0x0050, text=» MATCH SPINPUT,GSWBIN1,GSWBIN7,GSWSTR1,CBIN0,CBIN1«, t00=0x004e, t01=0x001c}
0x7a1e…7a32              Head {h00=0x0010, h01=0x0050, text=» BNE SPAC10 «, t00=0x004e, t01=0x0056}
0x7a32…7a4e              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN7,GSWBIN1«, t00=0x004e, t01=0x006a}
0x7a4e…7a74              Head {h00=0x0022, h01=0x0050, text=» DLETE SPINPUT,GSWBIN1,GSWBIN7«, t00=0x004e, t01=0x0086}
0x7a74…7a82              Head {h00=0x000a, h01=0x0050, text=»SPAC10«, t00=0x004e, t01=0x00ac}
0x7a82…7a8e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004e, t01=0x00ba}
0x7a8e…7a9c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004e, t01=0x00c6}
0x7a9c…7aa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00d4}
0x7aa6…7ab0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00de}
0x7ab0…7aba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e8}
0x7aba…7ac4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f2}
0x7ac4…7ad0              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004e, t01=0x00fc}
0x7ad0…7ad4              Head {h00=0x4004, h01=0x0000}
0x7ad4…7ad8              00 4e 01 08                                                                                                                                                                                                                                       ┆ N  ┆
0x7ad8…7ae0 (79, 1, 8)   20 04 00 00 00 4f 00 04                                                                                                                                                                                                                           ┆     O  ┆
0x7ae0…7b30 (80, 0, 400) 00 1e 00 50 5c 49 44 45 4e 54 20 44 4b 53 55 42 53 20 5c 30 32 2e 30 33 2e 58 58 58 2e 31 00 00 00 04 00 1a 00 50 20 20 20 20 20 20 20 20 20 20 44 44 55 4d 20 20 20 4b 4d 44 30 38 00 00 00 26 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 44   ┆   P IDENT DKSUBS  02.03.XXX.1       P          DDUM   KMD08   &   P          PD┆
0x7b30…7b80              49 56 00 00 00 44 00 12 00 50 20 45 4e 54 52 59 20 52 41 52 45 41 44 20 00 00 00 5a 00 12 00 50 20 45 4e 54 52 59 20 52 41 57 52 49 54 20 00 00 00 70 00 12 00 50 20 45 4e 54 52 59 20 53 51 52 45 41 44 20 00 00 00 86 00 12 00 50 20 45 4e 54   ┆IV   D   P ENTRY RAREAD    Z   P ENTRY RAWRIT    p   P ENTRY SQREAD        P ENT┆
0x7b80…7bd0              52 59 20 53 51 57 52 49 54 20 00 00 00 9c 00 10 00 50 20 45 4e 54 52 59 20 41 53 53 47 20 00 00 00 b2 00 12 00 50 20 45 4e 54 52 59 20 52 47 52 45 41 44 20 00 00 00 c6 00 10 00 50 20 45 4e 54 52 59 20 52 41 44 45 4c 00 00 00 dc 00 12 00 50   ┆RY SQWRIT        P ENTRY ASSG        P ENTRY RGREAD        P ENTRY RADEL       P┆
0x7bd0…7c20              20 45 4e 54 52 59 20 47 45 54 42 49 54 20 00 00 00 f0 00 10 00 50 20 45 4e 54 52 59 20 45 52 44 4b 20 00 00 01 06 00 12 00 50 20 45 4e 54 52 59 20 42 41 43 4b 55 50 20 00 00 01 1a 00 12 00 50 20 45 4e 54 52 59 20 52 53 54 4f 52 45 20 00 00   ┆ ENTRY GETBIT        P ENTRY ERDK        P ENTRY BACKUP        P ENTRY RSTORE   ┆
0x7c20…7c70              01 30 00 0e 00 50 20 45 58 54 20 4d 41 53 4b 20 00 00 01 46 00 10 00 50 20 45 58 54 20 50 41 43 4b 43 4c 20 00 00 01 58 00 10 00 50 20 45 58 54 20 50 41 43 4b 53 54 20 00 00 01 6c 00 10 00 50 20 45 58 54 20 53 45 54 4b 52 45 20 00 00 01 80   ┆ 0   P EXT MASK    F   P EXT PACKCL    X   P EXT PACKST    l   P EXT SETKRE     ┆
0x7c70…7cc0 (81, 0, 400) 00 10 00 50 20 45 58 54 20 53 45 54 44 45 42 20 00 01 00 04 00 0e 00 50 20 45 58 54 20 53 50 45 52 52 00 01 00 18 00 10 00 50 20 45 58 54 20 57 52 49 54 4a 54 20 00 01 00 2a 00 10 00 50 20 45 58 54 20 4c 41 4d 50 4f 4e 20 00 01 00 3e 00 1c   ┆   P EXT SETDEB        P EXT SPERR       P EXT WRITJT    *   P EXT LAMPON    >  ┆
0x7cc0…7d10              00 50 20 20 20 20 20 20 20 20 20 20 49 4e 43 4c 55 44 45 20 45 51 55 41 54 45 00 01 00 52 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ P          INCLUDE EQUATE   R 6 P**********************************************┆
0x7d10…7d60              2a 2a 2a 2a 00 01 00 72 00 06 00 50 2a 20 00 01 00 ac 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 54 48 49 53 20 4d 4f 44 55 4c 45 20 43 4f 4e 54 41 49 4e 53 20 41 4c 4c 20 44 49 53 43 20 48 41 4e 44 4c 49 4e 47 00 01 00 b6 00 2a 00 50 2a 20   ┆****   r   P*      4 P*         THIS MODULE CONTAINS ALL DISC HANDLING     * P* ┆
0x7d60…7db0              20 20 20 20 20 20 20 20 52 4f 55 54 49 4e 45 53 3a 20 52 41 4e 44 4f 4d 20 52 45 41 44 2f 57 52 49 54 45 20 00 01 00 ee 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 51 20 20 20 20 52 45 41 44 2f 57 52 49 54   ┆        ROUTINES: RANDOM READ/WRITE      * P*                   SEQ    READ/WRIT┆
0x7db0…7e00              45 20 00 01 01 1c 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 52 4f 52 20 48 41 4e 44 4c 49 4e 47 00 01 01 4a 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 53 49 47 4e 20 52   ┆E      & P*                   ERROR HANDLING   J & P*                   ASSIGN R┆
0x7e00…7e50 (82, 0, 400) 4f 55 54 49 4e 45 00 01 01 74 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 4b 20 45 52 52 4f 52 20 52 4f 55 54 49 4e 45 00 02 00 0e 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆OUTINE   t * P*                   DISK ERROR ROUTINE     < P*                   ┆
0x7e50…7ea0              47 45 54 20 53 54 41 54 55 53 20 46 52 4f 4d 20 45 58 54 45 4e 44 45 44 20 53 54 41 54 55 53 57 4f 52 44 20 00 02 00 3c 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 52 45 43 4f 52 44 20 46 52 4f 4d   ┆GET STATUS FROM EXTENDED STATUSWORD    < 0 P*                   READ RECORD FROM┆
0x7ea0…7ef0              20 52 45 47 53 45 54 20 00 02 00 7c 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 02 00 b0 00 14 00 50 20 20 20 20 20 20   ┆ REGSET    | 6 P**************************************************       P      ┆
0x7ef0…7f40              20 20 20 20 45 4a 45 43 54 20 00 02 00 ea 00 06 00 50 2a 20 00 02 01 02 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 53 47 20 2d 20 41 53 53 49 47 4e 20 20 52 4f 55 54 49 4e 45 00 02 01 0c 00 3a 00 50 2a 20 20 20 20 20   ┆    EJECT        P*      * P*               ASSG - ASSIGN  ROUTINE     : P*     ┆
0x7f40…7f90              20 20 20 54 48 45 20 52 4f 55 54 49 4e 45 20 41 54 54 45 4d 50 54 53 20 54 4f 20 43 4f 4e 4e 45 43 54 20 54 48 45 20 53 50 45 43 49 46 49 45 44 00 02 01 3a 00 2a 00 50 2a 20 20 20 20 20 20 20 20 44 41 54 41 53 45 54 4e 41 4d 45 20 54 4f 20   ┆   THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED   : * P*        DATASETNAME TO ┆
0x7f90…7fe0 (83, 0, 400) 41 20 56 4f 4c 55 4d 45 4e 41 4d 45 2e 20 00 02 01 78 00 32 00 50 2a 2d 2a 20 20 20 20 20 20 20 20 49 54 20 54 52 49 45 53 20 4f 4e 20 41 4c 4c 20 56 4f 4c 55 4d 45 53 20 43 4f 4e 4e 45 43 54 45 44 2e 20 00 03 00 16 00 22 00 50 2a 20 20 20   ┆A VOLUMENAME.    x 2 P*-*        IT TRIES ON ALL VOLUMES CONNECTED.      " P*   ┆
0x7fe0…8030              20 20 20 20 20 20 20 4f 4e 20 53 50 45 43 49 46 49 45 44 20 56 4f 4c 55 4d 45 00 03 00 4c 00 06 00 50 2a 20 00 03 00 72 00 26 00 50 2a 20 20 20 20 20 20 20 20 41 4c 54 45 52 45 44 20 50 41 52 41 4d 45 54 45 52 53 3a 20 4e 4f 4e 45 20 00 03   ┆       ON SPECIFIED VOLUME   L   P*    r & P*        ALTERED PARAMETERS: NONE   ┆
0x8030…8080              00 7c 00 06 00 50 2a 20 00 03 00 a6 00 42 00 50 2a 20 20 20 20 20 20 20 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 53 50 42 49 4e 57 34 20 2d 20 4f 4b 20 2d 20 44 41 54 41 53 45 54 4e 52 20 20 20 20 4e 4f 4b 20 2d 20 32 31 20 00 03   ┆ |   P*      B P*        ALTERED FIELDS: SPBINW4 - OK - DATASETNR    NOK - 21   ┆
0x8080…80d0              00 b0 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 31 20 2d 20 4f 4b 20 2d 20 41 54 54 45 4d 50 54 4e 52 20 20 20 20 4e 4f 4b 20 2d 20 35 00 03 00 f6 00 32 00 50 2a 20 20 20 20 20   ┆   @ P*                        GSWBIN1 - OK - ATTEMPTNR    NOK - 5     2 P*     ┆
0x80d0…8120              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 46 4e 41 4d 45 20 2d 20 44 41 54 41 53 45 54 4e 41 4d 45 00 03 01 3a 00 44 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 56 4f 4c 20 20   ┆                   ASFNAME - DATASETNAME   : D P*                        ASVOL  ┆
0x8120…8170 (84, 0, 400) 20 2d 20 4f 4b 20 2d 20 56 4f 4c 55 4d 45 4e 41 4d 45 20 20 20 4e 4f 4b 20 2d 20 58 27 30 30 27 00 03 01 70 00 48 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 57 42 43 44 31 20 2d 20 4f 4b 20 2d 20   ┆ - OK - VOLUMENAME   NOK - X'00'   p H P*                        GTWBCD1 - OK - ┆
0x8170…81c0              4e 2f 41 20 20 20 20 20 20 20 20 20 20 4e 4f 4b 20 2d 20 41 54 54 45 4d 50 54 2b 31 00 04 00 28 00 48 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 57 42 43 44 32 20 2d 20 4f 4b 20 2d 20 4e 2f 41 20   ┆N/A          NOK - ATTEMPT+1   ( H P*                        GTWBCD2 - OK - N/A ┆
0x81c0…8210              20 20 20 20 20 20 20 20 20 4e 4f 4b 20 2d 20 44 41 54 41 53 45 54 4e 52 00 04 00 74 00 06 00 50 2a 20 00 04 00 c0 00 20 00 50 2a 20 20 20 20 20 20 20 43 2f 52 3a 20 4f 4b 20 2d 20 30 2c 20 4e 4f 4b 20 2d 20 34 00 04 00 ca 00 06 00 50 2a 20   ┆         NOK - DATASETNR   t   P*        P*       C/R: OK - 0, NOK - 4       P* ┆
0x8210…8260              00 04 00 ee 00 3c 00 50 2a 2d 2a 20 20 20 20 20 20 20 43 41 4c 4c 20 3a 20 20 20 20 50 45 52 46 20 41 53 53 47 2c 3c 44 41 54 34 41 53 45 54 4e 41 4d 45 3e 2c 3c 44 41 54 41 53 45 54 4e 52 3e 00 04 00 f8 00 40 00 50 2a 20 20 20 20 20 20 20   ┆     < P*-*       CALL :    PERF ASSG,<DAT4ASETNAME>,<DATASETNR>     @ P*       ┆
0x8260…82b0              20 20 20 43 41 4c 4c 3a 20 20 20 20 20 50 45 52 46 20 41 53 53 47 2c 3c 56 4f 4c 55 4d 45 3e 2c 3c 44 53 45 54 3e 2c 3c 44 41 54 41 53 45 54 20 4e 4f 2e 3e 00 04 01 38 00 06 00 50 2a 20 00 04 01 7c 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆   CALL:     PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>   8   P*    | @ P**********┆
DataMuseum.dk

Philips Data Systems

⟦2696d2ead⟧

Derivation

PTS(SC)

HexDump

Reduced view
