⟦57a264d7e⟧

HexDump

0x0000…001e (0, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» IDENT KMDIO 820527 NJ«, t00=0x0000, t01=0x0004}
0x001e…003c              Head {h00=0x001a, h01=0x0050, text=»         DDUM    KMD08«, t00=0x0000, t01=0x0022}
0x003c…004a              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0040}
0x004a…0060              Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITFD «, t00=0x0000, t01=0x004e}
0x0060…0080              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   WRITVO «, t00=0x0000, t01=0x0064}
0x0080…00a0              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   WRITJT «, t00=0x0000, t01=0x0084}
0x00a0…00c0              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   WTALLY «, t00=0x0000, t01=0x00a4}
0x00c0…00d6              Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITID «, t00=0x0000, t01=0x00c4}
0x00d6…00f4              Head {h00=0x001a, h01=0x0050, text=»         ENTRY   CRKJ «, t00=0x0000, t01=0x00da}
0x00f4…010a              Head {h00=0x0012, h01=0x0050, text=» ENTRY GRASPV «, t00=0x0000, t01=0x00f8}
0x010a…0120              Head {h00=0x0012, h01=0x0050, text=» ENTRY LINOPT «, t00=0x0000, t01=0x010e}
0x0120…0134              Head {h00=0x0010, h01=0x0050, text=» ENTRY CRVO «, t00=0x0000, t01=0x0124}
0x0134…0148              Head {h00=0x0010, h01=0x0050, text=» EXT WCHECK «, t00=0x0000, t01=0x0138}
0x0148…015e              Head {h00=0x0012, h01=0x0050, text=» ENTRY WCHUPD «, t00=0x0000, t01=0x014c}
0x015e…0172              Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0000, t01=0x0162}
0x0172…0184              Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0000, t01=0x0176}
0x0184…0198              Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0000, t01=0x0188}
0x0198…01ac              Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x000c}
0x01ac…01be              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0020}
0x01be…01de              Head {h00=0x001c, h01=0x0050, text=»         EXT     FRMTJT «, t00=0x0001, t01=0x0032}
0x01de…01f2              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x0052}
0x01f2…0202              Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x0066}
0x0202…0214              Head {h00=0x000e, h01=0x0050, text=» EXT CYWRT«, t00=0x0001, t01=0x0076}
0x0214…0228              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x0088}
0x0228…023c              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x009c}
0x023c…025a              Head {h00=0x001a, h01=0x0050, text=»         EXT     ABORT«, t00=0x0001, t01=0x00b0}
0x025a…026e              Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00ce}
0x026e…0282              Head {h00=0x0010, h01=0x0050, text=» EXT YYMMDD «, t00=0x0001, t01=0x00e2}
0x0282…0294              Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x00f6}
0x0294…02b4              Head {h00=0x001c, h01=0x0050, text=»         INCLUDE EQUATE «, t00=0x0001, t01=0x0108}
0x02b4…02c2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0128}
0x02c2…02d6              Head {h00=0x0010, h01=0x0050, text=»WRITFD PROC «, t00=0x0001, t01=0x0136}
0x02d6…02f2              Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x014a}
0x02f2…031a              Head {h00=0x0024, h01=0x0050, text=» PERF ADM,CBIN12 DISKETTE SKIFT «, t00=0x0001, t01=0x0166}
0x031a…0336              Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x018e}
0x0336…034e              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0002, t01=0x001a}
0x034e…035a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0032}
0x035a…0368              Head {h00=0x000a, h01=0x0050, text=»WRFD00«, t00=0x0002, t01=0x003e}
0x0368…0382              Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CPFLG «, t00=0x0002, t01=0x004c}
0x0382…03a0              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,GTREGDEX«, t00=0x0002, t01=0x0066}
0x03a0…03bc              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN3,CBIN11 «, t00=0x0002, t01=0x0084}
0x03bc…03f0              Head {h00=0x0030, h01=0x0050, text=» IB GSWBIN3,WRFD001,WRFD002,WRFD001,WRFD002 «, t00=0x0002, t01=0x00a0}
0x03f0…0402              Head {h00=0x000e, h01=0x0050, text=» B WRFD003«, t00=0x0002, t01=0x00d4}
0x0402…0412              Head {h00=0x000c, h01=0x0050, text=»WRFD001 «, t00=0x0002, t01=0x00e6}
0x0412…0444              Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGNR,=D'1' TRANS 18,28 -> TRANS 1«, t00=0x0002, t01=0x00f6}
0x0444…0456              Head {h00=0x000e, h01=0x0050, text=» B WRFD003«, t00=0x0002, t01=0x0128}
0x0456…0466              Head {h00=0x000c, h01=0x0050, text=»WRFD002 «, t00=0x0002, t01=0x013a}
0x0466…0498              Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGNR,=D'6' TRANS 19,29 -> TRANS 6«, t00=0x0002, t01=0x014a}
0x0498…04a8              Head {h00=0x000c, h01=0x0050, text=»WRFD003 «, t00=0x0002, t01=0x017c}
0x04a8…04c0              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0002, t01=0x018c}
0x04c0…04f2              Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0003, t01=0x0014}
0x04f2…0506              Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0003, t01=0x0046}
0x0506…0522              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0003, t01=0x005a}
0x0522…0532              Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0003, t01=0x0076}
0x0532…0546              Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0003, t01=0x0086}
0x0546…056a              Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0003, t01=0x009a}
0x056a…0580              Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0003, t01=0x00be}
0x0580…0590              Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0003, t01=0x00d4}
0x0590…05ae              Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0003, t01=0x00e4}
0x05ae…05dc              Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0003, t01=0x0102}
0x05dc…05f4              Head {h00=0x0014, h01=0x0050, text=»* RESET GTREGNR «, t00=0x0003, t01=0x0130}
0x05f4…0622              Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGNR,CREGTAB(GTREGDEX,CBIN1) «, t00=0x0003, t01=0x0148}
0x0622…063e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0003, t01=0x0176}
0x063e…065c (4, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0004, t01=0x0004}
0x065c…0678              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0004, t01=0x0022}
0x0678…0680              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x003e}
0x0680…06ba              Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0004, t01=0x0046}
0x06ba…06d8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0004, t01=0x0080}
0x06d8…06f2              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0004, t01=0x009e}
0x06f2…0720              Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0004, t01=0x00b8}
0x0720…0744              Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0004, t01=0x00e6}
0x0744…0774              Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0004, t01=0x010a}
0x0774…0784              Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0004, t01=0x013a}
0x0784…079e              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0004, t01=0x014a}
0x079e…07c4              Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0004, t01=0x0164}
0x07c4…07fc              Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0004, t01=0x018a}
0x07fc…0828              Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'90',WRFD090 «, t00=0x0005, t01=0x0032}
0x0828…0854              Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'91',WRFD091 «, t00=0x0005, t01=0x005e}
0x0854…0880              Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'92',WRFD092 «, t00=0x0005, t01=0x008a}
0x0880…08ac              Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'93',WRFD093 «, t00=0x0005, t01=0x00b6}
0x08ac…08d8              Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'94',WRFD094 «, t00=0x0005, t01=0x00e2}
0x08d8…08f8              Head {h00=0x001c, h01=0x0050, text=» MOVE SPINPUT,=X'00' YES«, t00=0x0005, t01=0x010e}
0x08f8…0926              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0005, t01=0x012e}
0x0926…0942              Head {h00=0x0018, h01=0x0050, text=» EDIT SPINPUT,PFRM1 «, t00=0x0005, t01=0x015c}
0x0942…0952              Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0005, t01=0x0178}
0x0952…096e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0005, t01=0x0188}
0x096e…0996              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0006, t01=0x0014}
0x0996…09b4              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN10,=W'30' «, t00=0x0006, t01=0x003c}
0x09b4…09f0              Head {h00=0x0038, h01=0x0050, text=» MATCH SPINPUT,GSWBIN6,GSWBIN10,GSWSTR1,CBIN0,CBIN1 «, t00=0x0006, t01=0x005a}
0x09f0…0a08              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0006, t01=0x0096}
0x0a08…0a38              Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0006, t01=0x00ae}
0x0a38…0a6e              Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,SPINPUT,CBIN0 NO«, t00=0x0006, t01=0x00de}
0x0a6e…0a8a              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0006, t01=0x0114}
0x0a8a…0ab6              Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0006, t01=0x0130}
0x0ab6…0ad4              Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0006, t01=0x015c}
0x0ad4…0ae4              Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0006, t01=0x017a}
0x0ae4…0b18              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,SPINPUT,CBIN0 «, t00=0x0006, t01=0x018a}
0x0b18…0b46              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0007, t01=0x002e}
0x0b46…0b62              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0007, t01=0x005c}
0x0b62…0b94              Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0007, t01=0x0078}
0x0b94…0bb8              Head {h00=0x0020, h01=0x0050, text=» DLETE SPINPUT,CBIN0,GSWBIN4«, t00=0x0007, t01=0x00aa}
0x0bb8…0bce              Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0007, t01=0x00ce}
0x0bce…0bfc              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x00e4}
0x0bfc…0c12              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x0112}
0x0c12…0c30              Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0007, t01=0x0128}
0x0c30…0c4a              Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x0146}
0x0c4a…0c64              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0007, t01=0x0160}
0x0c64…0c7e              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0007, t01=0x017a}
0x0c7e…0ca2 (8, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0008, t01=0x0004}
0x0ca2…0cb2              Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0008, t01=0x0028}
0x0cb2…0cce              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0008, t01=0x0038}
0x0cce…0d00              Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0008, t01=0x0054}
0x0d00…0d2e              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0008, t01=0x0086}
0x0d2e…0d44              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x00b4}
0x0d44…0d62              Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0008, t01=0x00ca}
0x0d62…0d7c              Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0008, t01=0x00e8}
0x0d7c…0d96              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0008, t01=0x0102}
0x0d96…0db0              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0008, t01=0x011c}
0x0db0…0dd0              Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0008, t01=0x0136}
0x0dd0…0de6              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x0156}
0x0de6…0df0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016c}
0x0df0…0e14              Head {h00=0x0020, h01=0x0050, text=»*        LOOK FOR ACCOUNT NO«, t00=0x0008, t01=0x0176}
0x0e14…0e3c              Head {h00=0x0024, h01=0x0050, text=»*        IN KONTOPLAN. IF FOUND,«, t00=0x0009, t01=0x000a}
0x0e3c…0e5e              Head {h00=0x001e, h01=0x0050, text=»*        SET FLAG GTKORTFL«, t00=0x0009, t01=0x0032}
0x0e5e…0e68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0054}
0x0e68…0e8c              Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0009, t01=0x005e}
0x0e8c…0ea0              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0009, t01=0x0082}
0x0ea0…0eb8              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x0096}
0x0eb8…0ed4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x00ae}
0x0ed4…0efa              Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'2' FILE CODE «, t00=0x0009, t01=0x00ca}
0x0efa…0f22              Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x0009, t01=0x00f0}
0x0f22…0f46              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x0118}
0x0f46…0f5a              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x013c}
0x0f5a…0f72              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x0150}
0x0f72…0f7e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0168}
0x0f7e…0f86              Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0174}
0x0f86…0f96              Head {h00=0x000c, h01=0x0050, text=»WRFD090 «, t00=0x0009, t01=0x017c}
0x0f96…0fb8              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393000'«, t00=0x0009, t01=0x018c}
0x0fb8…0ff2              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN1),CBIN0 «, t00=0x000a, t01=0x001e}
0x0ff2…1004              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x0058}
0x1004…1014              Head {h00=0x000c, h01=0x0050, text=»WRFD091 «, t00=0x000a, t01=0x006a}
0x1014…1036              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393100'«, t00=0x000a, t01=0x007a}
0x1036…1070              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN2),CBIN0 «, t00=0x000a, t01=0x009c}
0x1070…1082              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x00d6}
0x1082…1092              Head {h00=0x000c, h01=0x0050, text=»WRFD092 «, t00=0x000a, t01=0x00e8}
0x1092…10b4              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393200'«, t00=0x000a, t01=0x00f8}
0x10b4…10ee              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN3),CBIN0 «, t00=0x000a, t01=0x011a}
0x10ee…1100              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x0154}
0x1100…1110              Head {h00=0x000c, h01=0x0050, text=»WRFD093 «, t00=0x000a, t01=0x0166}
0x1110…1132              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393300'«, t00=0x000a, t01=0x0176}
0x1132…116c              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN4),CBIN0 «, t00=0x000b, t01=0x0008}
0x116c…117e              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000b, t01=0x0042}
0x117e…118e              Head {h00=0x000c, h01=0x0050, text=»WRFD094 «, t00=0x000b, t01=0x0054}
0x118e…11b0              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393400'«, t00=0x000b, t01=0x0064}
0x11b0…11ea              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN5),CBIN0 «, t00=0x000b, t01=0x0086}
0x11ea…11fa              Head {h00=0x000c, h01=0x0050, text=»WRFD095 «, t00=0x000b, t01=0x00c0}
0x11fa…120c              Head {h00=0x000e, h01=0x0050, text=» B WRFD025«, t00=0x000b, t01=0x00d0}
0x120c…1216              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e2}
0x1216…1226              Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x000b, t01=0x00ec}
0x1226…123e              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x000b, t01=0x00fc}
0x123e…1252              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000b, t01=0x0114}
0x1252…1278              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000b, t01=0x0128}
0x1278…1284              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x014e}
0x1284…128e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015a}
0x128e…129e              Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x000b, t01=0x0164}
0x129e…12a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0174}
0x12a8…12ce              Head {h00=0x0022, h01=0x0050, text=»*     HERE MUST BEE RECOVERRY «, t00=0x000b, t01=0x017e}
0x12ce…12ea              Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x000c, t01=0x0014}
0x12ea…1308              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x000c, t01=0x0030}
0x1308…1324              Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x000c, t01=0x004e}
0x1324…133a              Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x000c, t01=0x006a}
0x133a…134e              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000c, t01=0x0080}
0x134e…1364              Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000c, t01=0x0094}
0x1364…1388              Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x000c, t01=0x00aa}
0x1388…1394              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x00ce}
0x1394…13a2              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x00da}
0x13a2…13b0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00e8}
0x13b0…13e4              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000c, t01=0x00f6}
0x13e4…13ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012a}
0x13ee…1402              Head {h00=0x0010, h01=0x0050, text=»*     EDATNR«, t00=0x000c, t01=0x0134}
0x1402…143a              Head {h00=0x0034, h01=0x0050, text=»*          FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000c, t01=0x0148}
0x143a…1478              Head {h00=0x003a, h01=0x0050, text=»*          AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000c, t01=0x0180}
0x1478…1482              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x1482…14ba              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000d, t01=0x0038}
0x14ba…14ce              Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000d, t01=0x0070}
0x14ce…14e6              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000d, t01=0x0084}
0x14e6…150a              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000d, t01=0x009c}
0x150a…1526              Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000d, t01=0x00c0}
0x1526…154a              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000d, t01=0x00dc}
0x154a…157c              Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000d, t01=0x0100}
0x157c…15a0              Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000d, t01=0x0132}
0x15a0…15b0              Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000d, t01=0x0156}
0x15b0…15d4              Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000d, t01=0x0166}
0x15d4…15ea              Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000d, t01=0x018a}
0x15ea…15fa              Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000e, t01=0x0010}
0x15fa…1606              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0020}
0x1606…1616              Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000e, t01=0x002c}
0x1616…163a              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000e, t01=0x003c}
0x163a…165e              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000e, t01=0x0060}
0x165e…1670              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x0084}
0x1670…1680              Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000e, t01=0x0096}
0x1680…16a4              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000e, t01=0x00a6}
0x16a4…16c8              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000e, t01=0x00ca}
0x16c8…16da              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x00ee}
0x16da…16ea              Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x000e, t01=0x0100}
0x16ea…170e              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x000e, t01=0x0110}
0x170e…1732              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x000e, t01=0x0134}
0x1732…1744              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x0158}
0x1744…1754              Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x000e, t01=0x016a}
0x1754…1778              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x000e, t01=0x017a}
0x1778…178a              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000f, t01=0x000e}
0x178a…1798              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0020}
0x1798…17a6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x002e}
0x17a6…17ba              Head {h00=0x0010, h01=0x0050, text=»WCHUPD PROC «, t00=0x000f, t01=0x003c}
0x17ba…17ea              Head {h00=0x002c, h01=0x0050, text=»* THE PROCEDURE UPDATES VAR.INFO ON LEV,«, t00=0x000f, t01=0x0050}
0x17ea…1810              Head {h00=0x0022, h01=0x0050, text=»* AFTER A TRANS 18,19,28 OR 29«, t00=0x000f, t01=0x0080}
0x1810…182c              Head {h00=0x0018, h01=0x0050, text=» TBT TTREST,WCHUPD15«, t00=0x000f, t01=0x00a6}
0x182c…1848              Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GTDATO «, t00=0x000f, t01=0x00c2}
0x1848…1876              Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN10),GSWBCD7 UDB.DATO «, t00=0x000f, t01=0x00de}
0x1876…18ac              Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGF(CBIN11),GTDUPF(CBIN4) UDB. BELOB «, t00=0x000f, t01=0x010c}
0x18ac…18de              Head {h00=0x002e, h01=0x0050, text=» ADD GTREGF(CBIN12),GTDUPF(CBIN4) UDB ]TD «, t00=0x000f, t01=0x0142}
0x18de…18fc              Head {h00=0x001a, h01=0x0050, text=» TBF GTBDTFLG,WCHUPD16«, t00=0x000f, t01=0x0174}
0x18fc…1926 (16, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CBL GTDUPF(CBIN4),=D'0',WCHUPD12 «, t00=0x0010, t01=0x0004}
0x1926…195a              Head {h00=0x0030, h01=0x0050, text=» ADD GTREGF(CBIN14),GTDUPF(CBIN4) VENT DEBET«, t00=0x0010, t01=0x002e}
0x195a…196e              Head {h00=0x0010, h01=0x0050, text=» B WCHUPD14 «, t00=0x0010, t01=0x0062}
0x196e…197e              Head {h00=0x000c, h01=0x0050, text=»WCHUPD12«, t00=0x0010, t01=0x0076}
0x197e…19b4              Head {h00=0x0032, h01=0x0050, text=» ADD GTREGF(CBIN15),GTDUPF(CBIN4) VENT KREDIT «, t00=0x0010, t01=0x0086}
0x19b4…19c4              Head {h00=0x000c, h01=0x0050, text=»WCHUPD14«, t00=0x0010, t01=0x00bc}
0x19c4…19fc              Head {h00=0x0034, h01=0x0050, text=» ADD GTREGF(CBIN16),GTDUPF(CBIN4) SKYLDIGT BELOB«, t00=0x0010, t01=0x00cc}
0x19fc…1a0c              Head {h00=0x000c, h01=0x0050, text=»WCHUPD15«, t00=0x0010, t01=0x0104}
0x1a0c…1a42              Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBCD6,GTREGF(CBIN13) GET LOW VALORDATE«, t00=0x0010, t01=0x0114}
0x1a42…1a5e              Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0010, t01=0x014a}
0x1a5e…1a82              Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7«, t00=0x0010, t01=0x0166}
0x1a82…1aa6              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN7) «, t00=0x0010, t01=0x018a}
0x1aa6…1ac2              Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0011, t01=0x001e}
0x1ac2…1af8              Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD7,GTREGF(CBIN13),WCHUPD16 NEW LOW? «, t00=0x0011, t01=0x003a}
0x1af8…1b26              Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN13),GTDUPF(CBIN7) YES«, t00=0x0011, t01=0x0070}
0x1b26…1b36              Head {h00=0x000c, h01=0x0050, text=»WCHUPD16«, t00=0x0011, t01=0x009e}
0x1b36…1b42              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x00ae}
0x1b42…1b50              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x00ba}
0x1b50…1b5e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00c8}
0x1b5e…1b7c              Head {h00=0x001a, h01=0x0050, text=»WRITJT   PROC  $JTLIT «, t00=0x0011, t01=0x00d6}
0x1b7c…1b90              Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x0011, t01=0x00f4}
0x1b90…1bac              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0108}
0x1bac…1bb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0124}
0x1bb6…1bf0              Head {h00=0x0036, h01=0x0050, text=»*        THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x0011, t01=0x012e}
0x1bf0…1c1e              Head {h00=0x002a, h01=0x0050, text=»*        DEPENDING ON TRANSACTION TYPE«, t00=0x0011, t01=0x0168}
0x1c1e…1c28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c28…1c44              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0012}
0x1c44…1c58              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0012, t01=0x002e}
0x1c58…1c6c              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0012, t01=0x0042}
0x1c6c…1c88              Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x0012, t01=0x0056}
0x1c88…1cae              Head {h00=0x0022, h01=0x0050, text=»         MOVE  GSWBIN1,$JTLIT «, t00=0x0012, t01=0x0072}
0x1cae…1cd8              Head {h00=0x0026, h01=0x0050, text=»         CBG   GSWBIN1,CBIN0,JT10 «, t00=0x0012, t01=0x0098}
0x1cd8…1d22              Head {h00=0x0046, h01=0x0050, text=»         PERF  FRMTJT                  GET FORMAT ACORDING TO TYPE«, t00=0x0012, t01=0x00c2}
0x1d22…1d3e              Head {h00=0x0018, h01=0x0050, text=»         B     JT20 «, t00=0x0012, t01=0x010c}
0x1d3e…1d72              Head {h00=0x0030, h01=0x0050, text=»JT10 PERF FRMXJT,GSWBIN1 GET SPECIAL FORMAT «, t00=0x0012, t01=0x0128}
0x1d72…1d7e              Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x0012, t01=0x015c}
0x1d7e…1db2              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x0012, t01=0x0168}
0x1db2…1dcc              Head {h00=0x0016, h01=0x0050, text=» TBT GTNWFLG,JT50 «, t00=0x0013, t01=0x000c}
0x1dcc…1df8              Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x0013, t01=0x0026}
0x1df8…1e04              Head {h00=0x0008, h01=0x0050, text=»JT30«, t00=0x0013, t01=0x0052}
0x1e04…1e24              Head {h00=0x001c, h01=0x0050, text=» CBL GTREGDEX,CBIN8,JT35«, t00=0x0013, t01=0x005e}
0x1e24…1e44              Head {h00=0x001c, h01=0x0050, text=» CBG GTREGDEX,CBIN9,JT35«, t00=0x0013, t01=0x007e}
0x1e44…1e60              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,$JTLIT«, t00=0x0013, t01=0x009e}
0x1e60…1e80              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,CBIN0,JT35 «, t00=0x0013, t01=0x00ba}
0x1e80…1ea8              Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN20),=W'90',JT31«, t00=0x0013, t01=0x00da}
0x1ea8…1ec4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0013, t01=0x0102}
0x1ec4…1efe              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN1),CBIN0«, t00=0x0013, t01=0x011e}
0x1efe…1f1c              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0013, t01=0x0158}
0x1f1c…1f28              Head {h00=0x0008, h01=0x0050, text=»JT31«, t00=0x0013, t01=0x0176}
0x1f28…1f50              Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN21),=W'91',JT32«, t00=0x0013, t01=0x0182}
0x1f50…1f6c              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0014, t01=0x001a}
0x1f6c…1fa6              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN2),CBIN0«, t00=0x0014, t01=0x0036}
0x1fa6…1fc4              Head {h00=0x001a, h01=0x0050, text=»  WRITE KJTAPE,SPINPUT«, t00=0x0014, t01=0x0070}
0x1fc4…1fd0              Head {h00=0x0008, h01=0x0050, text=»JT32«, t00=0x0014, t01=0x008e}
0x1fd0…1ff8              Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN22),=W'92',JT33«, t00=0x0014, t01=0x009a}
0x1ff8…2014              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0014, t01=0x00c2}
0x2014…204e              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN3),CBIN0«, t00=0x0014, t01=0x00de}
0x204e…206c              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0014, t01=0x0118}
0x206c…2078              Head {h00=0x0008, h01=0x0050, text=»JT33«, t00=0x0014, t01=0x0136}
0x2078…2094              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0014, t01=0x0142}
0x2094…20be              Head {h00=0x0026, h01=0x0050, text=» CBNE GTUSED(GSWBIN1),=W'93',JT34 «, t00=0x0014, t01=0x015e}
0x20be…20da              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0014, t01=0x0188}
0x20da…2114              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN4),CBIN0«, t00=0x0015, t01=0x0014}
0x2114…2132              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0015, t01=0x004e}
0x2132…213e              Head {h00=0x0008, h01=0x0050, text=»JT34«, t00=0x0015, t01=0x006c}
0x213e…215a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'24'«, t00=0x0015, t01=0x0078}
0x215a…2184              Head {h00=0x0026, h01=0x0050, text=» CBNE GTUSED(GSWBIN1),=W'94',JT35 «, t00=0x0015, t01=0x0094}
0x2184…21a0              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0015, t01=0x00be}
0x21a0…21da              Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN5),CBIN0«, t00=0x0015, t01=0x00da}
0x21da…21f8              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0015, t01=0x0114}
0x21f8…2204              Head {h00=0x0008, h01=0x0050, text=»JT35«, t00=0x0015, t01=0x0132}
0x2204…220e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013e}
0x220e…2240              Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x0015, t01=0x0148}
0x2240…225c              Head {h00=0x0018, h01=0x0050, text=»         BOK   JTRET«, t00=0x0015, t01=0x017a}
0x225c…228c              Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x0016, t01=0x0008}
0x228c…22a0              Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x0016, t01=0x0038}
0x22a0…22ae              Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x0016, t01=0x004c}
0x22ae…22ba              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x005a}
0x22ba…22c6              Head {h00=0x0008, h01=0x0050, text=»JT50«, t00=0x0016, t01=0x0066}
0x22c6…22e8              Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KJTAPE,GTSTRFMT«, t00=0x0016, t01=0x0072}
0x22e8…22f4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0094}
0x22f4…230a              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0016, t01=0x00a0}
0x230a…2320              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0016, t01=0x00b6}
0x2320…2336              Head {h00=0x0012, h01=0x0050, text=»WTALLY   PROC «, t00=0x0016, t01=0x00cc}
0x2336…2352              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0016, t01=0x00e2}
0x2352…2374              Head {h00=0x001e, h01=0x0050, text=»*        WRITE TALLY ROLL «, t00=0x0016, t01=0x00fe}
0x2374…2390              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x0120}
0x2390…23a4              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0016, t01=0x013c}
0x23a4…23b8              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0016, t01=0x0150}
0x23b8…2404              Head {h00=0x0048, h01=0x0050, text=»         EDWRT   .NW,KTALLY,GTSTRFMT           EDWRT WITH THE FORMAT«, t00=0x0016, t01=0x0164}
0x2404…2424              Head {h00=0x001c, h01=0x0050, text=» RET  STORED IN GTSTRFMT«, t00=0x0017, t01=0x0020}
0x2424…2438              Head {h00=0x0010, h01=0x0050, text=»        PEND«, t00=0x0017, t01=0x0040}
0x2438…2440              Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0054}
0x2440…2456              Head {h00=0x0012, h01=0x0050, text=»CRKJ     PROC «, t00=0x0017, t01=0x005c}
0x2456…2472              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x0072}
0x2472…24ae              Head {h00=0x0038, h01=0x0050, text=»*         DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x0017, t01=0x008e}
0x24ae…24ca              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x00ca}
0x24ca…24f6              Head {h00=0x0028, h01=0x0050, text=»         EDWRT   .NW,KJTAPE,CRJTFMT «, t00=0x0017, t01=0x00e6}
0x24f6…250a              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0017, t01=0x0112}
0x250a…251e              Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x0017, t01=0x0126}
0x251e…253c              Head {h00=0x001a, h01=0x0050, text=»         FILLR   ' ',2«, t00=0x0017, t01=0x013a}
0x253c…2552              Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x0017, t01=0x0158}
0x2552…2568              Head {h00=0x0012, h01=0x0050, text=»        FMEND «, t00=0x0017, t01=0x016e}
0x2568…257e              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0017, t01=0x0184}
0x257e…2586              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x000a}
0x2586…2598              Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x0018, t01=0x0012}
0x2598…25b4              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0018, t01=0x0024}
0x25b4…25f2              Head {h00=0x003a, h01=0x0050, text=»*          DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x0018, t01=0x0040}
0x25f2…260e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0018, t01=0x007e}
0x260e…262c              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x0018, t01=0x009a}
0x262c…2638              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00b8}
0x2638…2640              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00c4}
0x2640…2654              Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x0018, t01=0x00cc}
0x2654…2668              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0018, t01=0x00e0}
0x2668…267e              Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x0018, t01=0x00f4}
0x267e…268c              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0018, t01=0x010a}
0x268c…269a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0118}
0x269a…26b0              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0018, t01=0x0126}
0x26b0…26c4              Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0018, t01=0x013c}
0x26c4…26ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0150}
0x26ce…26ec              Head {h00=0x001a, h01=0x0050, text=»*        WRITE VOUCHER«, t00=0x0018, t01=0x015a}
0x26ec…26f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0178}
0x26f6…2724              Head {h00=0x002a, h01=0x0050, text=»*        IN CYCLE  POSITION AND WRITE «, t00=0x0018, t01=0x0182}
0x2724…2750              Head {h00=0x0028, h01=0x0050, text=»*                  (MAY BE NEW PAGE)«, t00=0x0019, t01=0x0020}
0x2750…275a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004c}
0x275a…2782              Head {h00=0x0024, h01=0x0050, text=»*        NOT CYCLE  GET LINE NR «, t00=0x0019, t01=0x0056}
0x2782…27ae              Head {h00=0x0028, h01=0x0050, text=»*                  POSITION VOUCHER «, t00=0x0019, t01=0x007e}
0x27ae…27ce              Head {h00=0x001c, h01=0x0050, text=»*                  WRITE«, t00=0x0019, t01=0x00aa}
0x27ce…27fc              Head {h00=0x002a, h01=0x0050, text=»*                  AND RELEASE VOUCHER«, t00=0x0019, t01=0x00ca}
0x27fc…2806              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x2806…2822              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0019, t01=0x0102}
0x2822…284a              Head {h00=0x0024, h01=0x0050, text=»         TBT     GTCYFLG,CYVOUCH«, t00=0x0019, t01=0x011e}
0x284a…2860              Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0019, t01=0x0146}
0x2860…2870              Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0019, t01=0x015c}
0x2870…289c              Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0019, t01=0x016c}
0x289c…28b8              Head {h00=0x0018, h01=0x0050, text=»         PERF GRASPV«, t00=0x001a, t01=0x0008}
0x28b8…28d0              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001a, t01=0x0024}
0x28d0…28f8              Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x001a, t01=0x003c}
0x28f8…2918              Head {h00=0x001c, h01=0x0050, text=»         BNOK    WOBILAG«, t00=0x001a, t01=0x0064}
0x2918…2938              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x001a, t01=0x0084}
0x2938…2956              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001a, t01=0x00a4}
0x2956…2966              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001a, t01=0x00c2}
0x2966…2988              Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x001a, t01=0x00d2}
0x2988…29a4              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x001a, t01=0x00f4}
0x29a4…29bc              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2,  C «, t00=0x001a, t01=0x0110}
0x29bc…29e2              Head {h00=0x0022, h01=0x0050, text=»  WO99,WO98,WO97,WO96,WO95,  C«, t00=0x001a, t01=0x0128}
0x29e2…2a00              Head {h00=0x001a, h01=0x0050, text=»  WO94,WO93,WO92,WO91 «, t00=0x001a, t01=0x014e}
0x2a00…2a0c              Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x001a, t01=0x016c}
0x2a0c…2a26              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x001a, t01=0x0178}
0x2a26…2a42 (27, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x001b, t01=0x0004}
0x2a42…2a52              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001b, t01=0x0020}
0x2a52…2a5e              Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x001b, t01=0x0030}
0x2a5e…2a78              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x001b, t01=0x003c}
0x2a78…2a94              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN14«, t00=0x001b, t01=0x0056}
0x2a94…2aa4              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001b, t01=0x0072}
0x2aa4…2ab0              Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x001b, t01=0x0082}
0x2ab0…2aca              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x001b, t01=0x008e}
0x2aca…2ae6              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN14«, t00=0x001b, t01=0x00a8}
0x2ae6…2af6              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001b, t01=0x00c4}
0x2af6…2b02              Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x001b, t01=0x00d4}
0x2b02…2b1e              Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x001b, t01=0x00e0}
0x2b1e…2b3a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x001b, t01=0x00fc}
0x2b3a…2b4a              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001b, t01=0x0118}
0x2b4a…2b56              Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x001b, t01=0x0128}
0x2b56…2b62              Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x001b, t01=0x0134}
0x2b62…2b6e              Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x001b, t01=0x0140}
0x2b6e…2b88              Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x001b, t01=0x014c}
0x2b88…2b9a              Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x001b, t01=0x0166}
0x2b9a…2bb6              Head {h00=0x0018, h01=0x0050, text=»WO92   SHORT 'BILAG'«, t00=0x001b, t01=0x0178}
0x2bb6…2bd6 (28, 0, 400) Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x001c, t01=0x0004}
0x2bd6…2bea              Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x001c, t01=0x0024}
0x2bea…2c00              Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001c, t01=0x0038}
0x2c00…2c14              Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x001c, t01=0x004e}
0x2c14…2c26              Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x001c, t01=0x0062}
0x2c26…2c46              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x001c, t01=0x0074}
0x2c46…2c64              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001c, t01=0x0094}
0x2c64…2c7c              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001c, t01=0x00b2}
0x2c7c…2c98              Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x001c, t01=0x00ca}
0x2c98…2ca8              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001c, t01=0x00e6}
0x2ca8…2cb4              Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x001c, t01=0x00f6}
0x2cb4…2ce2              Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,CBIN3 INDICATE KONTOKORT«, t00=0x001c, t01=0x0102}
0x2ce2…2cee              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0130}
0x2cee…2cf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013c}
0x2cf8…2d06              Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x001c, t01=0x0146}
0x2d06…2d38              Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x001c, t01=0x0154}
0x2d38…2d70              Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x001c, t01=0x0186}
0x2d70…2d82              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x001d, t01=0x002e}
0x2d82…2dca              Head {h00=0x0044, h01=0x0050, text=»         DSC0    .NW,KVOUCH,RLEAS                RELEASE VOUCHER«, t00=0x001d, t01=0x0040}
0x2dca…2dde              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x001d, t01=0x0088}
0x2dde…2df0              Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x001d, t01=0x009c}
0x2df0…2e00              Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x001d, t01=0x00ae}
0x2e00…2e2c              Head {h00=0x0028, h01=0x0050, text=» SET TTCYTRFL AFTER A CORRECT TRANS «, t00=0x001d, t01=0x00be}
0x2e2c…2e46              Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x001d, t01=0x00ea}
0x2e46…2e5a              Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x001d, t01=0x0104}
0x2e5a…2e6c              Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x001d, t01=0x0118}
0x2e6c…2e78              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x012a}
0x2e78…2e82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0136}
0x2e82…2e8e              Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x001d, t01=0x0140}
0x2e8e…2eb4              Head {h00=0x0022, h01=0x0050, text=»         TBT     TTTSTFLG,WO10«, t00=0x001d, t01=0x014c}
0x2eb4…2ed6              Head {h00=0x001e, h01=0x0050, text=»         SET     TTTSTFLG «, t00=0x001d, t01=0x0172}
0x2ed6…2f04 (30, 0, 400) Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x001e, t01=0x0004}
0x2f04…2f24              Head {h00=0x001c, h01=0x0050, text=»         PERF    GRASPV «, t00=0x001e, t01=0x0032}
0x2f24…2f38              Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x001e, t01=0x0052}
0x2f38…2f44              Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x001e, t01=0x0066}
0x2f44…2f62              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001e, t01=0x0072}
0x2f62…2f94              Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x001e, t01=0x0090}
0x2f94…2fb6              Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x001e, t01=0x00c2}
0x2fb6…2fc4              Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001e, t01=0x00e4}
0x2fc4…2fce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f2}
0x2fce…2ff2              Head {h00=0x0020, h01=0x0050, text=»*        WRITING OF TEXTLINE«, t00=0x001e, t01=0x00fc}
0x2ff2…3018              Head {h00=0x0022, h01=0x0050, text=»*        FOR CHECK ON WORKSET «, t00=0x001e, t01=0x0120}
0x3018…3022              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0146}
0x3022…3030              Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001e, t01=0x0150}
0x3030…306c              Head {h00=0x0038, h01=0x0050, text=»         SUB     TTLINNR,=D'2'             NEXT LINE«, t00=0x001e, t01=0x015e}
0x306c…30a8              Head {h00=0x0038, h01=0x0050, text=»         CBL     TTLINNR,=D'4',NEWPG       NEW PAGE?«, t00=0x001f, t01=0x000a}
0x30a8…30b8              Head {h00=0x000c, h01=0x0050, text=» RET  NO«, t00=0x001f, t01=0x0046}
0x30b8…30c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0056}
0x30c2…30da              Head {h00=0x0014, h01=0x0050, text=»NEWPG   NEW PAGE«, t00=0x001f, t01=0x0060}
0x30da…3104              Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x001f, t01=0x0078}
0x3104…3118              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001f, t01=0x00a2}
0x3118…3136              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001f, t01=0x00b6}
0x3136…3156              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x001f, t01=0x00d4}
0x3156…3174              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x001f, t01=0x00f4}
0x3174…318e              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x001f, t01=0x0112}
0x318e…31ac              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001f, t01=0x012c}
0x31ac…31d2              Head {h00=0x0022, h01=0x0050, text=»         DSC0    KVOUCH,RLEAS «, t00=0x001f, t01=0x014a}
0x31d2…31e8              Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x001f, t01=0x0170}
0x31e8…31f6              Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x001f, t01=0x0186}
0x31f6…3202 (32, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0004}
0x3202…3218              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0020, t01=0x0010}
0x3218…3222              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0026}
0x3222…322c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0030}
0x322c…3236              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003a}
0x3236…3240              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0044}
0x3240…3256              Head {h00=0x0012, h01=0x0050, text=»GRASPV   PROC «, t00=0x0020, t01=0x004e}
0x3256…3272              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0064}
0x3272…327c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0080}
0x327c…329a              Head {h00=0x001a, h01=0x0050, text=»*        GRASP VOUCHER«, t00=0x0020, t01=0x008a}
0x329a…32a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a8}
0x32a4…32c0              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x00b2}
0x32c0…32d4              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0020, t01=0x00ce}
0x32d4…32fc              Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x0020, t01=0x00e2}
0x32fc…3310              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0020, t01=0x010a}
0x3310…3326              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0020, t01=0x011e}
0x3326…333c              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0020, t01=0x0134}
0x333c…3352              Head {h00=0x0012, h01=0x0050, text=»LINOPT   PROC «, t00=0x0020, t01=0x014a}
0x3352…336e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0160}
0x336e…3378              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017c}
0x3378…33a2              Head {h00=0x0026, h01=0x0050, text=»*        CHECK LINE NUMBER, IF ANY«, t00=0x0020, t01=0x0186}
0x33a2…33ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0020}
0x33ac…33c8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x002a}
0x33c8…33e4              Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x0021, t01=0x0046}
0x33e4…340e              Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x0021, t01=0x0062}
0x340e…342c              Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x0021, t01=0x008c}
0x342c…343a              Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x0021, t01=0x00aa}
0x343a…344c              Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0021, t01=0x00b8}
0x344c…3478              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,CBIN18,LINOP0 SLUT KEY «, t00=0x0021, t01=0x00ca}
0x3478…34b2              Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,CBIN4,LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x0021, t01=0x00f6}
0x34b2…34c0              Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x0021, t01=0x0130}
0x34c0…34ee              Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,CBIN3,LINOP2 CHECK LENGTH«, t00=0x0021, t01=0x013e}
0x34ee…3518              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x0021, t01=0x016c}
0x3518…354c              Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x0022, t01=0x0008}
0x354c…3572              Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x0022, t01=0x003c}
0x3572…35a4              Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,CBIN3,LINOP2 ERROR IN LINE NR«, t00=0x0022, t01=0x0062}
0x35a4…35d8              Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x0022, t01=0x0094}
0x35d8…35e6              Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x0022, t01=0x00c8}
0x35e6…360a              Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x0022, t01=0x00d6}
0x360a…361c              Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0022, t01=0x00fa}
0x361c…362a              Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x0022, t01=0x010c}
0x362a…364c              Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x0022, t01=0x011a}
0x364c…3670              Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x0022, t01=0x013c}
0x3670…368e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x0022, t01=0x0160}
0x368e…36a0              Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x0022, t01=0x017e}
0x36a0…36b0              Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x0022, t01=0x0190}
0x36b0…36ce              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x0023, t01=0x0010}
0x36ce…36ec              Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x0023, t01=0x002e}
0x36ec…3700              Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0023, t01=0x004c}
0x3700…3732              Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x0023, t01=0x0060}
0x3732…3758              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x0023, t01=0x0092}
0x3758…3774              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0023, t01=0x00b8}
0x3774…3786              Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0023, t01=0x00d4}
0x3786…3794              Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x0023, t01=0x00e6}
0x3794…37be              Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0023, t01=0x00f4}
0x37be…37d6              Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x0023, t01=0x011e}
0x37d6…3800              Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x0023, t01=0x0136}
0x3800…3814              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0023, t01=0x0160}
0x3814…3822              Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x0023, t01=0x0174}
0x3822…3840              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0023, t01=0x0182}
0x3840…3850              Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x0024, t01=0x0010}
0x3850…385e              Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x0024, t01=0x0020}
0x385e…3880              Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x0024, t01=0x002e}
0x3880…388c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0050}
0x388c…38a0              Head {h00=0x0010, h01=0x0050, text=»        PEND«, t00=0x0024, t01=0x005c}
0x38a0…38ae              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0070}
0x38ae…38d4              Head {h00=0x0022, h01=0x0050, text=»WRITID PROC WRITVAR1,WRITVAR2 «, t00=0x0024, t01=0x007e}
0x38d4…38f0              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x00a4}
0x38f0…38fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c0}
0x38fa…3932              Head {h00=0x0034, h01=0x0050, text=»*          PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x0024, t01=0x00ca}
0x3932…3966              Head {h00=0x0030, h01=0x0050, text=»*          PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x0024, t01=0x0102}
0x3966…3970              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x3970…399e              Head {h00=0x002a, h01=0x0050, text=»*          PRINTS ON JOURNAL AND TALLY«, t00=0x0024, t01=0x0140}
0x399e…39a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016e}
0x39a8…39b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0178}
0x39b2…39ce              Head {h00=0x0018, h01=0x0050, text=»*          WRITVAR1:«, t00=0x0024, t01=0x0182}
0x39ce…39ee              Head {h00=0x001c, h01=0x0050, text=»*               1   FEJL«, t00=0x0025, t01=0x000e}
0x39ee…3a12              Head {h00=0x0020, h01=0x0050, text=»*               2   OPSTART «, t00=0x0025, t01=0x002e}
0x3a12…3a3c              Head {h00=0x0026, h01=0x0050, text=»*               3   DISKETTE SKIFT«, t00=0x0025, t01=0x0052}
0x3a3c…3a64              Head {h00=0x0024, h01=0x0050, text=»*               4   KONVERTERING«, t00=0x0025, t01=0x007c}
0x3a64…3a90              Head {h00=0x0028, h01=0x0050, text=»*               5   DATATRANSMISSION«, t00=0x0025, t01=0x00a4}
0x3a90…3ab2              Head {h00=0x001e, h01=0x0050, text=»*               6   BACKUP«, t00=0x0025, t01=0x00d0}
0x3ab2…3abc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f2}
0x3abc…3ad8              Head {h00=0x0018, h01=0x0050, text=»*          WRITVAR2:«, t00=0x0025, t01=0x00fc}
0x3ad8…3b0e              Head {h00=0x0032, h01=0x0050, text=»*          CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x0025, t01=0x0118}
0x3b0e…3b36              Head {h00=0x0024, h01=0x0050, text=»*               1   1-20 + 40-59«, t00=0x0025, t01=0x014e}
0x3b36…3b70              Head {h00=0x0036, h01=0x0050, text=»*               2   1-20 + 23-42, IF KONVERTERING «, t00=0x0025, t01=0x0176}
0x3b70…3bae              Head {h00=0x003a, h01=0x0050, text=»*               2   1-20 + VOLID, IF NOT KONVERTERING «, t00=0x0026, t01=0x0020}
0x3bae…3bd2              Head {h00=0x0020, h01=0x0050, text=»*               3   NOTHING «, t00=0x0026, t01=0x005e}
0x3bd2…3bf4              Head {h00=0x001e, h01=0x0050, text=»*               4   VOLID «, t00=0x0026, t01=0x0082}
0x3bf4…3bfe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a4}
0x3bfe…3c08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ae}
0x3c08…3c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b8}
0x3c12…3c2e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0026, t01=0x00c2}
0x3c2e…3c38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00de}
0x3c38…3c4c              Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x0026, t01=0x00e8}
0x3c4c…3c8a              Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x0026, t01=0x00fc}
0x3c8a…3c9c              Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0026, t01=0x013a}
0x3c9c…3caa              Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x0026, t01=0x014c}
0x3caa…3cca              Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x0026, t01=0x015a}
0x3cca…3cdc              Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0026, t01=0x017a}
0x3cdc…3cea              Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x0026, t01=0x018c}
0x3cea…3d0e              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x0027, t01=0x000a}
0x3d0e…3d20              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0027, t01=0x002e}
0x3d20…3d2e              Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x0027, t01=0x0040}
0x3d2e…3d58              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'DISKETTE SKIFT '«, t00=0x0027, t01=0x004e}
0x3d58…3d6a              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0027, t01=0x0078}
0x3d6a…3d78              Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x0027, t01=0x008a}
0x3d78…3da0              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x0027, t01=0x0098}
0x3da0…3db2              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0027, t01=0x00c0}
0x3db2…3dc0              Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x0027, t01=0x00d2}
0x3dc0…3dec              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x0027, t01=0x00e0}
0x3dec…3dfe              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0027, t01=0x010c}
0x3dfe…3e0c              Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x0027, t01=0x011e}
0x3e0c…3e2e              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x0027, t01=0x012c}
0x3e2e…3e3c              Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x0027, t01=0x014e}
0x3e3c…3e58              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0027, t01=0x015c}
0x3e58…3e72              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0027, t01=0x0178}
0x3e72…3e86 (40, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0028, t01=0x0004}
0x3e86…3e90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0018}
0x3e90…3e9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0022}
0x3e9a…3ea8              Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x0028, t01=0x002c}
0x3ea8…3ebc              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0028, t01=0x003a}
0x3ebc…3ede              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x0028, t01=0x004e}
0x3ede…3f00              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x0028, t01=0x0070}
0x3f00…3f1e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CPCKBUF«, t00=0x0028, t01=0x0092}
0x3f1e…3f3a              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0028, t01=0x00b0}
0x3f3a…3f5c              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN3,WRID60«, t00=0x0028, t01=0x00cc}
0x3f5c…3f76              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0028, t01=0x00ee}
0x3f76…3f8a              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0028, t01=0x0108}
0x3f8a…3f9e              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0028, t01=0x011c}
0x3f9e…3fa8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0130}
0x3fa8…3fb6              Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0028, t01=0x013a}
0x3fb6…3fd8              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0028, t01=0x0148}
0x3fd8…3ff4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0028, t01=0x016a}
0x3ff4…4010              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0028, t01=0x0186}
0x4010…4044              Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0029, t01=0x0012}
0x4044…4056              Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0029, t01=0x0046}
0x4056…4060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0058}
0x4060…406e              Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0029, t01=0x0062}
0x406e…4092              Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0029, t01=0x0070}
0x4092…40ae              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0029, t01=0x0094}
0x40ae…40ca              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0029, t01=0x00b0}
0x40ca…40fe              Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0029, t01=0x00cc}
0x40fe…4110              Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0029, t01=0x0100}
0x4110…411e              Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0029, t01=0x0112}
0x411e…4140              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0029, t01=0x0120}
0x4140…414e              Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0029, t01=0x0142}
0x414e…416a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=' ' «, t00=0x0029, t01=0x0150}
0x416a…4186              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0029, t01=0x016c}
0x4186…41a4              Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0029, t01=0x0188}
0x41a4…41b2              Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x002a, t01=0x0016}
0x41b2…41ce              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x002a, t01=0x0024}
0x41ce…41f8              Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,CBIN4,WRID76 1,2,3,6«, t00=0x002a, t01=0x0040}
0x41f8…421e              Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,CBIN6,WRID90 4,5«, t00=0x002a, t01=0x006a}
0x421e…422c              Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x002a, t01=0x0090}
0x422c…4246              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x002a, t01=0x009e}
0x4246…425a              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x002a, t01=0x00b8}
0x425a…426e              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002a, t01=0x00cc}
0x426e…4280              Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x002a, t01=0x00e0}
0x4280…428e              Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x002a, t01=0x00f2}
0x428e…42b0              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN3,WRID90«, t00=0x002a, t01=0x0100}
0x42b0…42be              Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x002a, t01=0x0122}
0x42be…42d8              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x002a, t01=0x0130}
0x42d8…42ec              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x002a, t01=0x014a}
0x42ec…4300              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002a, t01=0x015e}
0x4300…430e              Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x002a, t01=0x0172}
0x430e…431a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0180}
0x431a…4328              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x018c}
0x4328…4336              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x000a}
0x4336…4370              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x002b, t01=0x0018}
0x4370…437a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0052}
0x437a…439c              Head {h00=0x001e, h01=0x0050, text=»*       FORMATS FOR WRITFD«, t00=0x002b, t01=0x005c}
0x439c…43a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007e}
0x43a6…43e6              Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002b, t01=0x0088}
0x43e6…43f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c8}
0x43f0…4404              Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x002b, t01=0x00d2}
0x4404…441a              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x002b, t01=0x00e6}
0x441a…4430              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x002b, t01=0x00fc}
0x4430…444c              Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x002b, t01=0x0112}
0x444c…4464              Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x002b, t01=0x012e}
0x4464…4472              Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x002b, t01=0x0146}
0x4472…4480              Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x002b, t01=0x0154}
0x4480…4496              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x002b, t01=0x0162}
0x4496…44a4              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002b, t01=0x0178}
0x44a4…44ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0186}
0x44ae…44c2              Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x002b, t01=0x0190}
0x44c2…44e2              Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x002c, t01=0x0014}
0x44e2…44f6              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x002c, t01=0x0034}
0x44f6…4514              Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',GSWBCD3 «, t00=0x002c, t01=0x0048}
0x4514…4522              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002c, t01=0x0066}
0x4522…452c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0074}
0x452c…453e              Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x002c, t01=0x007e}
0x453e…4558              Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x002c, t01=0x0090}
0x4558…456e              Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x002c, t01=0x00aa}
0x456e…4588              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x002c, t01=0x00c0}
0x4588…45a6              Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x002c, t01=0x00da}
0x45a6…45c2              Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x002c, t01=0x00f8}
0x45c2…45dc              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x002c, t01=0x0114}
0x45dc…45f2              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x002c, t01=0x012e}
0x45f2…460e              Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x002c, t01=0x0144}
0x460e…462a              Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x002c, t01=0x0160}
0x462a…4646              Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x002c, t01=0x017c}
0x4646…465c              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x002d, t01=0x0008}
0x465c…467a              Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x002d, t01=0x001e}
0x467a…4688              Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x002d, t01=0x003c}
0x4688…469e              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x002d, t01=0x004a}
0x469e…46b8              Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x002d, t01=0x0060}
0x46b8…46d4              Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x002d, t01=0x007a}
0x46d4…46ea              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x002d, t01=0x0096}
0x46ea…4706              Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x002d, t01=0x00ac}
0x4706…4714              Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x002d, t01=0x00c8}
0x4714…4722              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002d, t01=0x00d6}
0x4722…472c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e4}
0x472c…473e              Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x002d, t01=0x00ee}
0x473e…4752              Head {h00=0x0010, h01=0x0050, text=» FILLR '&',1«, t00=0x002d, t01=0x0100}
0x4752…476c              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x002d, t01=0x0114}
0x476c…4788              Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x002d, t01=0x012e}
0x4788…47b8              Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x002d, t01=0x014a}
0x47b8…47c6              Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x002d, t01=0x017a}
0x47c6…47d4              Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x002d, t01=0x0188}
0x47d4…4802              Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x002e, t01=0x0008}
0x4802…4810              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002e, t01=0x0036}
0x4810…481c              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002e, t01=0x0044}
0x481c…4820              Head {h00=0x4004, h01=0x0000}
0x4820…4824              00 2e 00 50                                                                                                                                                                                                                                       ┆ . P┆
0x4824…482c (47, 1, 8)   20 04 00 00 00 2f 00 04                                                                                                                                                                                                                           ┆     /  ┆
0x482c…487c (48, 0, 400) 00 1f 01 7a 00 08 00 04 20 52 45 54 00 20 00 08 00 0a 00 05 20 50 45 4e 44 20 00 20 00 14 00 0a 00 50 20 45 4a 45 43 54 00 20 00 22 00 22 00 50 4b 46 57 52 49 54 20 50 52 4f 43 20 54 59 50 45 2c 41 52 54 2c 4e 52 2c 56 41 4c 55 45 20 00 20   ┆   z     RET         PEND        P EJECT   " " PKFWRIT PROC TYPE,ART,NR,VALUE   ┆
0x487c…48cc              00 30 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 20 00 56 00 30 00 50 2a 20 20 20 20 20 57 52 49 54 45 20 54 4f 20 4b 4f 4e 54 4f 46 49 4c 45 2c 20 44 45 50 45 4e 44 49 4e 47 20 4f 4e 20 54 59 50 45 20 00 20 00 68 00 06 00 01 2a 20 00 20   ┆ 0   P**********   V 0 P*     WRITE TO KONTOFILE, DEPENDING ON TYPE    h    *   ┆
0x48cc…491c              00 9c 00 24 00 1f 2a 20 20 20 20 20 54 59 50 45 20 3d 20 31 20 20 45 4a 2d 45 44 42 20 43 4f 55 4e 54 45 52 53 20 00 20 00 a6 00 06 00 01 2a 20 00 20 00 ce 00 28 00 23 2a 20 20 20 20 20 20 20 20 20 20 41 52 54 20 3d 20 31 20 20 20 4b 52 45   ┆   $  *     TYPE = 1  EJ-EDB COUNTERS         *      ( #*          ART = 1   KRE┆
0x491c…496c              44 49 54 20 43 4f 55 4e 54 45 52 20 00 20 00 d8 00 26 00 22 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 44 45 42 45 54 20 43 4f 55 4e 54 45 52 00 20 01 04 00 26 00 22 2a 20 20 20 20 20 20 20 20 20 20 4e 52 20 20 3d 20 45   ┆DIT COUNTER      & "*                2   DEBET COUNTER     & "*          NR  = E┆
0x496c…49bc              4a 2d 45 44 42 20 43 4f 55 4e 54 45 52 20 4e 4f 00 20 01 2e 00 06 00 01 2a 20 00 20 01 58 00 28 00 24 2a 20 20 20 20 20 20 20 20 20 20 52 45 43 4f 52 44 20 49 4e 44 45 58 20 3d 20 4e 52 2a 32 2b 41 52 54 2d 32 00 20 01 62 00 06 00 01 2a 20   ┆J-EDB COUNTER NO   .    *    X ( $*          RECORD INDEX = NR*2+ART-2   b    * ┆
0x49bc…4a0c (49, 0, 400) 00 20 01 8e 00 20 00 1b 2a 20 20 20 20 20 54 59 50 45 20 3d 20 32 20 20 50 45 4e 47 45 20 4b 4f 4e 54 49 20 00 21 00 08 00 06 00 01 2a 20 00 21 00 2c 00 24 00 1f 2a 20 20 20 20 20 20 20 20 20 20 41 52 54 20 3d 20 30 20 20 20 41 43 43 4f 55   ┆        *     TYPE = 2  PENGE KONTI  !      *  ! , $  *          ART = 0   ACCOU┆
0x4a0c…4a5c              4e 54 20 4e 4f 20 00 21 00 36 00 30 00 2c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 4d 4f 56 45 4d 45 4e 54 20 4f 4e 20 54 48 45 20 41 43 43 4f 55 4e 54 00 21 00 5e 00 24 00 20 2a 20 20 20 20 20 20 20 20 20 20 4e 52 20   ┆NT NO  ! 6 0 ,*                1   MOVEMENT ON THE ACCOUNT ! ^ $  *          NR ┆
0x4a5c…4aac              20 3d 20 42 45 54 2d 46 4f 52 4d 20 20 28 30 2d 34 29 00 21 00 92 00 06 00 01 2a 20 00 21 00 ba 00 3a 00 36 2a 20 20 20 20 20 20 20 20 20 20 52 45 43 4f 52 44 20 49 4e 44 45 58 20 3d 20 31 32 31 20 2b 28 54 54 41 53 4b 4e 52 2a 32 34 29 2b   ┆ = BET-FORM  (0-4) !      *  !   : 6*          RECORD INDEX = 121 +(TTASKNR*24)+┆
0x4aac…4afc              28 4e 52 2a 32 29 2b 41 52 54 00 21 00 c4 00 3a 00 35 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 20 28 28 54 54 41 53 4b 4e 52 2a 31 32 29 2b 4e 52 29 2a 32 2b 31 32 31 2b 41 52 54 20 00 21 01 02 00 06 00 01   ┆(NR*2)+ART !   : 5*                         ((TTASKNR*12)+NR)*2+121+ART  !      ┆
0x4afc…4b4c              2a 20 00 21 01 40 00 22 00 1d 2a 20 20 20 20 20 54 59 50 45 20 3d 20 33 20 20 20 56 45 52 53 55 52 20 43 4f 4e 54 49 20 00 21 01 4a 00 06 00 01 2a 20 00 21 01 70 00 24 00 1f 2a 20 20 20 20 20 20 20 20 20 20 41 52 54 20 3d 20 30 20 20 20 41   ┆*  ! @ "  *     TYPE = 3   VERSUR CONTI  ! J    *  ! p $  *          ART = 0   A┆
0x4b4c…4b9c (50, 0, 400) 43 43 4f 55 4e 54 20 4e 4f 20 00 21 01 7a 00 28 00 23 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 4b 52 45 44 49 54 20 43 4f 55 4e 54 45 52 20 00 22 00 12 00 26 00 22 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32   ┆CCOUNT NO  ! z ( #*                1   KREDIT COUNTER  "   & "*                2┆
0x4b9c…4bec              20 20 20 44 45 42 45 54 20 43 4f 55 4e 54 45 52 00 22 00 3e 00 24 00 20 2a 20 20 20 20 20 20 20 20 20 20 4e 52 20 20 3d 20 42 45 54 2d 46 4f 52 4d 20 20 28 31 2d 34 29 00 22 00 68 00 06 00 01 2a 20 00 22 00 90 00 3c 00 37 2a 20 20 20 20 20   ┆   DEBET COUNTER " > $  *          NR  = BET-FORM  (1-4) " h    *  "   < 7*     ┆
0x4bec…4c3c              20 20 20 20 20 52 45 43 4f 52 44 20 49 4e 44 45 58 20 3d 20 31 32 31 2b 28 54 54 41 53 4b 4e 52 2a 32 34 29 2b 37 2b 28 4e 52 2a 33 29 2b 41 52 54 20 00 22 00 9a 00 3a 00 36 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     RECORD INDEX = 121+(TTASKNR*24)+7+(NR*3)+ART  "   : 6*                     ┆
0x4c3c…4c8c              20 20 3d 20 28 28 54 54 41 53 4b 4e 52 2a 38 29 2b 4e 52 29 2a 33 2b 41 52 54 2b 31 32 31 2b 37 00 22 00 da 00 06 00 01 2a 20 00 22 01 18 00 1e 00 50 2a 20 20 20 20 20 54 59 50 45 20 3d 20 34 20 20 43 48 45 43 4b 20 4c 42 4e 52 00 22 01 22   ┆  = ((TTASKNR*8)+NR)*3+ART+121+7 "      *  "     P*     TYPE = 4  CHECK LBNR " "┆
0x4c8c…4cdc              00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 52 45 43 4f 52 44 20 49 4e 44 45 58 20 3d 20 31 34 30 20 2b 20 41 52 54 20 00 22 01 44 00 06 00 50 2a 20 00 22 01 70 00 06 00 01 2a 20 00 22 01 7a 00 34 00 50 2a 20 20 20 20 20 49 4e 50 55 54 20   ┆ ( P*          RECORD INDEX = 140 + ART  " D   P*  " p    *  " z 4 P*     INPUT ┆
0x4cdc…4d2c (51, 0, 400) 56 41 4c 55 45 20 54 4f 20 42 45 20 53 54 4f 52 45 44 20 3d 20 56 41 4c 55 45 20 28 42 43 44 20 31 34 29 20 00 22 01 84 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 00 2c 00 06 00 01 2a 20 00 23 00 3e 00 20 00 1d 2a 20 20 20 20 20 54 48   ┆VALUE TO BE STORED = VALUE (BCD 14)  "      ********** # ,    *  # >    *     TH┆
0x4d2c…4d7c              49 53 20 50 52 4f 43 45 44 55 52 45 20 43 48 41 4e 47 45 53 00 23 00 48 00 16 00 12 2a 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 31 00 23 00 6c 00 16 00 12 2a 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 38 00 23 00 86 00 06 00 01   ┆IS PROCEDURE CHANGES # H    *          GSWBIN1 # l    *          GSWBIN8 #      ┆
0x4d7c…4dcc              2a 20 00 23 00 a0 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 00 aa 00 16 00 12 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 54 59 50 45 00 23 00 bc 00 2c 00 50 20 49 42 20 47 53 57 42 49 4e 38 2c 4b 46 57 31 30 30 2c 4b 46 57 32 30 30 2c   ┆*  #      ********** #       MOVE GSWBIN8,TYPE #   , P IB GSWBIN8,KFW100,KFW200,┆
0x4dcc…4e1c              4b 46 57 33 30 30 2c 4b 46 57 34 30 30 20 00 23 00 d6 00 0e 00 50 20 42 20 4b 46 57 52 45 54 20 00 23 01 06 00 06 00 50 2a 20 00 23 01 18 00 10 00 50 2a 20 20 20 20 20 45 4a 2d 45 44 42 00 23 01 22 00 0a 00 50 4b 46 57 31 30 30 00 23 01 36   ┆KFW300,KFW400  #     P B KFWRET  #     P*  #     P*     EJ-EDB # "   PKFW100 # 6┆
0x4e1c…4e6c              00 14 00 10 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 4e 52 00 23 01 44 00 16 00 12 20 4d 55 4c 20 47 53 57 42 49 4e 38 2c 43 42 49 4e 32 00 23 01 5c 00 16 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 41 52 54 20 00 23 01 76 00 18 00 50   ┆     MOVE GSWBIN8,NR # D     MUL GSWBIN8,CBIN2 #     P MOVE GSWBIN1,ART  # v   P┆
0x4e6c…4ebc (52, 0, 400) 20 41 44 44 20 47 53 57 42 49 4e 38 2c 47 53 57 42 49 4e 31 00 23 01 90 00 2c 00 27 20 53 55 42 20 47 53 57 42 49 4e 38 2c 43 42 49 4e 32 20 47 53 57 42 49 4e 38 3d 52 45 43 4f 52 44 20 49 4e 44 45 58 20 00 24 00 1c 00 0e 00 50 20 42 20 4b   ┆ ADD GSWBIN8,GSWBIN1 #   , ' SUB GSWBIN8,CBIN2 GSWBIN8=RECORD INDEX  $     P B K┆
0x4ebc…4f0c              46 57 35 30 30 20 00 24 00 4c 00 06 00 50 2a 20 00 24 00 5e 00 14 00 50 2a 20 20 20 20 20 50 45 4e 47 45 4b 4f 4e 54 49 00 24 00 68 00 0a 00 50 4b 46 57 32 30 30 00 24 00 80 00 1a 00 15 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 54 54 41 53   ┆FW500  $ L   P*  $ ^   P*     PENGEKONTI $ h   PKFW200 $       MOVE GSWBIN8,TTAS┆
0x4f0c…4f5c              4b 4e 52 20 00 24 00 8e 00 18 00 13 20 4d 55 4c 20 47 53 57 42 49 4e 38 2c 43 42 49 4e 31 32 20 00 24 00 ac 00 14 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 4e 52 00 24 00 c8 00 18 00 50 20 41 44 44 20 47 53 57 42 49 4e 38 2c 47 53 57   ┆KNR  $       MUL GSWBIN8,CBIN12  $     P MOVE GSWBIN1,NR $     P ADD GSWBIN8,GSW┆
0x4f5c…4fac              42 49 4e 31 00 24 00 e0 00 16 00 12 20 4d 55 4c 20 47 53 57 42 49 4e 38 2c 43 42 49 4e 32 00 24 00 fc 00 16 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 41 52 54 20 00 24 01 16 00 18 00 50 20 41 44 44 20 47 53 57 42 49 4e 38 2c 47 53 57   ┆BIN1 $       MUL GSWBIN8,CBIN2 $     P MOVE GSWBIN1,ART  $     P ADD GSWBIN8,GSW┆
0x4fac…4ffc              42 49 4e 31 00 24 01 30 00 2e 00 29 20 41 44 44 20 47 53 57 42 49 4e 38 2c 3d 57 27 31 32 31 27 20 47 53 57 42 49 4e 38 3d 52 45 43 4f 52 44 20 49 4e 44 45 58 20 00 24 01 4c 00 0e 00 50 20 42 20 4b 46 57 35 30 30 20 00 24 01 7e 00 16 00 50   ┆BIN1 $ 0 . ) ADD GSWBIN8,=W'121' GSWBIN8=RECORD INDEX  $ L   P B KFW500  $ ~   P┆
DataMuseum.dk

Philips Data Systems

⟦57a264d7e⟧

Derivation

PTS(SC)

HexDump

Reduced view
