|
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: 7744 (0x1e40)
Notes: pts_type(SC)
Names: »KTOPR.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/KTOPR.SC«
IDENT KTOPR 840203 EV 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 KTCR010 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 CBE GSWBCD3,=D'0',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 KTCR210 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'0' BE 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 CBL GSWBIN4,=W'22',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,=W'21',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,APPL=106 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…0020 (0, 0, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT KTOPR 840203 EV «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0056 Head {h00=0x0010, h01=0x0050, text=» ENTRY KTOPR«, t00=0x0000, t01=0x0046}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» ENTRY KTPRT«, t00=0x0000, t01=0x005a}
0x006a…007e Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x006e}
0x007e…0092 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0000, t01=0x0082}
0x0092…00a6 Head {h00=0x0010, h01=0x0050, text=» EXT RESTMK «, t00=0x0000, t01=0x0096}
0x00a6…00ba Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x00aa}
0x00ba…00ce Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x00be}
0x00ce…00e2 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x00d2}
0x00e2…00f6 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x00e6}
0x00f6…0108 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x00fa}
0x0108…011c Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x010c}
0x011c…0130 Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x0120}
0x0130…0142 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0000, t01=0x0134}
0x0142…015a Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0146}
0x015a…0168 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x015e}
0x0168…0176 Head {h00=0x000a, h01=0x0050, text=»KTOPR «, t00=0x0000, t01=0x016c}
0x0176…0192 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0000, t01=0x017a}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01ca Head {h00=0x002a, h01=0x0050, text=»* OPRETTELSE/SLETNING I KONTOPLAN«, t00=0x0001, t01=0x0012}
0x01ca…01d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d4…01f0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x004a}
0x01f0…021a Head {h00=0x0026, h01=0x0050, text=» TBT GTMASTFL,KTCR00A ONLY MASTER «, t00=0x0001, t01=0x0066}
0x021a…022c Head {h00=0x000e, h01=0x0050, text=» B KTCROK1«, t00=0x0001, t01=0x0090}
0x022c…023c Head {h00=0x000c, h01=0x0050, text=»KTCR00A «, t00=0x0001, t01=0x00a2}
0x023c…026a Head {h00=0x002a, h01=0x0050, text=» CMP CTASKNR,CBIN0 ALL MUST BE CLOSED «, t00=0x0001, t01=0x00b2}
0x026a…027e Head {h00=0x0010, h01=0x0050, text=» BNE KTCROK1«, t00=0x0001, t01=0x00e0}
0x027e…02aa Head {h00=0x0028, h01=0x0050, text=» SET CCONVFLG CLOSE FOR OTHER TASKS «, t00=0x0001, t01=0x00f4}
0x02aa…02c4 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0001, t01=0x0120}
0x02c4…02e0 Head {h00=0x0018, h01=0x0050, text=» KEY POSITION = 2 «, t00=0x0001, t01=0x013a}
0x02e0…02f0 Head {h00=0x000c, h01=0x0050, text=»KTCR000 «, t00=0x0001, t01=0x0156}
0x02f0…0306 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x0166}
0x0306…031a Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x0001, t01=0x017c}
0x031a…0332 Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0001, t01=0x0190}
0x0332…0342 Head {h00=0x000c, h01=0x0050, text=»KTCR010 «, t00=0x0002, t01=0x0018}
0x0342…0356 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x0028}
0x0356…0380 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW2,KTCROK,KTCROK,KTCR100 «, t00=0x0002, t01=0x003c}
0x0380…0392 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0002, t01=0x0066}
0x0392…03c0 Head {h00=0x002a, h01=0x0050, text=»KTCR100 CLEAR CSWFLAG LOOK FOR NUMBER «, t00=0x0002, t01=0x0078}
0x03c0…03e4 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD6,GSWBCD3«, t00=0x0002, t01=0x00a6}
0x03e4…040a Head {h00=0x0022, h01=0x0050, text=» BNOK KTCR000 ERROR ON KTPLAN «, t00=0x0002, t01=0x00ca}
0x040a…042c Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN5,CBIN0,KTCR110«, t00=0x0002, t01=0x00f0}
0x042c…0440 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0112}
0x0440…0450 Head {h00=0x000c, h01=0x0050, text=»KTCR110 «, t00=0x0002, t01=0x0126}
0x0450…0466 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0002, t01=0x0136}
0x0466…047e Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0002, t01=0x014c}
0x047e…048e Head {h00=0x000c, h01=0x0050, text=»KTCR120 «, t00=0x0002, t01=0x0164}
0x048e…04a2 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0002, t01=0x0174}
0x04a2…04ce Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,KTCR130,KTCR130,KTCR150 «, t00=0x0002, t01=0x0188}
0x04ce…04e0 Head {h00=0x000e, h01=0x0050, text=» B KTCR120«, t00=0x0003, t01=0x0024}
0x04e0…04fa Head {h00=0x0016, h01=0x0050, text=»KTCR130 B KTCR000 «, t00=0x0003, t01=0x0036}
0x04fa…050a Head {h00=0x000c, h01=0x0050, text=»KTCR150 «, t00=0x0003, t01=0x0050}
0x050a…0534 Head {h00=0x0026, h01=0x0050, text=» TBF CSWFLAG,KTCR500 IF NOT FOUND «, t00=0x0003, t01=0x0060}
0x0534…0548 Head {h00=0x0010, h01=0x0050, text=»* FOUND«, t00=0x0003, t01=0x008a}
0x0548…057c Head {h00=0x0030, h01=0x0050, text=» CBE GSWBCD3,=D'0',KTCR200 BRANCH TO DELETE «, t00=0x0003, t01=0x009e}
0x057c…0596 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x0003, t01=0x00d2}
0x0596…05c8 Head {h00=0x002e, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN2,GSWBCD3,CBIN1 «, t00=0x0003, t01=0x00ec}
0x05c8…0606 Head {h00=0x003a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE RECORD «, t00=0x0003, t01=0x011e}
0x0606…0618 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0003, t01=0x015c}
0x0618…0636 Head {h00=0x001a, h01=0x0050, text=»* DELETE A RECORD«, t00=0x0003, t01=0x016e}
0x0636…065e Head {h00=0x0024, h01=0x0050, text=»* GSWBIN4 - RECORD NO«, t00=0x0003, t01=0x018c}
0x065e…068e Head {h00=0x002c, h01=0x0050, text=»* GSWBIN5-6 - START OF RECORD«, t00=0x0004, t01=0x0024}
0x068e…069e Head {h00=0x000c, h01=0x0050, text=»KTCR200 «, t00=0x0004, t01=0x0054}
0x069e…06ae Head {h00=0x000c, h01=0x0050, text=»KTCR210 «, t00=0x0004, t01=0x0064}
0x06ae…06e0 Head {h00=0x002e, h01=0x0050, text=» DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD «, t00=0x0004, t01=0x0074}
0x06e0…0706 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR250 «, t00=0x0004, t01=0x00a6}
0x0706…072e Head {h00=0x0024, h01=0x0050, text=» NOW THIS IS LAST USED RECORD «, t00=0x0004, t01=0x00cc}
0x072e…0760 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN20,CKTBUF,CBIN0 «, t00=0x0004, t01=0x00f4}
0x0760…0786 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWSTR20,CBLANKS,KTCR220«, t00=0x0004, t01=0x0126}
0x0786…07b4 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0004, t01=0x014c}
0x07b4…07ca Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0004, t01=0x017a}
0x07ca…07ea Head {h00=0x001c, h01=0x0050, text=» NOW FIRST NO DELETED «, t00=0x0004, t01=0x0190}
0x07ea…0804 Head {h00=0x0016, h01=0x0050, text=» SUB CKTLAST,CBIN1«, t00=0x0005, t01=0x0020}
0x0804…081e Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0005, t01=0x003a}
0x081e…0840 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN4,CBIN0,KTCR215«, t00=0x0005, t01=0x0054}
0x0840…085e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0005, t01=0x0076}
0x085e…0894 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST«, t00=0x0005, t01=0x0094}
0x0894…08aa Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x00ca}
0x08aa…08ba Head {h00=0x000c, h01=0x0050, text=»KTCR215 «, t00=0x0005, t01=0x00e0}
0x08ba…08ce Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x00f0}
0x08ce…08e0 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x0104}
0x08e0…08f0 Head {h00=0x000c, h01=0x0050, text=»KTCR220 «, t00=0x0005, t01=0x0116}
0x08f0…0926 Head {h00=0x0032, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE«, t00=0x0005, t01=0x0126}
0x0926…093c Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x015c}
0x093c…0950 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x0172}
0x0950…0962 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x0186}
0x0962…0972 Head {h00=0x000c, h01=0x0050, text=»KTCR250 «, t00=0x0006, t01=0x0008}
0x0972…099c Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN4,CBIN1 NOT LAST RECORD«, t00=0x0006, t01=0x0018}
0x099c…09b8 Head {h00=0x0018, h01=0x0050, text=» MOVE CCYBUF,CBLANKS«, t00=0x0006, t01=0x0042}
0x09b8…09d6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0006, t01=0x005e}
0x09d6…0a0c Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4«, t00=0x0006, t01=0x007c}
0x0a0c…0a20 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x00b2}
0x0a20…0a3e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x0006, t01=0x00c6}
0x0a3e…0a6e Head {h00=0x002c, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,CBIN0«, t00=0x0006, t01=0x00e4}
0x0a6e…0a8a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0006, t01=0x0114}
0x0a8a…0aa4 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0006, t01=0x0130}
0x0aa4…0ad2 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0006, t01=0x014a}
0x0ad2…0ae6 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x0178}
0x0ae6…0afa Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0006, t01=0x018c}
0x0afa…0b16 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CCYBUF «, t00=0x0007, t01=0x0010}
0x0b16…0b32 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0007, t01=0x002c}
0x0b32…0b4c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0007, t01=0x0048}
0x0b4c…0b5e Head {h00=0x000e, h01=0x0050, text=» B KTCR200«, t00=0x0007, t01=0x0062}
0x0b5e…0b6e Head {h00=0x000c, h01=0x0050, text=»KTCR500 «, t00=0x0007, t01=0x0074}
0x0b6e…0b82 Head {h00=0x0010, h01=0x0050, text=» NOT FOUND«, t00=0x0007, t01=0x0084}
0x0b82…0b9c Head {h00=0x0016, h01=0x0050, text=» CMP GSWBCD3,=D'0'«, t00=0x0007, t01=0x0098}
0x0b9c…0bc4 Head {h00=0x0024, h01=0x0050, text=» BE KTCR000 DELETE NON-EXISTING «, t00=0x0007, t01=0x00b2}
0x0bc4…0bde Head {h00=0x0016, h01=0x0050, text=»* CREATE NEW «, t00=0x0007, t01=0x00da}
0x0bde…0bfa Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0007, t01=0x00f4}
0x0bfa…0c18 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0007, t01=0x0110}
0x0c18…0c4e Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x012e}
0x0c4e…0c64 Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0007, t01=0x0164}
0x0c64…0c82 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0007, t01=0x017a}
0x0c82…0c9e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0008, t01=0x0008}
0x0c9e…0cae Head {h00=0x000c, h01=0x0050, text=»KTCR520 «, t00=0x0008, t01=0x0024}
0x0cae…0cca Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x0034}
0x0cca…0cfc Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5«, t00=0x0008, t01=0x0050}
0x0cfc…0d2e Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0082}
0x0d2e…0d6c Head {h00=0x003a, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTCR550 POSITION FOUND (BLANK) «, t00=0x0008, t01=0x00b4}
0x0d6c…0da0 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD7,GSWBCD6,KTCR550 POSITION FOUND «, t00=0x0008, t01=0x00f2}
0x0da0…0dba Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN8«, t00=0x0008, t01=0x0126}
0x0dba…0dee Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN5,=W'128',KTCR530 POSITION FOUND «, t00=0x0008, t01=0x0140}
0x0dee…0e00 Head {h00=0x000e, h01=0x0050, text=» B KTCR520«, t00=0x0008, t01=0x0174}
0x0e00…0e1e Head {h00=0x001a, h01=0x0050, text=»* IN NEXT RECORD «, t00=0x0008, t01=0x0186}
0x0e1e…0e2e Head {h00=0x000c, h01=0x0050, text=»KTCR530 «, t00=0x0009, t01=0x0014}
0x0e2e…0e48 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0009, t01=0x0024}
0x0e48…0e6c Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN4,=W'22',KTCR540 «, t00=0x0009, t01=0x003e}
0x0e6c…0e8a Head {h00=0x001a, h01=0x0050, text=»* SET UP ERROR 10«, t00=0x0009, t01=0x0062}
0x0e8a…0e9a Head {h00=0x000c, h01=0x0050, text=»KTCR535 «, t00=0x0009, t01=0x0080}
0x0e9a…0eb6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x0090}
0x0eb6…0ed2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'04'«, t00=0x0009, t01=0x00ac}
0x0ed2…0eee Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'10'«, t00=0x0009, t01=0x00c8}
0x0eee…0f12 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x00e4}
0x0f12…0f26 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0108}
0x0f26…0f38 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0009, t01=0x011c}
0x0f38…0f48 Head {h00=0x000c, h01=0x0050, text=»KTCR540 «, t00=0x0009, t01=0x012e}
0x0f48…0f66 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0009, t01=0x013e}
0x0f66…0f82 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0009, t01=0x015c}
0x0f82…0fb8 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0009, t01=0x0178}
0x0fb8…0fce Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x000a, t01=0x001e}
0x0fce…0fea Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000a, t01=0x0034}
0x0fea…0ffa Head {h00=0x000c, h01=0x0050, text=»KTCR550 «, t00=0x000a, t01=0x0050}
0x0ffa…102c Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 «, t00=0x000a, t01=0x0060}
0x102c…105e Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 «, t00=0x000a, t01=0x0092}
0x105e…106e Head {h00=0x000c, h01=0x0050, text=»KTCR560 «, t00=0x000a, t01=0x00c4}
0x106e…108c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,=W'120' «, t00=0x000a, t01=0x00d4}
0x108c…10c8 Head {h00=0x0038, h01=0x0050, text=» XCOPY GSWSTR20,CBIN8,CBIN8,CKTBUF,GSWBIN3 SAVE LAST«, t00=0x000a, t01=0x00f2}
0x10c8…10fa Head {h00=0x002e, h01=0x0050, text=» INSRT CKTBUF,GSWBIN5,CBIN8,GSWSTR20,CBIN0«, t00=0x000a, t01=0x012e}
0x10fa…1110 Head {h00=0x0012, h01=0x0050, text=» BOFL KTCR600 «, t00=0x000a, t01=0x0160}
0x1110…1136 Head {h00=0x0022, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 SET LAST«, t00=0x000a, t01=0x0176}
0x1136…1164 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000b, t01=0x000c}
0x1164…1178 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x003a}
0x1178…118c Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x004e}
0x118c…119e Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x000b, t01=0x0062}
0x119e…11ae Head {h00=0x000c, h01=0x0050, text=»KTCR600 «, t00=0x000b, t01=0x0074}
0x11ae…11d4 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR610 «, t00=0x000b, t01=0x0084}
0x11d4…11f8 Head {h00=0x0020, h01=0x0050, text=» CBE CKTLAST,=W'21',KTCR535 «, t00=0x000b, t01=0x00aa}
0x11f8…1212 Head {h00=0x0016, h01=0x0050, text=» ADD CKTLAST,CBIN1«, t00=0x000b, t01=0x00ce}
0x1212…1222 Head {h00=0x000c, h01=0x0050, text=»KTCR610 «, t00=0x000b, t01=0x00e8}
0x1222…1250 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000b, t01=0x00f8}
0x1250…1264 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x0126}
0x1264…1278 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x013a}
0x1278…1292 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000b, t01=0x014e}
0x1292…12ae Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000b, t01=0x0168}
0x12ae…12cc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x0184}
0x12cc…1302 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000c, t01=0x0012}
0x1302…1316 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000c, t01=0x0048}
0x1316…1332 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000c, t01=0x005c}
0x1332…1364 Head {h00=0x002e, h01=0x0050, text=» COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 «, t00=0x000c, t01=0x0078}
0x1364…1376 Head {h00=0x000e, h01=0x0050, text=» B KTCR560«, t00=0x000c, t01=0x00aa}
0x1376…1384 Head {h00=0x000a, h01=0x0050, text=»KTCROK«, t00=0x000c, t01=0x00bc}
0x1384…139c Head {h00=0x0014, h01=0x0050, text=» CLEAR CCONVFLG «, t00=0x000c, t01=0x00ca}
0x139c…13ac Head {h00=0x000c, h01=0x0050, text=»KTCROK1 «, t00=0x000c, t01=0x00e2}
0x13ac…13be Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x000c, t01=0x00f2}
0x13be…13cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0104}
0x13cc…13de Head {h00=0x000e, h01=0x0050, text=»KTPRT PROC«, t00=0x000c, t01=0x0112}
0x13de…13fa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0124}
0x13fa…1404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0140}
0x1404…143a Head {h00=0x0032, h01=0x0050, text=»* LISTING OF KONTOPLAN ON TALLY ROLL «, t00=0x000c, t01=0x014a}
0x143a…1444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0180}
0x1444…1460 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x018a}
0x1460…148a Head {h00=0x0026, h01=0x0050, text=» TBF GTMASTFL,KTPRTOK ONLY MASTER «, t00=0x000d, t01=0x0016}
0x148a…14ae Head {h00=0x0020, h01=0x0050, text=» CBNE CTASKNR,CBIN0,KTPRTOK «, t00=0x000d, t01=0x0040}
0x14ae…14c2 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000d, t01=0x0064}
0x14c2…14ee Head {h00=0x0028, h01=0x0050, text=» EDWRT KTALLY,KTPF100 WRITE HEADING «, t00=0x000d, t01=0x0078}
0x14ee…150e Head {h00=0x001c, h01=0x0050, text=»* LOOP THROUGH FILE «, t00=0x000d, t01=0x00a4}
0x150e…152a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x000d, t01=0x00c4}
0x152a…153a Head {h00=0x000c, h01=0x0050, text=»KTPRT15 «, t00=0x000d, t01=0x00e0}
0x153a…1554 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000d, t01=0x00f0}
0x1554…1590 Head {h00=0x0038, h01=0x0050, text=» CBG GSWBIN4,CKTLAST,KTPRT90 NO MORE RECORDS IN FILE«, t00=0x000d, t01=0x010a}
0x1590…15aa Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CKFLAG«, t00=0x000d, t01=0x0146}
0x15aa…15c8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000d, t01=0x0160}
0x15c8…15e4 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000d, t01=0x017e}
0x15e4…161a Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000e, t01=0x000a}
0x161a…1630 Head {h00=0x0012, h01=0x0050, text=» BNOK KTPRT45 «, t00=0x000e, t01=0x0040}
0x1630…1652 Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER «, t00=0x000e, t01=0x0056}
0x1652…166e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000e, t01=0x0078}
0x166e…167e Head {h00=0x000c, h01=0x0050, text=»KTPRT35 «, t00=0x000e, t01=0x0094}
0x167e…169a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'1' «, t00=0x000e, t01=0x00a4}
0x169a…16b6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'1' «, t00=0x000e, t01=0x00c0}
0x16b6…16d4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x000e, t01=0x00dc}
0x16d4…1706 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN8,CKTBUF,GSWBIN5«, t00=0x000e, t01=0x00fa}
0x1706…1738 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD6,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x000e, t01=0x012c}
0x1738…1752 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x000e, t01=0x015e}
0x1752…1784 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD3,CBIN1,CBIN2,CKTBUF,GSWBIN5 «, t00=0x000e, t01=0x0178}
0x1784…179e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN2«, t00=0x000f, t01=0x001a}
0x179e…17c4 Head {h00=0x0022, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTPRT80 «, t00=0x000f, t01=0x0034}
0x17c4…17d8 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000f, t01=0x005a}
0x17d8…1800 Head {h00=0x0024, h01=0x0050, text=» EDWRT KTALLY,KTPF200 PRINT LINE«, t00=0x000f, t01=0x006e}
0x1800…1824 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN5,=W'128',KTPRT35«, t00=0x000f, t01=0x0096}
0x1824…182e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x182e…1848 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN1«, t00=0x000f, t01=0x00c4}
0x1848…185c Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x000f, t01=0x00de}
0x185c…186c Head {h00=0x000c, h01=0x0050, text=»KTPRT45 «, t00=0x000f, t01=0x00f2}
0x186c…1882 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x000f, t01=0x0102}
0x1882…1894 Head {h00=0x000e, h01=0x0050, text=» B KTPRT15«, t00=0x000f, t01=0x0118}
0x1894…189e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012a}
0x189e…18ae Head {h00=0x000c, h01=0x0050, text=»KTPRT80 «, t00=0x000f, t01=0x0134}
0x18ae…18c4 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x000f, t01=0x0144}
0x18c4…18d4 Head {h00=0x000c, h01=0x0050, text=»KTPRT90 «, t00=0x000f, t01=0x015a}
0x18d4…18fa Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN7 SKIP LINES «, t00=0x000f, t01=0x016a}
0x18fa…190e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x000f, t01=0x0190}
0x190e…191e Head {h00=0x000c, h01=0x0050, text=»KTPRTOK «, t00=0x0010, t01=0x0014}
0x191e…192a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0024}
0x192a…1938 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0030}
0x1938…1946 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x003e}
0x1946…1950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004c}
0x1950…195a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x195a…196e Head {h00=0x0010, h01=0x0050, text=»* FORMATS «, t00=0x0010, t01=0x0060}
0x196e…1978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0074}
0x1978…1980 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x007e}
0x1980…1996 Head {h00=0x0012, h01=0x0050, text=»KTPFRM01 FRMT «, t00=0x0010, t01=0x0086}
0x1996…19ac Head {h00=0x0012, h01=0x0050, text=» FLINK KTPF100«, t00=0x0010, t01=0x009c}
0x19ac…19c8 Head {h00=0x0018, h01=0x0050, text=» FBF GTDYFLG,KTPF010«, t00=0x0010, t01=0x00b2}
0x19c8…19f6 Head {h00=0x002a, h01=0x0050, text=» FKI 1,ME,MINL=10,MAXL=10,REWRT,SCHK=1«, t00=0x0010, t01=0x00ce}
0x19f6…1a06 Head {h00=0x000c, h01=0x0050, text=»KTPF010 «, t00=0x0010, t01=0x00fc}
0x1a06…1a2a Head {h00=0x0020, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6«, t00=0x0010, t01=0x010c}
0x1a2a…1a46 Head {h00=0x0018, h01=0x0050, text=» FBT GTDYFLG,KTPF020«, t00=0x0010, t01=0x0130}
0x1a46…1a70 Head {h00=0x0026, h01=0x0050, text=» FKI 13,ME,MINL=1,MAXL=1,APPL=106 «, t00=0x0010, t01=0x014c}
0x1a70…1a8a Head {h00=0x0016, h01=0x0050, text=» FMEL '9',GSWBCD3 «, t00=0x0010, t01=0x0176}
0x1a8a…1a9a Head {h00=0x000c, h01=0x0050, text=»KTPF020 «, t00=0x0010, t01=0x0190}
0x1a9a…1aa8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x0010}
0x1aa8…1ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab2…1ac6 Head {h00=0x0010, h01=0x0050, text=»KTPF100 FRMT«, t00=0x0011, t01=0x0028}
0x1ac6…1ad4 Head {h00=0x000a, h01=0x0050, text=» FSL «, t00=0x0011, t01=0x003c}
0x1ad4…1aec Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ADM '«, t00=0x0011, t01=0x004a}
0x1aec…1af8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0062}
0x1af8…1b12 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DATAS[T'«, t00=0x0011, t01=0x006e}
0x1b12…1b26 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0011, t01=0x0088}
0x1b26…1b44 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'REGKONTONR' «, t00=0x0011, t01=0x009c}
0x1b44…1b58 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x00ba}
0x1b58…1b64 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x00ce}
0x1b64…1b7e Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'KONTONR'«, t00=0x0011, t01=0x00da}
0x1b7e…1b92 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0011, t01=0x00f4}
0x1b92…1ba8 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'BFO'«, t00=0x0011, t01=0x0108}
0x1ba8…1bbc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x011e}
0x1bbc…1bc8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0132}
0x1bc8…1bd4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x013e}
0x1bd4…1be2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x014a}
0x1be2…1bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x1bec…1c00 Head {h00=0x0010, h01=0x0050, text=»KTPF200 FRMT«, t00=0x0011, t01=0x0162}
0x1c00…1c14 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0011, t01=0x0176}
0x1c14…1c3e Head {h00=0x0026, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6 KT NO«, t00=0x0011, t01=0x018a}
0x1c3e…1c60 Head {h00=0x001e, h01=0x0050, text=» FMEL 'BBZ9',GSWBCD3 TYPE «, t00=0x0012, t01=0x0024}
0x1c60…1c74 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x0046}
0x1c74…1c82 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x005a}
0x1c82…1c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c8c…1c94 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0072}
0x1c94…1ca0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0012, t01=0x007a}
0x1ca0…1ca4 Head {h00=0x4004, h01=0x0000}
0x1ca4…1ca8 00 12 00 86 ┆ ┆
0x1ca8…1cb0 (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1cb0…1d00 (20, 0, 400) 20 43 52 3d 34 20 20 4e 4f 54 20 4f 4b 20 00 13 01 7a 00 16 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 00 14 00 16 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 50 42 49 4e 57 34 20 2d 20 30 20 00 14 00 30 ┆ CR=4 NOT OK z P* ALTERED FIELDS: P* SPBINW4 - 0 0┆
0x1d00…1d50 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 31 20 2d 20 4e 42 52 2e 20 4f 46 20 43 48 41 52 53 20 54 52 41 4e 53 46 45 52 52 45 44 20 00 14 00 54 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 8 P* GSWBIN1 - NBR. OF CHARS TRANSFERRED T > P****************┆
0x1d50…1da0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 00 90 00 26 00 50 52 41 57 52 49 54 20 20 20 20 50 52 4f 43 20 44 53 45 54 2c 24 4e 52 2c 42 55 46 2c 52 45 ┆****************************************** & PRAWRIT PROC DSET,$NR,BUF,RE┆
0x1da0…1df0 43 4e 52 20 00 14 00 d2 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 14 00 fc 00 22 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 30 20 00 14 01 0e 00 16 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e ┆CNR P PLIT $NR " P MOVE SPBINW4,CBIN0 P MOVE GSWBIN┆
0x1df0…1e40 31 2c 24 4e 52 20 00 14 01 34 00 1c 00 50 20 43 42 47 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 32 2c 52 41 57 31 30 00 14 01 4e 00 18 00 50 20 54 42 54 20 47 54 54 45 53 54 46 4c 2c 52 41 57 52 45 54 00 14 01 6e 00 0a 00 50 52 41 57 31 30 20 ┆1,$NR 4 P CBG GSWBIN1,CBIN2,RAW10 N P TBT GTTESTFL,RAWRET n PRAW10 ┆