|
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: 17598 (0x44be)
Notes: pts_type(SC)
Names: »REMREO.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMREO.SC«
IDENT REMREO 830307 NJ DDUM KMD08 PDIV ENTRY REMREO EXT RADEL EXT ASSG EXT RAREAD EXT SETIDX EXT RESTIX EXT RAWRIT EXT XCOP EXT TRINS EXT TRGETF EXT BDTSCA EXT VARRD EXT CLEAR8 EXT TRUNP UNPACK TRANSACTION EXT SPLIN8 EXT YYMMDD INCLUDE EQUATE * * FILENAMES ETC. USED IN THIS MODULE: * * XXX001 XXX003 FD * INDEX DK07 XXX007 * STAM DK08 DK03 XXX008 * VAR DK09 DK04 XXX009 * TRANS DK11 DK05 XXX011 * SLAVE DK17 XXX017 * * EJECT REMREO PROC SET TTREST RESTORE IN PROGRESS CLEAR CERRORFL SET CPFLG RESERVE DISK PERF ASSG,CBIN1,DK07,CBIN7 INDEX ON XXX001 BNOK REMRE005 PERF ASSG,CBIN1,DK08,CBIN8 STAM ON XXX001 BNOK REMRE005 PERF ASSG,CBIN1,DK09,CBIN9 VAR ON XXX001 BNOK REMRE005 PERF ASSG,CBIN1,DK11,CBIN11 TRANS ON XXX001 BNOK REMRE005 TBF C173FLG,REMRE001 PERF ASSG,CBIN1,DK17,CBIN17 BNOK REMRE005 REMRE001 PERF ASSG,CBIN3,DK03,CBIN8 STAM ON XXX003 BNOK REMRE005 PERF ASSG,CBIN3,DK04,CBIN9 VAR ON XXX003 BNOK REMRE005 PERF ASSG,CBIN3,DK05,CBIN11 TRANS ON XXX003 BOK REMRE006 REMRE005 B REMRNOK REMRE006 PERF YYMMDD,GTPRTFRA MOVE GTPRTFRA,GSWBCD7 EDWRT KJTAPE,REOFMT1 MOVE GTLEVNR,=D'0' MOVE SPINPUT,=C'FASE 0: INITIERING ' EDWRT KJTAPE,REOFMT2 MOVE GSWBIN5,CBIN1 PERF RADEL,DK07,GSWBIN5 DELETE 1. INDEX PERF RADEL,DK08,GSWBIN5 DELETE 1. STAM PERF RADEL,DK09,GSWBIN5 DELETE 1. VAR PERF RADEL,DK11,GSWBIN5 DELETE 1. TRANS PERF SETIDX FILL INDEX WITH 9'S CREATE LEV 1-15 CONNECT ALL TRANS TO LEVNR 10 EJECT MOVE GSWBIN9,CBIN0 POINTER FOR READERRORS MOVE GSWBIN7,CBIN0 MOVE EDITBUF,=X'FF' MOVE GTLEVNR,=D'0' MOVE SPINPUT,=C'FASE 1: SAMMENH[NG STAM/VAR ' EDWRT KJTAPE,REOFMT2 * * MATCH LEVNR IN STAM/VAR * UPDATE GTREGF/GTDUPF AS REQUIRED * REMRE010 ************************************************** * * THE FOLLOWING SITUATIONS CAN OCCUR AFTER A READ: * STAM VAR ROUTINEINDEX * READERROR READERROR 1 * READERROR NODATA 2 * READERROR DATA 3 * NODATA READERROR 4 * NODATA NODATA 5 * NODATA DATA 6 * DATA READERROR 7 * DATA NODATA 8 * DATA DATA(MATCH) 9 * DATA DATA(-,MATCH) 10 * * NODATA: RECORD FILLED WITH '7F' * RDERROR: RECORD FILLED WITH 'FF' * ************************************************** ADD GSWBIN7,CBIN1 NEXT RECORD MOVE GSWBIN4,=W'128' MOVE GTREMBUF,=' ' PERF RAREAD,DK03,=D'8',GTREMBUF,GSWBIN4,GSWBIN7 BOK REMRE013 PERF CLEAR8 CBE GTWBCD1,=D'10',REMRE011 END OF DEVICE MOVE GTREMBUF,=X'FF' READ ERROR MOVE GSWBIN10,CBIN1 B REMRE015 REMRE011 B REMRE100 EOD, FINISHED WITH PHASE 1 REMRE012 NO DATA MOVE GTREMBUF,=X'7F' INDICATE NO-DATA IN BUFFER MOVE GSWBIN10,CBIN4 B REMRE015 REMRE013 CBE GTWBCD1,=D'4',REMRE012 NODATA MOVE GSWBIN10,CBIN7 REMRE015 MOVE GSWBIN4,=W'49' MOVE CDUM0,=' ' PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN7 BOK REMRE019 * EOD CAN NOT OCCUR, AS THE FILES * HAVE THE SAME NBR OF RECORDS PERF CLEAR8 MOVE CDUM0,=X'FF' READ ERROR B REMRE020 REMRE017 ADD GSWBIN10,CBIN1 MOVE CDUM0,=X'7F' B REMRE020 REMRE019 CBE GTWBCD1,=D'4',REMRE017 ADD GSWBIN10,CBIN2 REMRE020 * * WE NOW KNOW THE STATUS OF A SET, CONSISTING * OF 1 STAM AND 1 VAR RECORD. * THE STATUS CAN BE AS DESCRIBED UNDER 'REMRE010' * FURTHER ACTION DEPENDS ON STATUS. * CBNE GSWBIN10,CBIN9,REMRE024 NOT DATA/DATA ? MOVE GSWBIN2,CBIN0 MOVE GSWBCD6,=D'1' MOVE GSWBCD7,=D'1' XCOPY GSWBCD6,CBIN1,CBIN6,CDUM0,CBIN0 LEVNR XCOPY GSWBCD7,CBIN1,CBIN6,GTREMBUF,CBIN0 CBE GSWBCD6,GSWBCD7,REMRE024 MOVE GSWBIN10,CBIN10 NO, NO MATCH REMRE024 IB GSWBIN10,REMRE030,REMRE035,REMRE040, C REMRE045,REMRE050,REMRE055, C REMRE060,REMRE065,REMRE070, C REMRE075 ************************************************** REMRE030 READERROR / READERROR B REMRE010 IGNORE ************************************************** REMRE035 READERROR / NODATA B REMRE010 IGNORE ************************************************** REMRE040 READERROR / DATA XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0 MOVE SPINPUT,=C'SLETTET PGA L[SEFEJL ' EDWRT KJTAPE,REOFMT2 PERF RADEL,DK04,GSWBIN7 B REMRE010 ************************************************** REMRE045 NODATA / READERROR B REMRE010 IGNORE ************************************************** REMRE050 NODATA / NODATA B REMRE010 ONE MORE SAVED! ************************************************** REMRE055 NODATA / DATA PERF RADEL,DK04,GSWBIN7 XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0 MOVE SPINPUT,=C'SLETTET PGA MGL STAMOPL ' EDWRT KJTAPE,REOFMT2 B REMRE010 ************************************************** REMRE060 DATA / READERROR PERF RADEL,DK03,GSWBIN7 XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 MOVE SPINPUT,=C'SLETTET PGA L[SEFEJL ' EDWRT KJTAPE,REOFMT2 B REMRE080 ************************************************** REMRE065 DATA / NODATA PERF RADEL,DK03,GSWBIN7 XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 MOVE SPINPUT,=C'SLETTET PGA MGL VAR.OPL ' EDWRT KJTAPE,REOFMT2 B REMRE010 ************************************************** REMRE070 MATCH! TBF C173FLG,REMRE071 XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0 CBL GTLEVNR,=D'19',REMRE071 DONT DELETE SYSTEMLEVS MOVE GSWBCD6,=D'1' XCOPY GSWBCD6,CBIN4,CBIN3,CDUM0,CBIN6 PERF YYMMDD,GSWBCD6 CBNG GTPRTFRA,GSWBCD7,REMRE071 * NON-ACTIVE SUPPLIER FOUND, DELETE HIM MOVE SPINPUT,=C'SLETTES PGA SK[RINGSDATO ' EDWRT KJTAPE,REOFMT2 PERF RADEL,DK03,GSWBIN7 PERF RADEL,DK04,GSWBIN7 REMRE071 B REMRE010 ************************************************** REMRE075 NO MATCH = DOUBLE ERROR XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0 MOVE SPINPUT,=C'SLETTET PGA LOGISK FEJL ' EDWRT KJTAPE,REOFMT2 XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 EDWRT KJTAPE,REOFMT2 PERF RADEL,DK03,GSWBIN7 PERF RADEL,DK04,GSWBIN7 ************************************************** REMRE080 REMRE085 B REMRE010 EJECT REMRE100 * PERF SAVE1 SAVE UNSOLVED ERRORS MOVE GTLEVNR,=D'0' MOVE SPINPUT,=C'FASE 2: FLYT STAM/VAR ' EDWRT KJTAPE,REOFMT2 * NOW THE TWO FILES ARE OK AND * CORRESPOND TO EACH OTHER MOVE GTBSUM1,=D'0' MOVE GSWBIN10,CBIN15 POINTER INTO INDEXFILE MOVE GTBSUM3,=D'19' FIRST REC TO INSERT REMRE105 MOVE GSWBIN7,CBIN0 POINTER FOR VAR. READ MOVE EDITBUF,=X'B999' ADD GTBSUM1,=D'1' NEXT RUN MOVE GTBSUM2,=D'9999999999' ACCEPT ALL KEYS P.T. EDIT SPINPUT,REOFMT3 XX. GENNEMLOB MOVE GTLEVNR,GTBSUM3 LOWEST LEVNR TO ACCEPT EDWRT KJTAPE,REOFMT2 <NR> XX. GENNEMLOB REMRE110 ADD GSWBIN7,CBIN1 MOVE GSWBIN4,=W'49' MOVE CDUM0,=' ' PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN7 BOK REMRE111 PERF CLEAR8 CBE GTWBCD1,=D'10',REMRE130 END OF DEVICE B REMRE110 ONLY DATA ACCEPTED REMRE111 CBE GTWBCD1,=D'4',REMRE110 XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0 CBNG GTLEVNR,=D'15',REMRE125 CBL GTLEVNR,GTBSUM3,REMRE110 BELOW BOUNDARY, DROP CBG GTLEVNR,GTBSUM2,REMRE110 MOVE GSWBIN1,CBIN0 MOVE GSWBIN2,CBIN0 MOVE GSWBIN3,=W'90' REMRE115 * GTLEVNR: JUST READ * GTLEVALT: ANYTHING WITHIN EDITBUF XCOPY GTLEVALT,CBIN0,CBIN6,EDITBUF,GSWBIN2 CBG GTLEVALT,GTLEVNR,REMRE120 INSERT BE REMRE118 ADD GSWBIN2,CBIN8 SUB GSWBIN3,CBIN1 BP REMRE115 B REMRE120 REMRE118 ADD GTLEVNR,=D'0' MOVE SPINPUT,=C'DUBLET, NR. 2 SLETTES ' EDWRT KJTAPE,REOFMT2 PERF RADEL,DK03,GSWBIN7 DELETE STAM PERF RADEL,DK04,GSWBIN7 DELETE VAR B REMRE110 REMRE120 XCOPY GSWSTR2,CBIN0,CBIN2,GSWBIN7,CBIN0 INSRT EDITBUF,GSWBIN2,CBIN2,GSWSTR2,CBIN0 INSRT EDITBUF,GSWBIN2,CBIN6,CDUM0,CBIN0 MOVE GSWBIN2,=W'726' 1. KEY AFTER EDITBUF XCOPY GSWSTR2,CBIN0,CBIN2,EDITBUF,GSWBIN2 CBE GSWSTR2,=X'9999',REMRE110 ROOM IN BUFFER SUB GSWBIN2,CBIN6 NO, FIND HIGHEST KEY XCOPY GTLEVALT,CBIN0,CBIN6,EDITBUF,GSWBIN2 MOVE GTBSUM2,GTLEVALT HIGHEST KEY IN EDITBUF MOVE GTWBCD2,GTLEVALT PERF SPLIN8,CBIN10,CBIN3 DISPLAY HIGHES LEVNR IN EDITBUFFER B REMRE110 REMRE125 SYSTEMLEV, HAS FIXED POSITION MOVE GSWBIN8,GTLEVNR MOVE GSWBIN4,=W'128' PERF RAREAD,DK03,=D'8',GTREMBUF,GSWBIN4,GSWBIN8 MOVE GSWBCD1,=D'1' XCOPY GSWBCD1,CBIN2,CBIN5,GTREMBUF,CBIN1 CBNL GSWBCD1,=D'16',REMRE126 PERF RAWRIT,DK08,=D'8',GTREMBUF,GSWBIN8 CBE GTLEVNR,=D'10',REMRE126 FREE LEV? MOVE GSWBIN4,=W'49' PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN8 MOVE GSWBCD7,=D'0' XCOPY CDUM0,CBIN6,CBIN3,GSWBCD7,CBIN4 XCOPY CDUM0,CBIN9,CBIN7,GSWBCD7,CBIN0 XCOPY CDUM0,CBIN16,CBIN7,GSWBCD7,CBIN0 PERF XCOP,CDUM0,=W'23',=W'7',GSWBCD7,=W'0' PERF XCOP,CDUM0,=W'30',=W'7',GSWBCD7,=W'0' PERF XCOP,CDUM0,=W'37',=W'3',GSWBCD7,=W'4' PERF XCOP,CDUM0,=W'47',=W'2',CBIN0,=W'0' PERF RAWRIT,DK09,=D'9',CDUM0,GSWBIN8 REMRE126 B REMRE110 REMRE130 PERF CLEAR8 * NOW WE HAVE MAX 90 INDEXES TO INSERT MOVE GSWBIN7,=W'90' MOVE GSWBIN6,CBIN0 REMRE135 ADD GSWBIN10,CBIN1 NEXT INDEXRECORD TO WRITE ADD GSWBIN6,CBIN1 XCOPY CTXBUF,CBIN0,CBIN5,EDITBUF,GSWBIN6 KEY ADD GSWBIN6,CBIN5 POINT AT POINTER XCOPY GSWBIN8,CBIN0,CBIN2,EDITBUF,GSWBIN6 ADD GSWBIN6,CBIN2 NEXT KEY+POINTER CBE GSWBIN8,=X'9999',REMRE160 FINISHED? MOVE GSWBIN4,=W'128' PERF RAREAD,DK03,=D'8',GTREMBUF,GSWBIN4,GSWBIN8 MOVE GSWBIN4,=W'49' PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN8 MOVE GSWBIN1,=W'47' XCOPY CDUM0,GSWBIN1,CBIN2,CBIN0,CBIN0 GTTRKEY=0 MOVE GSWBCD6,=D'0' PERF XCOP,GSWBCD6,=W'4',=W'3',CDUM0,=W'37' PERF YYMMDD,GSWBCD6 PERF XCOP,CDUM0,=W'37',=W'3',GSWBCD7,=W'4' XCOPY CTXBUF,CBIN5,CBIN2,GSWBIN10,CBIN0 PERF RAWRIT,DK07,=D'7',CTXBUF,GSWBIN10 XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 ADD GTLEVNR,=D'0' XCOPY GTREMBUF,CBIN0,CBIN6,GTLEVNR,CBIN0 XCOPY CDUM0,CBIN0,CBIN6,GTLEVNR,CBIN0 PERF RAWRIT,DK08,=D'8',GTREMBUF,GSWBIN10 PERF RAWRIT,DK09,=D'9',CDUM0,GSWBIN10 SUB GSWBIN7,CBIN1 BP REMRE135 XCOPY GTLEVNR,CBIN0,CBIN6,EDITBUF,GSWBIN6 ADD GTLEVNR,=D'0' MOVE GTBSUM3,GTLEVNR CBE GTBSUM3,=D'9999999999',REMRE160 B REMRE105 REMRE160 MOVE CIXFREE,GSWBIN10 REMRE170 PERF RADEL,DK08,GSWBIN10 BNOK REMRE180 PERF RADEL,DK09,GSWBIN10 ADD GSWBIN10,CBIN10 B REMRE170 CONTINUE UNTIL EOD OR ERROR REMRE180 LSPG205 TBF C173FLG,REMRE182 MOVE GSWBIN1,=W'50' MOVE CMEMPT(GSWBIN1),CIXLAST REMRE182 PERF RESTIX PERF CLEAR8 EJECT REMRE200 INSERT TRANSACTIONS MOVE GTLEVNR,=D'0' MOVE SPINPUT,=C'FASE 3: FLYT TRANSAKTIONER ' EDWRT KJTAPE,REOFMT2 MOVE GSWBIN7,CBIN0 REMRE210 MOVE GSWBIN4,=W'39' ADD GSWBIN7,CBIN1 PERF RAREAD,DK05,=D'11',GTREMBUF,GSWBIN4,GSWBIN7 BOK REMRE215 PERF CLEAR8 CBE GTWBCD1,=D'10',REMRE300 FINISHED B REMRE210 REMRE215 CBE GTWBCD1,=D'4',REMRE210 MOVE GTLEVNR,=D'1' XCOPY GTLEVNR,CBIN1,CBIN5,GTREMBUF,CBIN0 CBE GTLEVNR,=D'10',REMRE210 FREE SUPPLIER? CLEAR GTSWFLAG PERF TRUNP UNPACK INTO GTDUPF CBE GTDUPF(CBIN20),=D'0',REMRE230 NORMAL LEV? MOVE GTLEVNR,GTDUPF(CBIN20) NO, USE SYSTEM LEV REMRE230 CBE GTLEVNR,=D'10',REMRE210 FREE SUPPLIER? MOVE GTBSUM1,GTLEVNR SAVE ORIG. LEVNR PERF TRGETF,CREMPT1 BNOK REMRNOK MOVE GTLEVNR,GTBSUM1 PERF VARRD BOK REMRE240 MOVE SPINPUT,=C'TRANS H[GTET P] LEVNR 05 ' EDWRT KJTAPE,REOFMT2 MOVE GTLEVNR,=D'5' TRANS WITHOUT VALID LEVNR PERF VARRD FOR MANUAL ACTION REMRE240 CLEAR GTSWFLAG SET GTBDTFLG PERF TRINS,CREMPT1 BNOK REMRNOK B REMRE210 EJECT REMRE300 CHECK PHASE MOVE GTLEVNR,=D'0' MOVE SPINPUT,=C'FASE 4A: CHECK INDEXREG ' EDWRT KJTAPE,REOFMT2 * 1. CHECK THAT INDEXFILE IS IN ASCENDING SEQUENCE, * WITHOUT DOUBLE KEYS MOVE GSWBIN6,CBIN0 MOVE GSWBCD6,=D'-1' OLD LEVNR REMRE310 ADD GSWBIN6,CBIN1 MOVE GSWBIN4,CBIN7 MOVE GTREMBUF,=' ' PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN4,GSWBIN6 CBE GTWBCD1,=D'10',REMRE400 END OF DEVICE MOVE GTLEVNR,=D'1' XCOPY GTLEVNR,CBIN1,CBIN5,GTREMBUF,CBIN0 CBE GTLEVNR,=D'9999999999',REMRE400 CBNG GTLEVNR,GSWBCD6,REMRE320 ERROR MOVE GSWBCD6,GTLEVNR OK B REMRE310 REMRE320 ADD GTLEVNR,=D'0' MOVE SPINPUT,=C'FEJL I INDEXREG. ' EDWRT KJTAPE,REOFMT2 B REMRNOK REMRE400 MOVE GTLEVNR,=D'0' MOVE SPINPUT,=C'FASE 4B: CHECK STAM/VAR/TR ' EDWRT KJTAPE,REOFMT2 PERF SETIDX MOVE GTLEVNR,=D'15' MOVE GTPRTDAT,=D'999999' PERF BDTSCA BOK REMROK EJECT REMRNOK MOVE GSWBIN8,CBIN1 MOVE SPINPUT,=C'FEJL I REORGANISERING ' B REMROUT REMROK MOVE GSWBIN8,CBIN0 MOVE SPINPUT,=C'RESTORE AFSLUTTET KORREKT ' REMROUT DSC0 DK03,CLOSE DSC0 DK04,CLOSE DSC0 DK05,CLOSE MOVE GTLEVNR,=D'0' EDWRT KJTAPE,REOFMT2 MOVE SPINPUT,=C'$' EDWRT KJTAPE,REOFMT2 CLEAR CPFLG CLEAR TTREST CMP CBIN0,GSWBIN8 RET PEND EJECT REOFMT1 FRMT FILLR ' ',2 FTEXT 'REORG. LEV. ' FMEL '99V99V99',CMASKDAT FILLR ' ',29 FMEND REOFMT2 FRMT FILLR ' ',2 FMEL 'ZZZZZZZZZZ',GTLEVNR FILLR ' ',5 FCOPY SPINPUT FMEND REOFMT3 FRMT FMEL 'ZZ',GTBSUM1 FTEXT '. GENNEML' FILLR X'5C',1 FILLR 'B',1 FILLR ' ',22 FMEND END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT REMREO 830307 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058 Head {h00=0x0012, h01=0x000d, text=» ENTRY REMREO «, t00=0x0000, t01=0x0046}
0x0058…006a Head {h00=0x000e, h01=0x000a, text=» EXT RADEL«, t00=0x0000, t01=0x005c}
0x006a…007c Head {h00=0x000e, h01=0x0009, text=» EXT ASSG «, t00=0x0000, t01=0x006e}
0x007c…0090 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x0080}
0x0090…00a4 Head {h00=0x0010, h01=0x0050, text=» EXT SETIDX «, t00=0x0000, t01=0x0094}
0x00a4…00b8 Head {h00=0x0010, h01=0x0050, text=» EXT RESTIX «, t00=0x0000, t01=0x00a8}
0x00b8…00cc Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x00bc}
0x00cc…00de Head {h00=0x000e, h01=0x0009, text=» EXT XCOP «, t00=0x0000, t01=0x00d0}
0x00de…00f0 Head {h00=0x000e, h01=0x0050, text=» EXT TRINS«, t00=0x0000, t01=0x00e2}
0x00f0…0104 Head {h00=0x0010, h01=0x0050, text=» EXT TRGETF «, t00=0x0000, t01=0x00f4}
0x0104…0118 Head {h00=0x0010, h01=0x0050, text=» EXT BDTSCA «, t00=0x0000, t01=0x0108}
0x0118…012a Head {h00=0x000e, h01=0x0050, text=» EXT VARRD«, t00=0x0000, t01=0x011c}
0x012a…013e Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0000, t01=0x012e}
0x013e…0164 Head {h00=0x0022, h01=0x0050, text=» EXT TRUNP UNPACK TRANSACTION «, t00=0x0000, t01=0x0142}
0x0164…0178 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0000, t01=0x0168}
0x0178…018c Head {h00=0x0010, h01=0x0050, text=» EXT YYMMDD «, t00=0x0000, t01=0x017c}
0x018c…0194 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0190}
0x0194…019c Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0008}
0x019c…01a4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0010}
0x01a4…01bc Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0018}
0x01bc…01c4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0030}
0x01c4…01ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0038}
0x01ce…01fc Head {h00=0x002a, h01=0x0050, text=»* FILENAMES ETC. USED IN THIS MODULE: «, t00=0x0001, t01=0x0042}
0x01fc…0206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…0230 Head {h00=0x0026, h01=0x0050, text=»* XXX001 XXX003 FD«, t00=0x0001, t01=0x007a}
0x0230…025c Head {h00=0x0028, h01=0x0050, text=»* INDEX DK07 XXX007«, t00=0x0001, t01=0x00a4}
0x025c…0288 Head {h00=0x0028, h01=0x0050, text=»* STAM DK08 DK03 XXX008«, t00=0x0001, t01=0x00d0}
0x0288…02b4 Head {h00=0x0028, h01=0x0050, text=»* VAR DK09 DK04 XXX009«, t00=0x0001, t01=0x00fc}
0x02b4…02e0 Head {h00=0x0028, h01=0x0050, text=»* TRANS DK11 DK05 XXX011«, t00=0x0001, t01=0x0128}
0x02e0…030c Head {h00=0x0028, h01=0x0050, text=»* SLAVE DK17 XXX017«, t00=0x0001, t01=0x0154}
0x030c…0316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x0316…0320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x0320…032e (2, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0004}
0x032e…0342 Head {h00=0x0010, h01=0x0050, text=»REMREO PROC «, t00=0x0002, t01=0x0012}
0x0342…036a Head {h00=0x0024, h01=0x0050, text=» SET TTREST RESTORE IN PROGRESS «, t00=0x0002, t01=0x0026}
0x036a…0382 Head {h00=0x0014, h01=0x0050, text=» CLEAR CERRORFL «, t00=0x0002, t01=0x004e}
0x0382…03a2 Head {h00=0x001c, h01=0x0050, text=» SET CPFLG RESERVE DISK «, t00=0x0002, t01=0x0066}
0x03a2…03d6 Head {h00=0x0030, h01=0x0050, text=» PERF ASSG,CBIN1,DK07,CBIN7 INDEX ON XXX001 «, t00=0x0002, t01=0x0086}
0x03d6…03ec Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE005«, t00=0x0002, t01=0x00ba}
0x03ec…0420 Head {h00=0x0030, h01=0x0050, text=» PERF ASSG,CBIN1,DK08,CBIN8 STAM ON XXX001 «, t00=0x0002, t01=0x00d0}
0x0420…0436 Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE005«, t00=0x0002, t01=0x0104}
0x0436…046a Head {h00=0x0030, h01=0x0050, text=» PERF ASSG,CBIN1,DK09,CBIN9 VAR ON XXX001 «, t00=0x0002, t01=0x011a}
0x046a…0480 Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE005«, t00=0x0002, t01=0x014e}
0x0480…04b4 Head {h00=0x0030, h01=0x0050, text=» PERF ASSG,CBIN1,DK11,CBIN11 TRANS ON XXX001«, t00=0x0002, t01=0x0164}
0x04b4…04ca Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE005«, t00=0x0003, t01=0x0008}
0x04ca…04e8 Head {h00=0x001a, h01=0x0050, text=» TBF C173FLG,REMRE001 «, t00=0x0003, t01=0x001e}
0x04e8…050c Head {h00=0x0020, h01=0x0050, text=» PERF ASSG,CBIN1,DK17,CBIN17«, t00=0x0003, t01=0x003c}
0x050c…0522 Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE005«, t00=0x0003, t01=0x0060}
0x0522…0532 Head {h00=0x000c, h01=0x0050, text=»REMRE001«, t00=0x0003, t01=0x0076}
0x0532…0566 Head {h00=0x0030, h01=0x0050, text=» PERF ASSG,CBIN3,DK03,CBIN8 STAM ON XXX003 «, t00=0x0003, t01=0x0086}
0x0566…057c Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE005«, t00=0x0003, t01=0x00ba}
0x057c…05b0 Head {h00=0x0030, h01=0x0050, text=» PERF ASSG,CBIN3,DK04,CBIN9 VAR ON XXX003 «, t00=0x0003, t01=0x00d0}
0x05b0…05c6 Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE005«, t00=0x0003, t01=0x0104}
0x05c6…05fa Head {h00=0x0030, h01=0x0050, text=» PERF ASSG,CBIN3,DK05,CBIN11 TRANS ON XXX003«, t00=0x0003, t01=0x011a}
0x05fa…0610 Head {h00=0x0012, h01=0x0050, text=» BOK REMRE006 «, t00=0x0003, t01=0x014e}
0x0610…0618 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0164}
0x0618…0628 Head {h00=0x000c, h01=0x0050, text=»REMRE005«, t00=0x0003, t01=0x016c}
0x0628…063a Head {h00=0x000e, h01=0x0050, text=» B REMRNOK«, t00=0x0003, t01=0x017c}
0x063a…064a Head {h00=0x000c, h01=0x0050, text=»REMRE006«, t00=0x0003, t01=0x018e}
0x064a…0668 Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,GTPRTFRA «, t00=0x0004, t01=0x000e}
0x0668…0686 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPRTFRA,GSWBCD7«, t00=0x0004, t01=0x002c}
0x0686…06a4 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT1 «, t00=0x0004, t01=0x004a}
0x06a4…06c0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'0' «, t00=0x0004, t01=0x0068}
0x06c0…06ee Head {h00=0x002a, h01=0x0050, text=» MOVE SPINPUT,=C'FASE 0: INITIERING ' «, t00=0x0004, t01=0x0084}
0x06ee…070c Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0004, t01=0x00b2}
0x070c…0728 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN1 «, t00=0x0004, t01=0x00d0}
0x0728…0758 Head {h00=0x002c, h01=0x0050, text=» PERF RADEL,DK07,GSWBIN5 DELETE 1. INDEX«, t00=0x0004, t01=0x00ec}
0x0758…0788 Head {h00=0x002c, h01=0x0050, text=» PERF RADEL,DK08,GSWBIN5 DELETE 1. STAM «, t00=0x0004, t01=0x011c}
0x0788…07b6 Head {h00=0x002a, h01=0x0050, text=» PERF RADEL,DK09,GSWBIN5 DELETE 1. VAR«, t00=0x0004, t01=0x014c}
0x07b6…07e6 Head {h00=0x002c, h01=0x0050, text=» PERF RADEL,DK11,GSWBIN5 DELETE 1. TRANS«, t00=0x0004, t01=0x017a}
0x07e6…080e Head {h00=0x0024, h01=0x0050, text=» PERF SETIDX FILL INDEX WITH 9'S«, t00=0x0005, t01=0x001a}
0x080e…0828 Head {h00=0x0016, h01=0x0050, text=» CREATE LEV 1-15«, t00=0x0005, t01=0x0042}
0x0828…0850 Head {h00=0x0024, h01=0x0050, text=» CONNECT ALL TRANS TO LEVNR 10«, t00=0x0005, t01=0x005c}
0x0850…085e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0084}
0x085e…0890 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN9,CBIN0 POINTER FOR READERRORS«, t00=0x0005, t01=0x0092}
0x0890…08ac Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN0 «, t00=0x0005, t01=0x00c4}
0x08ac…08c8 Head {h00=0x0018, h01=0x0050, text=» MOVE EDITBUF,=X'FF'«, t00=0x0005, t01=0x00e0}
0x08c8…08e4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'0' «, t00=0x0005, t01=0x00fc}
0x08e4…091a Head {h00=0x0032, h01=0x0050, text=» MOVE SPINPUT,=C'FASE 1: SAMMENH[NG STAM/VAR '«, t00=0x0005, t01=0x0118}
0x091a…0938 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0005, t01=0x014e}
0x0938…0942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016c}
0x0942…0964 Head {h00=0x001e, h01=0x0050, text=»* MATCH LEVNR IN STAM/VAR «, t00=0x0005, t01=0x0176}
0x0964…098e Head {h00=0x0026, h01=0x0050, text=»* UPDATE GTREGF/GTDUPF AS REQUIRED«, t00=0x0006, t01=0x0008}
0x098e…0998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0032}
0x0998…09a8 Head {h00=0x000c, h01=0x0050, text=»REMRE010«, t00=0x0006, t01=0x003c}
0x09a8…09e2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0006, t01=0x004c}
0x09e2…09ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0086}
0x09ec…0a26 Head {h00=0x0036, h01=0x0050, text=»* THE FOLLOWING SITUATIONS CAN OCCUR AFTER A READ:«, t00=0x0006, t01=0x0090}
0x0a26…0a5a Head {h00=0x0030, h01=0x0050, text=»* STAM VAR ROUTINEINDEX«, t00=0x0006, t01=0x00ca}
0x0a5a…0a86 Head {h00=0x0028, h01=0x0050, text=»* READERROR READERROR 1«, t00=0x0006, t01=0x00fe}
0x0a86…0ab2 Head {h00=0x0028, h01=0x0050, text=»* READERROR NODATA 2«, t00=0x0006, t01=0x012a}
0x0ab2…0ade Head {h00=0x0028, h01=0x0050, text=»* READERROR DATA 3«, t00=0x0006, t01=0x0156}
0x0ade…0b0a Head {h00=0x0028, h01=0x0050, text=»* NODATA READERROR 4«, t00=0x0006, t01=0x0182}
0x0b0a…0b36 Head {h00=0x0028, h01=0x0050, text=»* NODATA NODATA 5«, t00=0x0007, t01=0x001e}
0x0b36…0b62 Head {h00=0x0028, h01=0x0050, text=»* NODATA DATA 6«, t00=0x0007, t01=0x004a}
0x0b62…0b8e Head {h00=0x0028, h01=0x0050, text=»* DATA READERROR 7«, t00=0x0007, t01=0x0076}
0x0b8e…0bba Head {h00=0x0028, h01=0x0050, text=»* DATA NODATA 8«, t00=0x0007, t01=0x00a2}
0x0bba…0be6 Head {h00=0x0028, h01=0x0050, text=»* DATA DATA(MATCH) 9«, t00=0x0007, t01=0x00ce}
0x0be6…0c14 Head {h00=0x002a, h01=0x0050, text=»* DATA DATA(-,MATCH) 10 «, t00=0x0007, t01=0x00fa}
0x0c14…0c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c1e…0c4c Head {h00=0x002a, h01=0x0050, text=»* NODATA: RECORD FILLED WITH '7F' «, t00=0x0007, t01=0x0132}
0x0c4c…0c7a Head {h00=0x002a, h01=0x0050, text=»* RDERROR: RECORD FILLED WITH 'FF' «, t00=0x0007, t01=0x0160}
0x0c7a…0c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018e}
0x0c84…0cbe Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0008, t01=0x0008}
0x0cbe…0ce4 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN7,CBIN1 NEXT RECORD«, t00=0x0008, t01=0x0042}
0x0ce4…0d02 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,=W'128' «, t00=0x0008, t01=0x0068}
0x0d02…0d1e Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' ' «, t00=0x0008, t01=0x0086}
0x0d1e…0d56 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK03,=D'8',GTREMBUF,GSWBIN4,GSWBIN7«, t00=0x0008, t01=0x00a2}
0x0d56…0d6c Head {h00=0x0012, h01=0x0050, text=» BOK REMRE013 «, t00=0x0008, t01=0x00da}
0x0d6c…0d80 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x00f0}
0x0d80…0db2 Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'10',REMRE011 END OF DEVICE«, t00=0x0008, t01=0x0104}
0x0db2…0dda Head {h00=0x0024, h01=0x0050, text=» MOVE GTREMBUF,=X'FF' READ ERROR«, t00=0x0008, t01=0x0136}
0x0dda…0df6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN10,CBIN1«, t00=0x0008, t01=0x015e}
0x0df6…0e0a Head {h00=0x0010, h01=0x0050, text=» B REMRE015 «, t00=0x0008, t01=0x017a}
0x0e0a…0e1a Head {h00=0x000c, h01=0x0050, text=»REMRE011«, t00=0x0008, t01=0x018e}
0x0e1a…0e48 Head {h00=0x002a, h01=0x0050, text=» B REMRE100 EOD, FINISHED WITH PHASE 1«, t00=0x0009, t01=0x000e}
0x0e48…0e62 Head {h00=0x0016, h01=0x0050, text=»REMRE012 NO DATA«, t00=0x0009, t01=0x003c}
0x0e62…0e9a Head {h00=0x0034, h01=0x0050, text=» MOVE GTREMBUF,=X'7F' INDICATE NO-DATA IN BUFFER«, t00=0x0009, t01=0x0056}
0x0e9a…0eb6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN10,CBIN4«, t00=0x0009, t01=0x008e}
0x0eb6…0eca Head {h00=0x0010, h01=0x0050, text=» B REMRE015 «, t00=0x0009, t01=0x00aa}
0x0eca…0eda Head {h00=0x000c, h01=0x0050, text=»REMRE013«, t00=0x0009, t01=0x00be}
0x0eda…0f04 Head {h00=0x0026, h01=0x0050, text=» CBE GTWBCD1,=D'4',REMRE012 NODATA«, t00=0x0009, t01=0x00ce}
0x0f04…0f20 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN10,CBIN7«, t00=0x0009, t01=0x00f8}
0x0f20…0f30 Head {h00=0x000c, h01=0x0050, text=»REMRE015«, t00=0x0009, t01=0x0114}
0x0f30…0f4c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,=W'49'«, t00=0x0009, t01=0x0124}
0x0f4c…0f64 Head {h00=0x0014, h01=0x0050, text=» MOVE CDUM0,=' '«, t00=0x0009, t01=0x0140}
0x0f64…0f9a Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN7 «, t00=0x0009, t01=0x0158}
0x0f9a…0fb0 Head {h00=0x0012, h01=0x0050, text=» BOK REMRE019 «, t00=0x0009, t01=0x018e}
0x0fb0…0fda Head {h00=0x0026, h01=0x0050, text=»* EOD CAN NOT OCCUR, AS THE FILES «, t00=0x000a, t01=0x0014}
0x0fda…1000 Head {h00=0x0022, h01=0x0050, text=»* HAVE THE SAME NBR OF RECORDS«, t00=0x000a, t01=0x003e}
0x1000…1014 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x000a, t01=0x0064}
0x1014…103a Head {h00=0x0022, h01=0x0050, text=» MOVE CDUM0,=X'FF' READ ERROR «, t00=0x000a, t01=0x0078}
0x103a…104e Head {h00=0x0010, h01=0x0050, text=» B REMRE020 «, t00=0x000a, t01=0x009e}
0x104e…105e Head {h00=0x000c, h01=0x0050, text=»REMRE017«, t00=0x000a, t01=0x00b2}
0x105e…107a Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN10,CBIN1 «, t00=0x000a, t01=0x00c2}
0x107a…1094 Head {h00=0x0016, h01=0x0050, text=» MOVE CDUM0,=X'7F'«, t00=0x000a, t01=0x00de}
0x1094…10a8 Head {h00=0x0010, h01=0x0050, text=» B REMRE020 «, t00=0x000a, t01=0x00f8}
0x10a8…10b8 Head {h00=0x000c, h01=0x0050, text=»REMRE019«, t00=0x000a, t01=0x010c}
0x10b8…10dc Head {h00=0x0020, h01=0x0050, text=» CBE GTWBCD1,=D'4',REMRE017 «, t00=0x000a, t01=0x011c}
0x10dc…10f8 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN10,CBIN2 «, t00=0x000a, t01=0x0140}
0x10f8…1108 Head {h00=0x000c, h01=0x0050, text=»REMRE020«, t00=0x000a, t01=0x015c}
0x1108…1112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016c}
0x1112…1148 Head {h00=0x0032, h01=0x0050, text=»* WE NOW KNOW THE STATUS OF A SET, CONSISTING «, t00=0x000a, t01=0x0176}
0x1148…116e Head {h00=0x0022, h01=0x0050, text=»* OF 1 STAM AND 1 VAR RECORD. «, t00=0x000b, t01=0x001c}
0x116e…11a8 Head {h00=0x0036, h01=0x0050, text=»* THE STATUS CAN BE AS DESCRIBED UNDER 'REMRE010' «, t00=0x000b, t01=0x0042}
0x11a8…11d4 Head {h00=0x0028, h01=0x0050, text=»* FURTHER ACTION DEPENDS ON STATUS. «, t00=0x000b, t01=0x007c}
0x11d4…11de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a8}
0x11de…1214 Head {h00=0x0032, h01=0x0050, text=» CBNE GSWBIN10,CBIN9,REMRE024 NOT DATA/DATA ? «, t00=0x000b, t01=0x00b2}
0x1214…1230 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x000b, t01=0x00e8}
0x1230…124c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'1' «, t00=0x000b, t01=0x0104}
0x124c…1268 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x000b, t01=0x0120}
0x1268…129c Head {h00=0x0030, h01=0x0050, text=» XCOPY GSWBCD6,CBIN1,CBIN6,CDUM0,CBIN0 LEVNR«, t00=0x000b, t01=0x013c}
0x129c…12ce Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,GTREMBUF,CBIN0 «, t00=0x000b, t01=0x0170}
0x12ce…12f4 Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD6,GSWBCD7,REMRE024 «, t00=0x000c, t01=0x0012}
0x12f4…131e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN10,CBIN10 NO, NO MATCH«, t00=0x000c, t01=0x0038}
0x131e…132e Head {h00=0x000c, h01=0x0050, text=»REMRE024«, t00=0x000c, t01=0x0062}
0x132e…1362 Head {h00=0x0030, h01=0x0050, text=» IB GSWBIN10,REMRE030,REMRE035,REMRE040, C «, t00=0x000c, t01=0x0072}
0x1362…138a Head {h00=0x0024, h01=0x0050, text=» REMRE045,REMRE050,REMRE055, C«, t00=0x000c, t01=0x00a6}
0x138a…13b2 Head {h00=0x0024, h01=0x0050, text=» REMRE060,REMRE065,REMRE070, C«, t00=0x000c, t01=0x00ce}
0x13b2…13c4 Head {h00=0x000e, h01=0x0050, text=» REMRE075«, t00=0x000c, t01=0x00f6}
0x13c4…13fe Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000c, t01=0x0108}
0x13fe…1426 Head {h00=0x0024, h01=0x0050, text=»REMRE030 READERROR / READERROR«, t00=0x000c, t01=0x0142}
0x1426…1440 Head {h00=0x0016, h01=0x0050, text=» B REMRE010 IGNORE«, t00=0x000c, t01=0x016a}
0x1440…147a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000c, t01=0x0184}
0x147a…14a0 Head {h00=0x0022, h01=0x0050, text=»REMRE035 READERROR / NODATA «, t00=0x000d, t01=0x002e}
0x14a0…14ba Head {h00=0x0016, h01=0x0050, text=» B REMRE010 IGNORE«, t00=0x000d, t01=0x0054}
0x14ba…14f4 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000d, t01=0x006e}
0x14f4…1518 Head {h00=0x0020, h01=0x0050, text=»REMRE040 READERROR / DATA «, t00=0x000d, t01=0x00a8}
0x1518…1546 Head {h00=0x002a, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0«, t00=0x000d, t01=0x00cc}
0x1546…1576 Head {h00=0x002c, h01=0x0050, text=» MOVE SPINPUT,=C'SLETTET PGA L[SEFEJL ' «, t00=0x000d, t01=0x00fa}
0x1576…1594 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x000d, t01=0x012a}
0x1594…15b4 Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK04,GSWBIN7«, t00=0x000d, t01=0x0148}
0x15b4…15c8 Head {h00=0x0010, h01=0x0050, text=» B REMRE010 «, t00=0x000d, t01=0x0168}
0x15c8…1602 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000d, t01=0x017c}
0x1602…1628 Head {h00=0x0022, h01=0x0050, text=»REMRE045 NODATA / READERROR «, t00=0x000e, t01=0x0026}
0x1628…1642 Head {h00=0x0016, h01=0x0050, text=» B REMRE010 IGNORE«, t00=0x000e, t01=0x004c}
0x1642…167c Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000e, t01=0x0066}
0x167c…169e Head {h00=0x001e, h01=0x0050, text=»REMRE050 NODATA / NODATA«, t00=0x000e, t01=0x00a0}
0x169e…16c2 Head {h00=0x0020, h01=0x0050, text=» B REMRE010 ONE MORE SAVED! «, t00=0x000e, t01=0x00c2}
0x16c2…16fc Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000e, t01=0x00e6}
0x16fc…171c Head {h00=0x001c, h01=0x0050, text=»REMRE055 NODATA / DATA«, t00=0x000e, t01=0x0120}
0x171c…173c Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK04,GSWBIN7«, t00=0x000e, t01=0x0140}
0x173c…176a Head {h00=0x002a, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0«, t00=0x000e, t01=0x0160}
0x176a…179c Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,=C'SLETTET PGA MGL STAMOPL '«, t00=0x000e, t01=0x018e}
0x179c…17ba Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x000f, t01=0x0030}
0x17ba…17ce Head {h00=0x0010, h01=0x0050, text=» B REMRE010 «, t00=0x000f, t01=0x004e}
0x17ce…1808 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000f, t01=0x0062}
0x1808…182c Head {h00=0x0020, h01=0x0050, text=»REMRE060 DATA / READERROR «, t00=0x000f, t01=0x009c}
0x182c…184c Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK03,GSWBIN7«, t00=0x000f, t01=0x00c0}
0x184c…187e Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 «, t00=0x000f, t01=0x00e0}
0x187e…18ae Head {h00=0x002c, h01=0x0050, text=» MOVE SPINPUT,=C'SLETTET PGA L[SEFEJL ' «, t00=0x000f, t01=0x0112}
0x18ae…18cc Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x000f, t01=0x0142}
0x18cc…18e0 Head {h00=0x0010, h01=0x0050, text=» B REMRE080 «, t00=0x000f, t01=0x0160}
0x18e0…191a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x000f, t01=0x0174}
0x191a…193a Head {h00=0x001c, h01=0x0050, text=»REMRE065 DATA / NODATA«, t00=0x0010, t01=0x001e}
0x193a…195a Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK03,GSWBIN7«, t00=0x0010, t01=0x003e}
0x195a…198c Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 «, t00=0x0010, t01=0x005e}
0x198c…19be Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,=C'SLETTET PGA MGL VAR.OPL '«, t00=0x0010, t01=0x0090}
0x19be…19dc Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0010, t01=0x00c2}
0x19dc…19f0 Head {h00=0x0010, h01=0x0050, text=» B REMRE010 «, t00=0x0010, t01=0x00e0}
0x19f0…1a2a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0010, t01=0x00f4}
0x1a2a…1a44 Head {h00=0x0016, h01=0x0050, text=»REMRE070 MATCH! «, t00=0x0010, t01=0x012e}
0x1a44…1a62 Head {h00=0x001a, h01=0x0050, text=» TBF C173FLG,REMRE071 «, t00=0x0010, t01=0x0148}
0x1a62…1a90 Head {h00=0x002a, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0«, t00=0x0010, t01=0x0166}
0x1a90…1acc (17, 0, 400) Head {h00=0x0038, h01=0x0050, text=» CBL GTLEVNR,=D'19',REMRE071 DONT DELETE SYSTEMLEVS «, t00=0x0011, t01=0x0004}
0x1acc…1ae8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'1' «, t00=0x0011, t01=0x0040}
0x1ae8…1b16 Head {h00=0x002a, h01=0x0050, text=» XCOPY GSWBCD6,CBIN4,CBIN3,CDUM0,CBIN6«, t00=0x0011, t01=0x005c}
0x1b16…1b32 Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0011, t01=0x008a}
0x1b32…1b5a Head {h00=0x0024, h01=0x0050, text=» CBNG GTPRTFRA,GSWBCD7,REMRE071 «, t00=0x0011, t01=0x00a6}
0x1b5a…1b8a Head {h00=0x002c, h01=0x0050, text=»* NON-ACTIVE SUPPLIER FOUND, DELETE HIM «, t00=0x0011, t01=0x00ce}
0x1b8a…1bbe Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,=C'SLETTES PGA SK[RINGSDATO ' «, t00=0x0011, t01=0x00fe}
0x1bbe…1bdc Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0011, t01=0x0132}
0x1bdc…1bfc Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK03,GSWBIN7«, t00=0x0011, t01=0x0150}
0x1bfc…1c1c Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK04,GSWBIN7«, t00=0x0011, t01=0x0170}
0x1c1c…1c2c Head {h00=0x000c, h01=0x0050, text=»REMRE071«, t00=0x0011, t01=0x0190}
0x1c2c…1c40 Head {h00=0x0010, h01=0x0050, text=» B REMRE010 «, t00=0x0012, t01=0x0010}
0x1c40…1c7a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0012, t01=0x0024}
0x1c7a…1ca4 Head {h00=0x0026, h01=0x0050, text=»REMRE075 NO MATCH = DOUBLE ERROR«, t00=0x0012, t01=0x005e}
0x1ca4…1cd4 Head {h00=0x002c, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0 «, t00=0x0012, t01=0x0088}
0x1cd4…1d06 Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,=C'SLETTET PGA LOGISK FEJL '«, t00=0x0012, t01=0x00b8}
0x1d06…1d24 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0012, t01=0x00ea}
0x1d24…1d56 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 «, t00=0x0012, t01=0x0108}
0x1d56…1d74 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0012, t01=0x013a}
0x1d74…1d94 Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK03,GSWBIN7«, t00=0x0012, t01=0x0158}
0x1d94…1db4 Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK04,GSWBIN7«, t00=0x0012, t01=0x0178}
0x1db4…1dee Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0013, t01=0x0008}
0x1dee…1dfe Head {h00=0x000c, h01=0x0050, text=»REMRE080«, t00=0x0013, t01=0x0042}
0x1dfe…1e0e Head {h00=0x000c, h01=0x0050, text=»REMRE085«, t00=0x0013, t01=0x0052}
0x1e0e…1e22 Head {h00=0x0010, h01=0x0050, text=» B REMRE010 «, t00=0x0013, t01=0x0062}
0x1e22…1e30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0076}
0x1e30…1e40 Head {h00=0x000c, h01=0x0050, text=»REMRE100«, t00=0x0013, t01=0x0084}
0x1e40…1e6a Head {h00=0x0026, h01=0x0050, text=»* PERF SAVE1 SAVE UNSOLVED ERRORS «, t00=0x0013, t01=0x0094}
0x1e6a…1e86 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'0' «, t00=0x0013, t01=0x00be}
0x1e86…1eb6 Head {h00=0x002c, h01=0x0050, text=» MOVE SPINPUT,=C'FASE 2: FLYT STAM/VAR '«, t00=0x0013, t01=0x00da}
0x1eb6…1ed4 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0013, t01=0x010a}
0x1ed4…1efa Head {h00=0x0022, h01=0x0050, text=»* NOW THE TWO FILES ARE OK AND«, t00=0x0013, t01=0x0128}
0x1efa…1f1c Head {h00=0x001e, h01=0x0050, text=»* CORRESPOND TO EACH OTHER«, t00=0x0013, t01=0x014e}
0x1f1c…1f38 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0013, t01=0x0170}
0x1f38…1f6c Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN10,CBIN15 POINTER INTO INDEXFILE«, t00=0x0013, t01=0x018c}
0x1f6c…1f9c Head {h00=0x002c, h01=0x0050, text=» MOVE GTBSUM3,=D'19' FIRST REC TO INSERT«, t00=0x0014, t01=0x0030}
0x1f9c…1fac Head {h00=0x000c, h01=0x0050, text=»REMRE105«, t00=0x0014, t01=0x0060}
0x1fac…1fde Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN7,CBIN0 POINTER FOR VAR. READ «, t00=0x0014, t01=0x0070}
0x1fde…1ffc Head {h00=0x001a, h01=0x0050, text=» MOVE EDITBUF,=X'B999'«, t00=0x0014, t01=0x00a2}
0x1ffc…2020 Head {h00=0x0020, h01=0x0050, text=» ADD GTBSUM1,=D'1' NEXT RUN «, t00=0x0014, t01=0x00c0}
0x2020…205a Head {h00=0x0036, h01=0x0050, text=» MOVE GTBSUM2,=D'9999999999' ACCEPT ALL KEYS P.T. «, t00=0x0014, t01=0x00e4}
0x205a…2086 Head {h00=0x0028, h01=0x0050, text=» EDIT SPINPUT,REOFMT3 XX. GENNEMLOB «, t00=0x0014, t01=0x011e}
0x2086…20ba Head {h00=0x0030, h01=0x0050, text=» MOVE GTLEVNR,GTBSUM3 LOWEST LEVNR TO ACCEPT«, t00=0x0014, t01=0x014a}
0x20ba…20ea Head {h00=0x002c, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 <NR> XX. GENNEMLOB«, t00=0x0014, t01=0x017e}
0x20ea…20fa Head {h00=0x000c, h01=0x0050, text=»REMRE110«, t00=0x0015, t01=0x001e}
0x20fa…2114 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN7,CBIN1«, t00=0x0015, t01=0x002e}
0x2114…2130 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,=W'49'«, t00=0x0015, t01=0x0048}
0x2130…2148 Head {h00=0x0014, h01=0x0050, text=» MOVE CDUM0,=' '«, t00=0x0015, t01=0x0064}
0x2148…217e Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN7 «, t00=0x0015, t01=0x007c}
0x217e…2194 Head {h00=0x0012, h01=0x0050, text=» BOK REMRE111 «, t00=0x0015, t01=0x00b2}
0x2194…21a8 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0015, t01=0x00c8}
0x21a8…21da Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'10',REMRE130 END OF DEVICE«, t00=0x0015, t01=0x00dc}
0x21da…2200 Head {h00=0x0022, h01=0x0050, text=» B REMRE110 ONLY DATA ACCEPTED«, t00=0x0015, t01=0x010e}
0x2200…2210 Head {h00=0x000c, h01=0x0050, text=»REMRE111«, t00=0x0015, t01=0x0134}
0x2210…2234 Head {h00=0x0020, h01=0x0050, text=» CBE GTWBCD1,=D'4',REMRE110 «, t00=0x0015, t01=0x0144}
0x2234…2262 Head {h00=0x002a, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,CDUM0,CBIN0«, t00=0x0015, t01=0x0168}
0x2262…2288 Head {h00=0x0022, h01=0x0050, text=» CBNG GTLEVNR,=D'15',REMRE125 «, t00=0x0016, t01=0x0008}
0x2288…22c2 Head {h00=0x0036, h01=0x0050, text=» CBL GTLEVNR,GTBSUM3,REMRE110 BELOW BOUNDARY, DROP«, t00=0x0016, t01=0x002e}
0x22c2…22e8 Head {h00=0x0022, h01=0x0050, text=» CBG GTLEVNR,GTBSUM2,REMRE110 «, t00=0x0016, t01=0x0068}
0x22e8…2304 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0016, t01=0x008e}
0x2304…2320 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x0016, t01=0x00aa}
0x2320…233c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,=W'90'«, t00=0x0016, t01=0x00c6}
0x233c…234c Head {h00=0x000c, h01=0x0050, text=»REMRE115«, t00=0x0016, t01=0x00e2}
0x234c…2368 Head {h00=0x0018, h01=0x0050, text=»* GTLEVNR: JUST READ«, t00=0x0016, t01=0x00f2}
0x2368…2394 Head {h00=0x0028, h01=0x0050, text=»* GTLEVALT: ANYTHING WITHIN EDITBUF «, t00=0x0016, t01=0x010e}
0x2394…23c8 Head {h00=0x0030, h01=0x0050, text=» XCOPY GTLEVALT,CBIN0,CBIN6,EDITBUF,GSWBIN2 «, t00=0x0016, t01=0x013a}
0x23c8…23f6 Head {h00=0x002a, h01=0x0050, text=» CBG GTLEVALT,GTLEVNR,REMRE120 INSERT «, t00=0x0016, t01=0x016e}
0x23f6…240a Head {h00=0x0010, h01=0x0050, text=» BE REMRE118«, t00=0x0017, t01=0x000c}
0x240a…2424 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN2,CBIN8«, t00=0x0017, t01=0x0020}
0x2424…243e Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN3,CBIN1«, t00=0x0017, t01=0x003a}
0x243e…2452 Head {h00=0x0010, h01=0x0050, text=» BP REMRE115«, t00=0x0017, t01=0x0054}
0x2452…2466 Head {h00=0x0010, h01=0x0050, text=» B REMRE120 «, t00=0x0017, t01=0x0068}
0x2466…2476 Head {h00=0x000c, h01=0x0050, text=»REMRE118«, t00=0x0017, t01=0x007c}
0x2476…2490 Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'0'«, t00=0x0017, t01=0x008c}
0x2490…24c0 Head {h00=0x002c, h01=0x0050, text=» MOVE SPINPUT,=C'DUBLET, NR. 2 SLETTES '«, t00=0x0017, t01=0x00a6}
0x24c0…24de Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0017, t01=0x00d6}
0x24de…250a Head {h00=0x0028, h01=0x0050, text=» PERF RADEL,DK03,GSWBIN7 DELETE STAM«, t00=0x0017, t01=0x00f4}
0x250a…2536 Head {h00=0x0028, h01=0x0050, text=» PERF RADEL,DK04,GSWBIN7 DELETE VAR «, t00=0x0017, t01=0x0120}
0x2536…254a Head {h00=0x0010, h01=0x0050, text=» B REMRE110 «, t00=0x0017, t01=0x014c}
0x254a…255a Head {h00=0x000c, h01=0x0050, text=»REMRE120«, t00=0x0017, t01=0x0160}
0x255a…258a Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWSTR2,CBIN0,CBIN2,GSWBIN7,CBIN0«, t00=0x0017, t01=0x0170}
0x258a…25bc Head {h00=0x002e, h01=0x0050, text=» INSRT EDITBUF,GSWBIN2,CBIN2,GSWSTR2,CBIN0«, t00=0x0018, t01=0x0010}
0x25bc…25ec Head {h00=0x002c, h01=0x0050, text=» INSRT EDITBUF,GSWBIN2,CBIN6,CDUM0,CBIN0«, t00=0x0018, t01=0x0042}
0x25ec…261e Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=W'726' 1. KEY AFTER EDITBUF«, t00=0x0018, t01=0x0072}
0x261e…2650 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR2,CBIN0,CBIN2,EDITBUF,GSWBIN2«, t00=0x0018, t01=0x00a4}
0x2650…2686 Head {h00=0x0032, h01=0x0050, text=» CBE GSWSTR2,=X'9999',REMRE110 ROOM IN BUFFER «, t00=0x0018, t01=0x00d6}
0x2686…26b6 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,CBIN6 NO, FIND HIGHEST KEY «, t00=0x0018, t01=0x010c}
0x26b6…26ea Head {h00=0x0030, h01=0x0050, text=» XCOPY GTLEVALT,CBIN0,CBIN6,EDITBUF,GSWBIN2 «, t00=0x0018, t01=0x013c}
0x26ea…2720 Head {h00=0x0032, h01=0x0050, text=» MOVE GTBSUM2,GTLEVALT HIGHEST KEY IN EDITBUF «, t00=0x0018, t01=0x0170}
0x2720…273e Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GTLEVALT«, t00=0x0019, t01=0x0016}
0x273e…2774 Head {h00=0x0032, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 DISPLAY HIGHES LEVNR«, t00=0x0019, t01=0x0034}
0x2774…278c Head {h00=0x0014, h01=0x0050, text=» IN EDITBUFFER«, t00=0x0019, t01=0x006a}
0x278c…27a0 Head {h00=0x0010, h01=0x0050, text=» B REMRE110 «, t00=0x0019, t01=0x0082}
0x27a0…27d0 Head {h00=0x002c, h01=0x0050, text=»REMRE125 SYSTEMLEV, HAS FIXED POSITION«, t00=0x0019, t01=0x0096}
0x27d0…27ee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GTLEVNR «, t00=0x0019, t01=0x00c6}
0x27ee…280c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,=W'128' «, t00=0x0019, t01=0x00e4}
0x280c…2844 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK03,=D'8',GTREMBUF,GSWBIN4,GSWBIN8«, t00=0x0019, t01=0x0102}
0x2844…2860 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,=D'1' «, t00=0x0019, t01=0x013a}
0x2860…2892 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD1,CBIN2,CBIN5,GTREMBUF,CBIN1 «, t00=0x0019, t01=0x0156}
0x2892…28b8 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBCD1,=D'16',REMRE126 «, t00=0x0019, t01=0x0188}
0x28b8…28e8 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK08,=D'8',GTREMBUF,GSWBIN8«, t00=0x001a, t01=0x001e}
0x28e8…2916 Head {h00=0x002a, h01=0x0050, text=» CBE GTLEVNR,=D'10',REMRE126 FREE LEV?«, t00=0x001a, t01=0x004e}
0x2916…2932 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,=W'49'«, t00=0x001a, t01=0x007c}
0x2932…2968 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN8 «, t00=0x001a, t01=0x0098}
0x2968…2984 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x001a, t01=0x00ce}
0x2984…29b2 Head {h00=0x002a, h01=0x0050, text=» XCOPY CDUM0,CBIN6,CBIN3,GSWBCD7,CBIN4«, t00=0x001a, t01=0x00ea}
0x29b2…29e0 Head {h00=0x002a, h01=0x0050, text=» XCOPY CDUM0,CBIN9,CBIN7,GSWBCD7,CBIN0«, t00=0x001a, t01=0x0118}
0x29e0…2a10 Head {h00=0x002c, h01=0x0050, text=» XCOPY CDUM0,CBIN16,CBIN7,GSWBCD7,CBIN0 «, t00=0x001a, t01=0x0146}
0x2a10…2a44 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CDUM0,=W'23',=W'7',GSWBCD7,=W'0' «, t00=0x001a, t01=0x0176}
0x2a44…2a78 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CDUM0,=W'30',=W'7',GSWBCD7,=W'0' «, t00=0x001b, t01=0x001a}
0x2a78…2aac Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CDUM0,=W'37',=W'3',GSWBCD7,=W'4' «, t00=0x001b, t01=0x004e}
0x2aac…2ade Head {h00=0x002e, h01=0x0050, text=» PERF XCOP,CDUM0,=W'47',=W'2',CBIN0,=W'0' «, t00=0x001b, t01=0x0082}
0x2ade…2b0c Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK09,=D'9',CDUM0,GSWBIN8 «, t00=0x001b, t01=0x00b4}
0x2b0c…2b1c Head {h00=0x000c, h01=0x0050, text=»REMRE126«, t00=0x001b, t01=0x00e2}
0x2b1c…2b30 Head {h00=0x0010, h01=0x0050, text=» B REMRE110 «, t00=0x001b, t01=0x00f2}
0x2b30…2b40 Head {h00=0x000c, h01=0x0050, text=»REMRE130«, t00=0x001b, t01=0x0106}
0x2b40…2b54 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x001b, t01=0x0116}
0x2b54…2b82 Head {h00=0x002a, h01=0x0050, text=»* NOW WE HAVE MAX 90 INDEXES TO INSERT«, t00=0x001b, t01=0x012a}
0x2b82…2b9e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'90'«, t00=0x001b, t01=0x0158}
0x2b9e…2bba Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 «, t00=0x001b, t01=0x0174}
0x2bba…2bca Head {h00=0x000c, h01=0x0050, text=»REMRE135«, t00=0x001b, t01=0x0190}
0x2bca…2c00 Head {h00=0x0032, h01=0x0050, text=» ADD GSWBIN10,CBIN1 NEXT INDEXRECORD TO WRITE «, t00=0x001c, t01=0x0010}
0x2c00…2c1a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN6,CBIN1«, t00=0x001c, t01=0x0046}
0x2c1a…2c50 Head {h00=0x0032, h01=0x0050, text=» XCOPY CTXBUF,CBIN0,CBIN5,EDITBUF,GSWBIN6 KEY «, t00=0x001c, t01=0x0060}
0x2c50…2c7c Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN6,CBIN5 POINT AT POINTER «, t00=0x001c, t01=0x0096}
0x2c7c…2cae Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN8,CBIN0,CBIN2,EDITBUF,GSWBIN6«, t00=0x001c, t01=0x00c2}
0x2cae…2cda Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN6,CBIN2 NEXT KEY+POINTER «, t00=0x001c, t01=0x00f4}
0x2cda…2d0a Head {h00=0x002c, h01=0x0050, text=» CBE GSWBIN8,=X'9999',REMRE160 FINISHED?«, t00=0x001c, t01=0x0120}
0x2d0a…2d28 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,=W'128' «, t00=0x001c, t01=0x0150}
0x2d28…2d60 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK03,=D'8',GTREMBUF,GSWBIN4,GSWBIN8«, t00=0x001c, t01=0x016e}
0x2d60…2d7c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,=W'49'«, t00=0x001d, t01=0x0016}
0x2d7c…2db2 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'9',CDUM0,GSWBIN4,GSWBIN8 «, t00=0x001d, t01=0x0032}
0x2db2…2dce Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'47'«, t00=0x001d, t01=0x0068}
0x2dce…2e06 Head {h00=0x0034, h01=0x0050, text=» XCOPY CDUM0,GSWBIN1,CBIN2,CBIN0,CBIN0 GTTRKEY=0«, t00=0x001d, t01=0x0084}
0x2e06…2e22 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'0' «, t00=0x001d, t01=0x00bc}
0x2e22…2e56 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD6,=W'4',=W'3',CDUM0,=W'37' «, t00=0x001d, t01=0x00d8}
0x2e56…2e72 Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x001d, t01=0x010c}
0x2e72…2ea6 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CDUM0,=W'37',=W'3',GSWBCD7,=W'4' «, t00=0x001d, t01=0x0128}
0x2ea6…2ed6 Head {h00=0x002c, h01=0x0050, text=» XCOPY CTXBUF,CBIN5,CBIN2,GSWBIN10,CBIN0«, t00=0x001d, t01=0x015c}
0x2ed6…2f06 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CTXBUF,GSWBIN10 «, t00=0x001d, t01=0x018c}
0x2f06…2f38 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 «, t00=0x001e, t01=0x002c}
0x2f38…2f52 Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'0'«, t00=0x001e, t01=0x005e}
0x2f52…2f84 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTREMBUF,CBIN0,CBIN6,GTLEVNR,CBIN0 «, t00=0x001e, t01=0x0078}
0x2f84…2fb2 Head {h00=0x002a, h01=0x0050, text=» XCOPY CDUM0,CBIN0,CBIN6,GTLEVNR,CBIN0«, t00=0x001e, t01=0x00aa}
0x2fb2…2fe4 Head {h00=0x002e, h01=0x0050, text=» PERF RAWRIT,DK08,=D'8',GTREMBUF,GSWBIN10 «, t00=0x001e, t01=0x00d8}
0x2fe4…3012 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK09,=D'9',CDUM0,GSWBIN10«, t00=0x001e, t01=0x010a}
0x3012…302c Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN7,CBIN1«, t00=0x001e, t01=0x0138}
0x302c…3040 Head {h00=0x0010, h01=0x0050, text=» BP REMRE135«, t00=0x001e, t01=0x0152}
0x3040…3072 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN0,CBIN6,EDITBUF,GSWBIN6«, t00=0x001e, t01=0x0166}
0x3072…308c Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'0'«, t00=0x001f, t01=0x0008}
0x308c…30aa Head {h00=0x001a, h01=0x0050, text=» MOVE GTBSUM3,GTLEVNR «, t00=0x001f, t01=0x0022}
0x30aa…30d6 Head {h00=0x0028, h01=0x0050, text=» CBE GTBSUM3,=D'9999999999',REMRE160«, t00=0x001f, t01=0x0040}
0x30d6…30ea Head {h00=0x0010, h01=0x0050, text=» B REMRE105 «, t00=0x001f, t01=0x006c}
0x30ea…30fa Head {h00=0x000c, h01=0x0050, text=»REMRE160«, t00=0x001f, t01=0x0080}
0x30fa…3118 Head {h00=0x001a, h01=0x0050, text=» MOVE CIXFREE,GSWBIN10«, t00=0x001f, t01=0x0090}
0x3118…3128 Head {h00=0x000c, h01=0x0050, text=»REMRE170«, t00=0x001f, t01=0x00ae}
0x3128…314a Head {h00=0x001e, h01=0x0050, text=» PERF RADEL,DK08,GSWBIN10 «, t00=0x001f, t01=0x00be}
0x314a…3160 Head {h00=0x0012, h01=0x0050, text=» BNOK REMRE180«, t00=0x001f, t01=0x00e0}
0x3160…3182 Head {h00=0x001e, h01=0x0050, text=» PERF RADEL,DK09,GSWBIN10 «, t00=0x001f, t01=0x00f6}
0x3182…319e Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN10,CBIN10«, t00=0x001f, t01=0x0118}
0x319e…31ce Head {h00=0x002c, h01=0x0050, text=» B REMRE170 CONTINUE UNTIL EOD OR ERROR «, t00=0x001f, t01=0x0134}
0x31ce…31de Head {h00=0x000c, h01=0x0050, text=»REMRE180«, t00=0x001f, t01=0x0164}
0x31de…31ee Head {h00=0x000c, h01=0x0050, text=»LSPG205 «, t00=0x001f, t01=0x0174}
0x31ee…320c Head {h00=0x001a, h01=0x0050, text=» TBF C173FLG,REMRE182 «, t00=0x001f, t01=0x0184}
0x320c…3228 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'50'«, t00=0x0020, t01=0x0012}
0x3228…324e Head {h00=0x0022, h01=0x0050, text=» MOVE CMEMPT(GSWBIN1),CIXLAST «, t00=0x0020, t01=0x002e}
0x324e…325e Head {h00=0x000c, h01=0x0050, text=»REMRE182«, t00=0x0020, t01=0x0054}
0x325e…3272 Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0020, t01=0x0064}
0x3272…3286 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0020, t01=0x0078}
0x3286…3294 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x008c}
0x3294…32ba Head {h00=0x0022, h01=0x0050, text=»REMRE200 INSERT TRANSACTIONS«, t00=0x0020, t01=0x009a}
0x32ba…32d6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'0' «, t00=0x0020, t01=0x00c0}
0x32d6…330c Head {h00=0x0032, h01=0x0050, text=» MOVE SPINPUT,=C'FASE 3: FLYT TRANSAKTIONER ' «, t00=0x0020, t01=0x00dc}
0x330c…332a Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0020, t01=0x0112}
0x332a…3346 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN0 «, t00=0x0020, t01=0x0130}
0x3346…3356 Head {h00=0x000c, h01=0x0050, text=»REMRE210«, t00=0x0020, t01=0x014c}
0x3356…3372 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,=W'39'«, t00=0x0020, t01=0x015c}
0x3372…338c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN7,CBIN1«, t00=0x0020, t01=0x0178}
0x338c…33c6 (33, 0, 400) Head {h00=0x0036, h01=0x0050, text=» PERF RAREAD,DK05,=D'11',GTREMBUF,GSWBIN4,GSWBIN7 «, t00=0x0021, t01=0x0004}
0x33c6…33dc Head {h00=0x0012, h01=0x0050, text=» BOK REMRE215 «, t00=0x0021, t01=0x003e}
0x33dc…33f0 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0021, t01=0x0054}
0x33f0…341e Head {h00=0x002a, h01=0x0050, text=» CBE GTWBCD1,=D'10',REMRE300 FINISHED «, t00=0x0021, t01=0x0068}
0x341e…3432 Head {h00=0x0010, h01=0x0050, text=» B REMRE210 «, t00=0x0021, t01=0x0096}
0x3432…3442 Head {h00=0x000c, h01=0x0050, text=»REMRE215«, t00=0x0021, t01=0x00aa}
0x3442…3466 Head {h00=0x0020, h01=0x0050, text=» CBE GTWBCD1,=D'4',REMRE210 «, t00=0x0021, t01=0x00ba}
0x3466…3482 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'1' «, t00=0x0021, t01=0x00de}
0x3482…34b4 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN1,CBIN5,GTREMBUF,CBIN0 «, t00=0x0021, t01=0x00fa}
0x34b4…34e8 Head {h00=0x0030, h01=0x0050, text=» CBE GTLEVNR,=D'10',REMRE210 FREE SUPPLIER? «, t00=0x0021, t01=0x012c}
0x34e8…3500 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0021, t01=0x0160}
0x3500…3526 Head {h00=0x0022, h01=0x0050, text=» PERF TRUNP UNPACK INTO GTDUPF«, t00=0x0021, t01=0x0178}
0x3526…355c Head {h00=0x0032, h01=0x0050, text=» CBE GTDUPF(CBIN20),=D'0',REMRE230 NORMAL LEV?«, t00=0x0022, t01=0x000e}
0x355c…3594 Head {h00=0x0034, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN20) NO, USE SYSTEM LEV «, t00=0x0022, t01=0x0044}
0x3594…35a4 Head {h00=0x000c, h01=0x0050, text=»REMRE230«, t00=0x0022, t01=0x007c}
0x35a4…35d8 Head {h00=0x0030, h01=0x0050, text=» CBE GTLEVNR,=D'10',REMRE210 FREE SUPPLIER? «, t00=0x0022, t01=0x008c}
0x35d8…3606 Head {h00=0x002a, h01=0x0050, text=» MOVE GTBSUM1,GTLEVNR SAVE ORIG. LEVNR«, t00=0x0022, t01=0x00c0}
0x3606…3622 Head {h00=0x0018, h01=0x0050, text=» PERF TRGETF,CREMPT1«, t00=0x0022, t01=0x00ee}
0x3622…3638 Head {h00=0x0012, h01=0x0050, text=» BNOK REMRNOK «, t00=0x0022, t01=0x010a}
0x3638…3656 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTBSUM1 «, t00=0x0022, t01=0x0120}
0x3656…366a Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0022, t01=0x013e}
0x366a…3680 Head {h00=0x0012, h01=0x0050, text=» BOK REMRE240 «, t00=0x0022, t01=0x0152}
0x3680…36b4 Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,=C'TRANS H[GTET P] LEVNR 05 ' «, t00=0x0022, t01=0x0168}
0x36b4…36d2 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0023, t01=0x000c}
0x36d2…3708 Head {h00=0x0032, h01=0x0050, text=» MOVE GTLEVNR,=D'5' TRANS WITHOUT VALID LEVNR «, t00=0x0023, t01=0x002a}
0x3708…372e Head {h00=0x0022, h01=0x0050, text=» PERF VARRD FOR MANUAL ACTION «, t00=0x0023, t01=0x0060}
0x372e…373e Head {h00=0x000c, h01=0x0050, text=»REMRE240«, t00=0x0023, t01=0x0086}
0x373e…3756 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0023, t01=0x0096}
0x3756…376c Head {h00=0x0012, h01=0x0050, text=» SET GTBDTFLG «, t00=0x0023, t01=0x00ae}
0x376c…3788 Head {h00=0x0018, h01=0x0050, text=» PERF TRINS,CREMPT1 «, t00=0x0023, t01=0x00c4}
0x3788…379e Head {h00=0x0012, h01=0x0050, text=» BNOK REMRNOK «, t00=0x0023, t01=0x00e0}
0x379e…37b2 Head {h00=0x0010, h01=0x0050, text=» B REMRE210 «, t00=0x0023, t01=0x00f6}
0x37b2…37c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x010a}
0x37c0…37de Head {h00=0x001a, h01=0x0050, text=»REMRE300 CHECK PHASE«, t00=0x0023, t01=0x0118}
0x37de…37fa Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'0' «, t00=0x0023, t01=0x0136}
0x37fa…382c Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,=C'FASE 4A: CHECK INDEXREG '«, t00=0x0023, t01=0x0152}
0x382c…384a Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0023, t01=0x0184}
0x384a…3886 Head {h00=0x0038, h01=0x0050, text=»* 1. CHECK THAT INDEXFILE IS IN ASCENDING SEQUENCE, «, t00=0x0024, t01=0x0012}
0x3886…38a6 Head {h00=0x001c, h01=0x0050, text=»* WITHOUT DOUBLE KEYS«, t00=0x0024, t01=0x004e}
0x38a6…38c2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 «, t00=0x0024, t01=0x006e}
0x38c2…38e8 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,=D'-1' OLD LEVNR«, t00=0x0024, t01=0x008a}
0x38e8…38f8 Head {h00=0x000c, h01=0x0050, text=»REMRE310«, t00=0x0024, t01=0x00b0}
0x38f8…3912 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN6,CBIN1«, t00=0x0024, t01=0x00c0}
0x3912…392e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN7 «, t00=0x0024, t01=0x00da}
0x392e…394a Head {h00=0x0018, h01=0x0050, text=» MOVE GTREMBUF,=' ' «, t00=0x0024, t01=0x00f6}
0x394a…3982 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',GTREMBUF,GSWBIN4,GSWBIN6«, t00=0x0024, t01=0x0112}
0x3982…39b4 Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'10',REMRE400 END OF DEVICE«, t00=0x0024, t01=0x014a}
0x39b4…39d0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'1' «, t00=0x0024, t01=0x017c}
0x39d0…3a02 Head {h00=0x002e, h01=0x0050, text=» XCOPY GTLEVNR,CBIN1,CBIN5,GTREMBUF,CBIN0 «, t00=0x0025, t01=0x0008}
0x3a02…3a2e Head {h00=0x0028, h01=0x0050, text=» CBE GTLEVNR,=D'9999999999',REMRE400«, t00=0x0025, t01=0x003a}
0x3a2e…3a5a Head {h00=0x0028, h01=0x0050, text=» CBNG GTLEVNR,GSWBCD6,REMRE320 ERROR«, t00=0x0025, t01=0x0066}
0x3a5a…3a7a Head {h00=0x001c, h01=0x0050, text=» MOVE GSWBCD6,GTLEVNR OK«, t00=0x0025, t01=0x0092}
0x3a7a…3a8e Head {h00=0x0010, h01=0x0050, text=» B REMRE310 «, t00=0x0025, t01=0x00b2}
0x3a8e…3a9e Head {h00=0x000c, h01=0x0050, text=»REMRE320«, t00=0x0025, t01=0x00c6}
0x3a9e…3ab8 Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'0'«, t00=0x0025, t01=0x00d6}
0x3ab8…3ae4 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=C'FEJL I INDEXREG. ' «, t00=0x0025, t01=0x00f0}
0x3ae4…3b02 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0025, t01=0x011c}
0x3b02…3b14 Head {h00=0x000e, h01=0x0050, text=» B REMRNOK«, t00=0x0025, t01=0x013a}
0x3b14…3b24 Head {h00=0x000c, h01=0x0050, text=»REMRE400«, t00=0x0025, t01=0x014c}
0x3b24…3b40 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'0' «, t00=0x0025, t01=0x015c}
0x3b40…3b76 Head {h00=0x0032, h01=0x0050, text=» MOVE SPINPUT,=C'FASE 4B: CHECK STAM/VAR/TR ' «, t00=0x0025, t01=0x0178}
0x3b76…3b94 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0026, t01=0x001e}
0x3b94…3ba8 Head {h00=0x0010, h01=0x0050, text=» PERF SETIDX«, t00=0x0026, t01=0x003c}
0x3ba8…3bc4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'15'«, t00=0x0026, t01=0x0050}
0x3bc4…3be6 Head {h00=0x001e, h01=0x0050, text=» MOVE GTPRTDAT,=D'999999' «, t00=0x0026, t01=0x006c}
0x3be6…3bfa Head {h00=0x0010, h01=0x0050, text=» PERF BDTSCA«, t00=0x0026, t01=0x008e}
0x3bfa…3c0e Head {h00=0x0010, h01=0x0050, text=» BOK REMROK «, t00=0x0026, t01=0x00a2}
0x3c0e…3c1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b6}
0x3c1c…3c2c Head {h00=0x000c, h01=0x0050, text=»REMRNOK «, t00=0x0026, t01=0x00c4}
0x3c2c…3c48 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 «, t00=0x0026, t01=0x00d4}
0x3c48…3c78 Head {h00=0x002c, h01=0x0050, text=» MOVE SPINPUT,=C'FEJL I REORGANISERING '«, t00=0x0026, t01=0x00f0}
0x3c78…3c8a Head {h00=0x000e, h01=0x0050, text=» B REMROUT«, t00=0x0026, t01=0x0120}
0x3c8a…3c98 Head {h00=0x000a, h01=0x0050, text=»REMROK«, t00=0x0026, t01=0x0132}
0x3c98…3cb4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN0 «, t00=0x0026, t01=0x0140}
0x3cb4…3ce8 Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,=C'RESTORE AFSLUTTET KORREKT '«, t00=0x0026, t01=0x015c}
0x3ce8…3cf8 Head {h00=0x000c, h01=0x0050, text=»REMROUT «, t00=0x0026, t01=0x0190}
0x3cf8…3d10 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK03,CLOSE«, t00=0x0027, t01=0x0010}
0x3d10…3d28 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK04,CLOSE«, t00=0x0027, t01=0x0028}
0x3d28…3d40 Head {h00=0x0014, h01=0x0050, text=» DSC0 DK05,CLOSE«, t00=0x0027, t01=0x0040}
0x3d40…3d5c Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'0' «, t00=0x0027, t01=0x0058}
0x3d5c…3d7a Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0027, t01=0x0074}
0x3d7a…3d96 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=C'$' «, t00=0x0027, t01=0x0092}
0x3d96…3db4 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,REOFMT2 «, t00=0x0027, t01=0x00ae}
0x3db4…3dc8 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0027, t01=0x00cc}
0x3dc8…3dde Head {h00=0x0012, h01=0x0050, text=» CLEAR TTREST «, t00=0x0027, t01=0x00e0}
0x3dde…3df8 Head {h00=0x0016, h01=0x0050, text=» CMP CBIN0,GSWBIN8«, t00=0x0027, t01=0x00f6}
0x3df8…3e04 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0110}
0x3e04…3e12 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x011c}
0x3e12…3e20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x012a}
0x3e20…3e34 Head {h00=0x0010, h01=0x0050, text=»REOFMT1 FRMT«, t00=0x0027, t01=0x0138}
0x3e34…3e48 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0027, t01=0x014c}
0x3e48…3e66 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'REORG. LEV. ' «, t00=0x0027, t01=0x0160}
0x3e66…3e88 Head {h00=0x001e, h01=0x0050, text=» FMEL '99V99V99',CMASKDAT «, t00=0x0027, t01=0x017e}
0x3e88…3e9e Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',29 «, t00=0x0028, t01=0x0010}
0x3e9e…3eac Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0026}
0x3eac…3eb4 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0034}
0x3eb4…3ebc Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x003c}
0x3ebc…3ec4 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0044}
0x3ec4…3ed8 Head {h00=0x0010, h01=0x0050, text=»REOFMT2 FRMT«, t00=0x0028, t01=0x004c}
0x3ed8…3eec Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0028, t01=0x0060}
0x3eec…3f0e Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZZZZZZZZ',GTLEVNR«, t00=0x0028, t01=0x0074}
0x3f0e…3f22 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0028, t01=0x0096}
0x3f22…3f38 Head {h00=0x0012, h01=0x0050, text=» FCOPY SPINPUT«, t00=0x0028, t01=0x00aa}
0x3f38…3f46 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x00c0}
0x3f46…3f4e Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x00ce}
0x3f4e…3f56 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x00d6}
0x3f56…3f5e Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x00de}
0x3f5e…3f72 Head {h00=0x0010, h01=0x0050, text=»REOFMT3 FRMT«, t00=0x0028, t01=0x00e6}
0x3f72…3f8c Head {h00=0x0016, h01=0x0050, text=» FMEL 'ZZ',GTBSUM1«, t00=0x0028, t01=0x00fa}
0x3f8c…3fa6 Head {h00=0x0016, h01=0x0050, text=» FTEXT '. GENNEML'«, t00=0x0028, t01=0x0114}
0x3fa6…3fbc Head {h00=0x0012, h01=0x0050, text=» FILLR X'5C',1«, t00=0x0028, t01=0x012e}
0x3fbc…3fd0 Head {h00=0x0010, h01=0x0050, text=» FILLR 'B',1«, t00=0x0028, t01=0x0144}
0x3fd0…3fe6 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',22 «, t00=0x0028, t01=0x0158}
0x3fe6…3ff4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x016e}
0x3ff4…4000 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0028, t01=0x017c}
0x4000…4004 Head {h00=0x4004, h01=0x0000}
0x4004…4008 00 28 01 88 ┆ ( ┆
0x4008…4010 (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x4010…4060 (42, 0, 400) 00 2e 00 50 20 58 43 4f 50 59 20 47 54 4c 45 56 4e 52 2c 43 42 49 4e 30 2c 43 42 49 4e 36 2c 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 30 20 00 22 00 04 00 20 00 50 20 43 42 45 20 47 54 4c 45 56 4e 52 2c 47 53 57 42 43 44 37 2c 56 41 52 52 30 ┆ . P XCOPY GTLEVNR,CBIN0,CBIN6,GTREMBUF,CBIN0 " P CBE GTLEVNR,GSWBCD7,VARR0┆
0x4060…40b0 33 30 00 22 00 36 00 2c 00 50 20 4d 4f 56 45 20 47 54 4c 45 56 4e 52 2c 47 53 57 42 43 44 37 20 4e 4f 54 20 43 4f 52 52 45 43 54 20 52 45 43 4f 52 44 00 22 00 5a 00 0e 00 50 20 42 20 56 41 52 52 30 38 30 00 22 00 8a 00 0c 00 50 56 41 52 52 ┆30 " 6 , P MOVE GTLEVNR,GSWBCD7 NOT CORRECT RECORD " Z P B VARR080 " PVARR┆
0x40b0…4100 30 33 30 20 00 22 00 9c 00 30 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 37 2c 3d 44 27 31 27 20 49 4e 49 54 49 41 54 45 20 52 45 43 45 49 56 49 4e 47 20 46 49 45 4c 44 00 22 00 ac 00 2e 00 50 20 58 43 4f 50 59 20 47 53 57 42 43 44 37 2c 43 ┆030 " 0 P MOVE GSWBCD7,=D'1' INITIATE RECEIVING FIELD " . P XCOPY GSWBCD7,C┆
0x4100…4150 42 49 4e 34 2c 43 42 49 4e 33 2c 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 36 20 00 22 00 e0 00 2a 00 50 20 4d 4f 56 45 20 47 54 52 45 47 46 28 43 42 49 4e 31 30 29 2c 47 53 57 42 43 44 37 20 55 44 42 20 44 41 54 4f 20 00 22 01 12 00 2e 00 50 ┆BIN4,CBIN3,GTREMBUF,CBIN6 " * P MOVE GTREGF(CBIN10),GSWBCD7 UDB DATO " . P┆
0x4150…41a0 20 58 43 4f 50 59 20 47 53 57 42 43 44 37 2c 43 42 49 4e 30 2c 43 42 49 4e 37 2c 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 39 20 00 22 01 40 00 2a 00 50 20 4d 4f 56 45 20 47 54 52 45 47 46 28 43 42 49 4e 31 31 29 2c 47 53 57 42 43 44 37 20 55 ┆ XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN9 " @ * P MOVE GTREGF(CBIN11),GSWBCD7 U┆
0x41a0…41f0 (43, 0, 398) 44 42 20 42 45 4c 4f 42 00 22 01 72 00 2e 00 50 20 58 43 4f 50 59 20 47 53 57 42 43 44 37 2c 43 42 49 4e 30 2c 43 42 49 4e 37 2c 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 31 36 00 23 00 10 00 28 00 50 20 4d 4f 56 45 20 47 54 52 45 47 46 28 43 ┆DB BELOB " r . P XCOPY GSWBCD7,CBIN0,CBIN7,GTREMBUF,CBIN16 # ( P MOVE GTREGF(C┆
0x41f0…4240 42 49 4e 31 32 29 2c 47 53 57 42 43 44 37 20 55 44 42 20 5d 54 44 00 23 00 42 00 32 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 47 54 52 45 4d 42 55 46 2c 3d 57 27 32 33 27 00 23 00 6e ┆BIN12),GSWBCD7 UDB ]TD # B 2 P PERF XCOP,GSWBCD7,=W'0',=W'7',GTREMBUF,=W'23' # n┆
0x4240…4290 00 2c 00 50 20 4d 4f 56 45 20 47 54 52 45 47 46 28 43 42 49 4e 31 34 29 2c 47 53 57 42 43 44 37 20 56 45 4e 54 20 44 45 42 45 54 20 00 23 00 a4 00 32 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 ┆ , P MOVE GTREGF(CBIN14),GSWBCD7 VENT DEBET # 2 P PERF XCOP,GSWBCD7,=W'0',=W'┆
0x4290…42e0 37 27 2c 47 54 52 45 4d 42 55 46 2c 3d 57 27 33 30 27 00 23 00 d4 00 2c 00 50 20 4d 4f 56 45 20 47 54 52 45 47 46 28 43 42 49 4e 31 35 29 2c 47 53 57 42 43 44 37 20 56 45 4e 54 20 4b 52 45 44 49 54 00 23 01 0a 00 2e 00 50 20 4d 4f 56 45 20 ┆7',GTREMBUF,=W'30' # , P MOVE GTREGF(CBIN15),GSWBCD7 VENT KREDIT # . P MOVE ┆
0x42e0…432e 47 54 52 45 47 46 28 43 42 49 4e 31 36 29 2c 47 53 57 42 43 44 37 20 53 4b 59 4c 44 49 47 54 20 42 45 4c 2e 00 23 01 3a 00 26 00 50 20 41 44 44 20 47 54 52 45 47 46 28 43 42 49 4e 31 36 29 2c 47 54 52 45 47 46 28 43 42 49 4e 31 34 29 ┆GTREGF(CBIN16),GSWBCD7 SKYLDIGT BEL. # : & P ADD GTREGF(CBIN16),GTREGF(CBIN14)┆
0x432e…437e (44, 0, 400) 00 23 01 6c 00 20 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 37 2c 3d 44 27 31 27 20 53 45 54 20 53 49 47 4e 00 24 00 08 00 32 00 50 20 50 45 52 46 20 58 43 4f 50 2c 47 53 57 42 43 44 37 2c 3d 57 27 34 27 2c 3d 57 27 33 27 2c 47 54 52 45 4d ┆ # l P MOVE GSWBCD7,=D'1' SET SIGN $ 2 P PERF XCOP,GSWBCD7,=W'4',=W'3',GTREM┆
0x437e…43ce 42 55 46 2c 3d 57 27 33 37 27 00 24 00 2c 00 2a 00 50 20 4d 4f 56 45 20 47 54 52 45 47 46 28 43 42 49 4e 31 33 29 2c 47 53 57 42 43 44 37 20 56 41 4c 20 44 41 54 4f 20 00 24 00 62 00 32 00 50 20 50 45 52 46 20 58 43 4f 50 2c 47 54 54 52 4b ┆BUF,=W'37' $ , * P MOVE GTREGF(CBIN13),GSWBCD7 VAL DATO $ b 2 P PERF XCOP,GTTRK┆
0x43ce…441e 45 59 2c 3d 57 27 30 27 2c 3d 57 27 32 27 2c 47 54 52 45 4d 42 55 46 2c 3d 57 27 34 37 27 00 24 00 90 00 0e 00 50 20 42 20 56 41 52 52 30 35 30 00 24 00 c6 00 0c 00 50 56 41 52 52 30 34 30 20 00 24 00 d8 00 10 00 50 20 50 45 52 46 20 56 41 ┆EY,=W'0',=W'2',GTREMBUF,=W'47' $ P B VARR050 $ PVARR040 $ P PERF VA┆
0x441e…446e 52 49 4e 54 00 24 00 e8 00 0c 00 50 56 41 52 52 30 35 30 20 00 24 00 fc 00 18 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 20 4f 4b 20 00 24 01 0c 00 08 00 50 20 52 45 54 00 24 01 28 00 06 00 50 2a 20 00 24 01 34 00 0c 00 50 56 41 ┆RINT $ PVARR050 $ P CMP CBIN0,CBIN0 OK $ P RET $ ( P* $ 4 PVA┆
0x446e…44be 52 52 30 38 30 20 00 24 01 3e 00 0c 00 50 56 41 52 52 30 39 30 20 00 24 01 4e 00 18 00 50 20 43 4d 50 20 43 42 49 4e 31 2c 43 42 49 4e 30 20 4e 4f 4b 00 24 01 5e 00 08 00 50 20 52 45 54 00 24 01 7a 00 0a 00 50 20 50 45 4e 44 20 00 24 01 86 ┆RR080 $ > PVARR090 $ N P CMP CBIN1,CBIN0 NOK $ ^ P RET $ z P PEND $ ┆