|
|
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: 17394 (0x43f2)
Notes: pts_type(SC)
Names: »KMDIO.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/KMDIO.SC«
IDENT KMDIO 831005 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
ENTRY EDATNR
EXT RADEL
EXT SPCHK5
EXT SPLIN8
EXT SPERR
EXT FRMTJT
EXT FRMXJT
EXT FRMXBC
EXT ADM
EXT CYWRT
EXT FRMXVO
EXT FRMXTA
EXT ABORT
EXT RAWRIT
INCLUDE EQUATE
*
WRITFD PROC
TBF CSKIFTWN,WRFD00
PERF ADM,CBIN12 DISKETTE SKIFT
TBF CSKIFTWN,WRFD00
CMP CBIN1,CBIN0
RET
WRFD00
TBF CPFLG,WRFD010 DISC OCUPIED ?
DELAY CBIN2 YES DELAY 200 MS
B WRFD00
WRFD010
SET CPFLG
CLEAR CSPLITFL
MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS
PERF EDATNR
MOVE GSWBIN5,CBIN0
MOVE GTWBCD1,=D'0' TR 50.., RATE COUNTER
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
TBF GTSPECTR,WRFD024 TR 50... ?
CBNE GSWBIN5,=W'6',WRFD024 YES, AFTER FIELD 39/47
ADD GTWBCD1,=D'1' YES
CBNL GTWBCD1,GTRTANT,WRFD022 MORE 'RATE' ?
ADD GTDUPF(CBIN4),=D'1' YES SET NEXT 'RATE'
SUB GSWBIN5,CBIN3 READY FOR NEXT RATE
B WRFD024
WRFD022 CORRECT RATE ?
SUB GTWBCD1,=D'1'
SUB GTDUPF(CBIN4),GTWBCD1
WRFD024
ADD GSWBIN5,CBIN1
CBNL GSWBIN5,CBINMAX,WRFD070
CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ?
MOVE GSWSTR20,=X'00' YES
MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT
EDIT GSWSTR20,PFRM1
WRFD025
MOVE GSWSTR1,=X'00'
MOVE GSWBIN6,CBIN0 FIND LENGTH
MATCH GSWSTR20,GSWBIN6,CBIN16,GSWSTR1,CBIN0,CBIN1
CLEAR CSPLITFL
CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ?
COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO
ADD GSWBIN3,GSWBIN6
SUB GSWBIN4,GSWBIN6 ADJUST POINTERS
B WRFD020 SEE IF MORE
WRFD030
COPY CPCKBUF,GSWBIN3,GSWBIN4,GSWSTR20,CBIN0
MOVE GSWSTR1,=X'21' CONTINUATION MARK
ADD GSWBIN3,GSWBIN4
COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0
DLETE GSWSTR20,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
*
* HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT'
WRFD075 DISK N[STEN FULD
CLEAR CPFLG
CLEAR CSPLITFL
MOVE SPBINW4,CBIN21
MOVE GTWBCD2,=D'02' FILE CODE
MOVE GTWBCD1,=D'50' ERROR CODE
MOVE GSWSTR9,=C'DISCFEJL '
PERF SPERR
CMP CBIN0,CBIN0
RET
*
WRFD080
CLEAR CSPLITFL
CLEAR CPFLG
CMP CBIN0,CBIN0 OK, SET CR=0
RET
*
WRFDERR
*
* HERE MUST BEE RECOVERRY
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
*
*
WCHECK PROC
RET
PEND
EJECT
WRITJT PROC $JTLIT
PLIT $JTLIT
********************
*
* THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE
* DEPENDING ON TRANSACTION TYPE
*
********************
TBT TBCTASK,JT01
WAIT KVOUCH
WAIT KTALLY
JT01
TBT GTSPGFLG,JTRET
MOVE GSWBIN1,$JTLIT
CBG GSWBIN1,CBIN0,JT10
PERF FRMTJT GET FORMAT ACORDING TO TYPE
B JT20
JT10
GET SPECIAL FORMAT
TBT TBCTASK,JT15
PERF FRMXJT,GSWBIN1 FOR JOURNAL
B JT20
JT15
PERF FRMXBC,GSWBIN1 FOR COPY 80
JT20
MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY
TBT GTNWFLG,JT50
EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL
*
DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL
BOK JTRET
TBT TBCTASK,JTRET
PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'
SET TTJTEND
JTRET
RET
JT50
EDWRT .NW,KJTAPE,GTSTRFMT
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
*
*
EJECT
CRKJ PROC
********************
*
* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT
*
********************
EDWRT .NW,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
*
*
EJECT
WRITVO PROC
*
* WRITE VOUCHER
*
* IN CYCLE POSITION AND WRITE
* (MAY BE NEW PAGE)
*
* NOT CYCLE GET LINE NR
* POSITION VOUCHER
* WRITE
* AND RELEASE VOUCHER
*
********************
TBT GTCYFLG,CYVOUCH
* NOT IN CYCLE
WOBILAG
PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
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,=W'14'
B WO100
WO97
PERF FRMXVO,CBIN5
MOVE GSWBIN1,=W'14'
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,=W'3' INDICATE KONTOKORT
RET
*
WO100
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT
PERF CRVO
WO110
DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER
RET
* IN CYCLE
CYVOUCH
TBT GTCYWRTF,WO5
PERF CYWRT
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
*
*****
*
* SEE OLD SUBS LINES 700 - 719
*
*
WO20
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
GRASPV PROC
********************
*
* GRASP VOUCHER
*
********************
WAIT KVOUCH
DSC0 KVOUCH,GRASP GRASP VOUCHER
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
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 BUF,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'DISK SKIFT '
B WRID40
WRID33
MOVE GSWSTR20,=C'KONVERTERING '
B WRID40
WRID35
MOVE GSWSTR20,=C'DATATRANSMISSION '
B WRID40
WRID36
MOVE GSWSTR20,=C'BACKUP '
B WRID40
WRID40
PERF WRITJT,=W'12'
TBT TBCTASK,WRID50
PERF FRMXTA,CBIN6
PERF WTALLY
*
*
WRID50
TBT TBCTASK,WRID51
WAIT KTALLY
WRID51
TBF TBCTASK,WRID55
MOVE CPRTBUF,BUF
PERF WRITJT,=W'13'
B WRID90
WRID55
CBE WRITVAR2,CBIN3,WRID80
CBE WRITVAR2,CBIN4,WRID73
MOVE GSWSTR20,BUF
PERF WRITJT,=W'12'
CBG WRITVAR1,=W'3',WRID60
TBT TBCTASK,WRID60
PERF FRMXTA,CBIN6
PERF WTALLY
WAIT KTALLY
*
WRID60
CBE WRITVAR2,CBIN2,WRID70
MOVE GSWBIN2,CBIN20
MOVE GSWBIN1,=W'40'
COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1
B WRID75
*
WRID70
CBNE WRITVAR1,CBIN4,WRID72
MOVE GSWBIN2,CBIN20
MOVE GSWBIN1,=W'23'
COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1
B WRID75
WRID72
CBG WRITVAR1,CBIN2,WRID80
WRID73
MOVE GSWSTR20,CBLANKS
MOVE GSWBCD3,CVOLNO
EDIT GSWSTR20,FRVOLID
WRID75
PERF WRITJT,=W'12'
CBL WRITVAR1,=W'4',WRID76 1,2,3,6
CBL WRITVAR1,=W'6',WRID90 4,5
WRID76
TBT TBCTASK,WRID85
PERF FRMXTA,CBIN6
PERF WTALLY
WAIT KTALLY
B WRID85
WRID80
CBG WRITVAR1,=W'3',WRID90
WRID85
TBT TBCTASK,WRID90
PERF FRMXTA,CBIN7
PERF WTALLY
WAIT KTALLY
WRID90
RET
PEND
EJECT
CLEAR8 PROC
* DELETE FIRST 14 CHARACTERS
* OF LINE 8
MOVE GSWBIN2,=X'0801' INDICATE LAST LINE
DSC1 SCREEN,06,GSWBIN2
MOVE GSWBIN2,CBIN14
DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS
RET
PEND
*
*************************************************
*
* FORMATS FOR WRITFD
*
********************************************************
*
PCKINIT FRMT
FBT CSWFLAG,INIT10
FILLR ' ',40
FILLR ' ',40
FILLR X'00',48
FEXIT
INIT10
FILLR ' ',40
FILLR ' ',40
FILLR ' ',48
FMEND
*
FRVOLID FRMT
FMEL '999999',CMASKDAT
FMEL 'B99999',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 GTSPECTR,TREC40 TR 50...
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, 398) Head {h00=0x001a, h01=0x0050, text=» IDENT KMDIO 831005 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…0180 Head {h00=0x0012, h01=0x0050, text=» ENTRY EDATNR «, t00=0x0000, t01=0x016e}
0x0180…0192 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0000, t01=0x0184}
0x0192…01a6 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0001, t01=0x0008}
0x01a6…01ba Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x001c}
0x01ba…01cc Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0030}
0x01cc…01ec Head {h00=0x001c, h01=0x0050, text=» EXT FRMTJT «, t00=0x0001, t01=0x0042}
0x01ec…0200 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x0062}
0x0200…0214 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXBC «, t00=0x0001, t01=0x0076}
0x0214…0224 Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x008a}
0x0224…0236 Head {h00=0x000e, h01=0x0050, text=» EXT CYWRT«, t00=0x0001, t01=0x009a}
0x0236…024a Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00ac}
0x024a…025e Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00c0}
0x025e…027c Head {h00=0x001a, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x00d4}
0x027c…0290 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00f2}
0x0290…02b0 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0106}
0x02b0…02ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02ba…02ce Head {h00=0x0010, h01=0x0050, text=»WRITFD PROC «, t00=0x0001, t01=0x0130}
0x02ce…02ea Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x0144}
0x02ea…0312 Head {h00=0x0024, h01=0x0050, text=» PERF ADM,CBIN12 DISKETTE SKIFT «, t00=0x0001, t01=0x0160}
0x0312…032e Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x0188}
0x032e…0346 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0002, t01=0x0014}
0x0346…0352 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x002c}
0x0352…0360 Head {h00=0x000a, h01=0x0050, text=»WRFD00«, t00=0x0002, t01=0x0038}
0x0360…038a Head {h00=0x0026, h01=0x0050, text=» TBF CPFLG,WRFD010 DISC OCUPIED ? «, t00=0x0002, t01=0x0046}
0x038a…03b0 Head {h00=0x0022, h01=0x0050, text=» DELAY CBIN2 YES DELAY 200 MS «, t00=0x0002, t01=0x0070}
0x03b0…03c2 Head {h00=0x000e, h01=0x0050, text=» B WRFD00 «, t00=0x0002, t01=0x0096}
0x03c2…03d2 Head {h00=0x000c, h01=0x0050, text=»WRFD010 «, t00=0x0002, t01=0x00a8}
0x03d2…03e4 Head {h00=0x000e, h01=0x0050, text=» SET CPFLG«, t00=0x0002, t01=0x00b8}
0x03e4…03fc Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0002, t01=0x00ca}
0x03fc…042e Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0002, t01=0x00e2}
0x042e…0442 Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0002, t01=0x0114}
0x0442…045e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0002, t01=0x0128}
0x045e…0490 Head {h00=0x002e, h01=0x0050, text=» MOVE GTWBCD1,=D'0' TR 50.., RATE COUNTER «, t00=0x0002, t01=0x0144}
0x0490…04a0 Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0002, t01=0x0176}
0x04a0…04b4 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0186}
0x04b4…04d8 Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0003, t01=0x000a}
0x04d8…04ee Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0003, t01=0x002e}
0x04ee…04fe Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0003, t01=0x0044}
0x04fe…051c Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0003, t01=0x0054}
0x051c…054a Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0003, t01=0x0072}
0x054a…0566 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0003, t01=0x00a0}
0x0566…0584 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x00bc}
0x0584…05a0 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0003, t01=0x00da}
0x05a0…05da Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0003, t01=0x00f6}
0x05da…05f8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x0130}
0x05f8…0612 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0003, t01=0x014e}
0x0612…0640 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0003, t01=0x0168}
0x0640…0664 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0004, t01=0x0008}
0x0664…0694 Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0004, t01=0x002c}
0x0694…06a4 Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0004, t01=0x005c}
0x06a4…06cc Head {h00=0x0024, h01=0x0050, text=» TBF GTSPECTR,WRFD024 TR 50... ?«, t00=0x0004, t01=0x006c}
0x06cc…0706 Head {h00=0x0036, h01=0x0050, text=» CBNE GSWBIN5,=W'6',WRFD024 YES, AFTER FIELD 39/47«, t00=0x0004, t01=0x0094}
0x0706…0724 Head {h00=0x001a, h01=0x0050, text=» ADD GTWBCD1,=D'1' YES«, t00=0x0004, t01=0x00ce}
0x0724…0758 Head {h00=0x0030, h01=0x0050, text=» CBNL GTWBCD1,GTRTANT,WRFD022 MORE 'RATE' ? «, t00=0x0004, t01=0x00ec}
0x0758…078c Head {h00=0x0030, h01=0x0050, text=» ADD GTDUPF(CBIN4),=D'1' YES SET NEXT 'RATE'«, t00=0x0004, t01=0x0120}
0x078c…07ba Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN5,CBIN3 READY FOR NEXT RATE«, t00=0x0004, t01=0x0154}
0x07ba…07cc Head {h00=0x000e, h01=0x0050, text=» B WRFD024«, t00=0x0004, t01=0x0182}
0x07cc…07ec (5, 0, 400) Head {h00=0x001c, h01=0x0050, text=»WRFD022 CORRECT RATE ?«, t00=0x0005, t01=0x0004}
0x07ec…0806 Head {h00=0x0016, h01=0x0050, text=» SUB GTWBCD1,=D'1'«, t00=0x0005, t01=0x0024}
0x0806…0828 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN4),GTWBCD1«, t00=0x0005, t01=0x003e}
0x0828…0838 Head {h00=0x000c, h01=0x0050, text=»WRFD024 «, t00=0x0005, t01=0x0060}
0x0838…0852 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0005, t01=0x0070}
0x0852…0878 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0005, t01=0x008a}
0x0878…08b0 Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0005, t01=0x00b0}
0x08b0…08d2 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=X'00' YES «, t00=0x0005, t01=0x00e8}
0x08d2…0900 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0005, t01=0x010a}
0x0900…091c Head {h00=0x0018, h01=0x0050, text=» EDIT GSWSTR20,PFRM1«, t00=0x0005, t01=0x0138}
0x091c…092c Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0005, t01=0x0154}
0x092c…0948 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0005, t01=0x0164}
0x0948…0970 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0005, t01=0x0180}
0x0970…09aa Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN6,CBIN16,GSWSTR1,CBIN0,CBIN1«, t00=0x0006, t01=0x0018}
0x09aa…09c2 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0006, t01=0x0052}
0x09c2…09f2 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0006, t01=0x006a}
0x09f2…0a2a Head {h00=0x0034, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO «, t00=0x0006, t01=0x009a}
0x0a2a…0a46 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0006, t01=0x00d2}
0x0a46…0a72 Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0006, t01=0x00ee}
0x0a72…0a90 Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0006, t01=0x011a}
0x0a90…0aa0 Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0006, t01=0x0138}
0x0aa0…0ad4 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,GSWSTR20,CBIN0«, t00=0x0006, t01=0x0148}
0x0ad4…0b02 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0006, t01=0x017c}
0x0b02…0b1e Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0007, t01=0x001a}
0x0b1e…0b50 Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0007, t01=0x0036}
0x0b50…0b76 Head {h00=0x0022, h01=0x0050, text=» DLETE GSWSTR20,CBIN0,GSWBIN4 «, t00=0x0007, t01=0x0068}
0x0b76…0b8c Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0007, t01=0x008e}
0x0b8c…0bba Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x00a4}
0x0bba…0bd0 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x00d2}
0x0bd0…0bee Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0007, t01=0x00e8}
0x0bee…0c08 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x0106}
0x0c08…0c22 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0007, t01=0x0120}
0x0c22…0c3c Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0007, t01=0x013a}
0x0c3c…0c60 Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0007, t01=0x0154}
0x0c60…0c70 Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0007, t01=0x0178}
0x0c70…0c8c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0007, t01=0x0188}
0x0c8c…0cbe Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0008, t01=0x0014}
0x0cbe…0cec Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0008, t01=0x0046}
0x0cec…0d02 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x0074}
0x0d02…0d20 Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0008, t01=0x008a}
0x0d20…0d3a Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0008, t01=0x00a8}
0x0d3a…0d54 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0008, t01=0x00c2}
0x0d54…0d6e Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0008, t01=0x00dc}
0x0d6e…0d8e Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0008, t01=0x00f6}
0x0d8e…0da4 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x0116}
0x0da4…0dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012c}
0x0dae…0dd2 Head {h00=0x0020, h01=0x0050, text=»* LOOK FOR ACCOUNT NO«, t00=0x0008, t01=0x0136}
0x0dd2…0dfa Head {h00=0x0024, h01=0x0050, text=»* IN KONTOPLAN. IF FOUND,«, t00=0x0008, t01=0x015a}
0x0dfa…0e1c Head {h00=0x001e, h01=0x0050, text=»* SET FLAG GTKORTFL«, t00=0x0008, t01=0x0182}
0x0e1c…0e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e26…0e4a Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0009, t01=0x001e}
0x0e4a…0e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e54…0e92 Head {h00=0x003a, h01=0x0050, text=»* HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' «, t00=0x0009, t01=0x004c}
0x0e92…0eb4 Head {h00=0x001e, h01=0x0050, text=»WRFD075 DISK N[STEN FULD«, t00=0x0009, t01=0x008a}
0x0eb4…0ec8 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0009, t01=0x00ac}
0x0ec8…0ee0 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x00c0}
0x0ee0…0efc Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x00d8}
0x0efc…0f22 Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'02' FILE CODE«, t00=0x0009, t01=0x00f4}
0x0f22…0f4a Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x0009, t01=0x011a}
0x0f4a…0f6e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x0142}
0x0f6e…0f82 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0166}
0x0f82…0f9a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x017a}
0x0f9a…0fa6 (10, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0004}
0x0fa6…0fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0010}
0x0fb0…0fc0 Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x000a, t01=0x001a}
0x0fc0…0fd8 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x000a, t01=0x002a}
0x0fd8…0fec Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000a, t01=0x0042}
0x0fec…1012 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000a, t01=0x0056}
0x1012…101e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x007c}
0x101e…1028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x1028…1038 Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x000a, t01=0x0092}
0x1038…1042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1042…1068 Head {h00=0x0022, h01=0x0050, text=»* HERE MUST BEE RECOVERRY «, t00=0x000a, t01=0x00ac}
0x1068…1084 Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x000a, t01=0x00d2}
0x1084…10a2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x000a, t01=0x00ee}
0x10a2…10be Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x000a, t01=0x010c}
0x10be…10d4 Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x000a, t01=0x0128}
0x10d4…10e8 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000a, t01=0x013e}
0x10e8…10fe Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000a, t01=0x0152}
0x10fe…1122 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x000a, t01=0x0168}
0x1122…112e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x018c}
0x112e…113c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0008}
0x113c…114a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0016}
0x114a…117e Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000b, t01=0x0024}
0x117e…1188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x1188…119c Head {h00=0x0010, h01=0x0050, text=»* EDATNR«, t00=0x000b, t01=0x0062}
0x119c…11d4 Head {h00=0x0034, h01=0x0050, text=»* FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000b, t01=0x0076}
0x11d4…1212 Head {h00=0x003a, h01=0x0050, text=»* AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000b, t01=0x00ae}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ec}
0x121c…1254 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000b, t01=0x00f6}
0x1254…1268 Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000b, t01=0x012e}
0x1268…1280 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000b, t01=0x0142}
0x1280…12a4 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000b, t01=0x015a}
0x12a4…12c0 Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000b, t01=0x017e}
0x12c0…12e4 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000c, t01=0x000a}
0x12e4…1316 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000c, t01=0x002e}
0x1316…133a Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000c, t01=0x0060}
0x133a…134a Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000c, t01=0x0084}
0x134a…136e Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000c, t01=0x0094}
0x136e…1384 Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000c, t01=0x00b8}
0x1384…1394 Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000c, t01=0x00ce}
0x1394…13a0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x00de}
0x13a0…13b0 Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000c, t01=0x00ea}
0x13b0…13d4 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000c, t01=0x00fa}
0x13d4…13f8 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000c, t01=0x011e}
0x13f8…140a Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000c, t01=0x0142}
0x140a…141a Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000c, t01=0x0154}
0x141a…143e Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000c, t01=0x0164}
0x143e…1462 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000c, t01=0x0188}
0x1462…1474 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x001c}
0x1474…1484 Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x000d, t01=0x002e}
0x1484…14a8 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x000d, t01=0x003e}
0x14a8…14cc Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x000d, t01=0x0062}
0x14cc…14de Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x0086}
0x14de…14ee Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x000d, t01=0x0098}
0x14ee…1512 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x000d, t01=0x00a8}
0x1512…1524 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x00cc}
0x1524…1532 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00de}
0x1532…1540 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00ec}
0x1540…154a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fa}
0x154a…1554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x1554…1568 Head {h00=0x0010, h01=0x0050, text=»WCHECK PROC «, t00=0x000d, t01=0x010e}
0x1568…1574 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0122}
0x1574…1582 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x012e}
0x1582…1590 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x013c}
0x1590…15ae Head {h00=0x001a, h01=0x0050, text=»WRITJT PROC $JTLIT «, t00=0x000d, t01=0x014a}
0x15ae…15c2 Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x000d, t01=0x0168}
0x15c2…15de Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x017c}
0x15de…15e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15e8…1622 Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x000e, t01=0x0012}
0x1622…1650 Head {h00=0x002a, h01=0x0050, text=»* DEPENDING ON TRANSACTION TYPE«, t00=0x000e, t01=0x004c}
0x1650…165a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007a}
0x165a…1676 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0084}
0x1676…1690 Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JT01 «, t00=0x000e, t01=0x00a0}
0x1690…16a4 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000e, t01=0x00ba}
0x16a4…16b8 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000e, t01=0x00ce}
0x16b8…16c4 Head {h00=0x0008, h01=0x0050, text=»JT01«, t00=0x000e, t01=0x00e2}
0x16c4…16e0 Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x000e, t01=0x00ee}
0x16e0…1706 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,$JTLIT «, t00=0x000e, t01=0x010a}
0x1706…1730 Head {h00=0x0026, h01=0x0050, text=» CBG GSWBIN1,CBIN0,JT10 «, t00=0x000e, t01=0x0130}
0x1730…177a Head {h00=0x0046, h01=0x0050, text=» PERF FRMTJT GET FORMAT ACORDING TO TYPE«, t00=0x000e, t01=0x015a}
0x177a…1796 Head {h00=0x0018, h01=0x0050, text=» B JT20 «, t00=0x000f, t01=0x0014}
0x1796…17a2 Head {h00=0x0008, h01=0x0050, text=»JT10«, t00=0x000f, t01=0x0030}
0x17a2…17c0 Head {h00=0x001a, h01=0x0050, text=» GET SPECIAL FORMAT «, t00=0x000f, t01=0x003c}
0x17c0…17da Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JT15 «, t00=0x000f, t01=0x005a}
0x17da…1802 Head {h00=0x0024, h01=0x0050, text=» PERF FRMXJT,GSWBIN1 FOR JOURNAL«, t00=0x000f, t01=0x0074}
0x1802…1812 Head {h00=0x000c, h01=0x0050, text=» B JT20 «, t00=0x000f, t01=0x009c}
0x1812…181e Head {h00=0x0008, h01=0x0050, text=»JT15«, t00=0x000f, t01=0x00ac}
0x181e…1846 Head {h00=0x0024, h01=0x0050, text=» PERF FRMXBC,GSWBIN1 FOR COPY 80«, t00=0x000f, t01=0x00b8}
0x1846…1852 Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x000f, t01=0x00e0}
0x1852…1886 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x000f, t01=0x00ec}
0x1886…18a0 Head {h00=0x0016, h01=0x0050, text=» TBT GTNWFLG,JT50 «, t00=0x000f, t01=0x0120}
0x18a0…18cc Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x000f, t01=0x013a}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0166}
0x18d6…1908 Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x000f, t01=0x0170}
0x1908…1924 Head {h00=0x0018, h01=0x0050, text=» BOK JTRET«, t00=0x0010, t01=0x0012}
0x1924…193e Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JTRET«, t00=0x0010, t01=0x002e}
0x193e…196e Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x0010, t01=0x0048}
0x196e…1982 Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x0010, t01=0x0078}
0x1982…1990 Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x0010, t01=0x008c}
0x1990…199c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x009a}
0x199c…19a8 Head {h00=0x0008, h01=0x0050, text=»JT50«, t00=0x0010, t01=0x00a6}
0x19a8…19ca Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KJTAPE,GTSTRFMT«, t00=0x0010, t01=0x00b2}
0x19ca…19d6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00d4}
0x19d6…19ec Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00e0}
0x19ec…1a02 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f6}
0x1a02…1a18 Head {h00=0x0012, h01=0x0050, text=»WTALLY PROC «, t00=0x0010, t01=0x010c}
0x1a18…1a34 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0010, t01=0x0122}
0x1a34…1a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013e}
0x1a3e…1a60 Head {h00=0x001e, h01=0x0050, text=»* WRITE TALLY ROLL «, t00=0x0010, t01=0x0148}
0x1a60…1a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a6a…1a86 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0174}
0x1a86…1a9a Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0010, t01=0x0190}
0x1a9a…1aae Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0011, t01=0x0014}
0x1aae…1afa Head {h00=0x0048, h01=0x0050, text=» EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORMAT«, t00=0x0011, t01=0x0028}
0x1afa…1b1a Head {h00=0x001c, h01=0x0050, text=» RET STORED IN GTSTRFMT«, t00=0x0011, t01=0x0074}
0x1b1a…1b2e Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x0011, t01=0x0094}
0x1b2e…1b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b38…1b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b2}
0x1b42…1b58 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00bc}
0x1b58…1b6e Head {h00=0x0012, h01=0x0050, text=»CRKJ PROC «, t00=0x0011, t01=0x00d2}
0x1b6e…1b8a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00e8}
0x1b8a…1b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0104}
0x1b94…1bd0 Head {h00=0x0038, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x0011, t01=0x010e}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014a}
0x1bda…1bf6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0154}
0x1bf6…1c22 Head {h00=0x0028, h01=0x0050, text=» EDWRT .NW,KJTAPE,CRJTFMT «, t00=0x0011, t01=0x0170}
0x1c22…1c36 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x000c}
0x1c36…1c4a Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x0012, t01=0x0020}
0x1c4a…1c68 Head {h00=0x001a, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x0034}
0x1c68…1c7e Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x0012, t01=0x0052}
0x1c7e…1c94 Head {h00=0x0012, h01=0x0050, text=» FMEND «, t00=0x0012, t01=0x0068}
0x1c94…1caa Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x007e}
0x1caa…1cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0094}
0x1cb4…1cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cbe…1cd0 Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x0012, t01=0x00a8}
0x1cd0…1cec Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0012, t01=0x00ba}
0x1cec…1cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d6}
0x1cf6…1d34 Head {h00=0x003a, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x0012, t01=0x00e0}
0x1d34…1d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011e}
0x1d3e…1d5a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0128}
0x1d5a…1d78 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x0012, t01=0x0144}
0x1d78…1d84 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0162}
0x1d84…1d98 Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x0012, t01=0x016e}
0x1d98…1dac Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x0182}
0x1dac…1dc2 Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x0013, t01=0x0008}
0x1dc2…1dd0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0013, t01=0x001e}
0x1dd0…1dde Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x002c}
0x1dde…1de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003a}
0x1de8…1df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0044}
0x1df2…1e08 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x004e}
0x1e08…1e1c Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0013, t01=0x0064}
0x1e1c…1e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0078}
0x1e26…1e44 Head {h00=0x001a, h01=0x0050, text=»* WRITE VOUCHER«, t00=0x0013, t01=0x0082}
0x1e44…1e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a0}
0x1e4e…1e7c Head {h00=0x002a, h01=0x0050, text=»* IN CYCLE POSITION AND WRITE «, t00=0x0013, t01=0x00aa}
0x1e7c…1ea8 Head {h00=0x0028, h01=0x0050, text=»* (MAY BE NEW PAGE)«, t00=0x0013, t01=0x00d8}
0x1ea8…1eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb2…1eda Head {h00=0x0024, h01=0x0050, text=»* NOT CYCLE GET LINE NR «, t00=0x0013, t01=0x010e}
0x1eda…1f06 Head {h00=0x0028, h01=0x0050, text=»* POSITION VOUCHER «, t00=0x0013, t01=0x0136}
0x1f06…1f26 Head {h00=0x001c, h01=0x0050, text=»* WRITE«, t00=0x0013, t01=0x0162}
0x1f26…1f54 Head {h00=0x002a, h01=0x0050, text=»* AND RELEASE VOUCHER«, t00=0x0013, t01=0x0182}
0x1f54…1f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0020}
0x1f5e…1f7a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x002a}
0x1f7a…1fa2 Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,CYVOUCH«, t00=0x0014, t01=0x0046}
0x1fa2…1fb8 Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0014, t01=0x006e}
0x1fb8…1fc8 Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0014, t01=0x0084}
0x1fc8…1ff4 Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0014, t01=0x0094}
0x1ff4…2010 Head {h00=0x0018, h01=0x0050, text=» PERF GRASPV«, t00=0x0014, t01=0x00c0}
0x2010…2028 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0014, t01=0x00dc}
0x2028…2050 Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x0014, t01=0x00f4}
0x2050…2070 Head {h00=0x001c, h01=0x0050, text=» BNOK WOBILAG«, t00=0x0014, t01=0x011c}
0x2070…2090 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x0014, t01=0x013c}
0x2090…20ae Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0014, t01=0x015c}
0x20ae…20be Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0014, t01=0x017a}
0x20be…20e0 Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x0014, t01=0x018a}
0x20e0…20fc Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0015, t01=0x001c}
0x20fc…2114 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2, C «, t00=0x0015, t01=0x0038}
0x2114…213a Head {h00=0x0022, h01=0x0050, text=» WO99,WO98,WO97,WO96,WO95, C«, t00=0x0015, t01=0x0050}
0x213a…2158 Head {h00=0x001a, h01=0x0050, text=» WO94,WO93,WO92,WO91 «, t00=0x0015, t01=0x0076}
0x2158…2164 Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x0015, t01=0x0094}
0x2164…217e Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x0015, t01=0x00a0}
0x217e…219a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0015, t01=0x00ba}
0x219a…21aa Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x00d6}
0x21aa…21b6 Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x0015, t01=0x00e6}
0x21b6…21d0 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x0015, t01=0x00f2}
0x21d0…21ec Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0015, t01=0x010c}
0x21ec…21fc Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x0128}
0x21fc…2208 Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x0015, t01=0x0138}
0x2208…2222 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x0015, t01=0x0144}
0x2222…223e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0015, t01=0x015e}
0x223e…224e Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x017a}
0x224e…225a Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x0015, t01=0x018a}
0x225a…2276 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x0016, t01=0x0008}
0x2276…2292 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x0016, t01=0x0024}
0x2292…22a2 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0016, t01=0x0040}
0x22a2…22ae Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x0016, t01=0x0050}
0x22ae…22ba Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x0016, t01=0x005c}
0x22ba…22c6 Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x0016, t01=0x0068}
0x22c6…22e0 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0016, t01=0x0074}
0x22e0…22f2 Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x0016, t01=0x008e}
0x22f2…230e Head {h00=0x0018, h01=0x0050, text=»WO92 SHORT 'BILAG'«, t00=0x0016, t01=0x00a0}
0x230e…232e Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x0016, t01=0x00bc}
0x232e…2342 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0016, t01=0x00dc}
0x2342…2358 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x0016, t01=0x00f0}
0x2358…236c Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0016, t01=0x0106}
0x236c…237e Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x0016, t01=0x011a}
0x237e…239e Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x0016, t01=0x012c}
0x239e…23bc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0016, t01=0x014c}
0x23bc…23d4 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0016, t01=0x016a}
0x23d4…23f0 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x0016, t01=0x0182}
0x23f0…2400 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0017, t01=0x000e}
0x2400…240c Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x0017, t01=0x001e}
0x240c…243a Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,=W'3' INDICATE KONTOKORT«, t00=0x0017, t01=0x002a}
0x243a…2446 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0058}
0x2446…2450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0064}
0x2450…245e Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x0017, t01=0x006e}
0x245e…2490 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0017, t01=0x007c}
0x2490…24c8 Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x0017, t01=0x00ae}
0x24c8…24da Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0017, t01=0x00e6}
0x24da…24e8 Head {h00=0x000a, h01=0x0050, text=»WO110 «, t00=0x0017, t01=0x00f8}
0x24e8…2530 Head {h00=0x0044, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0017, t01=0x0106}
0x2530…2544 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0017, t01=0x014e}
0x2544…2556 Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x0017, t01=0x0162}
0x2556…2566 Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x0017, t01=0x0174}
0x2566…2580 Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x0017, t01=0x0184}
0x2580…2594 Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x0018, t01=0x000e}
0x2594…25a6 Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x0018, t01=0x0022}
0x25a6…25b2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0034}
0x25b2…25bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0040}
0x25bc…25c8 Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x0018, t01=0x004a}
0x25c8…25ee Head {h00=0x0022, h01=0x0050, text=» TBT TTTSTFLG,WO10«, t00=0x0018, t01=0x0056}
0x25ee…2610 Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0018, t01=0x007c}
0x2610…263e Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x0018, t01=0x009e}
0x263e…265e Head {h00=0x001c, h01=0x0050, text=» PERF GRASPV «, t00=0x0018, t01=0x00cc}
0x265e…2672 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0018, t01=0x00ec}
0x2672…267e Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x0018, t01=0x0100}
0x267e…269c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0018, t01=0x010c}
0x269c…26ce Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0018, t01=0x012a}
0x26ce…26f0 Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x0018, t01=0x015c}
0x26f0…26fe Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0018, t01=0x017e}
0x26fe…2708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018c}
0x2708…272c Head {h00=0x0020, h01=0x0050, text=»* WRITING OF TEXTLINE«, t00=0x0019, t01=0x0008}
0x272c…2752 Head {h00=0x0022, h01=0x0050, text=»* FOR CHECK ON WORKSET «, t00=0x0019, t01=0x002c}
0x2752…275c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0052}
0x275c…276a Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0019, t01=0x005c}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x2774…27b6 Head {h00=0x003e, h01=0x0050, text=»* SEE OLD SUBS LINES 700 - 719«, t00=0x0019, t01=0x0074}
0x27b6…27c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b6}
0x27c0…27ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c0}
0x27ca…27d6 Head {h00=0x0008, h01=0x0050, text=»WO20«, t00=0x0019, t01=0x00ca}
0x27d6…2812 Head {h00=0x0038, h01=0x0050, text=» SUB TTLINNR,=D'2' NEXT LINE«, t00=0x0019, t01=0x00d6}
0x2812…284e Head {h00=0x0038, h01=0x0050, text=» CBL TTLINNR,=D'4',NEWPG NEW PAGE?«, t00=0x0019, t01=0x0112}
0x284e…285e Head {h00=0x000c, h01=0x0050, text=» RET NO«, t00=0x0019, t01=0x014e}
0x285e…2868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015e}
0x2868…2880 Head {h00=0x0014, h01=0x0050, text=»NEWPG NEW PAGE«, t00=0x0019, t01=0x0168}
0x2880…28aa Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x0019, t01=0x0180}
0x28aa…28be Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001a, t01=0x001a}
0x28be…28dc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001a, t01=0x002e}
0x28dc…28fc Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x001a, t01=0x004c}
0x28fc…291a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x001a, t01=0x006c}
0x291a…2934 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x001a, t01=0x008a}
0x2934…2952 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001a, t01=0x00a4}
0x2952…2978 Head {h00=0x0022, h01=0x0050, text=» DSC0 KVOUCH,RLEAS «, t00=0x001a, t01=0x00c2}
0x2978…298e Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x001a, t01=0x00e8}
0x298e…299c Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x001a, t01=0x00fe}
0x299c…29a8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x010c}
0x29a8…29be Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0118}
0x29be…29c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012e}
0x29c8…29d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0138}
0x29d2…29e8 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0142}
0x29e8…29fe Head {h00=0x0012, h01=0x0050, text=»GRASPV PROC «, t00=0x001a, t01=0x0158}
0x29fe…2a1a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001a, t01=0x016e}
0x2a1a…2a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018a}
0x2a24…2a42 (27, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* GRASP VOUCHER«, t00=0x001b, t01=0x0004}
0x2a42…2a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0022}
0x2a4c…2a68 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x002c}
0x2a68…2a7c Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001b, t01=0x0048}
0x2a7c…2aa4 Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x001b, t01=0x005c}
0x2aa4…2ab8 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0084}
0x2ab8…2ace Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0098}
0x2ace…2ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ae}
0x2ad8…2ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b8}
0x2ae2…2af8 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00c2}
0x2af8…2b0e Head {h00=0x0012, h01=0x0050, text=»LINOPT PROC «, t00=0x001b, t01=0x00d8}
0x2b0e…2b2a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x00ee}
0x2b2a…2b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x010a}
0x2b34…2b5e Head {h00=0x0026, h01=0x0050, text=»* CHECK LINE NUMBER, IF ANY«, t00=0x001b, t01=0x0114}
0x2b5e…2b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x013e}
0x2b68…2b84 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x0148}
0x2b84…2ba0 Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x001b, t01=0x0164}
0x2ba0…2bca Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x001b, t01=0x0180}
0x2bca…2be8 Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x001c, t01=0x001a}
0x2be8…2bf6 Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x001c, t01=0x0038}
0x2bf6…2c08 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001c, t01=0x0046}
0x2c08…2c34 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',LINOP0 SLUT KEY «, t00=0x001c, t01=0x0058}
0x2c34…2c6e Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,=W'4',LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x001c, t01=0x0084}
0x2c6e…2c7c Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x001c, t01=0x00be}
0x2c7c…2caa Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH«, t00=0x001c, t01=0x00cc}
0x2caa…2cd4 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x001c, t01=0x00fa}
0x2cd4…2d08 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x001c, t01=0x0124}
0x2d08…2d2e Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x001c, t01=0x0158}
0x2d2e…2d60 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR«, t00=0x001c, t01=0x017e}
0x2d60…2d94 Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x001d, t01=0x0020}
0x2d94…2da2 Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x001d, t01=0x0054}
0x2da2…2dc6 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x001d, t01=0x0062}
0x2dc6…2dd8 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001d, t01=0x0086}
0x2dd8…2de6 Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x001d, t01=0x0098}
0x2de6…2e08 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x001d, t01=0x00a6}
0x2e08…2e2c Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x001d, t01=0x00c8}
0x2e2c…2e4a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001d, t01=0x00ec}
0x2e4a…2e5c Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x001d, t01=0x010a}
0x2e5c…2e6c Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x001d, t01=0x011c}
0x2e6c…2e8a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001d, t01=0x012c}
0x2e8a…2ea8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x001d, t01=0x014a}
0x2ea8…2ebc Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x001d, t01=0x0168}
0x2ebc…2eee Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x001d, t01=0x017c}
0x2eee…2f14 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x001e, t01=0x001e}
0x2f14…2f30 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'0' «, t00=0x001e, t01=0x0044}
0x2f30…2f42 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001e, t01=0x0060}
0x2f42…2f50 Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x001e, t01=0x0072}
0x2f50…2f7a Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x001e, t01=0x0080}
0x2f7a…2f92 Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x001e, t01=0x00aa}
0x2f92…2fbc Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x001e, t01=0x00c2}
0x2fbc…2fd0 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001e, t01=0x00ec}
0x2fd0…2fde Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x001e, t01=0x0100}
0x2fde…2ffc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x001e, t01=0x010e}
0x2ffc…300c Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x001e, t01=0x012c}
0x300c…301a Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x001e, t01=0x013c}
0x301a…303c Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x001e, t01=0x014a}
0x303c…3048 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x016c}
0x3048…305c Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x001e, t01=0x0178}
0x305c…3066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x018c}
0x3066…3074 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0008}
0x3074…309e Head {h00=0x0026, h01=0x0050, text=»WRITID PROC BUF,WRITVAR1,WRITVAR2 «, t00=0x001f, t01=0x0016}
0x309e…30ba Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0040}
0x30ba…30c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x005c}
0x30c4…30fc Head {h00=0x0034, h01=0x0050, text=»* PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x001f, t01=0x0066}
0x30fc…3130 Head {h00=0x0030, h01=0x0050, text=»* PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x001f, t01=0x009e}
0x3130…313a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d2}
0x313a…3168 Head {h00=0x002a, h01=0x0050, text=»* PRINTS ON JOURNAL AND TALLY«, t00=0x001f, t01=0x00dc}
0x3168…3172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010a}
0x3172…317c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0114}
0x317c…3198 Head {h00=0x0018, h01=0x0050, text=»* WRITVAR1:«, t00=0x001f, t01=0x011e}
0x3198…31b8 Head {h00=0x001c, h01=0x0050, text=»* 1 FEJL«, t00=0x001f, t01=0x013a}
0x31b8…31dc Head {h00=0x0020, h01=0x0050, text=»* 2 OPSTART «, t00=0x001f, t01=0x015a}
0x31dc…3206 Head {h00=0x0026, h01=0x0050, text=»* 3 DISKETTE SKIFT«, t00=0x001f, t01=0x017e}
0x3206…322e Head {h00=0x0024, h01=0x0050, text=»* 4 KONVERTERING«, t00=0x0020, t01=0x0018}
0x322e…325a Head {h00=0x0028, h01=0x0050, text=»* 5 DATATRANSMISSION«, t00=0x0020, t01=0x0040}
0x325a…327c Head {h00=0x001e, h01=0x0050, text=»* 6 BACKUP«, t00=0x0020, t01=0x006c}
0x327c…3286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008e}
0x3286…32a2 Head {h00=0x0018, h01=0x0050, text=»* WRITVAR2:«, t00=0x0020, t01=0x0098}
0x32a2…32d8 Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x0020, t01=0x00b4}
0x32d8…3300 Head {h00=0x0024, h01=0x0050, text=»* 1 1-20 + 40-59«, t00=0x0020, t01=0x00ea}
0x3300…333a Head {h00=0x0036, h01=0x0050, text=»* 2 1-20 + 23-42, IF KONVERTERING «, t00=0x0020, t01=0x0112}
0x333a…3378 Head {h00=0x003a, h01=0x0050, text=»* 2 1-20 + VOLID, IF NOT KONVERTERING «, t00=0x0020, t01=0x014c}
0x3378…339c Head {h00=0x0020, h01=0x0050, text=»* 3 NOTHING «, t00=0x0020, t01=0x018a}
0x339c…33be Head {h00=0x001e, h01=0x0050, text=»* 4 VOLID «, t00=0x0021, t01=0x001e}
0x33be…33c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33c8…33d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x004a}
0x33d2…33dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0054}
0x33dc…33f8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x005e}
0x33f8…3402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007a}
0x3402…3416 Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x0021, t01=0x0084}
0x3416…3454 Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x0021, t01=0x0098}
0x3454…3466 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0021, t01=0x00d6}
0x3466…3474 Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x0021, t01=0x00e8}
0x3474…3494 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x0021, t01=0x00f6}
0x3494…34a6 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0021, t01=0x0116}
0x34a6…34b4 Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x0021, t01=0x0128}
0x34b4…34d8 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x0021, t01=0x0136}
0x34d8…34ea Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0021, t01=0x015a}
0x34ea…34f8 Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x0021, t01=0x016c}
0x34f8…351e Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR20,=C'DISK SKIFT '«, t00=0x0021, t01=0x017a}
0x351e…3530 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x0010}
0x3530…353e Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x0022, t01=0x0022}
0x353e…3566 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x0022, t01=0x0030}
0x3566…3578 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x0058}
0x3578…3586 Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x0022, t01=0x006a}
0x3586…35b2 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x0022, t01=0x0078}
0x35b2…35c4 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x00a4}
0x35c4…35d2 Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x0022, t01=0x00b6}
0x35d2…35f4 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x0022, t01=0x00c4}
0x35f4…3606 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x00e6}
0x3606…3614 Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x0022, t01=0x00f8}
0x3614…3630 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0022, t01=0x0106}
0x3630…364c Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID50 «, t00=0x0022, t01=0x0122}
0x364c…3666 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0022, t01=0x013e}
0x3666…367a Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0022, t01=0x0158}
0x367a…3684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x016c}
0x3684…368e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0176}
0x368e…369c Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x0022, t01=0x0180}
0x369c…36b8 Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID51 «, t00=0x0022, t01=0x018e}
0x36b8…36cc Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0023, t01=0x001a}
0x36cc…36da Head {h00=0x000a, h01=0x0050, text=»WRID51«, t00=0x0023, t01=0x002e}
0x36da…36f6 Head {h00=0x0018, h01=0x0050, text=» TBF TBCTASK,WRID55 «, t00=0x0023, t01=0x003c}
0x36f6…3710 Head {h00=0x0016, h01=0x0050, text=» MOVE CPRTBUF,BUF «, t00=0x0023, t01=0x0058}
0x3710…372c Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'13' «, t00=0x0023, t01=0x0072}
0x372c…373e Head {h00=0x000e, h01=0x0050, text=» B WRID90 «, t00=0x0023, t01=0x008e}
0x373e…374c Head {h00=0x000a, h01=0x0050, text=»WRID55«, t00=0x0023, t01=0x00a0}
0x374c…376e Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x0023, t01=0x00ae}
0x376e…3790 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x0023, t01=0x00d0}
0x3790…37aa Head {h00=0x0016, h01=0x0050, text=» MOVE GSWSTR20,BUF«, t00=0x0023, t01=0x00f2}
0x37aa…37c6 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0023, t01=0x010c}
0x37c6…37e8 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID60«, t00=0x0023, t01=0x0128}
0x37e8…3804 Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID60 «, t00=0x0023, t01=0x014a}
0x3804…381e Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0023, t01=0x0166}
0x381e…3832 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0023, t01=0x0180}
0x3832…3846 (36, 0, 400) Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0024, t01=0x0004}
0x3846…3850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0018}
0x3850…385e Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0024, t01=0x0022}
0x385e…3880 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0024, t01=0x0030}
0x3880…389c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0024, t01=0x0052}
0x389c…38b8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0024, t01=0x006e}
0x38b8…38e8 Head {h00=0x002c, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1«, t00=0x0024, t01=0x008a}
0x38e8…38fa Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0024, t01=0x00ba}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00cc}
0x3904…3912 Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0024, t01=0x00d6}
0x3912…3936 Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0024, t01=0x00e4}
0x3936…3952 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0024, t01=0x0108}
0x3952…396e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0024, t01=0x0124}
0x396e…399e Head {h00=0x002c, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1«, t00=0x0024, t01=0x0140}
0x399e…39b0 Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0024, t01=0x0170}
0x39b0…39be Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0024, t01=0x0182}
0x39be…39e0 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0024, t01=0x0190}
0x39e0…39ee Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0025, t01=0x0022}
0x39ee…3a0c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0025, t01=0x0030}
0x3a0c…3a28 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0025, t01=0x004e}
0x3a28…3a46 Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0025, t01=0x006a}
0x3a46…3a54 Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x0025, t01=0x0088}
0x3a54…3a70 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0025, t01=0x0096}
0x3a70…3a9a Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,=W'4',WRID76 1,2,3,6«, t00=0x0025, t01=0x00b2}
0x3a9a…3ac0 Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,=W'6',WRID90 4,5«, t00=0x0025, t01=0x00dc}
0x3ac0…3ace Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x0025, t01=0x0102}
0x3ace…3aea Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID85 «, t00=0x0025, t01=0x0110}
0x3aea…3b04 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0025, t01=0x012c}
0x3b04…3b18 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0025, t01=0x0146}
0x3b18…3b2c Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0025, t01=0x015a}
0x3b2c…3b3e Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x0025, t01=0x016e}
0x3b3e…3b4c Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x0025, t01=0x0180}
0x3b4c…3b6e Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID90«, t00=0x0025, t01=0x018e}
0x3b6e…3b7c Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x0026, t01=0x0020}
0x3b7c…3b98 Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID90 «, t00=0x0026, t01=0x002e}
0x3b98…3bb2 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x0026, t01=0x004a}
0x3bb2…3bc6 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0026, t01=0x0064}
0x3bc6…3bda Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0026, t01=0x0078}
0x3bda…3be8 Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x0026, t01=0x008c}
0x3be8…3bf4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x009a}
0x3bf4…3c02 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x00a6}
0x3c02…3c10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b4}
0x3c10…3c24 Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x0026, t01=0x00c2}
0x3c24…3c4c Head {h00=0x0024, h01=0x0050, text=»* DELETE FIRST 14 CHARACTERS«, t00=0x0026, t01=0x00d6}
0x3c4c…3c64 Head {h00=0x0014, h01=0x0050, text=»* OF LINE 8 «, t00=0x0026, t01=0x00fe}
0x3c64…3c96 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'0801' INDICATE LAST LINE «, t00=0x0026, t01=0x0116}
0x3c96…3cb6 Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x0026, t01=0x0148}
0x3cb6…3cd2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0026, t01=0x0168}
0x3cd2…3d00 Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x0026, t01=0x0184}
0x3d00…3d0e Head {h00=0x000a, h01=0x0050, text=» RET «, t00=0x0027, t01=0x0022}
0x3d0e…3d1c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0030}
0x3d1c…3d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003e}
0x3d26…3d60 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0027, t01=0x0048}
0x3d60…3d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0082}
0x3d6a…3d8c Head {h00=0x001e, h01=0x0050, text=»* FORMATS FOR WRITFD«, t00=0x0027, t01=0x008c}
0x3d8c…3d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ae}
0x3d96…3dd6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0027, t01=0x00b8}
0x3dd6…3de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f8}
0x3de0…3df4 Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0027, t01=0x0102}
0x3df4…3e10 Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0027, t01=0x0116}
0x3e10…3e26 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0027, t01=0x0132}
0x3e26…3e3c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0027, t01=0x0148}
0x3e3c…3e54 Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0027, t01=0x015e}
0x3e54…3e62 Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0027, t01=0x0176}
0x3e62…3e70 Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0027, t01=0x0184}
0x3e70…3e86 (40, 0, 400) Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x0004}
0x3e86…3e9c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x001a}
0x3e9c…3eb2 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0028, t01=0x0030}
0x3eb2…3ec0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0046}
0x3ec0…3eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0054}
0x3eca…3ede Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0028, t01=0x005e}
0x3ede…3efe Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0028, t01=0x0072}
0x3efe…3f1c Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x0028, t01=0x0092}
0x3f1c…3f2a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x00b0}
0x3f2a…3f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00be}
0x3f34…3f46 Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x0028, t01=0x00c8}
0x3f46…3f60 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0028, t01=0x00da}
0x3f60…3f76 Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x0028, t01=0x00f4}
0x3f76…3f90 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x0028, t01=0x010a}
0x3f90…3fae Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0028, t01=0x0124}
0x3fae…3fca Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x0028, t01=0x0142}
0x3fca…3fe4 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x0028, t01=0x015e}
0x3fe4…3ffa Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x0028, t01=0x0178}
0x3ffa…4016 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x0028, t01=0x018e}
0x4016…4032 Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x0029, t01=0x001a}
0x4032…4058 Head {h00=0x0022, h01=0x0050, text=» FBT GTSPECTR,TREC40 TR 50... «, t00=0x0029, t01=0x0036}
0x4058…4074 Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x0029, t01=0x005c}
0x4074…408a Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x0029, t01=0x0078}
0x408a…40a8 Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x0029, t01=0x008e}
0x40a8…40b6 Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x0029, t01=0x00ac}
0x40b6…40cc Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x0029, t01=0x00ba}
0x40cc…40e6 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0029, t01=0x00d0}
0x40e6…4102 Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x0029, t01=0x00ea}
0x4102…4118 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x0029, t01=0x0106}
0x4118…4134 Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x0029, t01=0x011c}
0x4134…4142 Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x0029, t01=0x0138}
0x4142…4150 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x0146}
0x4150…415a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0154}
0x415a…416c Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x0029, t01=0x015e}
0x416c…4180 Head {h00=0x0010, h01=0x0050, text=» FCOPY =C'&'«, t00=0x0029, t01=0x0170}
0x4180…419a Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x0029, t01=0x0184}
0x419a…41b6 Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x002a, t01=0x000e}
0x41b6…41e6 Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x002a, t01=0x002a}
0x41e6…41f4 Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x002a, t01=0x005a}
0x41f4…4202 Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x002a, t01=0x0068}
0x4202…4230 Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x002a, t01=0x0076}
0x4230…423e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002a, t01=0x00a4}
0x423e…4252 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x002a, t01=0x00b2}
0x4252…4256 Head {h00=0x4004, h01=0x0000}
0x4256…425a 00 2a 00 c6 ┆ * ┆
0x425a…4262 (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x4262…42b2 (44, 0, 400) 54 54 2e 54 54 58 2e 58 58 2d 54 54 54 54 54 54 54 56 54 54 58 2c 58 58 2d 5a 2e 5a 5a 5a 2e 5a 5a 58 2e 58 58 45 2d 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 5a 5a 2d 39 39 39 45 2d 39 39 39 39 39 ┆TT.TTX.XX-TTTTTTTVTTX,XX-Z.ZZZ.ZZX.XXE-BZZZ.ZZZ.ZZ9.99-ZZZ.ZZZ.ZZ9.ZZ-999E-99999┆
0x42b2…4302 45 2d 39 39 42 42 42 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2d 42 42 58 45 2d 58 58 45 2d 58 58 45 2d 58 58 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2c 39 39 2b 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 2a 2e 2a 2a 2a 2e 2a 2a ┆E-99BBB***.***.**9.99-BBXE-XXE-XXE-XXB*.***.***.**9,99+*.***.***.**9.99+*.***.**┆
0x4302…4352 2a 2e 2a 2a 39 2e 39 39 2d 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 42 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2d 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 45 2c 39 39 ┆*.**9.99-Z.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9.99-B*.***.***.**9E,99┆
0x4352…43a2 42 39 39 39 45 2d 39 39 39 45 2d 39 39 45 2d 39 39 42 42 42 5a 5a 5a 45 2d 5a 5a 5a 45 2d 5a 5a 45 2d 5a 5a 54 54 54 2e 54 54 54 2e 54 54 54 2e 54 54 39 2e 39 39 2d 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 42 54 54 54 2e 54 ┆B999E-999E-99E-99BBBZZZE-ZZZE-ZZE-ZZTTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99-BTTT.T┆
0x43a2…43f2 54 54 2e 54 54 54 2e 54 54 39 2e 39 39 2d 42 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 01 90 08 83 87 81 82 89 8a 8b a0 18 c7 d1 ff d0 ff d5 cb c3 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆TT.TTT.TT9.99-BBZZZ.ZZZ.ZZZ.ZZ9.99- ┆