|
|
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: 17320 (0x43a8)
Notes: pts_type(SC)
Names: »KMDIO.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/KMDIO.SC«
IDENT KMDIO 840203 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
EXT WRITLO
EXT WAITF
INCLUDE EQUATE
*
WRITFD PROC
TBF CSKIFTWN,WRFD00
PERF ADM,CBIN12 DISKETTE SKIFT
TBF CSKIFTWN,WRFD00
CMP CBIN1,CBIN0
RET
WRFD00
PERF WAITF,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,=D'2'
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
JT03
TBF CSPOOL,JT04
TBT TSPOOL,JT05
JT04
PERF FRMTJT GET FORMAT ACORDING TO TYPE
B JT20
JT05
PERF WRITLO,CBIN0
BNOK JT03
MOVE GSWBIN1,TTCNTNR
B JTRET
JT10
GET SPECIAL FORMAT
TBT TBCTASK,JT15
PERF FRMXJT,GSWBIN1 FOR JOURNAL
B JT20
JT15
PERF FRMXBC,GSWBIN1 FOR COPY 80
JT20
WAIT KJTAPE
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
*
********************
TBT TSPOOL,CRKJRET
EDWRT .NW,KJTAPE,CRJTFMT
CRKJRET
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'
PERF WRITLO,CBIN6
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'
PERF WRITLO,CBIN6
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'
PERF WRITLO,CBIN6
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 840203 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…02a4 Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0001, t01=0x0106}
0x02a4…02b6 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x011a}
0x02b6…02d6 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x012c}
0x02d6…02e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e0…02f4 Head {h00=0x0010, h01=0x0050, text=»WRITFD PROC «, t00=0x0001, t01=0x0156}
0x02f4…0310 Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x016a}
0x0310…0338 Head {h00=0x0024, h01=0x0050, text=» PERF ADM,CBIN12 DISKETTE SKIFT «, t00=0x0001, t01=0x0186}
0x0338…0354 Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0002, t01=0x001e}
0x0354…036c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0002, t01=0x003a}
0x036c…0378 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0052}
0x0378…0386 Head {h00=0x000a, h01=0x0050, text=»WRFD00«, t00=0x0002, t01=0x005e}
0x0386…03a0 Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CPFLG «, t00=0x0002, t01=0x006c}
0x03a0…03b8 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0002, t01=0x0086}
0x03b8…03ea Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0002, t01=0x009e}
0x03ea…03fe Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0002, t01=0x00d0}
0x03fe…041a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0002, t01=0x00e4}
0x041a…044c Head {h00=0x002e, h01=0x0050, text=» MOVE GTWBCD1,=D'0' TR 50.., RATE COUNTER «, t00=0x0002, t01=0x0100}
0x044c…045c Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0002, t01=0x0132}
0x045c…0470 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0142}
0x0470…0494 Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0002, t01=0x0156}
0x0494…04aa Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0002, t01=0x017a}
0x04aa…04ba Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0002, t01=0x0190}
0x04ba…04d8 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0003, t01=0x0010}
0x04d8…0506 Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0003, t01=0x002e}
0x0506…0522 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0003, t01=0x005c}
0x0522…0540 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x0078}
0x0540…055c Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0003, t01=0x0096}
0x055c…0596 Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0003, t01=0x00b2}
0x0596…05b4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x00ec}
0x05b4…05ce Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0003, t01=0x010a}
0x05ce…05fc Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0003, t01=0x0124}
0x05fc…0620 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0003, t01=0x0152}
0x0620…0650 Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0003, t01=0x0176}
0x0650…0660 Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0004, t01=0x0016}
0x0660…0688 Head {h00=0x0024, h01=0x0050, text=» TBF GTSPECTR,WRFD024 TR 50... ?«, t00=0x0004, t01=0x0026}
0x0688…06c2 Head {h00=0x0036, h01=0x0050, text=» CBNE GSWBIN5,=W'6',WRFD024 YES, AFTER FIELD 39/47«, t00=0x0004, t01=0x004e}
0x06c2…06e0 Head {h00=0x001a, h01=0x0050, text=» ADD GTWBCD1,=D'1' YES«, t00=0x0004, t01=0x0088}
0x06e0…0714 Head {h00=0x0030, h01=0x0050, text=» CBNL GTWBCD1,GTRTANT,WRFD022 MORE 'RATE' ? «, t00=0x0004, t01=0x00a6}
0x0714…0748 Head {h00=0x0030, h01=0x0050, text=» ADD GTDUPF(CBIN4),=D'1' YES SET NEXT 'RATE'«, t00=0x0004, t01=0x00da}
0x0748…0776 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN5,CBIN3 READY FOR NEXT RATE«, t00=0x0004, t01=0x010e}
0x0776…0788 Head {h00=0x000e, h01=0x0050, text=» B WRFD024«, t00=0x0004, t01=0x013c}
0x0788…07a8 Head {h00=0x001c, h01=0x0050, text=»WRFD022 CORRECT RATE ?«, t00=0x0004, t01=0x014e}
0x07a8…07c2 Head {h00=0x0016, h01=0x0050, text=» SUB GTWBCD1,=D'1'«, t00=0x0004, t01=0x016e}
0x07c2…07e4 Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN4),GTWBCD1«, t00=0x0004, t01=0x0188}
0x07e4…07f4 Head {h00=0x000c, h01=0x0050, text=»WRFD024 «, t00=0x0005, t01=0x001a}
0x07f4…080e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0005, t01=0x002a}
0x080e…0834 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0005, t01=0x0044}
0x0834…086c Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0005, t01=0x006a}
0x086c…088e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=X'00' YES «, t00=0x0005, t01=0x00a2}
0x088e…08bc Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0005, t01=0x00c4}
0x08bc…08d8 Head {h00=0x0018, h01=0x0050, text=» EDIT GSWSTR20,PFRM1«, t00=0x0005, t01=0x00f2}
0x08d8…08e8 Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0005, t01=0x010e}
0x08e8…0904 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0005, t01=0x011e}
0x0904…092c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0005, t01=0x013a}
0x092c…0966 Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN6,CBIN16,GSWSTR1,CBIN0,CBIN1«, t00=0x0005, t01=0x0162}
0x0966…097e Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0006, t01=0x000c}
0x097e…09ae Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0006, t01=0x0024}
0x09ae…09e6 Head {h00=0x0034, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO «, t00=0x0006, t01=0x0054}
0x09e6…0a02 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0006, t01=0x008c}
0x0a02…0a2e Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0006, t01=0x00a8}
0x0a2e…0a4c Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0006, t01=0x00d4}
0x0a4c…0a5c Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0006, t01=0x00f2}
0x0a5c…0a90 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,GSWSTR20,CBIN0«, t00=0x0006, t01=0x0102}
0x0a90…0abe Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0006, t01=0x0136}
0x0abe…0ada Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0006, t01=0x0164}
0x0ada…0b0c Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0006, t01=0x0180}
0x0b0c…0b32 Head {h00=0x0022, h01=0x0050, text=» DLETE GSWSTR20,CBIN0,GSWBIN4 «, t00=0x0007, t01=0x0022}
0x0b32…0b48 Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0007, t01=0x0048}
0x0b48…0b76 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x005e}
0x0b76…0b8c Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x008c}
0x0b8c…0baa Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0007, t01=0x00a2}
0x0baa…0bc4 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x00c0}
0x0bc4…0bde Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0007, t01=0x00da}
0x0bde…0bf8 Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0007, t01=0x00f4}
0x0bf8…0c1c Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0007, t01=0x010e}
0x0c1c…0c2c Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0007, t01=0x0132}
0x0c2c…0c48 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0007, t01=0x0142}
0x0c48…0c7a Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0007, t01=0x015e}
0x0c7a…0ca8 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x0190}
0x0ca8…0cbe Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x002e}
0x0cbe…0cdc Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0008, t01=0x0044}
0x0cdc…0cf6 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0008, t01=0x0062}
0x0cf6…0d10 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0008, t01=0x007c}
0x0d10…0d2a Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0008, t01=0x0096}
0x0d2a…0d50 Head {h00=0x0022, h01=0x0050, text=» PERF RADEL,DK02,CRECNR,=D'2' «, t00=0x0008, t01=0x00b0}
0x0d50…0d66 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x00d6}
0x0d66…0d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ec}
0x0d70…0d94 Head {h00=0x0020, h01=0x0050, text=»* LOOK FOR ACCOUNT NO«, t00=0x0008, t01=0x00f6}
0x0d94…0dbc Head {h00=0x0024, h01=0x0050, text=»* IN KONTOPLAN. IF FOUND,«, t00=0x0008, t01=0x011a}
0x0dbc…0dde Head {h00=0x001e, h01=0x0050, text=»* SET FLAG GTKORTFL«, t00=0x0008, t01=0x0142}
0x0dde…0de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0164}
0x0de8…0e0c Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0008, t01=0x016e}
0x0e0c…0e16 (9, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e16…0e54 Head {h00=0x003a, h01=0x0050, text=»* HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' «, t00=0x0009, t01=0x000e}
0x0e54…0e76 Head {h00=0x001e, h01=0x0050, text=»WRFD075 DISK N[STEN FULD«, t00=0x0009, t01=0x004c}
0x0e76…0e8a Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0009, t01=0x006e}
0x0e8a…0ea2 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x0082}
0x0ea2…0ebe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x009a}
0x0ebe…0ee4 Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'02' FILE CODE«, t00=0x0009, t01=0x00b6}
0x0ee4…0f0c Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x0009, t01=0x00dc}
0x0f0c…0f30 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x0104}
0x0f30…0f44 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0128}
0x0f44…0f5c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x013c}
0x0f5c…0f68 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0154}
0x0f68…0f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0160}
0x0f72…0f82 Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x0009, t01=0x016a}
0x0f82…0f9a Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x017a}
0x0f9a…0fae (10, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000a, t01=0x0004}
0x0fae…0fd4 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000a, t01=0x0018}
0x0fd4…0fe0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x003e}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004a}
0x0fea…0ffa Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x000a, t01=0x0054}
0x0ffa…1004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0064}
0x1004…102a Head {h00=0x0022, h01=0x0050, text=»* HERE MUST BEE RECOVERRY «, t00=0x000a, t01=0x006e}
0x102a…1046 Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x000a, t01=0x0094}
0x1046…1064 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x000a, t01=0x00b0}
0x1064…1080 Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x000a, t01=0x00ce}
0x1080…1096 Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x000a, t01=0x00ea}
0x1096…10aa Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000a, t01=0x0100}
0x10aa…10c0 Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000a, t01=0x0114}
0x10c0…10e4 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x000a, t01=0x012a}
0x10e4…10f0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x014e}
0x10f0…10fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x015a}
0x10fe…110c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0168}
0x110c…1140 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000a, t01=0x0176}
0x1140…114a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x114a…115e Head {h00=0x0010, h01=0x0050, text=»* EDATNR«, t00=0x000b, t01=0x0024}
0x115e…1196 Head {h00=0x0034, h01=0x0050, text=»* FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000b, t01=0x0038}
0x1196…11d4 Head {h00=0x003a, h01=0x0050, text=»* AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000b, t01=0x0070}
0x11d4…11de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ae}
0x11de…1216 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000b, t01=0x00b8}
0x1216…122a Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000b, t01=0x00f0}
0x122a…1242 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000b, t01=0x0104}
0x1242…1266 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000b, t01=0x011c}
0x1266…1282 Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000b, t01=0x0140}
0x1282…12a6 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000b, t01=0x015c}
0x12a6…12d8 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000b, t01=0x0180}
0x12d8…12fc Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000c, t01=0x0022}
0x12fc…130c Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000c, t01=0x0046}
0x130c…1330 Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000c, t01=0x0056}
0x1330…1346 Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000c, t01=0x007a}
0x1346…1356 Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000c, t01=0x0090}
0x1356…1362 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x00a0}
0x1362…1372 Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000c, t01=0x00ac}
0x1372…1396 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000c, t01=0x00bc}
0x1396…13ba Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000c, t01=0x00e0}
0x13ba…13cc Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000c, t01=0x0104}
0x13cc…13dc Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000c, t01=0x0116}
0x13dc…1400 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000c, t01=0x0126}
0x1400…1424 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000c, t01=0x014a}
0x1424…1436 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000c, t01=0x016e}
0x1436…1446 Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x000c, t01=0x0180}
0x1446…146a Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x000c, t01=0x0190}
0x146a…148e Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x000d, t01=0x0024}
0x148e…14a0 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x0048}
0x14a0…14b0 Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x000d, t01=0x005a}
0x14b0…14d4 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x000d, t01=0x006a}
0x14d4…14e6 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x008e}
0x14e6…14f4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00a0}
0x14f4…1502 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00ae}
0x1502…150c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00bc}
0x150c…1516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c6}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=»WCHECK PROC «, t00=0x000d, t01=0x00d0}
0x152a…1536 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00e4}
0x1536…1544 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00f0}
0x1544…1552 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00fe}
0x1552…1570 Head {h00=0x001a, h01=0x0050, text=»WRITJT PROC $JTLIT «, t00=0x000d, t01=0x010c}
0x1570…1584 Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x000d, t01=0x012a}
0x1584…15a0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x013e}
0x15a0…15aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15aa…15e4 Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x000d, t01=0x0164}
0x15e4…1612 Head {h00=0x002a, h01=0x0050, text=»* DEPENDING ON TRANSACTION TYPE«, t00=0x000e, t01=0x000e}
0x1612…161c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003c}
0x161c…1638 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0046}
0x1638…1652 Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JT01 «, t00=0x000e, t01=0x0062}
0x1652…1666 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000e, t01=0x007c}
0x1666…167a Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000e, t01=0x0090}
0x167a…1686 Head {h00=0x0008, h01=0x0050, text=»JT01«, t00=0x000e, t01=0x00a4}
0x1686…16a2 Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x000e, t01=0x00b0}
0x16a2…16c8 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,$JTLIT «, t00=0x000e, t01=0x00cc}
0x16c8…16f2 Head {h00=0x0026, h01=0x0050, text=» CBG GSWBIN1,CBIN0,JT10 «, t00=0x000e, t01=0x00f2}
0x16f2…16fa Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x011c}
0x16fa…1706 Head {h00=0x0008, h01=0x0050, text=»JT03«, t00=0x000e, t01=0x0124}
0x1706…171e Head {h00=0x0014, h01=0x0050, text=» TBF CSPOOL,JT04«, t00=0x000e, t01=0x0130}
0x171e…1736 Head {h00=0x0014, h01=0x0050, text=» TBT TSPOOL,JT05«, t00=0x000e, t01=0x0148}
0x1736…1742 Head {h00=0x0008, h01=0x0050, text=»JT04«, t00=0x000e, t01=0x0160}
0x1742…178c Head {h00=0x0046, h01=0x0050, text=» PERF FRMTJT GET FORMAT ACORDING TO TYPE«, t00=0x000e, t01=0x016c}
0x178c…17a8 Head {h00=0x0018, h01=0x0050, text=» B JT20 «, t00=0x000f, t01=0x0026}
0x17a8…17b0 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0042}
0x17b0…17bc Head {h00=0x0008, h01=0x0050, text=»JT05«, t00=0x000f, t01=0x004a}
0x17bc…17d6 Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN0«, t00=0x000f, t01=0x0056}
0x17d6…17e8 Head {h00=0x000e, h01=0x0050, text=» BNOK JT03«, t00=0x000f, t01=0x0070}
0x17e8…1806 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR «, t00=0x000f, t01=0x0082}
0x1806…1816 Head {h00=0x000c, h01=0x0050, text=» B JTRET«, t00=0x000f, t01=0x00a0}
0x1816…181e Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00b0}
0x181e…182a Head {h00=0x0008, h01=0x0050, text=»JT10«, t00=0x000f, t01=0x00b8}
0x182a…1848 Head {h00=0x001a, h01=0x0050, text=» GET SPECIAL FORMAT «, t00=0x000f, t01=0x00c4}
0x1848…1862 Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JT15 «, t00=0x000f, t01=0x00e2}
0x1862…188a Head {h00=0x0024, h01=0x0050, text=» PERF FRMXJT,GSWBIN1 FOR JOURNAL«, t00=0x000f, t01=0x00fc}
0x188a…189a Head {h00=0x000c, h01=0x0050, text=» B JT20 «, t00=0x000f, t01=0x0124}
0x189a…18a6 Head {h00=0x0008, h01=0x0050, text=»JT15«, t00=0x000f, t01=0x0134}
0x18a6…18ce Head {h00=0x0024, h01=0x0050, text=» PERF FRMXBC,GSWBIN1 FOR COPY 80«, t00=0x000f, t01=0x0140}
0x18ce…18da Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x000f, t01=0x0168}
0x18da…18ee Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x000f, t01=0x0174}
0x18ee…1922 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x000f, t01=0x0188}
0x1922…193c Head {h00=0x0016, h01=0x0050, text=» TBT GTNWFLG,JT50 «, t00=0x0010, t01=0x002c}
0x193c…1968 Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x0010, t01=0x0046}
0x1968…1972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1972…19a4 Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x0010, t01=0x007c}
0x19a4…19c0 Head {h00=0x0018, h01=0x0050, text=» BOK JTRET«, t00=0x0010, t01=0x00ae}
0x19c0…19da Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JTRET«, t00=0x0010, t01=0x00ca}
0x19da…1a0a Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x0010, t01=0x00e4}
0x1a0a…1a1e Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x0010, t01=0x0114}
0x1a1e…1a2c Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x0010, t01=0x0128}
0x1a2c…1a38 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0136}
0x1a38…1a44 Head {h00=0x0008, h01=0x0050, text=»JT50«, t00=0x0010, t01=0x0142}
0x1a44…1a66 Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KJTAPE,GTSTRFMT«, t00=0x0010, t01=0x014e}
0x1a66…1a72 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0170}
0x1a72…1a88 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x017c}
0x1a88…1a9e (17, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0004}
0x1a9e…1ab4 Head {h00=0x0012, h01=0x0050, text=»WTALLY PROC «, t00=0x0011, t01=0x001a}
0x1ab4…1ad0 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0011, t01=0x0030}
0x1ad0…1ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004c}
0x1ada…1afc Head {h00=0x001e, h01=0x0050, text=»* WRITE TALLY ROLL «, t00=0x0011, t01=0x0056}
0x1afc…1b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0078}
0x1b06…1b22 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0082}
0x1b22…1b36 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0011, t01=0x009e}
0x1b36…1b4a Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0011, t01=0x00b2}
0x1b4a…1b96 Head {h00=0x0048, h01=0x0050, text=» EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORMAT«, t00=0x0011, t01=0x00c6}
0x1b96…1bb6 Head {h00=0x001c, h01=0x0050, text=» RET STORED IN GTSTRFMT«, t00=0x0011, t01=0x0112}
0x1bb6…1bca Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x0011, t01=0x0132}
0x1bca…1bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0146}
0x1bd4…1bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1bde…1bf4 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x015a}
0x1bf4…1c0a Head {h00=0x0012, h01=0x0050, text=»CRKJ PROC «, t00=0x0011, t01=0x0170}
0x1c0a…1c26 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0186}
0x1c26…1c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0012}
0x1c30…1c6c Head {h00=0x0038, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x0012, t01=0x001c}
0x1c6c…1c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0058}
0x1c76…1c92 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0062}
0x1c92…1c9a Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x007e}
0x1c9a…1cb6 Head {h00=0x0018, h01=0x0050, text=» TBT TSPOOL,CRKJRET «, t00=0x0012, t01=0x0086}
0x1cb6…1cbe Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00a2}
0x1cbe…1cea Head {h00=0x0028, h01=0x0050, text=» EDWRT .NW,KJTAPE,CRJTFMT «, t00=0x0012, t01=0x00aa}
0x1cea…1cf2 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00d6}
0x1cf2…1d02 Head {h00=0x000c, h01=0x0050, text=»CRKJRET «, t00=0x0012, t01=0x00de}
0x1d02…1d0a Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00ee}
0x1d0a…1d1e Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00f6}
0x1d1e…1d26 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x010a}
0x1d26…1d2e Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0112}
0x1d2e…1d42 Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x0012, t01=0x011a}
0x1d42…1d60 Head {h00=0x001a, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x012e}
0x1d60…1d76 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x0012, t01=0x014c}
0x1d76…1d8c Head {h00=0x0012, h01=0x0050, text=» FMEND «, t00=0x0012, t01=0x0162}
0x1d8c…1da2 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0178}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018e}
0x1dac…1db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0008}
0x1db6…1dc8 Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x0013, t01=0x0012}
0x1dc8…1de4 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0013, t01=0x0024}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0040}
0x1dee…1e2c Head {h00=0x003a, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x0013, t01=0x004a}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0088}
0x1e36…1e52 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x0092}
0x1e52…1e70 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x0013, t01=0x00ae}
0x1e70…1e7c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x00cc}
0x1e7c…1e90 Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x0013, t01=0x00d8}
0x1e90…1ea4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0013, t01=0x00ec}
0x1ea4…1eba Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x0013, t01=0x0100}
0x1eba…1ec8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0013, t01=0x0116}
0x1ec8…1ed6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x0124}
0x1ed6…1ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0132}
0x1ee0…1eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013c}
0x1eea…1f00 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0146}
0x1f00…1f14 Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0013, t01=0x015c}
0x1f14…1f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0170}
0x1f1e…1f3c Head {h00=0x001a, h01=0x0050, text=»* WRITE VOUCHER«, t00=0x0013, t01=0x017a}
0x1f3c…1f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0008}
0x1f46…1f74 Head {h00=0x002a, h01=0x0050, text=»* IN CYCLE POSITION AND WRITE «, t00=0x0014, t01=0x0012}
0x1f74…1fa0 Head {h00=0x0028, h01=0x0050, text=»* (MAY BE NEW PAGE)«, t00=0x0014, t01=0x0040}
0x1fa0…1faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006c}
0x1faa…1fd2 Head {h00=0x0024, h01=0x0050, text=»* NOT CYCLE GET LINE NR «, t00=0x0014, t01=0x0076}
0x1fd2…1ffe Head {h00=0x0028, h01=0x0050, text=»* POSITION VOUCHER «, t00=0x0014, t01=0x009e}
0x1ffe…201e Head {h00=0x001c, h01=0x0050, text=»* WRITE«, t00=0x0014, t01=0x00ca}
0x201e…204c Head {h00=0x002a, h01=0x0050, text=»* AND RELEASE VOUCHER«, t00=0x0014, t01=0x00ea}
0x204c…2056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0118}
0x2056…2072 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x0122}
0x2072…209a Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,CYVOUCH«, t00=0x0014, t01=0x013e}
0x209a…20b0 Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0014, t01=0x0166}
0x20b0…20c0 Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0014, t01=0x017c}
0x20c0…20ec Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0014, t01=0x018c}
0x20ec…2108 Head {h00=0x0018, h01=0x0050, text=» PERF GRASPV«, t00=0x0015, t01=0x0028}
0x2108…2120 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0015, t01=0x0044}
0x2120…2148 Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x0015, t01=0x005c}
0x2148…2168 Head {h00=0x001c, h01=0x0050, text=» BNOK WOBILAG«, t00=0x0015, t01=0x0084}
0x2168…2188 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x0015, t01=0x00a4}
0x2188…21a6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0015, t01=0x00c4}
0x21a6…21b6 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x00e2}
0x21b6…21d8 Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x0015, t01=0x00f2}
0x21d8…21f4 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0015, t01=0x0114}
0x21f4…220c Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2, C «, t00=0x0015, t01=0x0130}
0x220c…2232 Head {h00=0x0022, h01=0x0050, text=» WO99,WO98,WO97,WO96,WO95, C«, t00=0x0015, t01=0x0148}
0x2232…2250 Head {h00=0x001a, h01=0x0050, text=» WO94,WO93,WO92,WO91 «, t00=0x0015, t01=0x016e}
0x2250…225c Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x0015, t01=0x018c}
0x225c…2276 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x0016, t01=0x0008}
0x2276…2292 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0016, t01=0x0022}
0x2292…22a2 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0016, t01=0x003e}
0x22a2…22ae Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x0016, t01=0x004e}
0x22ae…22c8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x0016, t01=0x005a}
0x22c8…22e4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0016, t01=0x0074}
0x22e4…22f4 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0016, t01=0x0090}
0x22f4…2300 Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x0016, t01=0x00a0}
0x2300…231a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x0016, t01=0x00ac}
0x231a…2336 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0016, t01=0x00c6}
0x2336…2346 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0016, t01=0x00e2}
0x2346…2352 Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x0016, t01=0x00f2}
0x2352…236e Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x0016, t01=0x00fe}
0x236e…238a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x0016, t01=0x011a}
0x238a…239a Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0016, t01=0x0136}
0x239a…23a6 Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x0016, t01=0x0146}
0x23a6…23b2 Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x0016, t01=0x0152}
0x23b2…23be Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x0016, t01=0x015e}
0x23be…23d8 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0016, t01=0x016a}
0x23d8…23ea Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x0016, t01=0x0184}
0x23ea…2406 Head {h00=0x0018, h01=0x0050, text=»WO92 SHORT 'BILAG'«, t00=0x0017, t01=0x0008}
0x2406…2426 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x0017, t01=0x0024}
0x2426…243a Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0017, t01=0x0044}
0x243a…2450 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x0017, t01=0x0058}
0x2450…2464 Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0017, t01=0x006e}
0x2464…2476 Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x0017, t01=0x0082}
0x2476…2496 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x0017, t01=0x0094}
0x2496…24b4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0017, t01=0x00b4}
0x24b4…24cc Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0017, t01=0x00d2}
0x24cc…24e8 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x0017, t01=0x00ea}
0x24e8…24f8 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0017, t01=0x0106}
0x24f8…2504 Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x0017, t01=0x0116}
0x2504…2532 Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,=W'3' INDICATE KONTOKORT«, t00=0x0017, t01=0x0122}
0x2532…253e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0150}
0x253e…2548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015c}
0x2548…2556 Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x0017, t01=0x0166}
0x2556…2588 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0017, t01=0x0174}
0x2588…25c0 Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x0018, t01=0x0016}
0x25c0…25d2 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0018, t01=0x004e}
0x25d2…25e0 Head {h00=0x000a, h01=0x0050, text=»WO110 «, t00=0x0018, t01=0x0060}
0x25e0…2628 Head {h00=0x0044, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0018, t01=0x006e}
0x2628…263c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00b6}
0x263c…264e Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x0018, t01=0x00ca}
0x264e…265e Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x0018, t01=0x00dc}
0x265e…2678 Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x0018, t01=0x00ec}
0x2678…268c Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x0018, t01=0x0106}
0x268c…269e Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x0018, t01=0x011a}
0x269e…26aa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x012c}
0x26aa…26b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0138}
0x26b4…26c0 Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x0018, t01=0x0142}
0x26c0…26e6 Head {h00=0x0022, h01=0x0050, text=» TBT TTTSTFLG,WO10«, t00=0x0018, t01=0x014e}
0x26e6…2708 Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0018, t01=0x0174}
0x2708…2736 Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x0019, t01=0x0008}
0x2736…2756 Head {h00=0x001c, h01=0x0050, text=» PERF GRASPV «, t00=0x0019, t01=0x0036}
0x2756…276a Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0019, t01=0x0056}
0x276a…2776 Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x0019, t01=0x006a}
0x2776…2794 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0019, t01=0x0076}
0x2794…27c6 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0019, t01=0x0094}
0x27c6…27e8 Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x0019, t01=0x00c6}
0x27e8…27f6 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0019, t01=0x00e8}
0x27f6…2800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f6}
0x2800…2824 Head {h00=0x0020, h01=0x0050, text=»* WRITING OF TEXTLINE«, t00=0x0019, t01=0x0100}
0x2824…284a Head {h00=0x0022, h01=0x0050, text=»* FOR CHECK ON WORKSET «, t00=0x0019, t01=0x0124}
0x284a…2854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014a}
0x2854…2862 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0019, t01=0x0154}
0x2862…286c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0162}
0x286c…28ae Head {h00=0x003e, h01=0x0050, text=»* SEE OLD SUBS LINES 700 - 719«, t00=0x0019, t01=0x016c}
0x28ae…28b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001e}
0x28b8…28c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28c2…28ce Head {h00=0x0008, h01=0x0050, text=»WO20«, t00=0x001a, t01=0x0032}
0x28ce…290a Head {h00=0x0038, h01=0x0050, text=» SUB TTLINNR,=D'2' NEXT LINE«, t00=0x001a, t01=0x003e}
0x290a…2946 Head {h00=0x0038, h01=0x0050, text=» CBL TTLINNR,=D'4',NEWPG NEW PAGE?«, t00=0x001a, t01=0x007a}
0x2946…2956 Head {h00=0x000c, h01=0x0050, text=» RET NO«, t00=0x001a, t01=0x00b6}
0x2956…2960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c6}
0x2960…2978 Head {h00=0x0014, h01=0x0050, text=»NEWPG NEW PAGE«, t00=0x001a, t01=0x00d0}
0x2978…29a2 Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x001a, t01=0x00e8}
0x29a2…29b6 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001a, t01=0x0112}
0x29b6…29d4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001a, t01=0x0126}
0x29d4…29f4 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x001a, t01=0x0144}
0x29f4…2a12 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x001a, t01=0x0164}
0x2a12…2a2c Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x001a, t01=0x0182}
0x2a2c…2a4a Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001b, t01=0x000c}
0x2a4a…2a70 Head {h00=0x0022, h01=0x0050, text=» DSC0 KVOUCH,RLEAS «, t00=0x001b, t01=0x002a}
0x2a70…2a86 Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x001b, t01=0x0050}
0x2a86…2a94 Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x001b, t01=0x0066}
0x2a94…2aa0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0074}
0x2aa0…2ab6 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0080}
0x2ab6…2ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0096}
0x2ac0…2aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a0}
0x2aca…2ae0 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00aa}
0x2ae0…2af6 Head {h00=0x0012, h01=0x0050, text=»GRASPV PROC «, t00=0x001b, t01=0x00c0}
0x2af6…2b12 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x00d6}
0x2b12…2b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b1c…2b3a Head {h00=0x001a, h01=0x0050, text=»* GRASP VOUCHER«, t00=0x001b, t01=0x00fc}
0x2b3a…2b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x011a}
0x2b44…2b60 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x0124}
0x2b60…2b74 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001b, t01=0x0140}
0x2b74…2b9c Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x001b, t01=0x0154}
0x2b9c…2bb0 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x017c}
0x2bb0…2bc6 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0190}
0x2bc6…2bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0016}
0x2bd0…2bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0020}
0x2bda…2bf0 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x002a}
0x2bf0…2c06 Head {h00=0x0012, h01=0x0050, text=»LINOPT PROC «, t00=0x001c, t01=0x0040}
0x2c06…2c22 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0056}
0x2c22…2c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0072}
0x2c2c…2c56 Head {h00=0x0026, h01=0x0050, text=»* CHECK LINE NUMBER, IF ANY«, t00=0x001c, t01=0x007c}
0x2c56…2c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a6}
0x2c60…2c7c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x00b0}
0x2c7c…2c98 Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x001c, t01=0x00cc}
0x2c98…2cc2 Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x001c, t01=0x00e8}
0x2cc2…2ce0 Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x001c, t01=0x0112}
0x2ce0…2cee Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x001c, t01=0x0130}
0x2cee…2d00 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001c, t01=0x013e}
0x2d00…2d2c Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',LINOP0 SLUT KEY «, t00=0x001c, t01=0x0150}
0x2d2c…2d66 Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,=W'4',LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x001c, t01=0x017c}
0x2d66…2d74 Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x001d, t01=0x0026}
0x2d74…2da2 Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH«, t00=0x001d, t01=0x0034}
0x2da2…2dcc Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x001d, t01=0x0062}
0x2dcc…2e00 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x001d, t01=0x008c}
0x2e00…2e26 Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x001d, t01=0x00c0}
0x2e26…2e58 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR«, t00=0x001d, t01=0x00e6}
0x2e58…2e8c Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x001d, t01=0x0118}
0x2e8c…2e9a Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x001d, t01=0x014c}
0x2e9a…2ebe Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x001d, t01=0x015a}
0x2ebe…2ed0 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001d, t01=0x017e}
0x2ed0…2ede Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x001d, t01=0x0190}
0x2ede…2f00 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x001e, t01=0x000e}
0x2f00…2f24 Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x001e, t01=0x0030}
0x2f24…2f42 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001e, t01=0x0054}
0x2f42…2f54 Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x001e, t01=0x0072}
0x2f54…2f64 Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x001e, t01=0x0084}
0x2f64…2f82 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001e, t01=0x0094}
0x2f82…2fa0 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x001e, t01=0x00b2}
0x2fa0…2fb4 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x001e, t01=0x00d0}
0x2fb4…2fe6 Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x001e, t01=0x00e4}
0x2fe6…300c Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x001e, t01=0x0116}
0x300c…3028 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'0' «, t00=0x001e, t01=0x013c}
0x3028…303a Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001e, t01=0x0158}
0x303a…3048 Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x001e, t01=0x016a}
0x3048…3072 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x001e, t01=0x0178}
0x3072…308a Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x001f, t01=0x0012}
0x308a…30b4 Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x001f, t01=0x002a}
0x30b4…30c8 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001f, t01=0x0054}
0x30c8…30d6 Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x001f, t01=0x0068}
0x30d6…30f4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x001f, t01=0x0076}
0x30f4…3104 Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x001f, t01=0x0094}
0x3104…3112 Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x001f, t01=0x00a4}
0x3112…3134 Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x001f, t01=0x00b2}
0x3134…3140 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x00d4}
0x3140…3154 Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x001f, t01=0x00e0}
0x3154…315e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f4}
0x315e…316c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00fe}
0x316c…3196 Head {h00=0x0026, h01=0x0050, text=»WRITID PROC BUF,WRITVAR1,WRITVAR2 «, t00=0x001f, t01=0x010c}
0x3196…31b2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0136}
0x31b2…31bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0152}
0x31bc…31f4 Head {h00=0x0034, h01=0x0050, text=»* PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x001f, t01=0x015c}
0x31f4…3228 (32, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x0020, t01=0x0004}
0x3228…3232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0038}
0x3232…3260 Head {h00=0x002a, h01=0x0050, text=»* PRINTS ON JOURNAL AND TALLY«, t00=0x0020, t01=0x0042}
0x3260…326a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0070}
0x326a…3274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007a}
0x3274…3290 Head {h00=0x0018, h01=0x0050, text=»* WRITVAR1:«, t00=0x0020, t01=0x0084}
0x3290…32b0 Head {h00=0x001c, h01=0x0050, text=»* 1 FEJL«, t00=0x0020, t01=0x00a0}
0x32b0…32d4 Head {h00=0x0020, h01=0x0050, text=»* 2 OPSTART «, t00=0x0020, t01=0x00c0}
0x32d4…32fe Head {h00=0x0026, h01=0x0050, text=»* 3 DISKETTE SKIFT«, t00=0x0020, t01=0x00e4}
0x32fe…3326 Head {h00=0x0024, h01=0x0050, text=»* 4 KONVERTERING«, t00=0x0020, t01=0x010e}
0x3326…3352 Head {h00=0x0028, h01=0x0050, text=»* 5 DATATRANSMISSION«, t00=0x0020, t01=0x0136}
0x3352…3374 Head {h00=0x001e, h01=0x0050, text=»* 6 BACKUP«, t00=0x0020, t01=0x0162}
0x3374…337e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0184}
0x337e…339a Head {h00=0x0018, h01=0x0050, text=»* WRITVAR2:«, t00=0x0020, t01=0x018e}
0x339a…33d0 Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x0021, t01=0x001a}
0x33d0…33f8 Head {h00=0x0024, h01=0x0050, text=»* 1 1-20 + 40-59«, t00=0x0021, t01=0x0050}
0x33f8…3432 Head {h00=0x0036, h01=0x0050, text=»* 2 1-20 + 23-42, IF KONVERTERING «, t00=0x0021, t01=0x0078}
0x3432…3470 Head {h00=0x003a, h01=0x0050, text=»* 2 1-20 + VOLID, IF NOT KONVERTERING «, t00=0x0021, t01=0x00b2}
0x3470…3494 Head {h00=0x0020, h01=0x0050, text=»* 3 NOTHING «, t00=0x0021, t01=0x00f0}
0x3494…34b6 Head {h00=0x001e, h01=0x0050, text=»* 4 VOLID «, t00=0x0021, t01=0x0114}
0x34b6…34c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0136}
0x34c0…34ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0140}
0x34ca…34d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x014a}
0x34d4…34f0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0154}
0x34f0…34fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0170}
0x34fa…350e Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x0021, t01=0x017a}
0x350e…354c Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x0021, t01=0x018e}
0x354c…355e Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0022, t01=0x003c}
0x355e…356c Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x0022, t01=0x004e}
0x356c…358c Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x0022, t01=0x005c}
0x358c…359e Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0022, t01=0x007c}
0x359e…35ac Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x0022, t01=0x008e}
0x35ac…35d0 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x0022, t01=0x009c}
0x35d0…35e2 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x00c0}
0x35e2…35f0 Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x0022, t01=0x00d2}
0x35f0…3616 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR20,=C'DISK SKIFT '«, t00=0x0022, t01=0x00e0}
0x3616…3628 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x0106}
0x3628…3636 Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x0022, t01=0x0118}
0x3636…365e Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x0022, t01=0x0126}
0x365e…3670 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x014e}
0x3670…367e Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x0022, t01=0x0160}
0x367e…36aa Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x0022, t01=0x016e}
0x36aa…36bc Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0023, t01=0x000a}
0x36bc…36ca Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x0023, t01=0x001c}
0x36ca…36ec Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x0023, t01=0x002a}
0x36ec…36fe Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0023, t01=0x004c}
0x36fe…370c Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x0023, t01=0x005e}
0x370c…3728 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0023, t01=0x006c}
0x3728…3742 Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN6«, t00=0x0023, t01=0x0088}
0x3742…375e Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID50 «, t00=0x0023, t01=0x00a2}
0x375e…3778 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0023, t01=0x00be}
0x3778…378c Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0023, t01=0x00d8}
0x378c…3796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ec}
0x3796…37a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x37a0…37ae Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x0023, t01=0x0100}
0x37ae…37ca Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID51 «, t00=0x0023, t01=0x010e}
0x37ca…37de Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0023, t01=0x012a}
0x37de…37ec Head {h00=0x000a, h01=0x0050, text=»WRID51«, t00=0x0023, t01=0x013e}
0x37ec…3808 Head {h00=0x0018, h01=0x0050, text=» TBF TBCTASK,WRID55 «, t00=0x0023, t01=0x014c}
0x3808…3822 Head {h00=0x0016, h01=0x0050, text=» MOVE CPRTBUF,BUF «, t00=0x0023, t01=0x0168}
0x3822…383e Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'13' «, t00=0x0023, t01=0x0182}
0x383e…3850 Head {h00=0x000e, h01=0x0050, text=» B WRID90 «, t00=0x0024, t01=0x000e}
0x3850…385e Head {h00=0x000a, h01=0x0050, text=»WRID55«, t00=0x0024, t01=0x0020}
0x385e…3880 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x0024, t01=0x002e}
0x3880…38a2 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x0024, t01=0x0050}
0x38a2…38bc Head {h00=0x0016, h01=0x0050, text=» MOVE GSWSTR20,BUF«, t00=0x0024, t01=0x0072}
0x38bc…38d8 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0024, t01=0x008c}
0x38d8…38f2 Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN6«, t00=0x0024, t01=0x00a8}
0x38f2…3914 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID60«, t00=0x0024, t01=0x00c2}
0x3914…3930 Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID60 «, t00=0x0024, t01=0x00e4}
0x3930…394a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0024, t01=0x0100}
0x394a…395e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0024, t01=0x011a}
0x395e…3972 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0024, t01=0x012e}
0x3972…397c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0142}
0x397c…398a Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0024, t01=0x014c}
0x398a…39ac Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0024, t01=0x015a}
0x39ac…39c8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0024, t01=0x017c}
0x39c8…39e4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0025, t01=0x0008}
0x39e4…3a14 Head {h00=0x002c, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1«, t00=0x0025, t01=0x0024}
0x3a14…3a26 Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0025, t01=0x0054}
0x3a26…3a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0066}
0x3a30…3a3e Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0025, t01=0x0070}
0x3a3e…3a62 Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0025, t01=0x007e}
0x3a62…3a7e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0025, t01=0x00a2}
0x3a7e…3a9a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0025, t01=0x00be}
0x3a9a…3aca Head {h00=0x002c, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1«, t00=0x0025, t01=0x00da}
0x3aca…3adc Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0025, t01=0x010a}
0x3adc…3aea Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0025, t01=0x011c}
0x3aea…3b0c Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0025, t01=0x012a}
0x3b0c…3b1a Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0025, t01=0x014c}
0x3b1a…3b38 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0025, t01=0x015a}
0x3b38…3b54 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0025, t01=0x0178}
0x3b54…3b72 (38, 0, 400) Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0026, t01=0x0004}
0x3b72…3b80 Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x0026, t01=0x0022}
0x3b80…3b9c Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0026, t01=0x0030}
0x3b9c…3bb6 Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN6«, t00=0x0026, t01=0x004c}
0x3bb6…3be0 Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,=W'4',WRID76 1,2,3,6«, t00=0x0026, t01=0x0066}
0x3be0…3c06 Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,=W'6',WRID90 4,5«, t00=0x0026, t01=0x0090}
0x3c06…3c14 Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x0026, t01=0x00b6}
0x3c14…3c30 Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID85 «, t00=0x0026, t01=0x00c4}
0x3c30…3c4a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0026, t01=0x00e0}
0x3c4a…3c5e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0026, t01=0x00fa}
0x3c5e…3c72 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0026, t01=0x010e}
0x3c72…3c84 Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x0026, t01=0x0122}
0x3c84…3c92 Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x0026, t01=0x0134}
0x3c92…3cb4 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID90«, t00=0x0026, t01=0x0142}
0x3cb4…3cc2 Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x0026, t01=0x0164}
0x3cc2…3cde Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID90 «, t00=0x0026, t01=0x0172}
0x3cde…3cf8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x0026, t01=0x018e}
0x3cf8…3d0c Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0027, t01=0x0018}
0x3d0c…3d20 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0027, t01=0x002c}
0x3d20…3d2e Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x0027, t01=0x0040}
0x3d2e…3d3a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x004e}
0x3d3a…3d48 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x005a}
0x3d48…3d56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0068}
0x3d56…3d6a Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x0027, t01=0x0076}
0x3d6a…3d92 Head {h00=0x0024, h01=0x0050, text=»* DELETE FIRST 14 CHARACTERS«, t00=0x0027, t01=0x008a}
0x3d92…3daa Head {h00=0x0014, h01=0x0050, text=»* OF LINE 8 «, t00=0x0027, t01=0x00b2}
0x3daa…3ddc Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'0801' INDICATE LAST LINE «, t00=0x0027, t01=0x00ca}
0x3ddc…3dfc Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x0027, t01=0x00fc}
0x3dfc…3e18 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0027, t01=0x011c}
0x3e18…3e46 Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x0027, t01=0x0138}
0x3e46…3e54 Head {h00=0x000a, h01=0x0050, text=» RET «, t00=0x0027, t01=0x0166}
0x3e54…3e62 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0174}
0x3e62…3e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0182}
0x3e6c…3ea6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0027, t01=0x018c}
0x3ea6…3eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eb0…3ed2 Head {h00=0x001e, h01=0x0050, text=»* FORMATS FOR WRITFD«, t00=0x0028, t01=0x0040}
0x3ed2…3edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0062}
0x3edc…3f1c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0028, t01=0x006c}
0x3f1c…3f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ac}
0x3f26…3f3a Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0028, t01=0x00b6}
0x3f3a…3f56 Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0028, t01=0x00ca}
0x3f56…3f6c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x00e6}
0x3f6c…3f82 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x00fc}
0x3f82…3f9a Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0028, t01=0x0112}
0x3f9a…3fa8 Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0028, t01=0x012a}
0x3fa8…3fb6 Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0028, t01=0x0138}
0x3fb6…3fcc Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x0146}
0x3fcc…3fe2 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x015c}
0x3fe2…3ff8 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0028, t01=0x0172}
0x3ff8…4006 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0188}
0x4006…4010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0008}
0x4010…4024 Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0029, t01=0x0012}
0x4024…4044 Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0029, t01=0x0026}
0x4044…4062 Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x0029, t01=0x0046}
0x4062…4070 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x0064}
0x4070…407a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0072}
0x407a…408c Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x0029, t01=0x007c}
0x408c…40a6 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0029, t01=0x008e}
0x40a6…40bc Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x0029, t01=0x00a8}
0x40bc…40d6 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x0029, t01=0x00be}
0x40d6…40f4 Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0029, t01=0x00d8}
0x40f4…4110 Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x0029, t01=0x00f6}
0x4110…412a Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x0029, t01=0x0112}
0x412a…4140 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x0029, t01=0x012c}
0x4140…415c Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x0029, t01=0x0142}
0x415c…4178 Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x0029, t01=0x015e}
0x4178…419e Head {h00=0x0022, h01=0x0050, text=» FBT GTSPECTR,TREC40 TR 50... «, t00=0x0029, t01=0x017a}
0x419e…41ba Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x002a, t01=0x0010}
0x41ba…41d0 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x002a, t01=0x002c}
0x41d0…41ee Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x002a, t01=0x0042}
0x41ee…41fc Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x002a, t01=0x0060}
0x41fc…4212 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x002a, t01=0x006e}
0x4212…422c Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x002a, t01=0x0084}
0x422c…4248 Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x002a, t01=0x009e}
0x4248…425e Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x002a, t01=0x00ba}
0x425e…427a Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x002a, t01=0x00d0}
0x427a…4288 Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x002a, t01=0x00ec}
0x4288…4296 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002a, t01=0x00fa}
0x4296…42a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0108}
0x42a0…42b2 Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x002a, t01=0x0112}
0x42b2…42c6 Head {h00=0x0010, h01=0x0050, text=» FCOPY =C'&'«, t00=0x002a, t01=0x0124}
0x42c6…42e0 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x002a, t01=0x0138}
0x42e0…42fc Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x002a, t01=0x0152}
0x42fc…432c Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x002a, t01=0x016e}
0x432c…433a Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x002b, t01=0x000e}
0x433a…4348 Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x002b, t01=0x001c}
0x4348…4376 Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x002b, t01=0x002a}
0x4376…4384 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002b, t01=0x0058}
0x4384…4398 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x002b, t01=0x0066}
0x4398…439c Head {h00=0x4004, h01=0x0000}
0x439c…43a0 00 2b 00 7a ┆ + z┆
0x43a0…43a8 (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆