|
|
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: 17242 (0x435a)
Notes: pts_type(SC)
Names: »KMDIO.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »NJ-AMT/KMDIO.SC«
IDENT KMDIO 02.01.XXX.1
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 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
WRFD005
SET CSWFLAG
CBE CRECLGD,=W'128',WRFD006
CLEAR CSWFLAG
WRFD006
EDIT CPCKBUF,PCKINIT
EDIT CPCKBUF,TREC1 INSERT HEADER INF
MOVE GSWBIN3,CBIN10
MOVE GSWBIN4,CRECLGD
SUB GSWBIN4,CBIN11
MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2
MOVE GSWBIN4,CRECLGD
SUB GSWBIN4,CBIN1
SUB GSWBIN4,GSWBIN3 REMAINING LENGTH
CBE GTREGNR,=D'12',WRFD070
TBT CSPLITFL,WRFD025 IF SPLIT PACK REST
WRFD020
ADD GSWBIN5,CBIN1
CBNL GSWBIN5,CBINMAX,WRFD070
CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ?
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
*
********************
WAIT KVOUCH
WAIT KTALLY
TBT GTSPGFLG,JTRET
MOVE GSWBIN1,$JTLIT
CBG GSWBIN1,CBIN0,JT10
PERF FRMTJT GET FORMAT ACORDING TO TYPE
B JT20
JT10 PERF FRMXJT,GSWBIN1 GET SPECIAL FORMAT
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
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 WRITVAR1,WRITVAR2
********************
*
* PRINTS HEADING IDENTIFIED BY WRITVAR1
* PRINTS ID IDENTIFIED BY WRITVAR2
*
* PRINTS ON JOURNAL AND TALLY
*
*
* WRITVAR1:
* 1 FEJL
* 2 OPSTART
* 3 DISKETTE SKIFT
* 4 KONVERTERING
* 5 DATATRANSMISSION
* 6 BACKUP
*
* WRITVAR2:
* CHARACTERS PRINTED FROM PACKBUFFER:
* 1 1-20 + 40-59
* 2 1-20 + 23-42, IF KONVERTERING
* 2 1-20 + VOLID, IF NOT KONVERTERING
* 3 NOTHING
* 4 VOLID
*
*
*
********************
*
WAIT KJTAPE
IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36
B WRID50
WRID34
MOVE GSWSTR20,=C'FEJL '
B WRID50
WRID31
MOVE GSWSTR20,=C'OPSTART '
B WRID40
WRID32
MOVE GSWSTR20,=C'DISKETTE SKIFT '
B WRID40
WRID33
MOVE GSWSTR20,=C'KONVERTERING '
B WRID40
WRID35
MOVE GSWSTR20,=C'DATATRANSMISSION '
B WRID40
WRID36
MOVE GSWSTR20,=C'BACKUP '
B WRID40
WRID40
PERF WRITJT,=W'12'
PERF FRMXTA,CBIN6
PERF WTALLY
*
*
WRID50
WAIT KTALLY
CBE WRITVAR2,CBIN3,WRID80
CBE WRITVAR2,CBIN4,WRID73
MOVE GSWSTR20,CPCKBUF
PERF WRITJT,=W'12'
CBG WRITVAR1,=W'3',WRID60
PERF FRMXTA,CBIN6
PERF WTALLY
WAIT KTALLY
*
WRID60
CBE WRITVAR2,CBIN2,WRID70
MOVE GSWBIN2,CBIN20
MOVE GSWBIN1,=W'40'
COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1
B WRID75
*
WRID70
CBNE WRITVAR1,CBIN4,WRID72
MOVE GSWBIN2,CBIN20
MOVE GSWBIN1,=W'23'
COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1
B WRID75
WRID72
CBG WRITVAR1,CBIN2,WRID80
WRID73
MOVE GSWSTR20,CBLANKS
MOVE GSWBCD3,CVOLNO
EDIT GSWSTR20,FRVOLID
WRID75
PERF WRITJT,=W'12'
CBL WRITVAR1,=W'4',WRID76 1,2,3,6
CBL WRITVAR1,=W'6',WRID90 4,5
WRID76
PERF FRMXTA,CBIN6
PERF WTALLY
WAIT KTALLY
B WRID85
WRID80
CBG WRITVAR1,=W'3',WRID90
WRID85
PERF FRMXTA,CBIN7
PERF WTALLY
WAIT KTALLY
WRID90
RET
PEND
EJECT
CLEAR8 PROC
* DELETE FIRST 14 CHARACTERS
* OF LINE 8
MOVE GSWBIN2,=X'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 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…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT KMDIO 02.01.XXX.1 «, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…004e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x004e…0064 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITFD «, t00=0x0000, t01=0x0052}
0x0064…0084 Head {h00=0x001c, h01=0x0050, text=» ENTRY WRITVO «, t00=0x0000, t01=0x0068}
0x0084…00a4 Head {h00=0x001c, h01=0x0050, text=» ENTRY WRITJT «, t00=0x0000, t01=0x0088}
0x00a4…00c4 Head {h00=0x001c, h01=0x0050, text=» ENTRY WTALLY «, t00=0x0000, t01=0x00a8}
0x00c4…00da Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITID «, t00=0x0000, t01=0x00c8}
0x00da…00f8 Head {h00=0x001a, h01=0x0050, text=» ENTRY CRKJ «, t00=0x0000, t01=0x00de}
0x00f8…010e Head {h00=0x0012, h01=0x0050, text=» ENTRY GRASPV «, t00=0x0000, t01=0x00fc}
0x010e…0124 Head {h00=0x0012, h01=0x0050, text=» ENTRY LINOPT «, t00=0x0000, t01=0x0112}
0x0124…0138 Head {h00=0x0010, h01=0x0050, text=» ENTRY CRVO «, t00=0x0000, t01=0x0128}
0x0138…0158 Head {h00=0x001c, h01=0x0050, text=» ENTRY WCHECK «, t00=0x0000, t01=0x013c}
0x0158…016e Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEAR8 «, t00=0x0000, t01=0x015c}
0x016e…0184 Head {h00=0x0012, h01=0x0050, text=» ENTRY EDATNR «, t00=0x0000, t01=0x0172}
0x0184…0196 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0000, t01=0x0188}
0x0196…01aa Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0001, t01=0x000a}
0x01aa…01be Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x001e}
0x01be…01d0 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0032}
0x01d0…01f0 Head {h00=0x001c, h01=0x0050, text=» EXT FRMTJT «, t00=0x0001, t01=0x0044}
0x01f0…0204 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x0064}
0x0204…0214 Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x0078}
0x0214…0226 Head {h00=0x000e, h01=0x0050, text=» EXT CYWRT«, t00=0x0001, t01=0x0088}
0x0226…023a Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x009a}
0x023a…024e Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00ae}
0x024e…026c Head {h00=0x001a, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x00c2}
0x026c…0280 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00e0}
0x0280…02a0 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x00f4}
0x02a0…02aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02be Head {h00=0x0010, h01=0x0050, text=»WRITFD PROC «, t00=0x0001, t01=0x011e}
0x02be…02da Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x0132}
0x02da…0302 Head {h00=0x0024, h01=0x0050, text=» PERF ADM,CBIN12 DISKETTE SKIFT «, t00=0x0001, t01=0x014e}
0x0302…031e Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x0176}
0x031e…0336 (2, 0, 398) Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0002, t01=0x0004}
0x0336…0342 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x001c}
0x0342…0350 Head {h00=0x000a, h01=0x0050, text=»WRFD00«, t00=0x0002, t01=0x0028}
0x0350…037a Head {h00=0x0026, h01=0x0050, text=» TBF CPFLG,WRFD010 DISC OCUPIED ? «, t00=0x0002, t01=0x0036}
0x037a…03a0 Head {h00=0x0022, h01=0x0050, text=» DELAY CBIN2 YES DELAY 200 MS «, t00=0x0002, t01=0x0060}
0x03a0…03b2 Head {h00=0x000e, h01=0x0050, text=» B WRFD00 «, t00=0x0002, t01=0x0086}
0x03b2…03c2 Head {h00=0x000c, h01=0x0050, text=»WRFD010 «, t00=0x0002, t01=0x0098}
0x03c2…03d4 Head {h00=0x000e, h01=0x0050, text=» SET CPFLG«, t00=0x0002, t01=0x00a8}
0x03d4…03ec Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0002, t01=0x00ba}
0x03ec…041e Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0002, t01=0x00d2}
0x041e…0432 Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0002, t01=0x0104}
0x0432…044e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0002, t01=0x0118}
0x044e…045e Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0002, t01=0x0134}
0x045e…0472 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0144}
0x0472…0496 Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0002, t01=0x0158}
0x0496…04ac Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0002, t01=0x017c}
0x04ac…04bc (3, 0, 400) Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0003, t01=0x0004}
0x04bc…04da Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0003, t01=0x0014}
0x04da…0508 Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0003, t01=0x0032}
0x0508…0524 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0003, t01=0x0060}
0x0524…0542 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x007c}
0x0542…055e Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0003, t01=0x009a}
0x055e…0598 Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0003, t01=0x00b6}
0x0598…05b6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x00f0}
0x05b6…05d0 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0003, t01=0x010e}
0x05d0…05fe Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0003, t01=0x0128}
0x05fe…0622 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0003, t01=0x0156}
0x0622…0652 Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0003, t01=0x017a}
0x0652…0662 Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0004, t01=0x001a}
0x0662…067c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0004, t01=0x002a}
0x067c…06a2 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0004, t01=0x0044}
0x06a2…06da Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0004, t01=0x006a}
0x06da…06fc Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=X'00' YES «, t00=0x0004, t01=0x00a2}
0x06fc…072a Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0004, t01=0x00c4}
0x072a…0746 Head {h00=0x0018, h01=0x0050, text=» EDIT GSWSTR20,PFRM1«, t00=0x0004, t01=0x00f2}
0x0746…0756 Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0004, t01=0x010e}
0x0756…0772 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0004, t01=0x011e}
0x0772…079a Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0004, t01=0x013a}
0x079a…07d4 Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN6,CBIN16,GSWSTR1,CBIN0,CBIN1«, t00=0x0004, t01=0x0162}
0x07d4…07ec Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0005, t01=0x000c}
0x07ec…081c Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0005, t01=0x0024}
0x081c…0854 Head {h00=0x0034, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO «, t00=0x0005, t01=0x0054}
0x0854…0870 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0005, t01=0x008c}
0x0870…089c Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0005, t01=0x00a8}
0x089c…08ba Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0005, t01=0x00d4}
0x08ba…08ca Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0005, t01=0x00f2}
0x08ca…08fe Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,GSWSTR20,CBIN0«, t00=0x0005, t01=0x0102}
0x08fe…092c Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0005, t01=0x0136}
0x092c…0948 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0005, t01=0x0164}
0x0948…097a Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0005, t01=0x0180}
0x097a…09a0 Head {h00=0x0022, h01=0x0050, text=» DLETE GSWSTR20,CBIN0,GSWBIN4 «, t00=0x0006, t01=0x0022}
0x09a0…09b6 Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0006, t01=0x0048}
0x09b6…09e4 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0006, t01=0x005e}
0x09e4…09fa Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0006, t01=0x008c}
0x09fa…0a18 Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0006, t01=0x00a2}
0x0a18…0a32 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0006, t01=0x00c0}
0x0a32…0a4c Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0006, t01=0x00da}
0x0a4c…0a66 Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0006, t01=0x00f4}
0x0a66…0a8a Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0006, t01=0x010e}
0x0a8a…0a9a Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0006, t01=0x0132}
0x0a9a…0ab6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0006, t01=0x0142}
0x0ab6…0ae8 Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0006, t01=0x015e}
0x0ae8…0b16 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0006, t01=0x0190}
0x0b16…0b2c Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x002e}
0x0b2c…0b4a Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0007, t01=0x0044}
0x0b4a…0b64 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x0062}
0x0b64…0b7e Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0007, t01=0x007c}
0x0b7e…0b98 Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0007, t01=0x0096}
0x0b98…0bb8 Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0007, t01=0x00b0}
0x0bb8…0bce Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x00d0}
0x0bce…0bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bd8…0bfc Head {h00=0x0020, h01=0x0050, text=»* LOOK FOR ACCOUNT NO«, t00=0x0007, t01=0x00f0}
0x0bfc…0c24 Head {h00=0x0024, h01=0x0050, text=»* IN KONTOPLAN. IF FOUND,«, t00=0x0007, t01=0x0114}
0x0c24…0c46 Head {h00=0x001e, h01=0x0050, text=»* SET FLAG GTKORTFL«, t00=0x0007, t01=0x013c}
0x0c46…0c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c50…0c74 Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0007, t01=0x0168}
0x0c74…0c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018c}
0x0c7e…0cbc Head {h00=0x003a, h01=0x0050, text=»* HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' «, t00=0x0008, t01=0x0008}
0x0cbc…0cde Head {h00=0x001e, h01=0x0050, text=»WRFD075 DISK N[STEN FULD«, t00=0x0008, t01=0x0046}
0x0cde…0cf2 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0008, t01=0x0068}
0x0cf2…0d0a Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0008, t01=0x007c}
0x0d0a…0d26 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0008, t01=0x0094}
0x0d26…0d4c Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'02' FILE CODE«, t00=0x0008, t01=0x00b0}
0x0d4c…0d74 Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x0008, t01=0x00d6}
0x0d74…0d98 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0008, t01=0x00fe}
0x0d98…0dac Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0008, t01=0x0122}
0x0dac…0dc4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0008, t01=0x0136}
0x0dc4…0dd0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x014e}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0dda…0dea Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x0008, t01=0x0164}
0x0dea…0e02 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0008, t01=0x0174}
0x0e02…0e16 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0008, t01=0x018c}
0x0e16…0e3c Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0009, t01=0x0010}
0x0e3c…0e48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0036}
0x0e48…0e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e52…0e62 Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x0009, t01=0x004c}
0x0e62…0e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005c}
0x0e6c…0e92 Head {h00=0x0022, h01=0x0050, text=»* HERE MUST BEE RECOVERRY «, t00=0x0009, t01=0x0066}
0x0e92…0eae Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x0009, t01=0x008c}
0x0eae…0ecc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x0009, t01=0x00a8}
0x0ecc…0ee8 Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x0009, t01=0x00c6}
0x0ee8…0efe Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x0009, t01=0x00e2}
0x0efe…0f12 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0009, t01=0x00f8}
0x0f12…0f28 Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x0009, t01=0x010c}
0x0f28…0f4c Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x0009, t01=0x0122}
0x0f4c…0f58 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0146}
0x0f58…0f66 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0152}
0x0f66…0f74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0160}
0x0f74…0fa8 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0009, t01=0x016e}
0x0fa8…0fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb2…0fc6 Head {h00=0x0010, h01=0x0050, text=»* EDATNR«, t00=0x000a, t01=0x001c}
0x0fc6…0ffe Head {h00=0x0034, h01=0x0050, text=»* FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000a, t01=0x0030}
0x0ffe…103c Head {h00=0x003a, h01=0x0050, text=»* AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000a, t01=0x0068}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x1046…107e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000a, t01=0x00b0}
0x107e…1092 Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000a, t01=0x00e8}
0x1092…10aa Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000a, t01=0x00fc}
0x10aa…10ce Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000a, t01=0x0114}
0x10ce…10ea Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000a, t01=0x0138}
0x10ea…110e Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000a, t01=0x0154}
0x110e…1140 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000a, t01=0x0178}
0x1140…1164 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000b, t01=0x001a}
0x1164…1174 Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000b, t01=0x003e}
0x1174…1198 Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000b, t01=0x004e}
0x1198…11ae Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000b, t01=0x0072}
0x11ae…11be Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000b, t01=0x0088}
0x11be…11ca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0098}
0x11ca…11da Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000b, t01=0x00a4}
0x11da…11fe Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000b, t01=0x00b4}
0x11fe…1222 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000b, t01=0x00d8}
0x1222…1234 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000b, t01=0x00fc}
0x1234…1244 Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000b, t01=0x010e}
0x1244…1268 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000b, t01=0x011e}
0x1268…128c Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000b, t01=0x0142}
0x128c…129e Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000b, t01=0x0166}
0x129e…12ae Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x000b, t01=0x0178}
0x12ae…12d2 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x000b, t01=0x0188}
0x12d2…12f6 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x000c, t01=0x001c}
0x12f6…1308 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000c, t01=0x0040}
0x1308…1318 Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x000c, t01=0x0052}
0x1318…133c Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x000c, t01=0x0062}
0x133c…134e Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000c, t01=0x0086}
0x134e…135c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0098}
0x135c…136a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00a6}
0x136a…1374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b4}
0x1374…137e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00be}
0x137e…1392 Head {h00=0x0010, h01=0x0050, text=»WCHECK PROC «, t00=0x000c, t01=0x00c8}
0x1392…139e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x00dc}
0x139e…13ac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x00e8}
0x13ac…13ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00f6}
0x13ba…13d8 Head {h00=0x001a, h01=0x0050, text=»WRITJT PROC $JTLIT «, t00=0x000c, t01=0x0104}
0x13d8…13ec Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x000c, t01=0x0122}
0x13ec…1408 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0136}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0152}
0x1412…144c Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x000c, t01=0x015c}
0x144c…147a Head {h00=0x002a, h01=0x0050, text=»* DEPENDING ON TRANSACTION TYPE«, t00=0x000d, t01=0x0008}
0x147a…1484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x1484…14a0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0040}
0x14a0…14b4 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000d, t01=0x005c}
0x14b4…14c8 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000d, t01=0x0070}
0x14c8…14e4 Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x000d, t01=0x0084}
0x14e4…150a Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,$JTLIT «, t00=0x000d, t01=0x00a0}
0x150a…1534 Head {h00=0x0026, h01=0x0050, text=» CBG GSWBIN1,CBIN0,JT10 «, t00=0x000d, t01=0x00c6}
0x1534…157e Head {h00=0x0046, h01=0x0050, text=» PERF FRMTJT GET FORMAT ACORDING TO TYPE«, t00=0x000d, t01=0x00f0}
0x157e…159a Head {h00=0x0018, h01=0x0050, text=» B JT20 «, t00=0x000d, t01=0x013a}
0x159a…15ce Head {h00=0x0030, h01=0x0050, text=»JT10 PERF FRMXJT,GSWBIN1 GET SPECIAL FORMAT «, t00=0x000d, t01=0x0156}
0x15ce…15da Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x000d, t01=0x018a}
0x15da…160e Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x000e, t01=0x0008}
0x160e…1628 Head {h00=0x0016, h01=0x0050, text=» TBT GTNWFLG,JT50 «, t00=0x000e, t01=0x003c}
0x1628…1654 Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x000e, t01=0x0056}
0x1654…165e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0082}
0x165e…1690 Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x000e, t01=0x008c}
0x1690…16ac Head {h00=0x0018, h01=0x0050, text=» BOK JTRET«, t00=0x000e, t01=0x00be}
0x16ac…16dc Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x000e, t01=0x00da}
0x16dc…16f0 Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x000e, t01=0x010a}
0x16f0…16fe Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x000e, t01=0x011e}
0x16fe…170a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x012c}
0x170a…1716 Head {h00=0x0008, h01=0x0050, text=»JT50«, t00=0x000e, t01=0x0138}
0x1716…1738 Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KJTAPE,GTSTRFMT«, t00=0x000e, t01=0x0144}
0x1738…1744 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0166}
0x1744…175a Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x0172}
0x175a…1770 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0188}
0x1770…1786 Head {h00=0x0012, h01=0x0050, text=»WTALLY PROC «, t00=0x000f, t01=0x000e}
0x1786…17a2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000f, t01=0x0024}
0x17a2…17ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0040}
0x17ac…17ce Head {h00=0x001e, h01=0x0050, text=»* WRITE TALLY ROLL «, t00=0x000f, t01=0x004a}
0x17ce…17d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006c}
0x17d8…17f4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x0076}
0x17f4…1808 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000f, t01=0x0092}
0x1808…181c Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000f, t01=0x00a6}
0x181c…1868 Head {h00=0x0048, h01=0x0050, text=» EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORMAT«, t00=0x000f, t01=0x00ba}
0x1868…1888 Head {h00=0x001c, h01=0x0050, text=» RET STORED IN GTSTRFMT«, t00=0x000f, t01=0x0106}
0x1888…189c Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x000f, t01=0x0126}
0x189c…18a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013a}
0x18a6…18b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0144}
0x18b0…18c6 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x014e}
0x18c6…18dc Head {h00=0x0012, h01=0x0050, text=»CRKJ PROC «, t00=0x000f, t01=0x0164}
0x18dc…18f8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x017a}
0x18f8…1902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x1902…193e Head {h00=0x0038, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x0010, t01=0x0012}
0x193e…1948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004e}
0x1948…1964 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0058}
0x1964…1990 Head {h00=0x0028, h01=0x0050, text=» EDWRT .NW,KJTAPE,CRJTFMT «, t00=0x0010, t01=0x0074}
0x1990…19a4 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00a0}
0x19a4…19b8 Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x0010, t01=0x00b4}
0x19b8…19d6 Head {h00=0x001a, h01=0x0050, text=» FILLR ' ',2«, t00=0x0010, t01=0x00c8}
0x19d6…19ec Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x0010, t01=0x00e6}
0x19ec…1a02 Head {h00=0x0012, h01=0x0050, text=» FMEND «, t00=0x0010, t01=0x00fc}
0x1a02…1a18 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0112}
0x1a18…1a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0128}
0x1a22…1a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0132}
0x1a2c…1a3e Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x0010, t01=0x013c}
0x1a3e…1a5a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0010, t01=0x014e}
0x1a5a…1a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a64…1aa2 Head {h00=0x003a, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x0010, t01=0x0174}
0x1aa2…1aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0022}
0x1aac…1ac8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x002c}
0x1ac8…1ae6 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x0011, t01=0x0048}
0x1ae6…1af2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0066}
0x1af2…1b06 Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x0011, t01=0x0072}
0x1b06…1b1a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x0086}
0x1b1a…1b30 Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x0011, t01=0x009a}
0x1b30…1b3e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x00b0}
0x1b3e…1b4c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x00be}
0x1b4c…1b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00cc}
0x1b56…1b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d6}
0x1b60…1b76 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00e0}
0x1b76…1b8a Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0011, t01=0x00f6}
0x1b8a…1b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010a}
0x1b94…1bb2 Head {h00=0x001a, h01=0x0050, text=»* WRITE VOUCHER«, t00=0x0011, t01=0x0114}
0x1bb2…1bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0132}
0x1bbc…1bea Head {h00=0x002a, h01=0x0050, text=»* IN CYCLE POSITION AND WRITE «, t00=0x0011, t01=0x013c}
0x1bea…1c16 Head {h00=0x0028, h01=0x0050, text=»* (MAY BE NEW PAGE)«, t00=0x0011, t01=0x016a}
0x1c16…1c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c20…1c48 Head {h00=0x0024, h01=0x0050, text=»* NOT CYCLE GET LINE NR «, t00=0x0012, t01=0x0012}
0x1c48…1c74 Head {h00=0x0028, h01=0x0050, text=»* POSITION VOUCHER «, t00=0x0012, t01=0x003a}
0x1c74…1c94 Head {h00=0x001c, h01=0x0050, text=»* WRITE«, t00=0x0012, t01=0x0066}
0x1c94…1cc2 Head {h00=0x002a, h01=0x0050, text=»* AND RELEASE VOUCHER«, t00=0x0012, t01=0x0086}
0x1cc2…1ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b4}
0x1ccc…1ce8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x00be}
0x1ce8…1d10 Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,CYVOUCH«, t00=0x0012, t01=0x00da}
0x1d10…1d26 Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0012, t01=0x0102}
0x1d26…1d36 Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0012, t01=0x0118}
0x1d36…1d62 Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0012, t01=0x0128}
0x1d62…1d7e Head {h00=0x0018, h01=0x0050, text=» PERF GRASPV«, t00=0x0012, t01=0x0154}
0x1d7e…1d96 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0012, t01=0x0170}
0x1d96…1dbe Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x0012, t01=0x0188}
0x1dbe…1dde Head {h00=0x001c, h01=0x0050, text=» BNOK WOBILAG«, t00=0x0013, t01=0x0020}
0x1dde…1dfe Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x0013, t01=0x0040}
0x1dfe…1e1c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0013, t01=0x0060}
0x1e1c…1e2c Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0013, t01=0x007e}
0x1e2c…1e4e Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x0013, t01=0x008e}
0x1e4e…1e6a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0013, t01=0x00b0}
0x1e6a…1e82 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2, C «, t00=0x0013, t01=0x00cc}
0x1e82…1ea8 Head {h00=0x0022, h01=0x0050, text=» WO99,WO98,WO97,WO96,WO95, C«, t00=0x0013, t01=0x00e4}
0x1ea8…1ec6 Head {h00=0x001a, h01=0x0050, text=» WO94,WO93,WO92,WO91 «, t00=0x0013, t01=0x010a}
0x1ec6…1ed2 Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x0013, t01=0x0128}
0x1ed2…1eec Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x0013, t01=0x0134}
0x1eec…1f08 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0013, t01=0x014e}
0x1f08…1f18 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0013, t01=0x016a}
0x1f18…1f24 Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x0013, t01=0x017a}
0x1f24…1f3e Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x0013, t01=0x0186}
0x1f3e…1f5a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0014, t01=0x0010}
0x1f5a…1f6a Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0014, t01=0x002c}
0x1f6a…1f76 Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x0014, t01=0x003c}
0x1f76…1f90 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x0014, t01=0x0048}
0x1f90…1fac Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0014, t01=0x0062}
0x1fac…1fbc Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0014, t01=0x007e}
0x1fbc…1fc8 Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x0014, t01=0x008e}
0x1fc8…1fe4 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x0014, t01=0x009a}
0x1fe4…2000 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x0014, t01=0x00b6}
0x2000…2010 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0014, t01=0x00d2}
0x2010…201c Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x0014, t01=0x00e2}
0x201c…2028 Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x0014, t01=0x00ee}
0x2028…2034 Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x0014, t01=0x00fa}
0x2034…204e Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0014, t01=0x0106}
0x204e…2060 Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x0014, t01=0x0120}
0x2060…207c Head {h00=0x0018, h01=0x0050, text=»WO92 SHORT 'BILAG'«, t00=0x0014, t01=0x0132}
0x207c…209c Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x0014, t01=0x014e}
0x209c…20b0 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0014, t01=0x016e}
0x20b0…20c6 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x0014, t01=0x0182}
0x20c6…20da Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0015, t01=0x0008}
0x20da…20ec Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x0015, t01=0x001c}
0x20ec…210c Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x0015, t01=0x002e}
0x210c…212a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0015, t01=0x004e}
0x212a…2142 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0015, t01=0x006c}
0x2142…215e Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x0015, t01=0x0084}
0x215e…216e Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x00a0}
0x216e…217a Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x0015, t01=0x00b0}
0x217a…21a8 Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,=W'3' INDICATE KONTOKORT«, t00=0x0015, t01=0x00bc}
0x21a8…21b4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00ea}
0x21b4…21be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f6}
0x21be…21cc Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x0015, t01=0x0100}
0x21cc…21fe Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0015, t01=0x010e}
0x21fe…2236 Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x0015, t01=0x0140}
0x2236…2248 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0015, t01=0x0178}
0x2248…2256 Head {h00=0x000a, h01=0x0050, text=»WO110 «, t00=0x0015, t01=0x018a}
0x2256…229e Head {h00=0x0044, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0016, t01=0x0008}
0x229e…22b2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0050}
0x22b2…22c4 Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x0016, t01=0x0064}
0x22c4…22d4 Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x0016, t01=0x0076}
0x22d4…22ee Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x0016, t01=0x0086}
0x22ee…2302 Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x0016, t01=0x00a0}
0x2302…2314 Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x0016, t01=0x00b4}
0x2314…2320 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x00c6}
0x2320…232a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d2}
0x232a…2336 Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x0016, t01=0x00dc}
0x2336…235c Head {h00=0x0022, h01=0x0050, text=» TBT TTTSTFLG,WO10«, t00=0x0016, t01=0x00e8}
0x235c…237e Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0016, t01=0x010e}
0x237e…23ac Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x0016, t01=0x0130}
0x23ac…23cc Head {h00=0x001c, h01=0x0050, text=» PERF GRASPV «, t00=0x0016, t01=0x015e}
0x23cc…23e0 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0016, t01=0x017e}
0x23e0…23ec (23, 0, 400) Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x0017, t01=0x0004}
0x23ec…240a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0017, t01=0x0010}
0x240a…243c Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0017, t01=0x002e}
0x243c…245e Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x0017, t01=0x0060}
0x245e…246c Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0017, t01=0x0082}
0x246c…2476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0090}
0x2476…249a Head {h00=0x0020, h01=0x0050, text=»* WRITING OF TEXTLINE«, t00=0x0017, t01=0x009a}
0x249a…24c0 Head {h00=0x0022, h01=0x0050, text=»* FOR CHECK ON WORKSET «, t00=0x0017, t01=0x00be}
0x24c0…24ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e4}
0x24ca…24d8 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0017, t01=0x00ee}
0x24d8…24e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fc}
0x24e2…2524 Head {h00=0x003e, h01=0x0050, text=»* SEE OLD SUBS LINES 700 - 719«, t00=0x0017, t01=0x0106}
0x2524…252e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0148}
0x252e…2538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0152}
0x2538…2544 Head {h00=0x0008, h01=0x0050, text=»WO20«, t00=0x0017, t01=0x015c}
0x2544…2580 Head {h00=0x0038, h01=0x0050, text=» SUB TTLINNR,=D'2' NEXT LINE«, t00=0x0017, t01=0x0168}
0x2580…25bc Head {h00=0x0038, h01=0x0050, text=» CBL TTLINNR,=D'4',NEWPG NEW PAGE?«, t00=0x0018, t01=0x0014}
0x25bc…25cc Head {h00=0x000c, h01=0x0050, text=» RET NO«, t00=0x0018, t01=0x0050}
0x25cc…25d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0060}
0x25d6…25ee Head {h00=0x0014, h01=0x0050, text=»NEWPG NEW PAGE«, t00=0x0018, t01=0x006a}
0x25ee…2618 Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x0018, t01=0x0082}
0x2618…262c Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0018, t01=0x00ac}
0x262c…264a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0018, t01=0x00c0}
0x264a…266a Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0018, t01=0x00de}
0x266a…2688 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x0018, t01=0x00fe}
0x2688…26a2 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0018, t01=0x011c}
0x26a2…26c0 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0018, t01=0x0136}
0x26c0…26e6 Head {h00=0x0022, h01=0x0050, text=» DSC0 KVOUCH,RLEAS «, t00=0x0018, t01=0x0154}
0x26e6…26fc Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x0018, t01=0x017a}
0x26fc…270a Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x0018, t01=0x0190}
0x270a…2716 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x000e}
0x2716…272c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x001a}
0x272c…2736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0030}
0x2736…2740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003a}
0x2740…2756 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0044}
0x2756…276c Head {h00=0x0012, h01=0x0050, text=»GRASPV PROC «, t00=0x0019, t01=0x005a}
0x276c…2788 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0019, t01=0x0070}
0x2788…2792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x008c}
0x2792…27b0 Head {h00=0x001a, h01=0x0050, text=»* GRASP VOUCHER«, t00=0x0019, t01=0x0096}
0x27b0…27ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b4}
0x27ba…27d6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0019, t01=0x00be}
0x27d6…27ea Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0019, t01=0x00da}
0x27ea…2812 Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x0019, t01=0x00ee}
0x2812…2826 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0116}
0x2826…283c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x012a}
0x283c…2846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0140}
0x2846…2850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014a}
0x2850…2866 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0154}
0x2866…287c Head {h00=0x0012, h01=0x0050, text=»LINOPT PROC «, t00=0x0019, t01=0x016a}
0x287c…2898 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0019, t01=0x0180}
0x2898…28a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x28a2…28cc Head {h00=0x0026, h01=0x0050, text=»* CHECK LINE NUMBER, IF ANY«, t00=0x001a, t01=0x0016}
0x28cc…28d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0040}
0x28d6…28f2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001a, t01=0x004a}
0x28f2…290e Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x001a, t01=0x0066}
0x290e…2938 Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x001a, t01=0x0082}
0x2938…2956 Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x001a, t01=0x00ac}
0x2956…2964 Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x001a, t01=0x00ca}
0x2964…2976 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001a, t01=0x00d8}
0x2976…29a2 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',LINOP0 SLUT KEY «, t00=0x001a, t01=0x00ea}
0x29a2…29dc Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,=W'4',LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x001a, t01=0x0116}
0x29dc…29ea Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x001a, t01=0x0150}
0x29ea…2a18 Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH«, t00=0x001a, t01=0x015e}
0x2a18…2a42 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x001a, t01=0x018c}
0x2a42…2a76 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x001b, t01=0x0026}
0x2a76…2a9c Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x001b, t01=0x005a}
0x2a9c…2ace Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR«, t00=0x001b, t01=0x0080}
0x2ace…2b02 Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x001b, t01=0x00b2}
0x2b02…2b10 Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x001b, t01=0x00e6}
0x2b10…2b34 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x001b, t01=0x00f4}
0x2b34…2b46 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001b, t01=0x0118}
0x2b46…2b54 Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x001b, t01=0x012a}
0x2b54…2b76 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x001b, t01=0x0138}
0x2b76…2b9a Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x001b, t01=0x015a}
0x2b9a…2bb8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001b, t01=0x017e}
0x2bb8…2bca Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x001c, t01=0x000c}
0x2bca…2bda Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x001c, t01=0x001e}
0x2bda…2bf8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001c, t01=0x002e}
0x2bf8…2c16 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x001c, t01=0x004c}
0x2c16…2c2a Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x001c, t01=0x006a}
0x2c2a…2c5c Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x001c, t01=0x007e}
0x2c5c…2c82 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x001c, t01=0x00b0}
0x2c82…2c9e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'0' «, t00=0x001c, t01=0x00d6}
0x2c9e…2cb0 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001c, t01=0x00f2}
0x2cb0…2cbe Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x001c, t01=0x0104}
0x2cbe…2ce8 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x001c, t01=0x0112}
0x2ce8…2d00 Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x001c, t01=0x013c}
0x2d00…2d2a Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x001c, t01=0x0154}
0x2d2a…2d3e Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001c, t01=0x017e}
0x2d3e…2d4c (29, 0, 400) Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x001d, t01=0x0004}
0x2d4c…2d6a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x001d, t01=0x0012}
0x2d6a…2d7a Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x001d, t01=0x0030}
0x2d7a…2d88 Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x001d, t01=0x0040}
0x2d88…2daa Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x001d, t01=0x004e}
0x2daa…2db6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x0070}
0x2db6…2dca Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x001d, t01=0x007c}
0x2dca…2dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0090}
0x2dd4…2de2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x009a}
0x2de2…2e08 Head {h00=0x0022, h01=0x0050, text=»WRITID PROC WRITVAR1,WRITVAR2 «, t00=0x001d, t01=0x00a8}
0x2e08…2e24 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x00ce}
0x2e24…2e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ea}
0x2e2e…2e66 Head {h00=0x0034, h01=0x0050, text=»* PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x001d, t01=0x00f4}
0x2e66…2e9a Head {h00=0x0030, h01=0x0050, text=»* PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x001d, t01=0x012c}
0x2e9a…2ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0160}
0x2ea4…2ed2 Head {h00=0x002a, h01=0x0050, text=»* PRINTS ON JOURNAL AND TALLY«, t00=0x001d, t01=0x016a}
0x2ed2…2edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0008}
0x2edc…2ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0012}
0x2ee6…2f02 Head {h00=0x0018, h01=0x0050, text=»* WRITVAR1:«, t00=0x001e, t01=0x001c}
0x2f02…2f22 Head {h00=0x001c, h01=0x0050, text=»* 1 FEJL«, t00=0x001e, t01=0x0038}
0x2f22…2f46 Head {h00=0x0020, h01=0x0050, text=»* 2 OPSTART «, t00=0x001e, t01=0x0058}
0x2f46…2f70 Head {h00=0x0026, h01=0x0050, text=»* 3 DISKETTE SKIFT«, t00=0x001e, t01=0x007c}
0x2f70…2f98 Head {h00=0x0024, h01=0x0050, text=»* 4 KONVERTERING«, t00=0x001e, t01=0x00a6}
0x2f98…2fc4 Head {h00=0x0028, h01=0x0050, text=»* 5 DATATRANSMISSION«, t00=0x001e, t01=0x00ce}
0x2fc4…2fe6 Head {h00=0x001e, h01=0x0050, text=»* 6 BACKUP«, t00=0x001e, t01=0x00fa}
0x2fe6…2ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011c}
0x2ff0…300c Head {h00=0x0018, h01=0x0050, text=»* WRITVAR2:«, t00=0x001e, t01=0x0126}
0x300c…3042 Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x001e, t01=0x0142}
0x3042…306a Head {h00=0x0024, h01=0x0050, text=»* 1 1-20 + 40-59«, t00=0x001e, t01=0x0178}
0x306a…30a4 Head {h00=0x0036, h01=0x0050, text=»* 2 1-20 + 23-42, IF KONVERTERING «, t00=0x001f, t01=0x0010}
0x30a4…30e2 Head {h00=0x003a, h01=0x0050, text=»* 2 1-20 + VOLID, IF NOT KONVERTERING «, t00=0x001f, t01=0x004a}
0x30e2…3106 Head {h00=0x0020, h01=0x0050, text=»* 3 NOTHING «, t00=0x001f, t01=0x0088}
0x3106…3128 Head {h00=0x001e, h01=0x0050, text=»* 4 VOLID «, t00=0x001f, t01=0x00ac}
0x3128…3132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ce}
0x3132…313c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d8}
0x313c…3146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e2}
0x3146…3162 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x00ec}
0x3162…316c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0108}
0x316c…3180 Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x001f, t01=0x0112}
0x3180…31be Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x001f, t01=0x0126}
0x31be…31d0 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x001f, t01=0x0164}
0x31d0…31de Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x001f, t01=0x0176}
0x31de…31fe Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x001f, t01=0x0184}
0x31fe…3210 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0020, t01=0x0014}
0x3210…321e Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x0020, t01=0x0026}
0x321e…3242 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x0020, t01=0x0034}
0x3242…3254 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0020, t01=0x0058}
0x3254…3262 Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x0020, t01=0x006a}
0x3262…328c Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'DISKETTE SKIFT '«, t00=0x0020, t01=0x0078}
0x328c…329e Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0020, t01=0x00a2}
0x329e…32ac Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x0020, t01=0x00b4}
0x32ac…32d4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x0020, t01=0x00c2}
0x32d4…32e6 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0020, t01=0x00ea}
0x32e6…32f4 Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x0020, t01=0x00fc}
0x32f4…3320 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x0020, t01=0x010a}
0x3320…3332 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0020, t01=0x0136}
0x3332…3340 Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x0020, t01=0x0148}
0x3340…3362 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x0020, t01=0x0156}
0x3362…3374 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0020, t01=0x0178}
0x3374…3382 Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x0020, t01=0x018a}
0x3382…339e Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0021, t01=0x0008}
0x339e…33b8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0021, t01=0x0024}
0x33b8…33cc Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0021, t01=0x003e}
0x33cc…33d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0052}
0x33d6…33e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005c}
0x33e0…33ee Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x0021, t01=0x0066}
0x33ee…3402 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0021, t01=0x0074}
0x3402…3424 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x0021, t01=0x0088}
0x3424…3446 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x0021, t01=0x00aa}
0x3446…3464 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CPCKBUF«, t00=0x0021, t01=0x00cc}
0x3464…3480 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0021, t01=0x00ea}
0x3480…34a2 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID60«, t00=0x0021, t01=0x0106}
0x34a2…34bc Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0021, t01=0x0128}
0x34bc…34d0 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0021, t01=0x0142}
0x34d0…34e4 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0021, t01=0x0156}
0x34e4…34ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x016a}
0x34ee…34fc Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0021, t01=0x0174}
0x34fc…351e Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0021, t01=0x0182}
0x351e…353a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0022, t01=0x0014}
0x353a…3556 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0022, t01=0x0030}
0x3556…358a Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0022, t01=0x004c}
0x358a…359c Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0022, t01=0x0080}
0x359c…35a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0092}
0x35a6…35b4 Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0022, t01=0x009c}
0x35b4…35d8 Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0022, t01=0x00aa}
0x35d8…35f4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0022, t01=0x00ce}
0x35f4…3610 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0022, t01=0x00ea}
0x3610…3644 Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0022, t01=0x0106}
0x3644…3656 Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0022, t01=0x013a}
0x3656…3664 Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0022, t01=0x014c}
0x3664…3686 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0022, t01=0x015a}
0x3686…3694 Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0022, t01=0x017c}
0x3694…36b2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0022, t01=0x018a}
0x36b2…36ce Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0023, t01=0x0018}
0x36ce…36ec Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0023, t01=0x0034}
0x36ec…36fa Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x0023, t01=0x0052}
0x36fa…3716 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0023, t01=0x0060}
0x3716…3740 Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,=W'4',WRID76 1,2,3,6«, t00=0x0023, t01=0x007c}
0x3740…3766 Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,=W'6',WRID90 4,5«, t00=0x0023, t01=0x00a6}
0x3766…3774 Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x0023, t01=0x00cc}
0x3774…378e Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0023, t01=0x00da}
0x378e…37a2 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0023, t01=0x00f4}
0x37a2…37b6 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0023, t01=0x0108}
0x37b6…37c8 Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x0023, t01=0x011c}
0x37c8…37d6 Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x0023, t01=0x012e}
0x37d6…37f8 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID90«, t00=0x0023, t01=0x013c}
0x37f8…3806 Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x0023, t01=0x015e}
0x3806…3820 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x0023, t01=0x016c}
0x3820…3834 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0023, t01=0x0186}
0x3834…3848 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0024, t01=0x000a}
0x3848…3856 Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x0024, t01=0x001e}
0x3856…3862 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x002c}
0x3862…3870 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0038}
0x3870…387e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0046}
0x387e…3892 Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x0024, t01=0x0054}
0x3892…38ba Head {h00=0x0024, h01=0x0050, text=»* DELETE FIRST 14 CHARACTERS«, t00=0x0024, t01=0x0068}
0x38ba…38d2 Head {h00=0x0014, h01=0x0050, text=»* OF LINE 8 «, t00=0x0024, t01=0x0090}
0x38d2…3904 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'0801' INDICATE LAST LINE «, t00=0x0024, t01=0x00a8}
0x3904…3924 Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x0024, t01=0x00da}
0x3924…3940 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0024, t01=0x00fa}
0x3940…396e Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x0024, t01=0x0116}
0x396e…397c Head {h00=0x000a, h01=0x0050, text=» RET «, t00=0x0024, t01=0x0144}
0x397c…398a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0152}
0x398a…3994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0160}
0x3994…39ce Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0024, t01=0x016a}
0x39ce…39d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0014}
0x39d8…39fa Head {h00=0x001e, h01=0x0050, text=»* FORMATS FOR WRITFD«, t00=0x0025, t01=0x001e}
0x39fa…3a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0040}
0x3a04…3a44 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0025, t01=0x004a}
0x3a44…3a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008a}
0x3a4e…3a62 Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0025, t01=0x0094}
0x3a62…3a7e Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0025, t01=0x00a8}
0x3a7e…3a94 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0025, t01=0x00c4}
0x3a94…3aaa Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0025, t01=0x00da}
0x3aaa…3ac2 Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0025, t01=0x00f0}
0x3ac2…3ad0 Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0025, t01=0x0108}
0x3ad0…3ade Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0025, t01=0x0116}
0x3ade…3af4 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0025, t01=0x0124}
0x3af4…3b0a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0025, t01=0x013a}
0x3b0a…3b20 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0025, t01=0x0150}
0x3b20…3b2e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0166}
0x3b2e…3b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0174}
0x3b38…3b4c Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0025, t01=0x017e}
0x3b4c…3b6c (38, 0, 400) Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0026, t01=0x0004}
0x3b6c…3b8a Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x0026, t01=0x0024}
0x3b8a…3b98 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0042}
0x3b98…3ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0050}
0x3ba2…3bb4 Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x0026, t01=0x005a}
0x3bb4…3bce Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0026, t01=0x006c}
0x3bce…3be4 Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x0026, t01=0x0086}
0x3be4…3bfe Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x0026, t01=0x009c}
0x3bfe…3c1c Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0026, t01=0x00b6}
0x3c1c…3c38 Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x0026, t01=0x00d4}
0x3c38…3c52 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x0026, t01=0x00f0}
0x3c52…3c68 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x0026, t01=0x010a}
0x3c68…3c84 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x0026, t01=0x0120}
0x3c84…3ca0 Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x0026, t01=0x013c}
0x3ca0…3cbc Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x0026, t01=0x0158}
0x3cbc…3cd2 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x0026, t01=0x0174}
0x3cd2…3cf0 Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x0026, t01=0x018a}
0x3cf0…3cfe Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x0027, t01=0x0018}
0x3cfe…3d14 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x0027, t01=0x0026}
0x3d14…3d2e Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0027, t01=0x003c}
0x3d2e…3d4a Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x0027, t01=0x0056}
0x3d4a…3d60 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x0027, t01=0x0072}
0x3d60…3d7c Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x0027, t01=0x0088}
0x3d7c…3d8a Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x0027, t01=0x00a4}
0x3d8a…3d98 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x00b2}
0x3d98…3da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c0}
0x3da2…3db4 Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x0027, t01=0x00ca}
0x3db4…3dc8 Head {h00=0x0010, h01=0x0050, text=» FCOPY =C'&'«, t00=0x0027, t01=0x00dc}
0x3dc8…3de2 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x0027, t01=0x00f0}
0x3de2…3dfe Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x0027, t01=0x010a}
0x3dfe…3e2e Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x0027, t01=0x0126}
0x3e2e…3e3c Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0027, t01=0x0156}
0x3e3c…3e4a Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x0027, t01=0x0164}
0x3e4a…3e78 Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x0027, t01=0x0172}
0x3e78…3e86 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0010}
0x3e86…3e9a Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0028, t01=0x001e}
0x3e9a…3e9e Head {h00=0x4004, h01=0x0000}
0x3e9e…3ea2 00 28 00 32 ┆ ( 2┆
0x3ea2…3eaa (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x3eaa…3efa (42, 0, 400) 32 06 82 4f 07 94 50 76 f6 a1 79 f8 e9 a0 00 50 52 08 f6 a1 79 9e f6 a1 79 f8 eb 20 07 80 56 8a e2 30 f6 a1 7a 14 22 7f e2 31 13 01 14 01 17 01 91 a0 00 01 ea 20 00 20 52 24 ea 20 00 7f 58 34 ea 20 00 7d 54 02 02 39 ea 20 00 7e 54 02 02 35 ┆2 O Pv y PR y y V 0 z " 1 R$ X4 }T 9 ~T 5┆
0x3efa…3f4a ea 20 00 7c 54 02 02 3c e2 5d ff ff 5f 52 22 06 32 06 82 4f 07 94 50 16 22 04 50 04 02 1e 57 02 02 1f e2 5d ff ff 92 a0 00 01 17 01 5f 72 e9 a0 00 50 52 04 f6 a1 79 9e eb 20 07 80 56 1c e2 30 f6 a1 7a 14 22 7f e2 31 13 01 14 01 17 01 91 a0 ┆ |T < ] _R" 2 O P " P W ] _r PR y V 0 z " 1 ┆
0x3f4a…3f9a 00 01 ea 20 00 20 5a 4a 5f 2c 01 02 81 43 00 04 81 4e 07 84 82 20 01 01 82 43 00 0a 82 20 01 00 e9 20 00 50 52 0a 92 43 00 0a 99 20 00 50 5f 10 91 43 00 0a 07 8b 28 04 00 01 a0 4f 07 94 f0 3a 81 42 00 02 f6 a1 79 60 e2 45 00 03 01 04 5f 44 ┆ ZJ_, C N C PR C P_ C ( O : B y` E _D┆
0x3f9a…3fea ea 20 00 7b 54 02 02 2a ea 20 00 60 54 02 02 3b f0 3a 87 42 00 02 17 02 81 a0 00 50 91 86 82 20 20 20 e2 3d e2 5d 00 01 17 02 99 a0 00 02 59 0e 02 00 05 00 87 42 00 02 17 02 99 86 f0 3a 87 14 25 80 50 44 01 02 37 a0 50 06 81 20 00 52 91 0a ┆ {T * `T ; : B P = ] Y B : % PD 7 P R ┆
0x3fea…403a 81 43 00 04 07 8b 28 04 00 01 81 42 00 0a 21 ff 19 50 56 24 81 42 00 02 02 2b e2 45 00 01 82 20 14 20 e2 45 00 03 3a 68 e2 45 00 02 02 54 82 43 00 04 07 86 28 04 00 01 04 28 20 00 00 00 00 00 10 40 00 00 00 00 10 00 00 00 00 00 00 00 00 08 ┆ C ( B ! PV$ B + E E :h E T C ( ( @ ┆
0x403a…408a (43, 0, 400) 02 01 e2 43 00 0b 82 20 01 00 92 43 00 0a 5f 86 9a 8a 82 4e 07 94 50 12 22 04 50 04 02 1e 57 02 02 1f e2 3d 17 01 92 a0 00 01 f0 3a ea 20 00 20 52 12 ea 20 00 7f 50 0c ea 20 00 ff 54 04 2d a0 f0 3a ad 08 f0 3a 7e c4 7e c4 7e c4 7e c4 7e c4 ┆ C C _ N P " P W = : R P T - : :~ ~ ~ ~ ~ ┆
0x408a…40da 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7f 04 7f 04 7f 04 7e c4 7f 04 7f 04 7f 04 7f 04 7f 04 7f 04 7f 04 7f 04 7f 04 7f 04 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 ┆~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ┆
0x40da…412a 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7d 32 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7e c4 7d 32 7d 32 7d 32 7d 32 7d 32 ┆~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }2}2}2}2}2┆
0x412a…417a 7d 32 7d 32 7d 32 7e c4 7e c4 7e c4 7d 32 7d 32 7d 32 7d 32 7d 32 80 86 80 a6 80 76 80 aa 80 ae 80 ae 80 ae 80 ae 80 ae 80 ae 80 ae 81 4a 80 c2 81 0c 81 0c 81 0c 81 0c 81 0c 81 0c 81 0c 81 0c 81 0c 81 0c 81 0c 81 0c 7d 32 7d 32 7d 32 7d 32 ┆}2}2}2~ ~ ~ }2}2}2}2}2 v J }2}2}2}2┆
0x417a…41ca 7d 32 7d 32 7d 32 7d 32 7d 32 7d 32 7d 32 7d 32 80 b2 7d 66 7d 34 7d 42 7d 52 7e 60 7d d2 7d 86 7e 3e 81 c0 81 5e 80 0e 7f b6 82 ee 7e 0e 7e 28 83 04 81 10 7d 32 7d 32 00 00 00 00 1f ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff f1 ┆}2}2}2}2}2}2}2}2 }f}4}B}R~`} } ~> ^ ~ ~( }2}2 ┆
0x41ca…421a (44, 0, 400) 7d 32 7e ee 7e e4 7e fe 7d 32 7d 32 7d 32 7e be 7e be 7e be 7e be 7e be 7e be 7e be 7e be f6 a1 a1 4e 81 26 80 a0 ff de 90 96 81 43 00 0a 07 b7 28 04 00 01 07 80 28 04 00 01 f6 a1 73 1c 80 a0 ff de 90 96 f6 a1 4e ee 84 42 00 02 f6 a1 73 32 ┆}2~ ~ ~ }2}2}2~ ~ ~ ~ ~ ~ ~ ~ N & C ( ( s N B s2┆
0x421a…426a 5f 1e 90 96 81 43 00 0a 07 b7 28 04 00 01 f0 3a f6 a1 a1 4e 83 86 84 bb 85 db ff fe 9e a0 00 04 a0 4f 07 96 f6 a1 82 28 84 2e 94 56 00 06 e1 50 00 03 21 ff 80 a0 ff de f6 a1 7b b2 f6 a1 76 e4 01 01 81 20 07 81 81 4f 07 88 f6 a1 82 14 a0 4f ┆_ C ( : N O ( . V P ! { v O O┆
0x426a…42ba 07 9c 01 03 81 4f 07 a4 81 4e 07 a8 54 04 f6 a1 7c 68 81 4e 07 aa 54 10 83 20 07 92 93 0e 06 02 f6 a1 4c 3e 80 cf 07 aa 81 4e 07 a6 54 04 f6 a1 7c 52 87 20 07 a4 97 0e 28 04 00 07 e8 ce 07 a6 50 6a e8 ce 07 aa 50 38 80 cf 07 a2 f6 a1 4e 72 ┆ O N T |h N T L> N T |R ( Pj P8 Nr┆
0x42ba…430a 5f 4a 80 a0 ff 8e 90 96 07 01 87 43 00 04 87 43 00 0a 80 cf 07 a6 57 12 80 a0 ff de 90 96 80 cf 07 a8 01 00 f6 a1 7d 26 07 00 28 04 00 01 f0 3a a0 4f 07 aa 83 20 00 04 93 0e e2 2c 22 18 32 10 58 8a 04 8b 85 4e 07 92 86 20 07 80 f6 a1 83 18 ┆_J C C W }& ( : O ," 2 X N ┆
0x430a…435a 81 4e 07 8c 21 0e 81 4f 07 8c 5f a4 a0 4f 07 a6 82 42 00 0a 50 06 82 42 00 08 50 08 07 04 28 04 00 01 5f bc 81 4e 07 8c 21 01 5c 10 e2 62 00 02 f6 a1 83 fa 81 4e 07 8c ff fe 80 02 11 00 40 10 05 02 00 80 40 80 01 00 00 10 00 01 00 00 00 48 ┆ N ! O _ O B P B P ( _ N ! b N @ @ H┆