|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7704 (0x1e18)
Notes: pts_type(SC)
Names: »KTOPR.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/KTOPR.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/KTOPR.SC«
IDENT KTOPR 03.01.XXX.1 DDUM KMD08 PDIV ENTRY KTOPR ENTRY KTPRT EXT ADMRET EXT KTPLAN EXT RESTMK EXT RAREAD EXT RAWRIT EXT SPCLRA EXT SPCLRN EXT SPERR EXT FRMXTA EXT WTALLY EXT WAITF INCLUDE EQUATE EJECT KTOPR ******************** * * OPRETTELSE/SLETNING I KONTOPLAN * ******************** TBT GTMASTFL,KTCR00A ONLY MASTER B KTCROK1 KTCR00A CMP CTASKNR,CBIN0 ALL MUST BE CLOSED BNE KTCROK1 SET CCONVFLG CLOSE FOR OTHER TASKS MOVE SPKEY,CBIN2 KEY POSITION = 2 KTCR000 SET SPPROMPT SET GTDYFLG ATTFMT KTPFRM01 PERF SPCLRA IB SPBINW2,KTCROK,KTCROK,KTCR100 B KTCR000 KTCR100 CLEAR CSWFLAG LOOK FOR NUMBER PERF KTPLAN,GSWBCD6,GSWBCD3 BNOK KTCR000 ERROR ON KTPLAN CBL GSWBIN5,CBIN0,KTCR110 SET CSWFLAG KTCR110 CLEAR GTDYFLG ATTFMT KTPFRM01 KTCR120 PERF SPCLRN IB SPBINW2,KTCR130,KTCR130,KTCR150 B KTCR120 KTCR130 B KTCR000 KTCR150 TBF CSWFLAG,KTCR500 IF NOT FOUND * FOUND CBL GSWBCD3,=D'1',KTCR200 BRANCH TO DELETE ADD GSWBIN5,CBIN6 XCOPY CKTBUF,GSWBIN5,CBIN2,GSWBCD3,CBIN1 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE RECORD B KTCR000 * DELETE A RECORD * GSWBIN4 - RECORD NO * GSWBIN5-6 - START OF RECORD KTCR200 DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD CBNE GSWBIN4,CKTLAST,KTCR250 NOW THIS IS LAST USED RECORD XCOPY GSWSTR20,CBIN0,CBIN20,CKTBUF,CBIN0 CBNE GSWSTR20,CBLANKS,KTCR220 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 BNOK KTCR000 NOW FIRST NO DELETED SUB CKTLAST,CBIN1 SUB GSWBIN4,CBIN1 CBE GSWBIN4,CBIN0,KTCR215 MOVE GSWBIN5,=W'128' PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST BNOK KTCR000 KTCR215 PERF RESTMK B KTCR000 KTCR220 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE BNOK KTCR000 PERF RESTMK B KTCR000 KTCR250 ADD GSWBIN4,CBIN1 NOT LAST RECORD MOVE CCYBUF,CBLANKS MOVE GSWBIN5,=W'128' PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4 BNOK KTCROK MOVE GSWBIN5,=W'120' XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,CBIN0 MOVE GSWBIN5,CBIN0 SUB GSWBIN4,CBIN1 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 BNOK KTCROK PERF RESTMK MOVE CKTBUF,CCYBUF MOVE GSWBIN5,CBIN0 ADD GSWBIN4,CBIN1 B KTCR200 KTCR500 NOT FOUND CMP GSWBCD3,=D'1' BL KTCR000 DELETE NON-EXISTING * CREATE NEW MOVE CKTBUF,CBLANKS MOVE GSWBIN5,=W'128' PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 BNOK KTCR000 MOVE GSWSTR20,CBLANKS MOVE GSWBIN5,CBIN0 KTCR520 MOVE GSWBCD7,=D'1' XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5 XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 CBE GSWSTR20,CBLANKS,KTCR550 POSITION FOUND (BLANK) CBG GSWBCD7,GSWBCD6,KTCR550 POSITION FOUND ADD GSWBIN5,CBIN8 CBE GSWBIN5,=W'128',KTCR530 POSITION FOUND B KTCR520 * IN NEXT RECORD KTCR530 ADD GSWBIN4,CBIN1 CBNG GSWBIN4,CKTMAX,KTCR540 * SET UP ERROR 10 KTCR535 MOVE SPBINW4,CBIN21 MOVE GTWBCD2,=D'04' MOVE GTWBCD1,=D'10' MOVE GSWSTR9,=C'DISCFEJL ' PERF SPERR B KTCR000 KTCR540 MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 BNOK KTCR000 MOVE GSWBIN5,CBIN0 KTCR550 XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 KTCR560 MOVE GSWBIN3,=W'120' XCOPY GSWSTR20,CBIN8,CBIN8,CKTBUF,GSWBIN3 SAVE LAST INSRT CKTBUF,GSWBIN5,CBIN8,GSWSTR20,CBIN0 BOFL KTCR600 MOVE CKTLAST,GSWBIN4 SET LAST PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 BNOK KTCROK PERF RESTMK B KTCR000 KTCR600 CBNE GSWBIN4,CKTLAST,KTCR610 CBE CKTLAST,CKTMAX,KTCR535 ADD CKTLAST,CBIN1 KTCR610 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 BNOK KTCROK PERF RESTMK ADD GSWBIN4,CBIN1 MOVE CKTBUF,CBLANKS MOVE GSWBIN5,=W'128' PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 BNOK KTCROK MOVE GSWBIN5,CBIN0 COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 B KTCR560 KTCROK CLEAR CCONVFLG KTCROK1 B ADMRET EJECT KTPRT PROC ******************** * * LISTING OF KONTOPLAN ON TALLY ROLL * ******************** TBF GTMASTFL,KTPRTOK ONLY MASTER CBNE CTASKNR,CBIN0,KTPRTOK WAIT KTALLY EDWRT KTALLY,KTPF100 WRITE HEADING * LOOP THROUGH FILE MOVE GSWBIN4,CBIN0 KTPRT15 ADD GSWBIN4,CBIN1 CBG GSWBIN4,CKTLAST,KTPRT90 NO MORE RECORDS IN FILE PERF WAITF,CKFLAG MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 BNOK KTPRT45 * LOOP THROUGH BUFFER MOVE GSWBIN5,CBIN0 KTPRT35 MOVE GSWBCD6,=D'1' MOVE GSWBCD3,=D'1' MOVE GSWSTR20,CBLANKS XCOPY GSWSTR20,CBIN0,CBIN8,CKTBUF,GSWBIN5 XCOPY GSWBCD6,CBIN1,CBIN6,CKTBUF,GSWBIN5 ADD GSWBIN5,CBIN6 XCOPY GSWBCD3,CBIN1,CBIN2,CKTBUF,GSWBIN5 ADD GSWBIN5,CBIN2 CBE GSWSTR20,CBLANKS,KTPRT80 WAIT KTALLY EDWRT KTALLY,KTPF200 PRINT LINE CBL GSWBIN5,=W'128',KTPRT35 * PERF FRMXTA,CBIN1 PERF WTALLY KTPRT45 CLEAR CKFLAG B KTPRT15 * KTPRT80 CLEAR CKFLAG KTPRT90 PERF FRMXTA,CBIN7 SKIP LINES PERF WTALLY KTPRTOK RET PEND EJECT * * * FORMATS * KTPFRM01 FRMT FLINK KTPF100 FBF GTDYFLG,KTPF010 FKI 1,ME,MINL=10,MAXL=10,REWRT,SCHK=1 KTPF010 FMEL '99999999E-99',GSWBCD6 FBT GTDYFLG,KTPF020 FKI 13,ME,MINL=1,MAXL=1 FMEL '9',GSWBCD3 KTPF020 FMEND * KTPF100 FRMT FSL FCOPY =C'ADM ' FNL FCOPY =C'DATAS[T' FILLR ' ',1 FCOPY =C'REGKONTONR' FILLR ' ',2 FNL FCOPY =C'KONTONR' FILLR ' ',5 FCOPY =C'BFO' FILLR ' ',2 FNL FNL FMEND * KTPF200 FRMT FILLR '1',2 FMEL '99999999E-99',GSWBCD6 KT NO FMEL 'BBZ9',GSWBCD3 TYPE FILLR ' ',2 FMEND * END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT KTOPR 03.01.XXX.1 «, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…0058 Head {h00=0x0010, h01=0x000c, text=» ENTRY KTOPR«, t00=0x0000, t01=0x0048}
0x0058…006c Head {h00=0x0010, h01=0x0050, text=» ENTRY KTPRT«, t00=0x0000, t01=0x005c}
0x006c…0080 Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x0070}
0x0080…0094 Head {h00=0x0010, h01=0x000b, text=» EXT KTPLAN «, t00=0x0000, t01=0x0084}
0x0094…00a8 Head {h00=0x0010, h01=0x0050, text=» EXT RESTMK «, t00=0x0000, t01=0x0098}
0x00a8…00bc Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x00ac}
0x00bc…00d0 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x00c0}
0x00d0…00e4 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x00d4}
0x00e4…00f8 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x00e8}
0x00f8…010a Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x00fc}
0x010a…011e Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x010e}
0x011e…0132 Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x0122}
0x0132…0144 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0000, t01=0x0136}
0x0144…015c Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0148}
0x015c…016a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0160}
0x016a…0178 Head {h00=0x000a, h01=0x0050, text=»KTOPR «, t00=0x0000, t01=0x016e}
0x0178…0194 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0000, t01=0x017c}
0x0194…019e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019e…01cc Head {h00=0x002a, h01=0x0050, text=»* OPRETTELSE/SLETNING I KONTOPLAN«, t00=0x0001, t01=0x0012}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…01f2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x004a}
0x01f2…021c Head {h00=0x0026, h01=0x0050, text=» TBT GTMASTFL,KTCR00A ONLY MASTER «, t00=0x0001, t01=0x0066}
0x021c…022e Head {h00=0x000e, h01=0x0050, text=» B KTCROK1«, t00=0x0001, t01=0x0090}
0x022e…023e Head {h00=0x000c, h01=0x0050, text=»KTCR00A «, t00=0x0001, t01=0x00a2}
0x023e…026c Head {h00=0x002a, h01=0x0050, text=» CMP CTASKNR,CBIN0 ALL MUST BE CLOSED «, t00=0x0001, t01=0x00b2}
0x026c…0280 Head {h00=0x0010, h01=0x0050, text=» BNE KTCROK1«, t00=0x0001, t01=0x00e0}
0x0280…02ac Head {h00=0x0028, h01=0x0050, text=» SET CCONVFLG CLOSE FOR OTHER TASKS «, t00=0x0001, t01=0x00f4}
0x02ac…02c6 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0001, t01=0x0120}
0x02c6…02e2 Head {h00=0x0018, h01=0x0050, text=» KEY POSITION = 2 «, t00=0x0001, t01=0x013a}
0x02e2…02f2 Head {h00=0x000c, h01=0x0050, text=»KTCR000 «, t00=0x0001, t01=0x0156}
0x02f2…0308 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x0166}
0x0308…031c Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x0001, t01=0x017c}
0x031c…0334 Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0001, t01=0x0190}
0x0334…0348 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x0018}
0x0348…0372 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW2,KTCROK,KTCROK,KTCR100 «, t00=0x0002, t01=0x002c}
0x0372…0384 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0002, t01=0x0056}
0x0384…03b2 Head {h00=0x002a, h01=0x0050, text=»KTCR100 CLEAR CSWFLAG LOOK FOR NUMBER «, t00=0x0002, t01=0x0068}
0x03b2…03d6 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD6,GSWBCD3«, t00=0x0002, t01=0x0096}
0x03d6…03fc Head {h00=0x0022, h01=0x0050, text=» BNOK KTCR000 ERROR ON KTPLAN «, t00=0x0002, t01=0x00ba}
0x03fc…041e Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN5,CBIN0,KTCR110«, t00=0x0002, t01=0x00e0}
0x041e…0432 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0102}
0x0432…0442 Head {h00=0x000c, h01=0x0050, text=»KTCR110 «, t00=0x0002, t01=0x0116}
0x0442…0458 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0002, t01=0x0126}
0x0458…0470 Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0002, t01=0x013c}
0x0470…0480 Head {h00=0x000c, h01=0x0050, text=»KTCR120 «, t00=0x0002, t01=0x0154}
0x0480…0494 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0002, t01=0x0164}
0x0494…04c0 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,KTCR130,KTCR130,KTCR150 «, t00=0x0002, t01=0x0178}
0x04c0…04d2 Head {h00=0x000e, h01=0x0050, text=» B KTCR120«, t00=0x0003, t01=0x0014}
0x04d2…04ec Head {h00=0x0016, h01=0x0050, text=»KTCR130 B KTCR000 «, t00=0x0003, t01=0x0026}
0x04ec…04fc Head {h00=0x000c, h01=0x0050, text=»KTCR150 «, t00=0x0003, t01=0x0040}
0x04fc…0526 Head {h00=0x0026, h01=0x0050, text=» TBF CSWFLAG,KTCR500 IF NOT FOUND «, t00=0x0003, t01=0x0050}
0x0526…053a Head {h00=0x0010, h01=0x0050, text=»* FOUND«, t00=0x0003, t01=0x007a}
0x053a…056e Head {h00=0x0030, h01=0x0050, text=» CBL GSWBCD3,=D'1',KTCR200 BRANCH TO DELETE «, t00=0x0003, t01=0x008e}
0x056e…0588 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x0003, t01=0x00c2}
0x0588…05ba Head {h00=0x002e, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN2,GSWBCD3,CBIN1 «, t00=0x0003, t01=0x00dc}
0x05ba…05f8 Head {h00=0x003a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE RECORD «, t00=0x0003, t01=0x010e}
0x05f8…060a Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0003, t01=0x014c}
0x060a…0628 Head {h00=0x001a, h01=0x0050, text=»* DELETE A RECORD«, t00=0x0003, t01=0x015e}
0x0628…0650 Head {h00=0x0024, h01=0x0050, text=»* GSWBIN4 - RECORD NO«, t00=0x0003, t01=0x017c}
0x0650…0680 Head {h00=0x002c, h01=0x0050, text=»* GSWBIN5-6 - START OF RECORD«, t00=0x0004, t01=0x0014}
0x0680…0690 Head {h00=0x000c, h01=0x0050, text=»KTCR200 «, t00=0x0004, t01=0x0044}
0x0690…06c2 Head {h00=0x002e, h01=0x0050, text=» DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD «, t00=0x0004, t01=0x0054}
0x06c2…06e8 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR250 «, t00=0x0004, t01=0x0086}
0x06e8…0710 Head {h00=0x0024, h01=0x0050, text=» NOW THIS IS LAST USED RECORD «, t00=0x0004, t01=0x00ac}
0x0710…0742 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN20,CKTBUF,CBIN0 «, t00=0x0004, t01=0x00d4}
0x0742…0768 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWSTR20,CBLANKS,KTCR220«, t00=0x0004, t01=0x0106}
0x0768…0796 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0004, t01=0x012c}
0x0796…07ac Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0004, t01=0x015a}
0x07ac…07cc Head {h00=0x001c, h01=0x0050, text=» NOW FIRST NO DELETED «, t00=0x0004, t01=0x0170}
0x07cc…07e6 Head {h00=0x0016, h01=0x0050, text=» SUB CKTLAST,CBIN1«, t00=0x0004, t01=0x0190}
0x07e6…0800 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0005, t01=0x001a}
0x0800…0822 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN4,CBIN0,KTCR215«, t00=0x0005, t01=0x0034}
0x0822…0840 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0005, t01=0x0056}
0x0840…0876 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST«, t00=0x0005, t01=0x0074}
0x0876…088c Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x00aa}
0x088c…089c Head {h00=0x000c, h01=0x0050, text=»KTCR215 «, t00=0x0005, t01=0x00c0}
0x089c…08b0 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x00d0}
0x08b0…08c2 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x00e4}
0x08c2…08d2 Head {h00=0x000c, h01=0x0050, text=»KTCR220 «, t00=0x0005, t01=0x00f6}
0x08d2…0908 Head {h00=0x0032, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE«, t00=0x0005, t01=0x0106}
0x0908…091e Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x013c}
0x091e…0932 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x0152}
0x0932…0944 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x0166}
0x0944…0954 Head {h00=0x000c, h01=0x0050, text=»KTCR250 «, t00=0x0005, t01=0x0178}
0x0954…097e Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN4,CBIN1 NOT LAST RECORD«, t00=0x0005, t01=0x0188}
0x097e…099a Head {h00=0x0018, h01=0x0050, text=» MOVE CCYBUF,CBLANKS«, t00=0x0006, t01=0x0022}
0x099a…09b8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0006, t01=0x003e}
0x09b8…09ee Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4«, t00=0x0006, t01=0x005c}
0x09ee…0a02 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x0092}
0x0a02…0a20 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x0006, t01=0x00a6}
0x0a20…0a50 Head {h00=0x002c, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,CBIN0«, t00=0x0006, t01=0x00c4}
0x0a50…0a6c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0006, t01=0x00f4}
0x0a6c…0a86 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0006, t01=0x0110}
0x0a86…0ab4 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0006, t01=0x012a}
0x0ab4…0ac8 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x0158}
0x0ac8…0adc Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0006, t01=0x016c}
0x0adc…0af8 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CCYBUF «, t00=0x0006, t01=0x0180}
0x0af8…0b14 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0007, t01=0x000c}
0x0b14…0b2e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0007, t01=0x0028}
0x0b2e…0b40 Head {h00=0x000e, h01=0x0050, text=» B KTCR200«, t00=0x0007, t01=0x0042}
0x0b40…0b50 Head {h00=0x000c, h01=0x0050, text=»KTCR500 «, t00=0x0007, t01=0x0054}
0x0b50…0b64 Head {h00=0x0010, h01=0x0050, text=» NOT FOUND«, t00=0x0007, t01=0x0064}
0x0b64…0b7e Head {h00=0x0016, h01=0x0050, text=» CMP GSWBCD3,=D'1'«, t00=0x0007, t01=0x0078}
0x0b7e…0ba6 Head {h00=0x0024, h01=0x0050, text=» BL KTCR000 DELETE NON-EXISTING «, t00=0x0007, t01=0x0092}
0x0ba6…0bc0 Head {h00=0x0016, h01=0x0050, text=»* CREATE NEW «, t00=0x0007, t01=0x00ba}
0x0bc0…0bdc Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0007, t01=0x00d4}
0x0bdc…0bfa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0007, t01=0x00f0}
0x0bfa…0c30 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x010e}
0x0c30…0c46 Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0007, t01=0x0144}
0x0c46…0c64 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0007, t01=0x015a}
0x0c64…0c80 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0007, t01=0x0178}
0x0c80…0c90 (8, 0, 400) Head {h00=0x000c, h01=0x0050, text=»KTCR520 «, t00=0x0008, t01=0x0004}
0x0c90…0cac Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x0014}
0x0cac…0cde Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5«, t00=0x0008, t01=0x0030}
0x0cde…0d10 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0062}
0x0d10…0d4e Head {h00=0x003a, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTCR550 POSITION FOUND (BLANK) «, t00=0x0008, t01=0x0094}
0x0d4e…0d82 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD7,GSWBCD6,KTCR550 POSITION FOUND «, t00=0x0008, t01=0x00d2}
0x0d82…0d9c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN8«, t00=0x0008, t01=0x0106}
0x0d9c…0dd0 Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN5,=W'128',KTCR530 POSITION FOUND «, t00=0x0008, t01=0x0120}
0x0dd0…0de2 Head {h00=0x000e, h01=0x0050, text=» B KTCR520«, t00=0x0008, t01=0x0154}
0x0de2…0e00 Head {h00=0x001a, h01=0x0050, text=»* IN NEXT RECORD «, t00=0x0008, t01=0x0166}
0x0e00…0e10 Head {h00=0x000c, h01=0x0050, text=»KTCR530 «, t00=0x0008, t01=0x0184}
0x0e10…0e2a (9, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0009, t01=0x0004}
0x0e2a…0e4e Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,CKTMAX,KTCR540«, t00=0x0009, t01=0x001e}
0x0e4e…0e6c Head {h00=0x001a, h01=0x0050, text=»* SET UP ERROR 10«, t00=0x0009, t01=0x0042}
0x0e6c…0e7c Head {h00=0x000c, h01=0x0050, text=»KTCR535 «, t00=0x0009, t01=0x0060}
0x0e7c…0e98 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x0070}
0x0e98…0eb4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'04'«, t00=0x0009, t01=0x008c}
0x0eb4…0ed0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'10'«, t00=0x0009, t01=0x00a8}
0x0ed0…0ef4 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x00c4}
0x0ef4…0f08 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x00e8}
0x0f08…0f1a Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0009, t01=0x00fc}
0x0f1a…0f2a Head {h00=0x000c, h01=0x0050, text=»KTCR540 «, t00=0x0009, t01=0x010e}
0x0f2a…0f48 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0009, t01=0x011e}
0x0f48…0f64 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0009, t01=0x013c}
0x0f64…0f9a Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0009, t01=0x0158}
0x0f9a…0fb0 Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0009, t01=0x018e}
0x0fb0…0fcc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000a, t01=0x0014}
0x0fcc…0fdc Head {h00=0x000c, h01=0x0050, text=»KTCR550 «, t00=0x000a, t01=0x0030}
0x0fdc…100e Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 «, t00=0x000a, t01=0x0040}
0x100e…1040 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 «, t00=0x000a, t01=0x0072}
0x1040…1050 Head {h00=0x000c, h01=0x0050, text=»KTCR560 «, t00=0x000a, t01=0x00a4}
0x1050…106e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,=W'120' «, t00=0x000a, t01=0x00b4}
0x106e…10aa Head {h00=0x0038, h01=0x0050, text=» XCOPY GSWSTR20,CBIN8,CBIN8,CKTBUF,GSWBIN3 SAVE LAST«, t00=0x000a, t01=0x00d2}
0x10aa…10dc Head {h00=0x002e, h01=0x0050, text=» INSRT CKTBUF,GSWBIN5,CBIN8,GSWSTR20,CBIN0«, t00=0x000a, t01=0x010e}
0x10dc…10f2 Head {h00=0x0012, h01=0x0050, text=» BOFL KTCR600 «, t00=0x000a, t01=0x0140}
0x10f2…1118 Head {h00=0x0022, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 SET LAST«, t00=0x000a, t01=0x0156}
0x1118…1146 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000a, t01=0x017c}
0x1146…115a Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x001a}
0x115a…116e Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x002e}
0x116e…1180 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x000b, t01=0x0042}
0x1180…1190 Head {h00=0x000c, h01=0x0050, text=»KTCR600 «, t00=0x000b, t01=0x0054}
0x1190…11b6 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR610 «, t00=0x000b, t01=0x0064}
0x11b6…11da Head {h00=0x0020, h01=0x0050, text=» CBE CKTLAST,CKTMAX,KTCR535 «, t00=0x000b, t01=0x008a}
0x11da…11f4 Head {h00=0x0016, h01=0x0050, text=» ADD CKTLAST,CBIN1«, t00=0x000b, t01=0x00ae}
0x11f4…1204 Head {h00=0x000c, h01=0x0050, text=»KTCR610 «, t00=0x000b, t01=0x00c8}
0x1204…1232 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000b, t01=0x00d8}
0x1232…1246 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x0106}
0x1246…125a Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x011a}
0x125a…1274 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000b, t01=0x012e}
0x1274…1290 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000b, t01=0x0148}
0x1290…12ae Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x0164}
0x12ae…12e4 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000b, t01=0x0182}
0x12e4…12f8 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000c, t01=0x0028}
0x12f8…1314 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000c, t01=0x003c}
0x1314…1346 Head {h00=0x002e, h01=0x0050, text=» COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 «, t00=0x000c, t01=0x0058}
0x1346…1358 Head {h00=0x000e, h01=0x0050, text=» B KTCR560«, t00=0x000c, t01=0x008a}
0x1358…1366 Head {h00=0x000a, h01=0x0050, text=»KTCROK«, t00=0x000c, t01=0x009c}
0x1366…137e Head {h00=0x0014, h01=0x0050, text=» CLEAR CCONVFLG «, t00=0x000c, t01=0x00aa}
0x137e…138e Head {h00=0x000c, h01=0x0050, text=»KTCROK1 «, t00=0x000c, t01=0x00c2}
0x138e…13a0 Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x000c, t01=0x00d2}
0x13a0…13ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00e4}
0x13ae…13c0 Head {h00=0x000e, h01=0x0050, text=»KTPRT PROC«, t00=0x000c, t01=0x00f2}
0x13c0…13dc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0104}
0x13dc…13e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0120}
0x13e6…141c Head {h00=0x0032, h01=0x0050, text=»* LISTING OF KONTOPLAN ON TALLY ROLL «, t00=0x000c, t01=0x012a}
0x141c…1426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0160}
0x1426…1442 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x016a}
0x1442…146c Head {h00=0x0026, h01=0x0050, text=» TBF GTMASTFL,KTPRTOK ONLY MASTER «, t00=0x000c, t01=0x0186}
0x146c…1490 Head {h00=0x0020, h01=0x0050, text=» CBNE CTASKNR,CBIN0,KTPRTOK «, t00=0x000d, t01=0x0020}
0x1490…14a4 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000d, t01=0x0044}
0x14a4…14d0 Head {h00=0x0028, h01=0x0050, text=» EDWRT KTALLY,KTPF100 WRITE HEADING «, t00=0x000d, t01=0x0058}
0x14d0…14f0 Head {h00=0x001c, h01=0x0050, text=»* LOOP THROUGH FILE «, t00=0x000d, t01=0x0084}
0x14f0…150c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x000d, t01=0x00a4}
0x150c…151c Head {h00=0x000c, h01=0x0050, text=»KTPRT15 «, t00=0x000d, t01=0x00c0}
0x151c…1536 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000d, t01=0x00d0}
0x1536…1572 Head {h00=0x0038, h01=0x0050, text=» CBG GSWBIN4,CKTLAST,KTPRT90 NO MORE RECORDS IN FILE«, t00=0x000d, t01=0x00ea}
0x1572…158c Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CKFLAG«, t00=0x000d, t01=0x0126}
0x158c…15aa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000d, t01=0x0140}
0x15aa…15c6 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000d, t01=0x015e}
0x15c6…15fc Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000d, t01=0x017a}
0x15fc…1612 Head {h00=0x0012, h01=0x0050, text=» BNOK KTPRT45 «, t00=0x000e, t01=0x0020}
0x1612…1634 Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER «, t00=0x000e, t01=0x0036}
0x1634…1650 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000e, t01=0x0058}
0x1650…1660 Head {h00=0x000c, h01=0x0050, text=»KTPRT35 «, t00=0x000e, t01=0x0074}
0x1660…167c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'1' «, t00=0x000e, t01=0x0084}
0x167c…1698 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'1' «, t00=0x000e, t01=0x00a0}
0x1698…16b6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x000e, t01=0x00bc}
0x16b6…16e8 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN8,CKTBUF,GSWBIN5«, t00=0x000e, t01=0x00da}
0x16e8…171a Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD6,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x000e, t01=0x010c}
0x171a…1734 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x000e, t01=0x013e}
0x1734…1766 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD3,CBIN1,CBIN2,CKTBUF,GSWBIN5 «, t00=0x000e, t01=0x0158}
0x1766…1780 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN2«, t00=0x000e, t01=0x018a}
0x1780…17a6 Head {h00=0x0022, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTPRT80 «, t00=0x000f, t01=0x0014}
0x17a6…17ba Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000f, t01=0x003a}
0x17ba…17e2 Head {h00=0x0024, h01=0x0050, text=» EDWRT KTALLY,KTPF200 PRINT LINE«, t00=0x000f, t01=0x004e}
0x17e2…1806 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN5,=W'128',KTPRT35«, t00=0x000f, t01=0x0076}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009a}
0x1810…182a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN1«, t00=0x000f, t01=0x00a4}
0x182a…183e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x000f, t01=0x00be}
0x183e…184e Head {h00=0x000c, h01=0x0050, text=»KTPRT45 «, t00=0x000f, t01=0x00d2}
0x184e…1864 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x000f, t01=0x00e2}
0x1864…1876 Head {h00=0x000e, h01=0x0050, text=» B KTPRT15«, t00=0x000f, t01=0x00f8}
0x1876…1880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010a}
0x1880…1890 Head {h00=0x000c, h01=0x0050, text=»KTPRT80 «, t00=0x000f, t01=0x0114}
0x1890…18a6 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x000f, t01=0x0124}
0x18a6…18b6 Head {h00=0x000c, h01=0x0050, text=»KTPRT90 «, t00=0x000f, t01=0x013a}
0x18b6…18dc Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN7 SKIP LINES «, t00=0x000f, t01=0x014a}
0x18dc…18f0 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x000f, t01=0x0170}
0x18f0…1900 Head {h00=0x000c, h01=0x0050, text=»KTPRTOK «, t00=0x000f, t01=0x0184}
0x1900…190c (16, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0004}
0x190c…191a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0010}
0x191a…1928 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x001e}
0x1928…1932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x1932…193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x193c…1950 Head {h00=0x0010, h01=0x0050, text=»* FORMATS «, t00=0x0010, t01=0x0040}
0x1950…195a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0054}
0x195a…1962 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x005e}
0x1962…1978 Head {h00=0x0012, h01=0x0050, text=»KTPFRM01 FRMT «, t00=0x0010, t01=0x0066}
0x1978…198e Head {h00=0x0012, h01=0x0050, text=» FLINK KTPF100«, t00=0x0010, t01=0x007c}
0x198e…19aa Head {h00=0x0018, h01=0x0050, text=» FBF GTDYFLG,KTPF010«, t00=0x0010, t01=0x0092}
0x19aa…19d8 Head {h00=0x002a, h01=0x0050, text=» FKI 1,ME,MINL=10,MAXL=10,REWRT,SCHK=1«, t00=0x0010, t01=0x00ae}
0x19d8…19e8 Head {h00=0x000c, h01=0x0050, text=»KTPF010 «, t00=0x0010, t01=0x00dc}
0x19e8…1a0c Head {h00=0x0020, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6«, t00=0x0010, t01=0x00ec}
0x1a0c…1a28 Head {h00=0x0018, h01=0x0050, text=» FBT GTDYFLG,KTPF020«, t00=0x0010, t01=0x0110}
0x1a28…1a48 Head {h00=0x001c, h01=0x0050, text=» FKI 13,ME,MINL=1,MAXL=1«, t00=0x0010, t01=0x012c}
0x1a48…1a62 Head {h00=0x0016, h01=0x0050, text=» FMEL '9',GSWBCD3 «, t00=0x0010, t01=0x014c}
0x1a62…1a72 Head {h00=0x000c, h01=0x0050, text=»KTPF020 «, t00=0x0010, t01=0x0166}
0x1a72…1a80 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0010, t01=0x0176}
0x1a80…1a8a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0010, t01=0x0184}
0x1a8a…1a9e Head {h00=0x0010, h01=0x0050, text=»KTPF100 FRMT«, t00=0x0010, t01=0x018e}
0x1a9e…1aac Head {h00=0x000a, h01=0x0050, text=» FSL «, t00=0x0011, t01=0x0012}
0x1aac…1ac4 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ADM '«, t00=0x0011, t01=0x0020}
0x1ac4…1ad0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0038}
0x1ad0…1aea Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DATAS[T'«, t00=0x0011, t01=0x0044}
0x1aea…1afe Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0011, t01=0x005e}
0x1afe…1b1c Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'REGKONTONR' «, t00=0x0011, t01=0x0072}
0x1b1c…1b30 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x0090}
0x1b30…1b3c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x00a4}
0x1b3c…1b56 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'KONTONR'«, t00=0x0011, t01=0x00b0}
0x1b56…1b6a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0011, t01=0x00ca}
0x1b6a…1b80 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'BFO'«, t00=0x0011, t01=0x00de}
0x1b80…1b94 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x00f4}
0x1b94…1ba0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0108}
0x1ba0…1bac Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0114}
0x1bac…1bba Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x0120}
0x1bba…1bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012e}
0x1bc4…1bd8 Head {h00=0x0010, h01=0x0050, text=»KTPF200 FRMT«, t00=0x0011, t01=0x0138}
0x1bd8…1bec Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0011, t01=0x014c}
0x1bec…1c16 Head {h00=0x0026, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6 KT NO«, t00=0x0011, t01=0x0160}
0x1c16…1c38 Head {h00=0x001e, h01=0x0050, text=» FMEL 'BBZ9',GSWBCD3 TYPE «, t00=0x0011, t01=0x018a}
0x1c38…1c4c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x001c}
0x1c4c…1c5a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x0030}
0x1c5a…1c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c64…1c6c Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0048}
0x1c6c…1c78 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0012, t01=0x0050}
0x1c78…1c7c Head {h00=0x4004, h01=0x0000}
0x1c7c…1c80 00 12 00 5c ┆ ┆
0x1c80…1c88 (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1c88…1cd8 (20, 0, 400) 50 46 28 43 42 49 4e 37 29 2c 47 53 57 42 43 44 37 20 56 41 4c 4f 52 44 41 54 4f 20 00 3b 01 86 00 30 00 50 20 50 45 52 46 20 58 43 4f 50 2c 47 53 57 42 49 4e 31 2c 3d 57 27 30 27 2c 3d 57 27 32 27 2c 43 54 52 42 55 46 2c 3d 57 27 31 38 27 ┆PF(CBIN7),GSWBCD7 VALORDATO ; 0 P PERF XCOP,GSWBIN1,=W'0',=W'2',CTRBUF,=W'18'┆
0x1cd8…1d28 00 3c 00 24 00 28 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 31 35 29 2c 47 53 57 42 49 4e 31 20 54 45 58 54 4e 52 20 00 3c 00 58 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 30 20 00 3c 00 84 00 30 00 50 ┆ < $ ( P MOVE GTDUPF(CBIN15),GSWBIN1 TEXTNR < X P MOVE GSWBIN1,CBIN0 < 0 P┆
0x1d28…1d78 20 50 45 52 46 20 58 43 4f 50 2c 47 53 57 42 49 4e 31 2c 3d 57 27 31 27 2c 3d 57 27 31 27 2c 43 54 52 42 55 46 2c 3d 57 27 32 30 27 00 3c 00 a0 00 20 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 32 31 29 2c 47 53 57 42 49 4e 31 ┆ PERF XCOP,GSWBIN1,=W'1',=W'1',CTRBUF,=W'20' < P MOVE GTDUPF(CBIN21),GSWBIN1┆
0x1d78…1dc8 00 3c 00 d4 00 30 00 50 20 50 45 52 46 20 58 43 4f 50 2c 47 53 57 42 43 44 37 2c 3d 57 27 30 27 2c 3d 57 27 37 27 2c 43 54 52 42 55 46 2c 3d 57 27 32 31 27 00 3c 00 f8 00 2a 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 43 42 49 4e 34 29 2c ┆ < 0 P PERF XCOP,GSWBCD7,=W'0',=W'7',CTRBUF,=W'21' < * P MOVE GTDUPF(CBIN4),┆
0x1dc8…1e18 47 53 57 42 43 44 37 20 55 44 42 2e 20 42 45 4c 4f 42 00 3c 01 2c 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 37 2c 3d 44 27 31 27 20 00 3c 01 5a 00 30 00 50 20 50 45 52 46 20 58 43 4f 50 2c 47 53 57 42 43 44 37 2c 3d 57 27 36 27 2c 3d ┆GSWBCD7 UDB. BELOB < , P MOVE GSWBCD7,=D'1' < Z 0 P PERF XCOP,GSWBCD7,=W'6',=┆