|
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: 23878 (0x5d46)
Notes: pts_type(SC)
Names: »KMDIO.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/KMDIO.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/KMDIO.SC«
IDENT KMDIO 831026 EV
DDUM KMD08
PDIV
ENTRY WRITFD
ENTRY WRITVO
ENTRY WRITJT
ENTRY WTALLY
ENTRY WRITID
ENTRY CRKJ
ENTRY GRASPV
ENTRY LINOPT
ENTRY CRVO
ENTRY WCHECK
ENTRY CLEAR8
EXT RADEL
EXT SPCHK5
EXT SPLIN8
EXT SPERR
EXT FRMTJT
EXT FRMXJT
EXT ADM
EXT CYWRT
EXT FRMXVO
EXT FRMXTA
EXT FRMXKV
EXT REPL00
EXT ABORT
EXT RAWRIT
EXT WAITF
EXT WRITLO
INCLUDE EQUATE
EJECT
WRITFD PROC
TBF CSKIFTWN,WRFD00
PERF ADM,CBIN12 DISKETTE SKIFT
TBF CSKIFTWN,WRFD00
CMP CBIN1,CBIN0
RET
WRFD00
PERF WAITF,CPFLG
CLEAR TFELT90
CLEAR CSPLITFL
MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS
PERF EDATNR
MOVE GSWBIN5,CBIN0
WRFD005
SET CSWFLAG
CBE CRECLGD,=W'128',WRFD006
CLEAR CSWFLAG
WRFD006
EDIT CPCKBUF,PCKINIT
EDIT CPCKBUF,TREC1 INSERT HEADER INF
MOVE GSWBIN3,CBIN10
MOVE GSWBIN4,CRECLGD
SUB GSWBIN4,CBIN11
MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2
MOVE GSWBIN4,CRECLGD
SUB GSWBIN4,CBIN1
SUB GSWBIN4,GSWBIN3 REMAINING LENGTH
CBE GTREGNR,=D'12',WRFD070
TBT CSPLITFL,WRFD025 IF SPLIT PACK REST
WRFD020
ADD GSWBIN5,CBIN1
CBNL GSWBIN5,CBINMAX,WRFD070
CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ?
CBE GTUSED(GSWBIN5),=W'90',WRFD090
CBE GTUSED(GSWBIN5),=W'91',WRFD091
CBE GTUSED(GSWBIN5),=W'92',WRFD092
CBE GTUSED(GSWBIN5),=W'93',WRFD093
CBE GTUSED(GSWBIN5),=W'94',WRFD094
MOVE SPINPUT,=X'00' YES
MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT
EDIT SPINPUT,PFRM1
WRFD025
MOVE GSWSTR1,=X'00'
MOVE GSWBIN6,CBIN0 FIND LENGTH
MOVE GSWBIN10,=W'30'
MATCH SPINPUT,GSWBIN6,GSWBIN10,GSWSTR1,CBIN0,CBIN1
CLEAR CSPLITFL
CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ?
COPY CPCKBUF,GSWBIN3,GSWBIN6,SPINPUT,CBIN0 NO
ADD GSWBIN3,GSWBIN6
SUB GSWBIN4,GSWBIN6 ADJUST POINTERS
B WRFD020 SEE IF MORE
WRFD030
COPY CPCKBUF,GSWBIN3,GSWBIN4,SPINPUT,CBIN0
MOVE GSWSTR1,=X'21' CONTINUATION MARK
ADD GSWBIN3,GSWBIN4
COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0
DLETE SPINPUT,CBIN0,GSWBIN4
SET CSPLITFL
PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
BNOK WRFDERR
TBT GTTESTFL,WRFD005
ADD CTWBIN1,CBIN1
ADD CRECNR,CBIN1
ADD CRECBCD,=D'1'
B WRFD005 GO AND PACK REST
WRFD070
MOVE GSWSTR1,=X'7F'
COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0
PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
BNOK WRFDERR
TBT GTTESTFL,WRFD080
ADD CTWBIN1,CBIN1
ADD CRECNR,CBIN1
ADD CRECBCD,=D'1'
PERF RADEL,DK02,CRECNR
BNOK WRFDERR
*
* LOOK FOR ACCOUNT NO
* IN KONTOPLAN. IF FOUND,
* SET FLAG GTKORTFL
*
CBL CRECNR,CMAXREC,WRFD080
CLEAR CPFLG
CLEAR CSPLITFL
MOVE SPBINW4,CBIN21
MOVE GTWBCD2,=D'2' FILE CODE
MOVE GTWBCD1,=D'50' ERROR CODE
MOVE GSWSTR9,=C'DISCFEJL '
PERF SPERR
CMP CBIN0,CBIN0
RET
WRFD090
MOVE SPINPUT,=X'26393000'
XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN1),CBIN0
B WRFD095
WRFD091
MOVE SPINPUT,=X'26393100'
XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN2),CBIN0
B WRFD095
WRFD092
MOVE SPINPUT,=X'26393200'
XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN3),CBIN0
B WRFD095
WRFD093
MOVE SPINPUT,=X'26393300'
XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN4),CBIN0
B WRFD095
WRFD094
MOVE SPINPUT,=X'26393400'
XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN5),CBIN0
WRFD095
SET TFELT90
PERF MATCH,=C'&',=C'+'
PERF MATCH,=C'!',=C'/'
B WRFD025
*
WRFD080
CLEAR CSPLITFL
CLEAR CPFLG
CMP CBIN0,CBIN0 OK, SET CR=0
RET
WRFDERR
SUB CRECNR,CTWBIN1
MOVE GSWBCD1,CTWBIN1
SUB CRECBCD,GSWBCD1
SET CSKIFTWN
CLEAR CPFLG
SET GTREGFLG
CMP CBIN1,CBIN0 NOK, CR<>0
RET
PEND
EJECT
********************************************
* EDATNR
* FINDS DATASETNR FOR THE TRANSACTIONS
* AND PUT THE INFORMATION IN RELEVANT FIELDS
************************************************
EDATNR PROC
CLEAR TTR11FLG
CBG GTREGNR,=D'12',EDAT100
MOVE CEDATNR,=D'1'
CBG GTREGNR,=D'10',EDAT010
MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK
MOVE GTDUPF(CBIN5),TTDKBCD
EDAT010
CBNE GTREGNR,=D'11',EDAT020
SET TTR11FLG
EDAT020
RET
EDAT100
CBG GTREGNR,=D'42',EDAT110
MOVE CEDATNR,=D'3' TR 40-42
B EDAT020
EDAT110
CBG GTREGNR,=D'47',EDAT120
MOVE CEDATNR,=D'5' TR 45-47
B EDAT020
EDAT120
CBG GTREGNR,=D'49',EDAT130
MOVE CEDATNR,=D'4' TR 48-49
B EDAT020
EDAT130
MOVE CEDATNR,=D'2' TR 50-54
B EDAT020
PEND
EJECT
WRITJT PROC $JTLIT
PLIT $JTLIT
********************
* THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE
* DEPENDING ON TRANSACTION TYPE
********************
WAIT KVOUCH
WAIT KTALLY
TBT GTSPGFLG,JTRET
MOVE GSWBIN1,$JTLIT
CBG GSWBIN1,CBIN0,JT10
TBF CSPOOL,JT04
TBT TSPOOL,JT05
JT04 WRITE ON JOURNAL
PERF FRMTJT GET FORMAT ACORDING TO TYPE
B JT20
JT05 EL. JOURNAL
PERF WRITLO,CBIN0
BNOK JT04
MOVE GSWBIN1,TTCNTNR
B JT35
JT10
PERF FRMXJT,GSWBIN1 SPECIAL FORMAT
JT20
MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY
EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL
CBL GTREGDEX,CBIN8,JT40
CBG GTREGDEX,CBIN9,JT40
MOVE GSWBIN1,$JTLIT
CBG GSWBIN1,CBIN0,JT40
TBF TFELT90,JT35 ANY 90-94
TBF TSPOOL,JT30
TBT CSPOOL,JT35
JT30
CBNE GTUSED(CBIN20),=W'90',JT31
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN1),CBIN0
WRITE KJTAPE,SPINPUT
JT31
CBNE GTUSED(CBIN21),=W'91',JT32
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN2),CBIN0
WRITE KJTAPE,SPINPUT
JT32
CBNE GTUSED(CBIN22),=W'92',JT33
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN3),CBIN0
WRITE KJTAPE,SPINPUT
JT33
MOVE GSWBIN1,=W'23'
CBNE GTUSED(GSWBIN1),=W'93',JT34
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN4),CBIN0
WRITE KJTAPE,SPINPUT
JT34
MOVE GSWBIN1,=W'24'
CBNE GTUSED(GSWBIN1),=W'94',JT35
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN5),CBIN0
WRITE KJTAPE,SPINPUT
JT35
JT40
WAIT KJTAPE
DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL
BOK JTRET
PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'
SET TTJTEND
JTRET
RET
PEND
EJECT
WTALLY PROC
*******************
*
* WRITE TALLY ROLL
*
********************
WAIT KVOUCH
WAIT KTALLY
EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORMAT
RET STORED IN GTSTRFMT
PEND
*
*
CRKJ PROC
********************
*
* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT
*
********************
EDWRT KJTAPE,CRJTFMT
RET
CRJTFMT FRMT
FILLR ' ',2
FILLR X'0D',1
FMEND
PEND
*
*
CRVO PROC
*******************
*
* DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT
*
********************
EDWRT KVOUCH,CRVOFMT
RET
CRVOFMT FRMT
FILLR ' ',2
FILLR X'09',1
FMEND
PEND
GRASPV PROC
********************
*
* GRASP VOUCHER
*
********************
WAIT KVOUCH
DSC0 KVOUCH,GRASP GRASP VOUCHER
RET
PEND
WCHECK PROC
RET
PEND
EJECT
WRITVO PROC
*
* WRITE VOUCHER
*
* IN CYCLE POSITION AND WRITE
* (MAY BE NEW PAGE)
*
* NOT CYCLE GET LINE NR
* POSITION VOUCHER
* WRITE 1-5 LINES
* AND RELEASE VOUCHER
*
********************
TBT GTCYFLG,CYVOUCH
* NOT IN CYCLE
WOBILAG
PERF SPLIN8,CBIN2,CBIN0 "LINIE NR"
PERF GRASPV
CLEAR GTSWFLAG
PERF LINOPT SEE IF DEFAULT LINE
BNOK WOBILAG
CBG GSWBIN1,=W'90',WO90
MOVE GSWBIN1,TTLINNR
B WO100
WO90 MOVE GSWBIN2,=W'100'
SUB GSWBIN2,GSWBIN1
IB GSWBIN2, C
WO99,WO98,WO97,WO96,WO95, C
WO94,WO93,WO92,WO91
WO99
PERF FRMXVO,CBIN6
MOVE GSWBIN1,=W'35'
B WO100
WO98
PERF FRMXVO,CBIN4
MOVE GSWBIN1,CBIN14
B WO100
WO97
PERF FRMXVO,CBIN5
MOVE GSWBIN1,CBIN14
B WO100
WO96
PERF FRMXVO,CBIN17
MOVE GSWBIN1,=W'37'
B WO100
WO95
WO94
WO93
DSC0 KVOUCH,RLEAS
B WOBILAG
WO92 SHORT 'BILAG'
PERF SPLIN8,CBIN2,CBIN0
PERF GRASPV
SET GTSWFLAG
PERF LINOPT
BNOK WO92
CBG GSWBIN1,=W'90',WO92
MOVE GSWBIN1,TTLINNR
CLEAR GTSWFLAG
PERF FRMXVO,CBIN19
B WO100
WO91
MOVE GTRETUR,CBIN3 INDICATE KONTOKORT
RET
*
WO100
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT
PERF CRVO
PERF TSTMUL
BNOK WO110
PERF MULLIN
PERF MULLIN
PERF MULLIN
PERF MULLIN
WO110
DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER
RET
* IN CYCLE
CYVOUCH
SET TTCYTRFL AFTER A CORRECT TRANS
TBT GTCYWRTF,WO5
MOVE GTBSUM1,=D'0'
PERF CYWRTS
BNOK WO5
RET
*
WO5
TBT TTTSTFLG,WO10
SET TTTSTFLG
PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'
PERF GRASPV
PERF CLEAR8
WO10
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
EDWRT .NW,KVOUCH,GTSTRFMT
*****
*
* WRITING OF TEXTLINE
* FOR CHECK ON WORKSET
*
*****
SUB TTLINNR,=D'2' NEXT LINE
CBL TTLINNR,=D'4',NEWPG NEW PAGE?
RET NO
*
NEWPG NEW PAGE
TBT TTPSEFLG,WORET T: IF SUBTOTAL
WAIT KVOUCH
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1
MOVE GSWSTR9,=C'TRP '
PERF FRMXVO,CBIN2
EDWRT KVOUCH,GTSTRFMT
DSC0 KVOUCH,RLEAS
SET GTCYTRPF
WORET
RET
PEND
EJECT
TSTMUL PROC
* THE PROCEDURE DECIDES IF MULTIPLE LINES C A N
* OCCUR, WHICH MEANS:
CBE GTUSED(CBIN20),=W'90',TSTM01
MOVE GTFELT90(CBIN1),CBLANKS
TSTM01
CBE GTUSED(CBIN21),=W'91',TSTM02
MOVE GTFELT90(CBIN2),CBLANKS
TSTM02
CBE GTUSED(CBIN22),=W'92',TSTM03
MOVE GTFELT90(CBIN3),CBLANKS
TSTM03
MOVE GSWBIN1,=W'23'
CBE GTUSED(GSWBIN1),=W'93',TSTM04
MOVE GTFELT90(CBIN4),CBLANKS
TSTM04
ADD GSWBIN1,CBIN1
CBE GTUSED(GSWBIN1),=W'94',TSTM05
MOVE GTFELT90(CBIN5),CBLANKS
TSTM05
CBE GTREGDEX,CBIN6,TSTM30
CBE GTREGDEX,CBIN8,TSTM20
CBE GTREGDEX,CBIN9,TSTM30
TSTM10
CMP CBIN1,CBIN0
RET
TSTM20
TSTM30
MOVE GSWBIN11,CBIN1
TSTM40
MOVE GSWBIN10,CBIN5
TSTM50
MOVE SPINPUT,GTFELT90(GSWBIN10)
MOVE GSWBIN7,=W'35'
PERF REPL00,SPINPUT,GSWBIN7
MOVE GTFELT90(GSWBIN10),SPINPUT
SUB GSWBIN10,CBIN1
BP TSTM50 MORE LEFT?
TSTM90
CMP CBIN0,CBIN0
RET
PEND
MULLIN PROC
* THE PROCEDURE WRITES 1 OF THE MULTIPLE
* LINES ON THE VOUCHER
ADD GSWBIN11,CBIN1
PERF TEST90,GSWBIN11 CAN BE 3-4-5=90-91,92-93,94
BNOK MUL090
PERF PGTEST
PERF FRMXKV,GSWBIN11
EDWRT KVOUCH,NLIN
EDWRT KVOUCH,GTSTRFMT
PERF CRVO
MUL090
RET
PEND
NLIN FRMT
FNL
FMEND
TEST90 PROC P
IB P,TEST9010,TEST9020,TEST9030,TEST9040,TEST9050
B TEST9090
TEST9010
TEST9020
CBNE GTUSED(CBIN10),CBIN0,TEST9025
CBNE GTUSED(CBIN7),CBIN0,TEST9025
B TEST9090
TEST9025
PERF FRMXKV,P
B TEST9080
TEST9030 FELT 90-91
CBNE GTFELT90(CBIN1),CBLANKS,TEST9032
CBE GTFELT90(CBIN2),CBLANKS,TEST9090
TEST9032
PERF FRMXKV,P
B TEST9080
TEST9040 FELT 92-93
CBNE GTFELT90(CBIN3),CBLANKS,TEST9042
CBE GTFELT90(CBIN4),CBLANKS,TEST9090
TEST9042
PERF FRMXKV,P
B TEST9080
TEST9050
CBE GTFELT90(CBIN5),CBLANKS,TEST9090
PERF FRMXKV,P
TEST9080
CMP CBIN0,CBIN0
RET
TEST9090
CMP CBIN0,CBIN1
RET
PEND
CYWRTS PROC
ADD GTBSUM1,=D'1'
MOVE GSWBIN1,GTBSUM1
IB GSWBIN1,CYWRTS10,CYWRTS20,CYWRTS30, C
CYWRTS40,CYWRTS50
CYWRTS05
MOVE GTBSUM1,=D'0'
CMP CBIN1,CBIN0
RET
CYWRTS10
PERF CYWRT
BNOK CYWRTS05
ADD GTBSUM1,=D'1'
CYWRTS20
PERF TSTMUL
BNOK CYWRTS90 ONLY 1 LINE
CYWRTS30
CYWRTS40
CYWRTS50
MOVE GSWBIN11,GTBSUM1
PERF TEST90,GSWBIN11
BOK CYWRTS55
CBG GSWBIN11,CBIN5,CYWRTS90
B CYWRTS57
CYWRTS55
PERF CYWRT WRITE THE CURRENT FORMAT
BNOK CYWRTS05
CYWRTS57
PERF CYWRTS OBS: R E C U R S I V E
CYWRTS90
MOVE GTBSUM1,=D'0'
CMP CBIN0,CBIN0
RET
PEND
PGTEST PROC
SUB TTLINNR,=D'2'
CBNL TTLINNR,=D'4',PGTE90
MOVE TTCYKTOT,GTREGF(CBIN4)
WAIT KVOUCH
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1
MOVE GSWSTR9,=C'TRP '
PERF FRMXVO,CBIN2
EDWRT KVOUCH,GTSTRFMT
PGTE20
DSC0 KVOUCH,RLEAS
PERF SPLIN8,CBIN2,CBIN0 "LINIE NR"
PERF GRASPV
CLEAR GTSWFLAG
PERF LINOPT
BNOK PGTE20
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1
MOVE GSWSTR9,=C'TRP '
PERF FRMXVO,CBIN2
EDWRT KVOUCH,GTSTRFMT
PGTE90
RET
PEND
EJECT
LINOPT PROC
********************
*
* CHECK LINE NUMBER, IF ANY
*
********************
TBT GTSWFLAG,LINST
TESTIO KEYB SEE IF INPUT FINISHED
BNOK LINOP1 NO, ABORT
LINST
WAIT KEYB
CBE SPBINW2,=W'18',LINOP0 SLUT KEY
CBNE SPBINW2,=W'4',LINOP2 ONLY ENTER KEY ALLOWED
LINOP0
CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH
MOVE GSWBCD3,SPINPUT GET LINE NR
CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS?
PERF SPCHK5 OK, CHECK LINENR
CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR
MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.
LIN90
CMP CBIN0,CBIN0 SET CR=0,OK
B LINRET
LINOP1
CALL ABORT,KEYB ABORT I/O
CBL GTDFLIN,=W'90',LINOP101
MOVE GSWBCD3,GTDFLIN
B LINOP4
LINOP101
MOVE GSWBCD3,GTDFLIN
MOVE SPINPUT,GSWBCD3
PERF SPCHK5
MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO
CMP CBIN0,CBIN0 SET CR=0, OK
MOVE GSWBIN1,=W'0'
B LINRET
LINOP2
WAIT KVOUCH
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
DSC0 KEYB,SKIB
CMP CBIN0,CBIN1 SET CR<>0, NOT OK
RET
LINOP4
MOVE GSWBIN1,GSWBCD3
B LIN90
LINRET
PERF CLEAR8 DELETE LINE 8
RET
PEND
EJECT
WRITID PROC WRITVAR1,WRITVAR2
********************
*
* PRINTS HEADING IDENTIFIED BY WRITVAR1
* PRINTS ID IDENTIFIED BY WRITVAR2
*
* PRINTS ON JOURNAL AND TALLY
*
*
* WRITVAR1:
* 1 FEJL
* 2 OPSTART
* 3 DISKETTE SKIFT
* 4 KONVERTERING
* 5 DATATRANSMISSION
* 6 BACKUP
*
* WRITVAR2:
* CHARACTERS PRINTED FROM PACKBUFFER:
* 1 1-20 + 40-59
* 2 1-20 + 23-42, IF KONVERTERING
* 2 1-20 + VOLID, IF NOT KONVERTERING
* 3 NOTHING
* 4 VOLID
*
*
*
********************
*
WAIT KJTAPE
IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36
B WRID50
WRID34
MOVE GSWSTR20,=C'FEJL '
B WRID50
WRID31
MOVE GSWSTR20,=C'OPSTART '
B WRID40
WRID32
MOVE GSWSTR20,=C'DISKETTE SKIFT '
B WRID40
WRID33
MOVE GSWSTR20,=C'KONVERTERING '
B WRID40
WRID35
MOVE GSWSTR20,=C'DATATRANSMISSION '
B WRID40
WRID36
MOVE GSWSTR20,=C'BACKUP '
WRID40
PERF WRITJT,=W'12'
PERF WRITLO,CBIN15
PERF FRMXTA,CBIN6
PERF WTALLY
*
*
WRID50
WAIT KTALLY
CBE WRITVAR2,CBIN3,WRID80
CBE WRITVAR2,CBIN4,WRID73
MOVE GSWSTR20,CPCKBUF
PERF WRITJT,=W'12'
PERF WRITLO,CBIN15
CBG WRITVAR1,=W'3',WRID60
PERF FRMXTA,CBIN6
PERF WTALLY
WAIT KTALLY
*
WRID60
CBE WRITVAR2,CBIN2,WRID70
MOVE GSWBIN2,CBIN20
MOVE GSWBIN1,=W'40'
COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1
B WRID75
WRID70
CBNE WRITVAR1,CBIN4,WRID72
MOVE GSWBIN2,CBIN20
MOVE GSWBIN1,=W'23'
COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1
B WRID75
WRID72
CBG WRITVAR1,CBIN2,WRID80
WRID73
MOVE GSWSTR20,CBLANKS
MOVE GSWBCD3,CVOLNO
EDIT GSWSTR20,FRVOLID
WRID75
PERF WRITJT,=W'12'
PERF WRITLO,CBIN15
CBL WRITVAR1,=W'4',WRID76 1,2,3,6
CBL WRITVAR1,=W'6',WRID90 4,5
WRID76
PERF FRMXTA,CBIN6
PERF WTALLY
WAIT KTALLY
B WRID85
WRID80
CBG WRITVAR1,=W'3',WRID90
WRID85
PERF FRMXTA,CBIN7
PERF WTALLY
WAIT KTALLY
WRID90
RET
PEND
EJECT
CLEAR8 PROC
* DELETE FIRST 14 CHARACTERS
* OF LINE 8
MOVE GSWBIN2,=X'1801' INDICATE LAST LINE
DSC1 SCREEN,06,GSWBIN2
MOVE GSWBIN2,CBIN14
DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS
RET
PEND
MATCH PROC $FROM,$TO
PLIT $FROM,$TO
MOVE GSWSTR2,$TO REPLACEMENT CHARACTER
MOVE GSWBIN6,CBIN3 GET STARTING POSITION
MOVE GSWSTR1,$FROM SEARCH CHARACTER
MOVE GSWBIN10,CBIN22 LENGTH OF SEARCH
MA0100
MATCH SPINPUT,GSWBIN6,GSWBIN10,GSWSTR1,CBIN0,CBIN1
BNOK MA0200 SEARCH COMPLETE
XCOPY SPINPUT,GSWBIN6,CBIN1,GSWSTR2,CBIN0
MOVE GSWBIN10,CBIN22 LENGTH OF SEARCH
SUB GSWBIN10,GSWBIN6 SUB CHARACTERS ALREADY TESTED
B MA0100 GO CONTINUE SEARCH
MA0200
RET
PEND
EJECT
*************************************************
*
* FORMATS FOR WRITFD
*
********************************************************
*
PCKINIT FRMT
FILLR ' ',40
FILLR ' ',40
FBT CSWFLAG,INIT10
FILLR X'00',48
FEXIT
INIT10
FILLR ' ',48
FMEND
*
FRVOLID FRMT
FMEL '999999',CMASKDAT
FILLR ' ',1
FMEL '99999',GSWBCD3
FMEND
*
TREC1 FRMT
FMEL '999',GTMSK
FILLR C'G',1
FMEL '99',CEDATNR
FMEL '99999',CRECBCD
FBT CSPLITFL,TREC40
FMEL '99',GTREGNR
FCOPY =C'&01'
FMEL '9999',CKMDNR
FBF GTKASSE,TREC40
FBT TTR11FLG,TREC10
FCOPY =C'&02'
FMEL '999999',GTDATO
TREC10
FCOPY =C'&03'
FMEL '999',GTMSK
FBT TTR11FLG,TREC40
FCOPY =C'&04'
FMEL '99999',TTLBNR
TREC40
FMEND
*
PFRM1 FRMT
FCOPY =C'&'
FMEL '99',GSWBCD3
FBP GSWBCD3,PLAB10
FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5)
FEXIT
PLAB10
FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)
FMEND
END
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT KMDIO 831026 EV«, t00=0x0000, t01=0x0004}
0x001e…003c Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0022}
0x003c…004a Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0040}
0x004a…0060 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITFD «, t00=0x0000, t01=0x004e}
0x0060…0080 Head {h00=0x001c, h01=0x0050, text=» ENTRY WRITVO «, t00=0x0000, t01=0x0064}
0x0080…00a0 Head {h00=0x001c, h01=0x0050, text=» ENTRY WRITJT «, t00=0x0000, t01=0x0084}
0x00a0…00c0 Head {h00=0x001c, h01=0x0050, text=» ENTRY WTALLY «, t00=0x0000, t01=0x00a4}
0x00c0…00d6 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITID «, t00=0x0000, t01=0x00c4}
0x00d6…00f4 Head {h00=0x001a, h01=0x0050, text=» ENTRY CRKJ «, t00=0x0000, t01=0x00da}
0x00f4…010a Head {h00=0x0012, h01=0x0050, text=» ENTRY GRASPV «, t00=0x0000, t01=0x00f8}
0x010a…0120 Head {h00=0x0012, h01=0x0050, text=» ENTRY LINOPT «, t00=0x0000, t01=0x010e}
0x0120…0134 Head {h00=0x0010, h01=0x0050, text=» ENTRY CRVO «, t00=0x0000, t01=0x0124}
0x0134…0154 Head {h00=0x001c, h01=0x0050, text=» ENTRY WCHECK «, t00=0x0000, t01=0x0138}
0x0154…016a Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEAR8 «, t00=0x0000, t01=0x0158}
0x016a…0172 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x016e}
0x0172…017a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0176}
0x017a…018c Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0000, t01=0x017e}
0x018c…01a0 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0000, t01=0x0190}
0x01a0…01b4 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0014}
0x01b4…01c6 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0028}
0x01c6…01e6 Head {h00=0x001c, h01=0x0050, text=» EXT FRMTJT «, t00=0x0001, t01=0x003a}
0x01e6…01fa Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x005a}
0x01fa…020a Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x006e}
0x020a…021c Head {h00=0x000e, h01=0x0050, text=» EXT CYWRT«, t00=0x0001, t01=0x007e}
0x021c…0230 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x0090}
0x0230…0244 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00a4}
0x0244…0258 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKV «, t00=0x0001, t01=0x00b8}
0x0258…026c Head {h00=0x0010, h01=0x0050, text=» EXT REPL00 «, t00=0x0001, t01=0x00cc}
0x026c…028a Head {h00=0x001a, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x00e0}
0x028a…029e Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00fe}
0x029e…02b0 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x0112}
0x02b0…02c4 Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0001, t01=0x0124}
0x02c4…02cc Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0138}
0x02cc…02ec Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0140}
0x02ec…02fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0160}
0x02fa…030e Head {h00=0x0010, h01=0x0050, text=»WRITFD PROC «, t00=0x0001, t01=0x016e}
0x030e…032a Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x0182}
0x032a…0352 Head {h00=0x0024, h01=0x0050, text=» PERF ADM,CBIN12 DISKETTE SKIFT «, t00=0x0002, t01=0x000e}
0x0352…036e Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0002, t01=0x0036}
0x036e…0386 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0002, t01=0x0052}
0x0386…0392 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x006a}
0x0392…03a0 Head {h00=0x000a, h01=0x0050, text=»WRFD00«, t00=0x0002, t01=0x0076}
0x03a0…03ba Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CPFLG «, t00=0x0002, t01=0x0084}
0x03ba…03d0 Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT90«, t00=0x0002, t01=0x009e}
0x03d0…03e8 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0002, t01=0x00b4}
0x03e8…041a Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0002, t01=0x00cc}
0x041a…042e Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0002, t01=0x00fe}
0x042e…044a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0002, t01=0x0112}
0x044a…045a Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0002, t01=0x012e}
0x045a…046e Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x013e}
0x046e…0492 Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0002, t01=0x0152}
0x0492…04a8 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0002, t01=0x0176}
0x04a8…04b8 Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0002, t01=0x018c}
0x04b8…04d6 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0003, t01=0x000c}
0x04d6…0504 Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0003, t01=0x002a}
0x0504…0520 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0003, t01=0x0058}
0x0520…053e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x0074}
0x053e…055a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0003, t01=0x0092}
0x055a…0594 Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0003, t01=0x00ae}
0x0594…05b2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x00e8}
0x05b2…05cc Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0003, t01=0x0106}
0x05cc…05fa Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0003, t01=0x0120}
0x05fa…061e Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0003, t01=0x014e}
0x061e…064e Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0003, t01=0x0172}
0x064e…065e Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0004, t01=0x0012}
0x065e…0678 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0004, t01=0x0022}
0x0678…069e Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0004, t01=0x003c}
0x069e…06d6 Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0004, t01=0x0062}
0x06d6…0702 Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'90',WRFD090 «, t00=0x0004, t01=0x009a}
0x0702…072e Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'91',WRFD091 «, t00=0x0004, t01=0x00c6}
0x072e…075a Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'92',WRFD092 «, t00=0x0004, t01=0x00f2}
0x075a…0786 Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'93',WRFD093 «, t00=0x0004, t01=0x011e}
0x0786…07b2 Head {h00=0x0028, h01=0x0050, text=» CBE GTUSED(GSWBIN5),=W'94',WRFD094 «, t00=0x0004, t01=0x014a}
0x07b2…07d2 Head {h00=0x001c, h01=0x0050, text=» MOVE SPINPUT,=X'00' YES«, t00=0x0004, t01=0x0176}
0x07d2…0800 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0005, t01=0x0008}
0x0800…081c Head {h00=0x0018, h01=0x0050, text=» EDIT SPINPUT,PFRM1 «, t00=0x0005, t01=0x0036}
0x081c…082c Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0005, t01=0x0052}
0x082c…0848 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0005, t01=0x0062}
0x0848…0870 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0005, t01=0x007e}
0x0870…088e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN10,=W'30' «, t00=0x0005, t01=0x00a6}
0x088e…08ca Head {h00=0x0038, h01=0x0050, text=» MATCH SPINPUT,GSWBIN6,GSWBIN10,GSWSTR1,CBIN0,CBIN1 «, t00=0x0005, t01=0x00c4}
0x08ca…08e2 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0005, t01=0x0100}
0x08e2…0912 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0005, t01=0x0118}
0x0912…0948 Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,SPINPUT,CBIN0 NO«, t00=0x0005, t01=0x0148}
0x0948…0964 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0005, t01=0x017e}
0x0964…0990 Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0006, t01=0x000a}
0x0990…09ae Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0006, t01=0x0036}
0x09ae…09be Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0006, t01=0x0054}
0x09be…09f2 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,SPINPUT,CBIN0 «, t00=0x0006, t01=0x0064}
0x09f2…0a20 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0006, t01=0x0098}
0x0a20…0a3c Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0006, t01=0x00c6}
0x0a3c…0a6e Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0006, t01=0x00e2}
0x0a6e…0a92 Head {h00=0x0020, h01=0x0050, text=» DLETE SPINPUT,CBIN0,GSWBIN4«, t00=0x0006, t01=0x0114}
0x0a92…0aa8 Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0006, t01=0x0138}
0x0aa8…0ad6 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0006, t01=0x014e}
0x0ad6…0aec Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0006, t01=0x017c}
0x0aec…0b0a (7, 0, 400) Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0007, t01=0x0004}
0x0b0a…0b24 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x0022}
0x0b24…0b3e Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0007, t01=0x003c}
0x0b3e…0b58 Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0007, t01=0x0056}
0x0b58…0b7c Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0007, t01=0x0070}
0x0b7c…0b8c Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0007, t01=0x0094}
0x0b8c…0ba8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0007, t01=0x00a4}
0x0ba8…0bda Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0007, t01=0x00c0}
0x0bda…0c08 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x00f2}
0x0c08…0c1e Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x0120}
0x0c1e…0c3c Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0007, t01=0x0136}
0x0c3c…0c56 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x0154}
0x0c56…0c70 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0007, t01=0x016e}
0x0c70…0c8a Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0007, t01=0x0188}
0x0c8a…0caa Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0008, t01=0x0012}
0x0caa…0cc0 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x0032}
0x0cc0…0cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0048}
0x0cca…0cee Head {h00=0x0020, h01=0x0050, text=»* LOOK FOR ACCOUNT NO«, t00=0x0008, t01=0x0052}
0x0cee…0d16 Head {h00=0x0024, h01=0x0050, text=»* IN KONTOPLAN. IF FOUND,«, t00=0x0008, t01=0x0076}
0x0d16…0d38 Head {h00=0x001e, h01=0x0050, text=»* SET FLAG GTKORTFL«, t00=0x0008, t01=0x009e}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d42…0d66 Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0008, t01=0x00ca}
0x0d66…0d7a Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0008, t01=0x00ee}
0x0d7a…0d92 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0008, t01=0x0102}
0x0d92…0dae Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0008, t01=0x011a}
0x0dae…0dd4 Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'2' FILE CODE «, t00=0x0008, t01=0x0136}
0x0dd4…0dfc Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x0008, t01=0x015c}
0x0dfc…0e20 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0008, t01=0x0184}
0x0e20…0e34 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0018}
0x0e34…0e4c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x002c}
0x0e4c…0e58 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0044}
0x0e58…0e60 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0050}
0x0e60…0e70 Head {h00=0x000c, h01=0x0050, text=»WRFD090 «, t00=0x0009, t01=0x0058}
0x0e70…0e92 Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393000'«, t00=0x0009, t01=0x0068}
0x0e92…0ecc Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN1),CBIN0 «, t00=0x0009, t01=0x008a}
0x0ecc…0ede Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x0009, t01=0x00c4}
0x0ede…0eee Head {h00=0x000c, h01=0x0050, text=»WRFD091 «, t00=0x0009, t01=0x00d6}
0x0eee…0f10 Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393100'«, t00=0x0009, t01=0x00e6}
0x0f10…0f4a Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN2),CBIN0 «, t00=0x0009, t01=0x0108}
0x0f4a…0f5c Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x0009, t01=0x0142}
0x0f5c…0f6c Head {h00=0x000c, h01=0x0050, text=»WRFD092 «, t00=0x0009, t01=0x0154}
0x0f6c…0f8e Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393200'«, t00=0x0009, t01=0x0164}
0x0f8e…0fc8 Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN3),CBIN0 «, t00=0x0009, t01=0x0186}
0x0fc8…0fda Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x0030}
0x0fda…0fea Head {h00=0x000c, h01=0x0050, text=»WRFD093 «, t00=0x000a, t01=0x0042}
0x0fea…100c Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393300'«, t00=0x000a, t01=0x0052}
0x100c…1046 Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN4),CBIN0 «, t00=0x000a, t01=0x0074}
0x1046…1058 Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x00ae}
0x1058…1068 Head {h00=0x000c, h01=0x0050, text=»WRFD094 «, t00=0x000a, t01=0x00c0}
0x1068…108a Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393400'«, t00=0x000a, t01=0x00d0}
0x108a…10c4 Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN5),CBIN0 «, t00=0x000a, t01=0x00f2}
0x10c4…10d4 Head {h00=0x000c, h01=0x0050, text=»WRFD095 «, t00=0x000a, t01=0x012c}
0x10d4…10e8 Head {h00=0x0010, h01=0x0050, text=» SET TFELT90«, t00=0x000a, t01=0x013c}
0x10e8…1108 Head {h00=0x001c, h01=0x0050, text=» PERF MATCH,=C'&',=C'+' «, t00=0x000a, t01=0x0150}
0x1108…1128 Head {h00=0x001c, h01=0x0050, text=» PERF MATCH,=C'!',=C'/' «, t00=0x000a, t01=0x0170}
0x1128…113a Head {h00=0x000e, h01=0x0050, text=» B WRFD025«, t00=0x000a, t01=0x0190}
0x113a…1144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1144…1154 Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x000b, t01=0x001c}
0x1154…116c Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x000b, t01=0x002c}
0x116c…1180 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000b, t01=0x0044}
0x1180…11a6 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000b, t01=0x0058}
0x11a6…11b2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x007e}
0x11b2…11c2 Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x000b, t01=0x008a}
0x11c2…11de Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x000b, t01=0x009a}
0x11de…11fc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x000b, t01=0x00b6}
0x11fc…1218 Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x000b, t01=0x00d4}
0x1218…122e Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x000b, t01=0x00f0}
0x122e…1242 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000b, t01=0x0106}
0x1242…1258 Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000b, t01=0x011a}
0x1258…127c Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x000b, t01=0x0130}
0x127c…1288 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0154}
0x1288…1296 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0160}
0x1296…12a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x016e}
0x12a4…12d8 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000b, t01=0x017c}
0x12d8…12ec Head {h00=0x0010, h01=0x0050, text=»* EDATNR«, t00=0x000c, t01=0x0020}
0x12ec…1324 Head {h00=0x0034, h01=0x0050, text=»* FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000c, t01=0x0034}
0x1324…1362 Head {h00=0x003a, h01=0x0050, text=»* AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000c, t01=0x006c}
0x1362…139a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000c, t01=0x00aa}
0x139a…13ae Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000c, t01=0x00e2}
0x13ae…13c6 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000c, t01=0x00f6}
0x13c6…13ea Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000c, t01=0x010e}
0x13ea…1406 Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000c, t01=0x0132}
0x1406…142a Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000c, t01=0x014e}
0x142a…145c Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000c, t01=0x0172}
0x145c…1480 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000d, t01=0x0014}
0x1480…1490 Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000d, t01=0x0038}
0x1490…14b4 Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000d, t01=0x0048}
0x14b4…14ca Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000d, t01=0x006c}
0x14ca…14da Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000d, t01=0x0082}
0x14da…14e6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0092}
0x14e6…14f6 Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000d, t01=0x009e}
0x14f6…151a Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000d, t01=0x00ae}
0x151a…153e Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000d, t01=0x00d2}
0x153e…1550 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x00f6}
0x1550…1560 Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000d, t01=0x0108}
0x1560…1584 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000d, t01=0x0118}
0x1584…15a8 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000d, t01=0x013c}
0x15a8…15ba Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x0160}
0x15ba…15ca Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x000d, t01=0x0172}
0x15ca…15ee Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x000d, t01=0x0182}
0x15ee…1612 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x000e, t01=0x0016}
0x1612…1624 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x003a}
0x1624…1634 Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x000e, t01=0x004c}
0x1634…1658 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x000e, t01=0x005c}
0x1658…166a Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x0080}
0x166a…1678 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x0092}
0x1678…1686 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a0}
0x1686…16a4 Head {h00=0x001a, h01=0x0050, text=»WRITJT PROC $JTLIT «, t00=0x000e, t01=0x00ae}
0x16a4…16b8 Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x000e, t01=0x00cc}
0x16b8…16d4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x00e0}
0x16d4…170e Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x000e, t01=0x00fc}
0x170e…173c Head {h00=0x002a, h01=0x0050, text=»* DEPENDING ON TRANSACTION TYPE«, t00=0x000e, t01=0x0136}
0x173c…1758 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0164}
0x1758…176c Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000e, t01=0x0180}
0x176c…1780 (15, 0, 400) Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000f, t01=0x0004}
0x1780…179c Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x000f, t01=0x0018}
0x179c…17c2 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,$JTLIT «, t00=0x000f, t01=0x0034}
0x17c2…17ec Head {h00=0x0026, h01=0x0050, text=» CBG GSWBIN1,CBIN0,JT10 «, t00=0x000f, t01=0x005a}
0x17ec…1804 Head {h00=0x0014, h01=0x0050, text=» TBF CSPOOL,JT04«, t00=0x000f, t01=0x0084}
0x1804…181c Head {h00=0x0014, h01=0x0050, text=» TBT TSPOOL,JT05«, t00=0x000f, t01=0x009c}
0x181c…183c Head {h00=0x001c, h01=0x0050, text=»JT04 WRITE ON JOURNAL «, t00=0x000f, t01=0x00b4}
0x183c…1886 Head {h00=0x0046, h01=0x0050, text=» PERF FRMTJT GET FORMAT ACORDING TO TYPE«, t00=0x000f, t01=0x00d4}
0x1886…18a2 Head {h00=0x0018, h01=0x0050, text=» B JT20 «, t00=0x000f, t01=0x011e}
0x18a2…18bc Head {h00=0x0016, h01=0x0050, text=»JT05 EL. JOURNAL«, t00=0x000f, t01=0x013a}
0x18bc…18d6 Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN0«, t00=0x000f, t01=0x0154}
0x18d6…18e8 Head {h00=0x000e, h01=0x0050, text=» BNOK JT04«, t00=0x000f, t01=0x016e}
0x18e8…1906 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR «, t00=0x000f, t01=0x0180}
0x1906…1916 Head {h00=0x000c, h01=0x0050, text=» B JT35 «, t00=0x0010, t01=0x000e}
0x1916…1922 Head {h00=0x0008, h01=0x0050, text=»JT10«, t00=0x0010, t01=0x001e}
0x1922…194e Head {h00=0x0028, h01=0x0050, text=» PERF FRMXJT,GSWBIN1 SPECIAL FORMAT «, t00=0x0010, t01=0x002a}
0x194e…195a Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x0010, t01=0x0056}
0x195a…198e Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x0010, t01=0x0062}
0x198e…19ba Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x0010, t01=0x0096}
0x19ba…19da Head {h00=0x001c, h01=0x0050, text=» CBL GTREGDEX,CBIN8,JT40«, t00=0x0010, t01=0x00c2}
0x19da…19fa Head {h00=0x001c, h01=0x0050, text=» CBG GTREGDEX,CBIN9,JT40«, t00=0x0010, t01=0x00e2}
0x19fa…1a16 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,$JTLIT«, t00=0x0010, t01=0x0102}
0x1a16…1a36 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,CBIN0,JT40 «, t00=0x0010, t01=0x011e}
0x1a36…1a5a Head {h00=0x0020, h01=0x0050, text=» TBF TFELT90,JT35 ANY 90-94 «, t00=0x0010, t01=0x013e}
0x1a5a…1a72 Head {h00=0x0014, h01=0x0050, text=» TBF TSPOOL,JT30«, t00=0x0010, t01=0x0162}
0x1a72…1a8a Head {h00=0x0014, h01=0x0050, text=» TBT CSPOOL,JT35«, t00=0x0010, t01=0x017a}
0x1a8a…1a96 (17, 0, 400) Head {h00=0x0008, h01=0x0050, text=»JT30«, t00=0x0011, t01=0x0004}
0x1a96…1abe Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN20),=W'90',JT31«, t00=0x0011, t01=0x0010}
0x1abe…1ada Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0011, t01=0x0038}
0x1ada…1b14 Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN1),CBIN0«, t00=0x0011, t01=0x0054}
0x1b14…1b32 Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0011, t01=0x008e}
0x1b32…1b3e Head {h00=0x0008, h01=0x0050, text=»JT31«, t00=0x0011, t01=0x00ac}
0x1b3e…1b66 Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN21),=W'91',JT32«, t00=0x0011, t01=0x00b8}
0x1b66…1b82 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0011, t01=0x00e0}
0x1b82…1bbc Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN2),CBIN0«, t00=0x0011, t01=0x00fc}
0x1bbc…1bda Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT«, t00=0x0011, t01=0x0136}
0x1bda…1be6 Head {h00=0x0008, h01=0x0050, text=»JT32«, t00=0x0011, t01=0x0154}
0x1be6…1c0e Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN22),=W'92',JT33«, t00=0x0011, t01=0x0160}
0x1c0e…1c2a Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0011, t01=0x0188}
0x1c2a…1c64 Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN3),CBIN0«, t00=0x0012, t01=0x0014}
0x1c64…1c82 Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0012, t01=0x004e}
0x1c82…1c8e Head {h00=0x0008, h01=0x0050, text=»JT33«, t00=0x0012, t01=0x006c}
0x1c8e…1caa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0012, t01=0x0078}
0x1caa…1cd4 Head {h00=0x0026, h01=0x0050, text=» CBNE GTUSED(GSWBIN1),=W'93',JT34 «, t00=0x0012, t01=0x0094}
0x1cd4…1cf0 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0012, t01=0x00be}
0x1cf0…1d2a Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN4),CBIN0«, t00=0x0012, t01=0x00da}
0x1d2a…1d48 Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0012, t01=0x0114}
0x1d48…1d54 Head {h00=0x0008, h01=0x0050, text=»JT34«, t00=0x0012, t01=0x0132}
0x1d54…1d70 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'24'«, t00=0x0012, t01=0x013e}
0x1d70…1d9a Head {h00=0x0026, h01=0x0050, text=» CBNE GTUSED(GSWBIN1),=W'94',JT35 «, t00=0x0012, t01=0x015a}
0x1d9a…1db6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0012, t01=0x0184}
0x1db6…1df0 Head {h00=0x0036, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTFELT90(CBIN5),CBIN0«, t00=0x0013, t01=0x0010}
0x1df0…1e0e Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0013, t01=0x004a}
0x1e0e…1e1a Head {h00=0x0008, h01=0x0050, text=»JT35«, t00=0x0013, t01=0x0068}
0x1e1a…1e26 Head {h00=0x0008, h01=0x0050, text=»JT40«, t00=0x0013, t01=0x0074}
0x1e26…1e3a Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x0013, t01=0x0080}
0x1e3a…1e6c Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x0013, t01=0x0094}
0x1e6c…1e88 Head {h00=0x0018, h01=0x0050, text=» BOK JTRET«, t00=0x0013, t01=0x00c6}
0x1e88…1eb8 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x0013, t01=0x00e2}
0x1eb8…1ecc Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x0013, t01=0x0112}
0x1ecc…1eda Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x0013, t01=0x0126}
0x1eda…1ee6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x0134}
0x1ee6…1efc Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x0140}
0x1efc…1f12 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0156}
0x1f12…1f28 Head {h00=0x0012, h01=0x0050, text=»WTALLY PROC «, t00=0x0013, t01=0x016c}
0x1f28…1f44 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0013, t01=0x0182}
0x1f44…1f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000e}
0x1f4e…1f70 Head {h00=0x001e, h01=0x0050, text=»* WRITE TALLY ROLL «, t00=0x0014, t01=0x0018}
0x1f70…1f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003a}
0x1f7a…1f96 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x0044}
0x1f96…1faa Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0014, t01=0x0060}
0x1faa…1fbe Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0014, t01=0x0074}
0x1fbe…200a Head {h00=0x0048, h01=0x0050, text=» EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORMAT«, t00=0x0014, t01=0x0088}
0x200a…202a Head {h00=0x001c, h01=0x0050, text=» RET STORED IN GTSTRFMT«, t00=0x0014, t01=0x00d4}
0x202a…203e Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x0014, t01=0x00f4}
0x203e…2048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0108}
0x2048…2052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0112}
0x2052…2068 Head {h00=0x0012, h01=0x0050, text=»CRKJ PROC «, t00=0x0014, t01=0x011c}
0x2068…2084 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x0132}
0x2084…208e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014e}
0x208e…20ca Head {h00=0x0038, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x0014, t01=0x0158}
0x20ca…20d4 (21, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d4…20f0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0015, t01=0x000e}
0x20f0…210e Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,CRJTFMT «, t00=0x0015, t01=0x002a}
0x210e…2122 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0048}
0x2122…2136 Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x0015, t01=0x005c}
0x2136…2154 Head {h00=0x001a, h01=0x0050, text=» FILLR ' ',2«, t00=0x0015, t01=0x0070}
0x2154…216a Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x0015, t01=0x008e}
0x216a…2180 Head {h00=0x0012, h01=0x0050, text=» FMEND «, t00=0x0015, t01=0x00a4}
0x2180…2196 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x00ba}
0x2196…21a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d0}
0x21a0…21aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00da}
0x21aa…21bc Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x0015, t01=0x00e4}
0x21bc…21d8 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0015, t01=0x00f6}
0x21d8…21e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0112}
0x21e2…2220 Head {h00=0x003a, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x0015, t01=0x011c}
0x2220…222a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015a}
0x222a…2246 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0015, t01=0x0164}
0x2246…2264 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x0015, t01=0x0180}
0x2264…2270 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x000e}
0x2270…2284 Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x0016, t01=0x001a}
0x2284…2298 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0016, t01=0x002e}
0x2298…22ae Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x0016, t01=0x0042}
0x22ae…22bc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0016, t01=0x0058}
0x22bc…22ca Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0066}
0x22ca…22d2 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0074}
0x22d2…22da Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x007c}
0x22da…22e2 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0084}
0x22e2…22f8 Head {h00=0x0012, h01=0x0050, text=»GRASPV PROC «, t00=0x0016, t01=0x008c}
0x22f8…2314 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x00a2}
0x2314…231e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00be}
0x231e…233c Head {h00=0x001a, h01=0x0050, text=»* GRASP VOUCHER«, t00=0x0016, t01=0x00c8}
0x233c…2346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2346…2362 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x00f0}
0x2362…2376 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0016, t01=0x010c}
0x2376…239e Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x0016, t01=0x0120}
0x239e…23b2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0148}
0x23b2…23c8 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x015c}
0x23c8…23d0 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0172}
0x23d0…23e4 Head {h00=0x0010, h01=0x0050, text=»WCHECK PROC «, t00=0x0016, t01=0x017a}
0x23e4…23f0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x018e}
0x23f0…23fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x000a}
0x23fe…2414 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0018}
0x2414…2428 Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0017, t01=0x002e}
0x2428…2432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0042}
0x2432…2450 Head {h00=0x001a, h01=0x0050, text=»* WRITE VOUCHER«, t00=0x0017, t01=0x004c}
0x2450…245a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006a}
0x245a…2488 Head {h00=0x002a, h01=0x0050, text=»* IN CYCLE POSITION AND WRITE «, t00=0x0017, t01=0x0074}
0x2488…24b4 Head {h00=0x0028, h01=0x0050, text=»* (MAY BE NEW PAGE)«, t00=0x0017, t01=0x00a2}
0x24b4…24be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ce}
0x24be…24e6 Head {h00=0x0024, h01=0x0050, text=»* NOT CYCLE GET LINE NR «, t00=0x0017, t01=0x00d8}
0x24e6…2512 Head {h00=0x0028, h01=0x0050, text=»* POSITION VOUCHER «, t00=0x0017, t01=0x0100}
0x2512…253c Head {h00=0x0026, h01=0x0050, text=»* WRITE 1-5 LINES«, t00=0x0017, t01=0x012c}
0x253c…256a Head {h00=0x002a, h01=0x0050, text=»* AND RELEASE VOUCHER«, t00=0x0017, t01=0x0156}
0x256a…2574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x2574…2590 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x018e}
0x2590…25b8 Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,CYVOUCH«, t00=0x0018, t01=0x001a}
0x25b8…25ce Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0018, t01=0x0042}
0x25ce…25de Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0018, t01=0x0058}
0x25de…260a Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 "LINIE NR" «, t00=0x0018, t01=0x0068}
0x260a…2626 Head {h00=0x0018, h01=0x0050, text=» PERF GRASPV«, t00=0x0018, t01=0x0094}
0x2626…263e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0018, t01=0x00b0}
0x263e…2666 Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x0018, t01=0x00c8}
0x2666…2686 Head {h00=0x001c, h01=0x0050, text=» BNOK WOBILAG«, t00=0x0018, t01=0x00f0}
0x2686…26a6 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x0018, t01=0x0110}
0x26a6…26c4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0018, t01=0x0130}
0x26c4…26d4 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0018, t01=0x014e}
0x26d4…26f6 Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x0018, t01=0x015e}
0x26f6…2712 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0018, t01=0x0180}
0x2712…272a Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2, C «, t00=0x0019, t01=0x000c}
0x272a…2750 Head {h00=0x0022, h01=0x0050, text=» WO99,WO98,WO97,WO96,WO95, C«, t00=0x0019, t01=0x0024}
0x2750…276e Head {h00=0x001a, h01=0x0050, text=» WO94,WO93,WO92,WO91 «, t00=0x0019, t01=0x004a}
0x276e…277a Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x0019, t01=0x0068}
0x277a…2794 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x0019, t01=0x0074}
0x2794…27b0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0019, t01=0x008e}
0x27b0…27c0 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0019, t01=0x00aa}
0x27c0…27cc Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x0019, t01=0x00ba}
0x27cc…27e6 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x0019, t01=0x00c6}
0x27e6…2802 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN14«, t00=0x0019, t01=0x00e0}
0x2802…2812 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0019, t01=0x00fc}
0x2812…281e Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x0019, t01=0x010c}
0x281e…2838 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x0019, t01=0x0118}
0x2838…2854 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN14«, t00=0x0019, t01=0x0132}
0x2854…2864 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0019, t01=0x014e}
0x2864…2870 Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x0019, t01=0x015e}
0x2870…288c Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x0019, t01=0x016a}
0x288c…28a8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x0019, t01=0x0186}
0x28a8…28b8 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001a, t01=0x0012}
0x28b8…28c4 Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x001a, t01=0x0022}
0x28c4…28d0 Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x001a, t01=0x002e}
0x28d0…28dc Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x001a, t01=0x003a}
0x28dc…28f6 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x001a, t01=0x0046}
0x28f6…2908 Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x001a, t01=0x0060}
0x2908…2924 Head {h00=0x0018, h01=0x0050, text=»WO92 SHORT 'BILAG'«, t00=0x001a, t01=0x0072}
0x2924…2944 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x001a, t01=0x008e}
0x2944…2958 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x001a, t01=0x00ae}
0x2958…296e Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001a, t01=0x00c2}
0x296e…2982 Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x001a, t01=0x00d8}
0x2982…2994 Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x001a, t01=0x00ec}
0x2994…29b4 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x001a, t01=0x00fe}
0x29b4…29d2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001a, t01=0x011e}
0x29d2…29ea Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001a, t01=0x013c}
0x29ea…2a06 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x001a, t01=0x0154}
0x2a06…2a16 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001a, t01=0x0170}
0x2a16…2a22 Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x001a, t01=0x0180}
0x2a22…2a50 Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,CBIN3 INDICATE KONTOKORT«, t00=0x001a, t01=0x018c}
0x2a50…2a5c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x002a}
0x2a5c…2a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0036}
0x2a66…2a74 Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x001b, t01=0x0040}
0x2a74…2aa6 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x001b, t01=0x004e}
0x2aa6…2ade Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x001b, t01=0x0080}
0x2ade…2af0 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x001b, t01=0x00b8}
0x2af0…2b04 Head {h00=0x0010, h01=0x0050, text=» PERF TSTMUL«, t00=0x001b, t01=0x00ca}
0x2b04…2b18 Head {h00=0x0010, h01=0x0050, text=» BNOK WO110 «, t00=0x001b, t01=0x00de}
0x2b18…2b2c Head {h00=0x0010, h01=0x0050, text=» PERF MULLIN«, t00=0x001b, t01=0x00f2}
0x2b2c…2b40 Head {h00=0x0010, h01=0x0050, text=» PERF MULLIN«, t00=0x001b, t01=0x0106}
0x2b40…2b54 Head {h00=0x0010, h01=0x0050, text=» PERF MULLIN«, t00=0x001b, t01=0x011a}
0x2b54…2b68 Head {h00=0x0010, h01=0x0050, text=» PERF MULLIN«, t00=0x001b, t01=0x012e}
0x2b68…2b76 Head {h00=0x000a, h01=0x0050, text=»WO110 «, t00=0x001b, t01=0x0142}
0x2b76…2bbe Head {h00=0x0044, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x001b, t01=0x0150}
0x2bbe…2bd2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0008}
0x2bd2…2be4 Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x001c, t01=0x001c}
0x2be4…2bf4 Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x001c, t01=0x002e}
0x2bf4…2c20 Head {h00=0x0028, h01=0x0050, text=» SET TTCYTRFL AFTER A CORRECT TRANS «, t00=0x001c, t01=0x003e}
0x2c20…2c3a Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x001c, t01=0x006a}
0x2c3a…2c56 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x001c, t01=0x0084}
0x2c56…2c6a Head {h00=0x0010, h01=0x0050, text=» PERF CYWRTS«, t00=0x001c, t01=0x00a0}
0x2c6a…2c7c Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x001c, t01=0x00b4}
0x2c7c…2c88 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x00c6}
0x2c88…2c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d2}
0x2c92…2c9e Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x001c, t01=0x00dc}
0x2c9e…2cc4 Head {h00=0x0022, h01=0x0050, text=» TBT TTTSTFLG,WO10«, t00=0x001c, t01=0x00e8}
0x2cc4…2ce6 Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x001c, t01=0x010e}
0x2ce6…2d14 Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x001c, t01=0x0130}
0x2d14…2d34 Head {h00=0x001c, h01=0x0050, text=» PERF GRASPV «, t00=0x001c, t01=0x015e}
0x2d34…2d48 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x001c, t01=0x017e}
0x2d48…2d54 (29, 0, 400) Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x001d, t01=0x0004}
0x2d54…2d72 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001d, t01=0x0010}
0x2d72…2da4 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x001d, t01=0x002e}
0x2da4…2dc6 Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x001d, t01=0x0060}
0x2dc6…2dd4 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001d, t01=0x0082}
0x2dd4…2dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0090}
0x2dde…2e02 Head {h00=0x0020, h01=0x0050, text=»* WRITING OF TEXTLINE«, t00=0x001d, t01=0x009a}
0x2e02…2e28 Head {h00=0x0022, h01=0x0050, text=»* FOR CHECK ON WORKSET «, t00=0x001d, t01=0x00be}
0x2e28…2e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e4}
0x2e32…2e40 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001d, t01=0x00ee}
0x2e40…2e7c Head {h00=0x0038, h01=0x0050, text=» SUB TTLINNR,=D'2' NEXT LINE«, t00=0x001d, t01=0x00fc}
0x2e7c…2eb8 Head {h00=0x0038, h01=0x0050, text=» CBL TTLINNR,=D'4',NEWPG NEW PAGE?«, t00=0x001d, t01=0x0138}
0x2eb8…2ec8 Head {h00=0x000c, h01=0x0050, text=» RET NO«, t00=0x001d, t01=0x0174}
0x2ec8…2ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0184}
0x2ed2…2eea Head {h00=0x0014, h01=0x0050, text=»NEWPG NEW PAGE«, t00=0x001d, t01=0x018e}
0x2eea…2f14 Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x001e, t01=0x0016}
0x2f14…2f28 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001e, t01=0x0040}
0x2f28…2f46 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001e, t01=0x0054}
0x2f46…2f66 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x001e, t01=0x0072}
0x2f66…2f84 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x001e, t01=0x0092}
0x2f84…2f9e Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x001e, t01=0x00b0}
0x2f9e…2fbc Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001e, t01=0x00ca}
0x2fbc…2fe2 Head {h00=0x0022, h01=0x0050, text=» DSC0 KVOUCH,RLEAS «, t00=0x001e, t01=0x00e8}
0x2fe2…2ff8 Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x001e, t01=0x010e}
0x2ff8…3006 Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x001e, t01=0x0124}
0x3006…3012 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0132}
0x3012…3028 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x013e}
0x3028…3036 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0154}
0x3036…304a Head {h00=0x0010, h01=0x0050, text=»TSTMUL PROC «, t00=0x001e, t01=0x0162}
0x304a…3082 Head {h00=0x0034, h01=0x0050, text=»* THE PROCEDURE DECIDES IF MULTIPLE LINES C A N «, t00=0x001e, t01=0x0176}
0x3082…30a0 Head {h00=0x001a, h01=0x0050, text=»* OCCUR, WHICH MEANS: «, t00=0x001f, t01=0x001e}
0x30a0…30ca Head {h00=0x0026, h01=0x0050, text=» CBE GTUSED(CBIN20),=W'90',TSTM01 «, t00=0x001f, t01=0x003c}
0x30ca…30f0 Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN1),CBLANKS «, t00=0x001f, t01=0x0066}
0x30f0…30fe Head {h00=0x000a, h01=0x0050, text=»TSTM01«, t00=0x001f, t01=0x008c}
0x30fe…3128 Head {h00=0x0026, h01=0x0050, text=» CBE GTUSED(CBIN21),=W'91',TSTM02 «, t00=0x001f, t01=0x009a}
0x3128…314e Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN2),CBLANKS «, t00=0x001f, t01=0x00c4}
0x314e…315c Head {h00=0x000a, h01=0x0050, text=»TSTM02«, t00=0x001f, t01=0x00ea}
0x315c…3186 Head {h00=0x0026, h01=0x0050, text=» CBE GTUSED(CBIN22),=W'92',TSTM03 «, t00=0x001f, t01=0x00f8}
0x3186…31ac Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN3),CBLANKS «, t00=0x001f, t01=0x0122}
0x31ac…31ba Head {h00=0x000a, h01=0x0050, text=»TSTM03«, t00=0x001f, t01=0x0148}
0x31ba…31d6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x001f, t01=0x0156}
0x31d6…3200 Head {h00=0x0026, h01=0x0050, text=» CBE GTUSED(GSWBIN1),=W'93',TSTM04«, t00=0x001f, t01=0x0172}
0x3200…3226 Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN4),CBLANKS «, t00=0x0020, t01=0x000c}
0x3226…3234 Head {h00=0x000a, h01=0x0050, text=»TSTM04«, t00=0x0020, t01=0x0032}
0x3234…324e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0020, t01=0x0040}
0x324e…3278 Head {h00=0x0026, h01=0x0050, text=» CBE GTUSED(GSWBIN1),=W'94',TSTM05«, t00=0x0020, t01=0x005a}
0x3278…329e Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN5),CBLANKS «, t00=0x0020, t01=0x0084}
0x329e…32ac Head {h00=0x000a, h01=0x0050, text=»TSTM05«, t00=0x0020, t01=0x00aa}
0x32ac…32ce Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN6,TSTM30«, t00=0x0020, t01=0x00b8}
0x32ce…32f0 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,TSTM20«, t00=0x0020, t01=0x00da}
0x32f0…3312 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,TSTM30«, t00=0x0020, t01=0x00fc}
0x3312…3320 Head {h00=0x000a, h01=0x0050, text=»TSTM10«, t00=0x0020, t01=0x011e}
0x3320…3338 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0020, t01=0x012c}
0x3338…3344 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0144}
0x3344…3352 Head {h00=0x000a, h01=0x0050, text=»TSTM20«, t00=0x0020, t01=0x0150}
0x3352…3360 Head {h00=0x000a, h01=0x0050, text=»TSTM30«, t00=0x0020, t01=0x015e}
0x3360…337c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN11,CBIN1«, t00=0x0020, t01=0x016c}
0x337c…338a Head {h00=0x000a, h01=0x0050, text=»TSTM40«, t00=0x0020, t01=0x0188}
0x338a…33a6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN10,CBIN5«, t00=0x0021, t01=0x0008}
0x33a6…33b4 Head {h00=0x000a, h01=0x0050, text=»TSTM50«, t00=0x0021, t01=0x0024}
0x33b4…33dc Head {h00=0x0024, h01=0x0050, text=» MOVE SPINPUT,GTFELT90(GSWBIN10)«, t00=0x0021, t01=0x0032}
0x33dc…33f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'35'«, t00=0x0021, t01=0x005a}
0x33f8…341c Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,GSWBIN7«, t00=0x0021, t01=0x0076}
0x341c…3444 Head {h00=0x0024, h01=0x0050, text=» MOVE GTFELT90(GSWBIN10),SPINPUT«, t00=0x0021, t01=0x009a}
0x3444…3460 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN10,CBIN1 «, t00=0x0021, t01=0x00c2}
0x3460…347e Head {h00=0x001a, h01=0x0050, text=» BP TSTM50 MORE LEFT? «, t00=0x0021, t01=0x00de}
0x347e…348c Head {h00=0x000a, h01=0x0050, text=»TSTM90«, t00=0x0021, t01=0x00fc}
0x348c…34a4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0021, t01=0x010a}
0x34a4…34b0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0122}
0x34b0…34be Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x012e}
0x34be…34c6 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x013c}
0x34c6…34ce Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0144}
0x34ce…34d6 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x014c}
0x34d6…34ea Head {h00=0x0010, h01=0x0050, text=»MULLIN PROC «, t00=0x0021, t01=0x0154}
0x34ea…351a Head {h00=0x002c, h01=0x0050, text=»* THE PROCEDURE WRITES 1 OF THE MULTIPLE«, t00=0x0021, t01=0x0168}
0x351a…3538 Head {h00=0x001a, h01=0x0050, text=»* LINES ON THE VOUCHER«, t00=0x0022, t01=0x0008}
0x3538…3554 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN11,CBIN1 «, t00=0x0022, t01=0x0026}
0x3554…358e Head {h00=0x0036, h01=0x0050, text=» PERF TEST90,GSWBIN11 CAN BE 3-4-5=90-91,92-93,94 «, t00=0x0022, t01=0x0042}
0x358e…35a2 Head {h00=0x0010, h01=0x0050, text=» BNOK MUL090«, t00=0x0022, t01=0x007c}
0x35a2…35b6 Head {h00=0x0010, h01=0x0050, text=» PERF PGTEST«, t00=0x0022, t01=0x0090}
0x35b6…35d4 Head {h00=0x001a, h01=0x0050, text=» PERF FRMXKV,GSWBIN11 «, t00=0x0022, t01=0x00a4}
0x35d4…35ee Head {h00=0x0016, h01=0x0050, text=» EDWRT KVOUCH,NLIN«, t00=0x0022, t01=0x00c2}
0x35ee…360c Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0022, t01=0x00dc}
0x360c…361e Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0022, t01=0x00fa}
0x361e…362c Head {h00=0x000a, h01=0x0050, text=»MUL090«, t00=0x0022, t01=0x010c}
0x362c…3638 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x011a}
0x3638…3646 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0126}
0x3646…364e Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0134}
0x364e…3660 Head {h00=0x000e, h01=0x0050, text=»NLIN FRMT «, t00=0x0022, t01=0x013c}
0x3660…366c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0022, t01=0x014e}
0x366c…367a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0022, t01=0x015a}
0x367a…3682 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0168}
0x3682…368a Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0170}
0x368a…3692 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0178}
0x3692…36a8 Head {h00=0x0012, h01=0x0050, text=»TEST90 PROC P «, t00=0x0022, t01=0x0180}
0x36a8…36e2 Head {h00=0x0036, h01=0x0050, text=» IB P,TEST9010,TEST9020,TEST9030,TEST9040,TEST9050«, t00=0x0023, t01=0x0008}
0x36e2…36f6 Head {h00=0x0010, h01=0x0050, text=» B TEST9090 «, t00=0x0023, t01=0x0042}
0x36f6…3706 Head {h00=0x000c, h01=0x0050, text=»TEST9010«, t00=0x0023, t01=0x0056}
0x3706…3716 Head {h00=0x000c, h01=0x0050, text=»TEST9020«, t00=0x0023, t01=0x0066}
0x3716…3742 Head {h00=0x0028, h01=0x0050, text=» CBNE GTUSED(CBIN10),CBIN0,TEST9025 «, t00=0x0023, t01=0x0076}
0x3742…376c Head {h00=0x0026, h01=0x0050, text=» CBNE GTUSED(CBIN7),CBIN0,TEST9025«, t00=0x0023, t01=0x00a2}
0x376c…3780 Head {h00=0x0010, h01=0x0050, text=» B TEST9090 «, t00=0x0023, t01=0x00cc}
0x3780…3790 Head {h00=0x000c, h01=0x0050, text=»TEST9025«, t00=0x0023, t01=0x00e0}
0x3790…37a6 Head {h00=0x0012, h01=0x0050, text=» PERF FRMXKV,P«, t00=0x0023, t01=0x00f0}
0x37a6…37ba Head {h00=0x0010, h01=0x0050, text=» B TEST9080 «, t00=0x0023, t01=0x0106}
0x37ba…37d8 Head {h00=0x001a, h01=0x0050, text=»TEST9030 FELT 90-91 «, t00=0x0023, t01=0x011a}
0x37d8…3806 Head {h00=0x002a, h01=0x0050, text=» CBNE GTFELT90(CBIN1),CBLANKS,TEST9032«, t00=0x0023, t01=0x0138}
0x3806…3834 Head {h00=0x002a, h01=0x0050, text=» CBE GTFELT90(CBIN2),CBLANKS,TEST9090 «, t00=0x0023, t01=0x0166}
0x3834…3844 (36, 0, 400) Head {h00=0x000c, h01=0x0050, text=»TEST9032«, t00=0x0024, t01=0x0004}
0x3844…385a Head {h00=0x0012, h01=0x0050, text=» PERF FRMXKV,P«, t00=0x0024, t01=0x0014}
0x385a…386e Head {h00=0x0010, h01=0x0050, text=» B TEST9080 «, t00=0x0024, t01=0x002a}
0x386e…388c Head {h00=0x001a, h01=0x0050, text=»TEST9040 FELT 92-93 «, t00=0x0024, t01=0x003e}
0x388c…38ba Head {h00=0x002a, h01=0x0050, text=» CBNE GTFELT90(CBIN3),CBLANKS,TEST9042«, t00=0x0024, t01=0x005c}
0x38ba…38e8 Head {h00=0x002a, h01=0x0050, text=» CBE GTFELT90(CBIN4),CBLANKS,TEST9090 «, t00=0x0024, t01=0x008a}
0x38e8…38f8 Head {h00=0x000c, h01=0x0050, text=»TEST9042«, t00=0x0024, t01=0x00b8}
0x38f8…390e Head {h00=0x0012, h01=0x0050, text=» PERF FRMXKV,P«, t00=0x0024, t01=0x00c8}
0x390e…3922 Head {h00=0x0010, h01=0x0050, text=» B TEST9080 «, t00=0x0024, t01=0x00de}
0x3922…3932 Head {h00=0x000c, h01=0x0050, text=»TEST9050«, t00=0x0024, t01=0x00f2}
0x3932…3960 Head {h00=0x002a, h01=0x0050, text=» CBE GTFELT90(CBIN5),CBLANKS,TEST9090 «, t00=0x0024, t01=0x0102}
0x3960…3976 Head {h00=0x0012, h01=0x0050, text=» PERF FRMXKV,P«, t00=0x0024, t01=0x0130}
0x3976…3986 Head {h00=0x000c, h01=0x0050, text=»TEST9080«, t00=0x0024, t01=0x0146}
0x3986…399e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0024, t01=0x0156}
0x399e…39aa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x016e}
0x39aa…39ba Head {h00=0x000c, h01=0x0050, text=»TEST9090«, t00=0x0024, t01=0x017a}
0x39ba…39d2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0024, t01=0x018a}
0x39d2…39de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0012}
0x39de…39ec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x001e}
0x39ec…39f4 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x002c}
0x39f4…39fc Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0034}
0x39fc…3a04 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x003c}
0x3a04…3a18 Head {h00=0x0010, h01=0x0050, text=»CYWRTS PROC «, t00=0x0025, t01=0x0044}
0x3a18…3a32 Head {h00=0x0016, h01=0x0050, text=» ADD GTBSUM1,=D'1'«, t00=0x0025, t01=0x0058}
0x3a32…3a50 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTBSUM1 «, t00=0x0025, t01=0x0072}
0x3a50…3a82 Head {h00=0x002e, h01=0x0050, text=» IB GSWBIN1,CYWRTS10,CYWRTS20,CYWRTS30, C«, t00=0x0025, t01=0x0090}
0x3a82…3a9e Head {h00=0x0018, h01=0x0050, text=» CYWRTS40,CYWRTS50 «, t00=0x0025, t01=0x00c2}
0x3a9e…3aae Head {h00=0x000c, h01=0x0050, text=»CYWRTS05«, t00=0x0025, t01=0x00de}
0x3aae…3aca Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0025, t01=0x00ee}
0x3aca…3ae2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0025, t01=0x010a}
0x3ae2…3aee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0122}
0x3aee…3afe Head {h00=0x000c, h01=0x0050, text=»CYWRTS10«, t00=0x0025, t01=0x012e}
0x3afe…3b12 Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x0025, t01=0x013e}
0x3b12…3b28 Head {h00=0x0012, h01=0x0050, text=» BNOK CYWRTS05«, t00=0x0025, t01=0x0152}
0x3b28…3b42 Head {h00=0x0016, h01=0x0050, text=» ADD GTBSUM1,=D'1'«, t00=0x0025, t01=0x0168}
0x3b42…3b52 Head {h00=0x000c, h01=0x0050, text=»CYWRTS20«, t00=0x0025, t01=0x0182}
0x3b52…3b66 (38, 0, 398) Head {h00=0x0010, h01=0x0050, text=» PERF TSTMUL«, t00=0x0026, t01=0x0004}
0x3b66…3b88 Head {h00=0x001e, h01=0x0050, text=» BNOK CYWRTS90 ONLY 1 LINE«, t00=0x0026, t01=0x0018}
0x3b88…3b98 Head {h00=0x000c, h01=0x0050, text=»CYWRTS30«, t00=0x0026, t01=0x003a}
0x3b98…3ba8 Head {h00=0x000c, h01=0x0050, text=»CYWRTS40«, t00=0x0026, t01=0x004a}
0x3ba8…3bb8 Head {h00=0x000c, h01=0x0050, text=»CYWRTS50«, t00=0x0026, t01=0x005a}
0x3bb8…3bd6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN11,GTBSUM1«, t00=0x0026, t01=0x006a}
0x3bd6…3bf4 Head {h00=0x001a, h01=0x0050, text=» PERF TEST90,GSWBIN11 «, t00=0x0026, t01=0x0088}
0x3bf4…3c0a Head {h00=0x0012, h01=0x0050, text=» BOK CYWRTS55 «, t00=0x0026, t01=0x00a6}
0x3c0a…3c2e Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN11,CBIN5,CYWRTS90«, t00=0x0026, t01=0x00bc}
0x3c2e…3c42 Head {h00=0x0010, h01=0x0050, text=» B CYWRTS57 «, t00=0x0026, t01=0x00e0}
0x3c42…3c52 Head {h00=0x000c, h01=0x0050, text=»CYWRTS55«, t00=0x0026, t01=0x00f4}
0x3c52…3c7e Head {h00=0x0028, h01=0x0050, text=» PERF CYWRT WRITE THE CURRENT FORMAT«, t00=0x0026, t01=0x0104}
0x3c7e…3c94 Head {h00=0x0012, h01=0x0050, text=» BNOK CYWRTS05«, t00=0x0026, t01=0x0130}
0x3c94…3ca4 Head {h00=0x000c, h01=0x0050, text=»CYWRTS57«, t00=0x0026, t01=0x0146}
0x3ca4…3cd0 Head {h00=0x0028, h01=0x0050, text=» PERF CYWRTS OBS: R E C U R S I V E «, t00=0x0026, t01=0x0156}
0x3cd0…3ce0 Head {h00=0x000c, h01=0x0050, text=»CYWRTS90«, t00=0x0026, t01=0x0182}
0x3ce0…3cfc (39, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0027, t01=0x0004}
0x3cfc…3d14 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0027, t01=0x0020}
0x3d14…3d20 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0038}
0x3d20…3d2e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0044}
0x3d2e…3d36 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0052}
0x3d36…3d3e Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x005a}
0x3d3e…3d52 Head {h00=0x0010, h01=0x0050, text=»PGTEST PROC «, t00=0x0027, t01=0x0062}
0x3d52…3d6c Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'2'«, t00=0x0027, t01=0x0076}
0x3d6c…3d8e Head {h00=0x001e, h01=0x0050, text=» CBNL TTLINNR,=D'4',PGTE90«, t00=0x0027, t01=0x0090}
0x3d8e…3db2 Head {h00=0x0020, h01=0x0050, text=» MOVE TTCYKTOT,GTREGF(CBIN4)«, t00=0x0027, t01=0x00b2}
0x3db2…3dc6 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0027, t01=0x00d6}
0x3dc6…3de4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0027, t01=0x00ea}
0x3de4…3e04 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0027, t01=0x0108}
0x3e04…3e22 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x0027, t01=0x0128}
0x3e22…3e3c Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0027, t01=0x0146}
0x3e3c…3e5a Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0027, t01=0x0160}
0x3e5a…3e68 Head {h00=0x000a, h01=0x0050, text=»PGTE20«, t00=0x0027, t01=0x017e}
0x3e68…3e8e Head {h00=0x0022, h01=0x0050, text=» DSC0 KVOUCH,RLEAS «, t00=0x0027, t01=0x018c}
0x3e8e…3eba Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 "LINIE NR" «, t00=0x0028, t01=0x0022}
0x3eba…3ece Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0028, t01=0x004e}
0x3ece…3ee6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0028, t01=0x0062}
0x3ee6…3efa Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0028, t01=0x007a}
0x3efa…3f0e Head {h00=0x0010, h01=0x0050, text=» BNOK PGTE20«, t00=0x0028, t01=0x008e}
0x3f0e…3f2c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0028, t01=0x00a2}
0x3f2c…3f4c Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0028, t01=0x00c0}
0x3f4c…3f6a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x0028, t01=0x00e0}
0x3f6a…3f84 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0028, t01=0x00fe}
0x3f84…3fa2 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0028, t01=0x0118}
0x3fa2…3fb0 Head {h00=0x000a, h01=0x0050, text=»PGTE90«, t00=0x0028, t01=0x0136}
0x3fb0…3fbc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0144}
0x3fbc…3fca Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x0150}
0x3fca…3fe0 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x015e}
0x3fe0…3ff6 Head {h00=0x0012, h01=0x0050, text=»LINOPT PROC «, t00=0x0028, t01=0x0174}
0x3ff6…4012 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0028, t01=0x018a}
0x4012…401c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0016}
0x401c…4046 Head {h00=0x0026, h01=0x0050, text=»* CHECK LINE NUMBER, IF ANY«, t00=0x0029, t01=0x0020}
0x4046…4050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004a}
0x4050…406c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0029, t01=0x0054}
0x406c…4088 Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x0029, t01=0x0070}
0x4088…40b2 Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x0029, t01=0x008c}
0x40b2…40d0 Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x0029, t01=0x00b6}
0x40d0…40de Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x0029, t01=0x00d4}
0x40de…40f0 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0029, t01=0x00e2}
0x40f0…411c Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',LINOP0 SLUT KEY «, t00=0x0029, t01=0x00f4}
0x411c…4156 Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,=W'4',LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x0029, t01=0x0120}
0x4156…4164 Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x0029, t01=0x015a}
0x4164…4192 Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH«, t00=0x0029, t01=0x0168}
0x4192…41bc Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x002a, t01=0x0008}
0x41bc…41f0 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x002a, t01=0x0032}
0x41f0…4216 Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x002a, t01=0x0066}
0x4216…4248 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR«, t00=0x002a, t01=0x008c}
0x4248…427c Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x002a, t01=0x00be}
0x427c…428a Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x002a, t01=0x00f2}
0x428a…42ae Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x002a, t01=0x0100}
0x42ae…42c0 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x002a, t01=0x0124}
0x42c0…42ce Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x002a, t01=0x0136}
0x42ce…42f0 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x002a, t01=0x0144}
0x42f0…4314 Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x002a, t01=0x0166}
0x4314…4332 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x002a, t01=0x018a}
0x4332…4344 Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x002b, t01=0x0018}
0x4344…4354 Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x002b, t01=0x002a}
0x4354…4372 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x002b, t01=0x003a}
0x4372…4390 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x002b, t01=0x0058}
0x4390…43a4 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x002b, t01=0x0076}
0x43a4…43d6 Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x002b, t01=0x008a}
0x43d6…43fc Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x002b, t01=0x00bc}
0x43fc…4418 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'0' «, t00=0x002b, t01=0x00e2}
0x4418…442a Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x002b, t01=0x00fe}
0x442a…4438 Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x002b, t01=0x0110}
0x4438…444c Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x002b, t01=0x011e}
0x444c…4476 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002b, t01=0x0132}
0x4476…448e Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x002b, t01=0x015c}
0x448e…44b8 Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x002b, t01=0x0174}
0x44b8…44cc Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002c, t01=0x000e}
0x44cc…44da Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x002c, t01=0x0022}
0x44da…44f8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x002c, t01=0x0030}
0x44f8…4508 Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x002c, t01=0x004e}
0x4508…4516 Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x002c, t01=0x005e}
0x4516…4538 Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x002c, t01=0x006c}
0x4538…4544 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x008e}
0x4544…4558 Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x002c, t01=0x009a}
0x4558…4566 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00ae}
0x4566…458c Head {h00=0x0022, h01=0x0050, text=»WRITID PROC WRITVAR1,WRITVAR2 «, t00=0x002c, t01=0x00bc}
0x458c…45a8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x00e2}
0x45a8…45b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fe}
0x45b2…45ea Head {h00=0x0034, h01=0x0050, text=»* PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x002c, t01=0x0108}
0x45ea…461e Head {h00=0x0030, h01=0x0050, text=»* PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x002c, t01=0x0140}
0x461e…4628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0174}
0x4628…4656 Head {h00=0x002a, h01=0x0050, text=»* PRINTS ON JOURNAL AND TALLY«, t00=0x002c, t01=0x017e}
0x4656…4660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001c}
0x4660…466a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0026}
0x466a…4686 Head {h00=0x0018, h01=0x0050, text=»* WRITVAR1:«, t00=0x002d, t01=0x0030}
0x4686…46a6 Head {h00=0x001c, h01=0x0050, text=»* 1 FEJL«, t00=0x002d, t01=0x004c}
0x46a6…46ca Head {h00=0x0020, h01=0x0050, text=»* 2 OPSTART «, t00=0x002d, t01=0x006c}
0x46ca…46f4 Head {h00=0x0026, h01=0x0050, text=»* 3 DISKETTE SKIFT«, t00=0x002d, t01=0x0090}
0x46f4…471c Head {h00=0x0024, h01=0x0050, text=»* 4 KONVERTERING«, t00=0x002d, t01=0x00ba}
0x471c…4748 Head {h00=0x0028, h01=0x0050, text=»* 5 DATATRANSMISSION«, t00=0x002d, t01=0x00e2}
0x4748…476a Head {h00=0x001e, h01=0x0050, text=»* 6 BACKUP«, t00=0x002d, t01=0x010e}
0x476a…4774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0130}
0x4774…4790 Head {h00=0x0018, h01=0x0050, text=»* WRITVAR2:«, t00=0x002d, t01=0x013a}
0x4790…47c6 Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x002d, t01=0x0156}
0x47c6…47ee Head {h00=0x0024, h01=0x0050, text=»* 1 1-20 + 40-59«, t00=0x002d, t01=0x018c}
0x47ee…4828 Head {h00=0x0036, h01=0x0050, text=»* 2 1-20 + 23-42, IF KONVERTERING «, t00=0x002e, t01=0x0024}
0x4828…4866 Head {h00=0x003a, h01=0x0050, text=»* 2 1-20 + VOLID, IF NOT KONVERTERING «, t00=0x002e, t01=0x005e}
0x4866…488a Head {h00=0x0020, h01=0x0050, text=»* 3 NOTHING «, t00=0x002e, t01=0x009c}
0x488a…48ac Head {h00=0x001e, h01=0x0050, text=»* 4 VOLID «, t00=0x002e, t01=0x00c0}
0x48ac…48b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48b6…48c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ec}
0x48c0…48ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f6}
0x48ca…48e6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002e, t01=0x0100}
0x48e6…48f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x011c}
0x48f0…4904 Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x002e, t01=0x0126}
0x4904…4942 Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x002e, t01=0x013a}
0x4942…4954 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x002e, t01=0x0178}
0x4954…4962 Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x002e, t01=0x018a}
0x4962…4982 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x002f, t01=0x0008}
0x4982…4994 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x002f, t01=0x0028}
0x4994…49a2 Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x002f, t01=0x003a}
0x49a2…49c6 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x002f, t01=0x0048}
0x49c6…49d8 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002f, t01=0x006c}
0x49d8…49e6 Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x002f, t01=0x007e}
0x49e6…4a10 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'DISKETTE SKIFT '«, t00=0x002f, t01=0x008c}
0x4a10…4a22 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002f, t01=0x00b6}
0x4a22…4a30 Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x002f, t01=0x00c8}
0x4a30…4a58 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x002f, t01=0x00d6}
0x4a58…4a6a Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002f, t01=0x00fe}
0x4a6a…4a78 Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x002f, t01=0x0110}
0x4a78…4aa4 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x002f, t01=0x011e}
0x4aa4…4ab6 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002f, t01=0x014a}
0x4ab6…4ac4 Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x002f, t01=0x015c}
0x4ac4…4ae6 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x002f, t01=0x016a}
0x4ae6…4af4 Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x002f, t01=0x018c}
0x4af4…4b10 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0030, t01=0x000a}
0x4b10…4b2c Head {h00=0x0018, h01=0x0050, text=» PERF WRITLO,CBIN15 «, t00=0x0030, t01=0x0026}
0x4b2c…4b46 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0030, t01=0x0042}
0x4b46…4b5a Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0030, t01=0x005c}
0x4b5a…4b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0070}
0x4b64…4b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x007a}
0x4b6e…4b7c Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x0030, t01=0x0084}
0x4b7c…4b90 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0030, t01=0x0092}
0x4b90…4bb2 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x0030, t01=0x00a6}
0x4bb2…4bd4 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x0030, t01=0x00c8}
0x4bd4…4bf2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CPCKBUF«, t00=0x0030, t01=0x00ea}
0x4bf2…4c0e Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0030, t01=0x0108}
0x4c0e…4c2a Head {h00=0x0018, h01=0x0050, text=» PERF WRITLO,CBIN15 «, t00=0x0030, t01=0x0124}
0x4c2a…4c4c Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID60«, t00=0x0030, t01=0x0140}
0x4c4c…4c66 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0030, t01=0x0162}
0x4c66…4c7a Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0030, t01=0x017c}
0x4c7a…4c8e Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0030, t01=0x0190}
0x4c8e…4c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0014}
0x4c98…4ca6 Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0031, t01=0x001e}
0x4ca6…4cc8 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0031, t01=0x002c}
0x4cc8…4ce4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0031, t01=0x004e}
0x4ce4…4d00 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0031, t01=0x006a}
0x4d00…4d34 Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0031, t01=0x0086}
0x4d34…4d46 Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0031, t01=0x00ba}
0x4d46…4d54 Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0031, t01=0x00cc}
0x4d54…4d78 Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0031, t01=0x00da}
0x4d78…4d94 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0031, t01=0x00fe}
0x4d94…4db0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0031, t01=0x011a}
0x4db0…4de4 Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0031, t01=0x0136}
0x4de4…4df6 Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0031, t01=0x016a}
0x4df6…4e04 Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0031, t01=0x017c}
0x4e04…4e26 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0031, t01=0x018a}
0x4e26…4e34 Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0032, t01=0x001c}
0x4e34…4e52 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0032, t01=0x002a}
0x4e52…4e6e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0032, t01=0x0048}
0x4e6e…4e8c Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0032, t01=0x0064}
0x4e8c…4e9a Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x0032, t01=0x0082}
0x4e9a…4eb6 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0032, t01=0x0090}
0x4eb6…4ed2 Head {h00=0x0018, h01=0x0050, text=» PERF WRITLO,CBIN15 «, t00=0x0032, t01=0x00ac}
0x4ed2…4efc Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,=W'4',WRID76 1,2,3,6«, t00=0x0032, t01=0x00c8}
0x4efc…4f22 Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,=W'6',WRID90 4,5«, t00=0x0032, t01=0x00f2}
0x4f22…4f30 Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x0032, t01=0x0118}
0x4f30…4f4a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0032, t01=0x0126}
0x4f4a…4f5e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0032, t01=0x0140}
0x4f5e…4f72 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0032, t01=0x0154}
0x4f72…4f84 Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x0032, t01=0x0168}
0x4f84…4f92 Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x0032, t01=0x017a}
0x4f92…4fb4 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID90«, t00=0x0032, t01=0x0188}
0x4fb4…4fc2 Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x0033, t01=0x001a}
0x4fc2…4fdc Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x0033, t01=0x0028}
0x4fdc…4ff0 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0033, t01=0x0042}
0x4ff0…5004 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0033, t01=0x0056}
0x5004…5012 Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x0033, t01=0x006a}
0x5012…501e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0033, t01=0x0078}
0x501e…502c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0033, t01=0x0084}
0x502c…503a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0092}
0x503a…504e Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x0033, t01=0x00a0}
0x504e…5076 Head {h00=0x0024, h01=0x0050, text=»* DELETE FIRST 14 CHARACTERS«, t00=0x0033, t01=0x00b4}
0x5076…508e Head {h00=0x0014, h01=0x0050, text=»* OF LINE 8 «, t00=0x0033, t01=0x00dc}
0x508e…50c0 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'1801' INDICATE LAST LINE «, t00=0x0033, t01=0x00f4}
0x50c0…50e0 Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x0033, t01=0x0126}
0x50e0…50fc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0033, t01=0x0146}
0x50fc…512a Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x0033, t01=0x0162}
0x512a…5138 Head {h00=0x000a, h01=0x0050, text=» RET «, t00=0x0033, t01=0x0190}
0x5138…5146 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x000e}
0x5146…5162 Head {h00=0x0018, h01=0x0050, text=»MATCH PROC $FROM,$TO«, t00=0x0034, t01=0x001c}
0x5162…517a Head {h00=0x0014, h01=0x0050, text=» PLIT $FROM,$TO «, t00=0x0034, t01=0x0038}
0x517a…51aa Head {h00=0x002c, h01=0x0050, text=» MOVE GSWSTR2,$TO REPLACEMENT CHARACTER «, t00=0x0034, t01=0x0050}
0x51aa…51dc Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN6,CBIN3 GET STARTING POSITION «, t00=0x0034, t01=0x0080}
0x51dc…5208 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR1,$FROM SEARCH CHARACTER«, t00=0x0034, t01=0x00b2}
0x5208…5236 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN10,CBIN22 LENGTH OF SEARCH«, t00=0x0034, t01=0x00de}
0x5236…5244 Head {h00=0x000a, h01=0x0050, text=»MA0100«, t00=0x0034, t01=0x010c}
0x5244…5280 Head {h00=0x0038, h01=0x0050, text=» MATCH SPINPUT,GSWBIN6,GSWBIN10,GSWSTR1,CBIN0,CBIN1 «, t00=0x0034, t01=0x011a}
0x5280…52a4 Head {h00=0x0020, h01=0x0050, text=» BNOK MA0200 SEARCH COMPLETE«, t00=0x0034, t01=0x0156}
0x52a4…52d6 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,GSWBIN6,CBIN1,GSWSTR2,CBIN0«, t00=0x0034, t01=0x017a}
0x52d6…5304 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN10,CBIN22 LENGTH OF SEARCH«, t00=0x0035, t01=0x001c}
0x5304…5340 Head {h00=0x0038, h01=0x0050, text=» SUB GSWBIN10,GSWBIN6 SUB CHARACTERS ALREADY TESTED «, t00=0x0035, t01=0x004a}
0x5340…5364 Head {h00=0x0020, h01=0x0050, text=» B MA0100 GO CONTINUE SEARCH«, t00=0x0035, t01=0x0086}
0x5364…5372 Head {h00=0x000a, h01=0x0050, text=»MA0200«, t00=0x0035, t01=0x00aa}
0x5372…537e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0035, t01=0x00b8}
0x537e…538c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0035, t01=0x00c4}
0x538c…539a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00d2}
0x539a…53d4 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0035, t01=0x00e0}
0x53d4…53de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011a}
0x53de…5400 Head {h00=0x001e, h01=0x0050, text=»* FORMATS FOR WRITFD«, t00=0x0035, t01=0x0124}
0x5400…540a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0146}
0x540a…544a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0035, t01=0x0150}
0x544a…5454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0190}
0x5454…5468 Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0036, t01=0x000a}
0x5468…547e Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0036, t01=0x001e}
0x547e…5494 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0036, t01=0x0034}
0x5494…54b0 Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0036, t01=0x004a}
0x54b0…54c8 Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0036, t01=0x0066}
0x54c8…54d6 Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0036, t01=0x007e}
0x54d6…54e4 Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0036, t01=0x008c}
0x54e4…54fa Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0036, t01=0x009a}
0x54fa…5508 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0036, t01=0x00b0}
0x5508…5512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00be}
0x5512…5526 Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0036, t01=0x00c8}
0x5526…5546 Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0036, t01=0x00dc}
0x5546…555a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0036, t01=0x00fc}
0x555a…5578 Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',GSWBCD3 «, t00=0x0036, t01=0x0110}
0x5578…5586 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0036, t01=0x012e}
0x5586…5590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013c}
0x5590…55a2 Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x0036, t01=0x0146}
0x55a2…55bc Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0036, t01=0x0158}
0x55bc…55d2 Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x0036, t01=0x0172}
0x55d2…55ec Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x0036, t01=0x0188}
0x55ec…560a Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0037, t01=0x0012}
0x560a…5626 Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x0037, t01=0x0030}
0x5626…5640 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x0037, t01=0x004c}
0x5640…5656 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x0037, t01=0x0066}
0x5656…5672 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x0037, t01=0x007c}
0x5672…568e Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x0037, t01=0x0098}
0x568e…56aa Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x0037, t01=0x00b4}
0x56aa…56c0 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x0037, t01=0x00d0}
0x56c0…56de Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x0037, t01=0x00e6}
0x56de…56ec Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x0037, t01=0x0104}
0x56ec…5702 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x0037, t01=0x0112}
0x5702…571c Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0037, t01=0x0128}
0x571c…5738 Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x0037, t01=0x0142}
0x5738…574e Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x0037, t01=0x015e}
0x574e…576a Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x0037, t01=0x0174}
0x576a…5778 Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x0037, t01=0x0190}
0x5778…5786 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0038, t01=0x000e}
0x5786…5790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001c}
0x5790…57a2 Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x0038, t01=0x0026}
0x57a2…57b6 Head {h00=0x0010, h01=0x0050, text=» FCOPY =C'&'«, t00=0x0038, t01=0x0038}
0x57b6…57d0 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x0038, t01=0x004c}
0x57d0…57ec Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x0038, t01=0x0066}
0x57ec…581c Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x0038, t01=0x0082}
0x581c…582a Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0038, t01=0x00b2}
0x582a…5838 Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x0038, t01=0x00c0}
0x5838…5866 Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x0038, t01=0x00ce}
0x5866…5874 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0038, t01=0x00fc}
0x5874…5888 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0038, t01=0x010a}
0x5888…588c Head {h00=0x4004, h01=0x0000}
0x588c…5890 00 38 01 1e ┆ 8 ┆
0x5890…5898 (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆
0x5898…58e8 (58, 0, 400) 52 44 58 20 00 00 01 56 00 42 00 3e 02 1e 88 43 52 4b 4a 4d c8 46 52 4d 58 56 4f 54 c8 47 52 41 53 50 56 49 c8 49 4e 49 54 52 47 50 88 4b 4f 52 54 53 c8 4c 4f 47 43 4c 53 a8 c8 4c 4f 47 4f 50 4e 41 c8 4c 4f 57 52 49 54 54 00 01 00 0c 00 42 ┆RDX V B > CRKJM FRMXVOT GRASPVI INITRGP KORTS LOGCLS LOGOPNA LOWRITT B┆
0x58e8…5938 00 3e 02 1e c8 50 41 43 4b 43 4c 47 a8 52 41 44 45 4c c8 52 41 52 45 41 44 43 c8 52 41 57 52 49 54 43 c8 53 45 54 44 45 42 43 c8 53 45 54 4b 52 45 43 88 53 4c 55 54 68 c8 53 50 43 4c 52 41 20 00 01 00 52 00 44 00 40 02 1f c8 53 50 43 4c 52 ┆ > PACKCLG RADEL RAREADC RAWRITC SETDEBC SETKREC SLUTh SPCLRA R D @ SPCLR┆
0x5938…5988 4e 46 c8 53 50 4c 49 4e 38 47 c8 54 3a 41 54 54 46 49 c8 54 3a 44 53 43 30 4b c8 54 3a 44 53 43 31 47 c8 54 3a 45 44 57 52 47 88 54 3a 4b 49 4c c8 54 3a 57 41 49 54 01 00 01 00 98 00 34 00 30 02 17 c8 54 43 4f 4e 46 57 47 a8 57 41 49 54 46 ┆NF SPLIN8G T:ATTFI T:DSC0K T:DSC1G T:EDWRG T:KIL T:WAIT 4 0 TCONFWG WAITF┆
0x5988…59d8 c8 57 52 49 54 46 44 43 c8 57 52 49 54 49 44 43 c8 57 52 49 54 4a 54 43 c8 57 52 49 54 4c 4f 43 00 01 00 e0 00 0c 00 08 00 03 05 06 00 06 00 36 00 01 01 18 00 0c 00 08 00 03 08 06 00 07 00 0e 00 01 01 28 00 0c 00 08 00 03 07 06 00 09 00 30 ┆ WRITFDC WRITIDC WRITJTC WRITLOC 6 ( 0┆
0x59d8…5a28 00 01 01 38 00 0c 00 08 00 03 02 06 00 0d 00 00 00 01 01 48 00 0c 00 08 00 03 02 06 00 0e 00 00 00 01 01 58 00 0c 00 08 00 03 02 06 00 0f 00 00 00 01 01 68 00 0c 00 08 00 03 02 06 00 10 00 00 00 01 01 78 00 0c 00 08 00 03 02 06 00 11 00 1e ┆ 8 H X h x ┆
0x5a28…5a78 (59, 0, 398) 00 01 01 88 00 0c 00 08 00 03 02 06 00 12 01 f9 00 02 00 08 00 0c 00 08 00 03 02 06 00 13 04 bf 00 02 00 18 00 0c 00 08 00 03 02 06 00 14 00 00 00 02 00 28 00 0c 00 08 00 03 02 06 00 15 00 00 00 02 00 38 00 0c 00 08 00 03 02 06 00 16 00 19 ┆ ( 8 ┆
0x5a78…5ac8 00 02 00 48 00 0c 00 08 00 03 07 06 00 1a 00 02 00 02 00 58 00 0c 00 08 00 03 07 06 00 28 00 1e 00 02 00 68 00 0c 00 08 00 03 05 06 00 32 00 36 00 02 00 78 00 0c 00 08 00 03 08 06 00 33 00 12 00 02 00 88 00 0c 00 08 00 03 07 06 00 35 00 32 ┆ H X ( h 2 6 x 3 5 2┆
0x5ac8…5b18 00 02 00 98 00 0e 00 09 00 04 14 07 00 3c 30 01 00 47 00 02 00 a8 00 0e 00 09 00 04 14 07 00 3f 30 01 d1 47 00 02 00 ba 00 4a 00 46 00 22 00 44 00 00 41 90 00 96 12 31 58 46 80 52 32 91 0a 52 52 52 52 52 52 52 52 52 52 5f 19 80 52 17 5f 1e ┆ <0 G ?0 G J F " D A 1XF R2 RRRRRRRRRR_ R _ ┆
0x5b18…5b68 4b 28 21 40 a3 41 90 41 93 80 52 5c 2b 00 cc 7a 00 88 67 31 58 46 80 52 18 91 13 3a 01 ca 4c 09 e3 4c 00 02 00 cc 00 0e 00 09 00 04 14 07 00 43 30 01 d1 96 00 02 01 1a 00 0e 00 09 00 04 14 07 00 49 30 01 00 96 00 02 01 2c 00 0e 00 09 00 04 ┆K(!@ A A R + z g1XF R : L L C0 I0 , ┆
0x5b68…5bb6 14 07 00 4d 30 01 b1 96 00 02 01 3e 00 0e 00 09 00 04 14 07 00 53 30 01 b1 96 00 02 01 50 00 0c 00 08 00 03 06 06 00 58 02 01 00 02 01 62 00 0c 00 08 00 03 07 06 00 5a 00 42 00 02 01 72 00 0c 00 08 00 03 07 06 00 5d 00 0e 00 02 01 82 ┆ M0 > S0 P X b Z B r ] ┆
0x5bb6…5c06 (60, 0, 400) 00 0c 00 08 00 03 07 06 00 5f 00 4a 00 03 00 04 00 0e 00 0a 00 04 11 08 00 60 20 02 00 05 00 03 00 14 00 0e 00 0a 00 04 10 08 00 63 20 02 00 63 00 03 00 26 00 0c 00 08 00 03 07 06 00 65 00 4c 00 03 00 38 00 0c 00 08 00 03 07 06 00 68 00 4c ┆ _ J ` c c & e L 8 h L┆
0x5c06…5c56 00 03 00 48 00 0c 00 08 00 03 07 06 00 6b 00 4c 00 03 00 58 00 0c 00 08 00 03 07 06 00 6e 00 4c 00 03 00 68 00 0c 00 08 00 03 07 06 00 71 00 4c 00 03 00 78 00 0c 00 08 00 03 07 06 00 74 00 4c 00 03 00 88 00 0c 00 08 00 03 07 06 00 77 00 4c ┆ H k L X n L h q L x t L w L┆
0x5c56…5ca6 00 03 00 98 00 0c 00 08 00 03 07 06 00 7a 00 4c 00 03 00 a8 00 4a 00 46 00 22 00 44 00 40 09 61 b0 4c 00 e7 e4 29 e3 4c 03 01 e3 4c 00 e8 e3 05 e8 4c 00 e1 45 80 52 80 52 b0 80 52 80 52 4c 01 80 4c 80 52 80 80 52 13 80 52 14 80 52 15 80 52 ┆ z L J F " D @ a L ) L L L E R R R RL L R R R R R┆
0x5ca6…5cf6 16 80 52 17 80 52 18 80 52 13 41 89 02 41 00 03 00 b8 00 0e 00 0a 00 04 10 08 00 83 20 02 00 63 00 03 01 06 00 0c 00 08 00 03 07 06 00 85 00 4c 00 03 01 18 00 0c 00 08 00 03 07 06 00 88 00 18 00 03 01 28 00 0c 00 08 00 03 06 06 00 8a 00 94 ┆ R R R A A c L ( ┆
0x5cf6…5d46 00 03 01 38 00 0c 00 08 00 03 07 06 00 8e 00 1c 00 03 01 48 00 0c 00 08 00 03 05 06 00 9a 00 36 00 03 01 58 00 0c 00 08 00 03 08 06 00 9b 00 1d 00 03 01 68 00 0c 00 08 00 03 07 06 00 9d 00 30 00 03 01 78 00 0c 00 08 00 03 02 06 00 a1 01 f4 ┆ 8 H 6 X h 0 x ┆