DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦d2d728a8f⟧

    Length: 19422 (0x4bde)
    Notes: pts_type(SC)
    Names: »KMDIO.SC«

Derivation

└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/KMDIO.SC« 

PTS(SC)

	IDENT KMDIO 	02.03.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 TFELT901 
 CLEAR TFELT911 
 CLEAR TFELT921 
 CLEAR TFELT931 
 CLEAR TFELT941 
 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 SPINPUT,=X'00' YES
 MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT 
 EDIT SPINPUT,PFRM1 
WRFD025 
	MOVE	GSWSTR1,=X'00'
 MOVE GSWBIN6,CBIN0 FIND LENGTH 
 MOVE GSWBIN7,=W'26'
 MATCH SPINPUT,GSWBIN6,GSWBIN7,GSWSTR1,CBIN0,CBIN1
 CLEAR CSPLITFL 
 CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? 
 COPY CPCKBUF,GSWBIN3,GSWBIN6,SPINPUT,CBIN0 NO
 ADD GSWBIN3,GSWBIN6
 SUB GSWBIN4,GSWBIN6 ADJUST POINTERS
 B WRFD020 SEE IF MORE
WRFD030 
 COPY CPCKBUF,GSWBIN3,GSWBIN4,SPINPUT,CBIN0 
 MOVE GSWSTR1,=X'21' CONTINUATION MARK
 ADD GSWBIN3,GSWBIN4
 COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 
 DLETE SPINPUT,CBIN0,GSWBIN4
 SET CSPLITFL 
 PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
 BNOK WRFDERR 
 TBT GTTESTFL,WRFD005 
 ADD CTWBIN1,CBIN1
 ADD CRECNR,CBIN1 
 ADD CRECBCD,=D'1'
 B WRFD005 GO AND PACK REST 
WRFD070 
 TBT TFELT90,WRFD090
 TBT TFELT91,WRFD091
 TBT TFELT92,WRFD092
 TBT TFELT93,WRFD093
 TBT TFELT94,WRFD094
 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
* 
WRFD090 
 MOVE SPINPUT,=X'26393000'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90,CBIN0
 CLEAR TFELT90
 SET TFELT901 
 B WRFD095
WRFD091 
 MOVE SPINPUT,=X'26393100'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT91,CBIN0
 CLEAR TFELT91
 SET TFELT911 
 B WRFD095
WRFD092 
 MOVE SPINPUT,=X'26393200'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT92,CBIN0
 CLEAR TFELT92
 SET TFELT921 
 B WRFD095
WRFD093 
 MOVE SPINPUT,=X'26393300'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT93,CBIN0
 CLEAR TFELT93
 SET TFELT931 
 B WRFD095
WRFD094 
 MOVE SPINPUT,=X'26393400'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT94,CBIN0
 CLEAR TFELT94
 SET TFELT941 
WRFD095 
 B WRFD025
* 
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
JT30
 TBF CF9094,JT35
 CBL GTREGDEX,CBIN8,JT35
 CBG GTREGDEX,CBIN9,JT35
 TBF TFELT901,JT31
 MOVE SPINPUT,=X'00'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90,CBIN0
 WRITE KJTAPE,SPINPUT 
 CLEAR TFELT901 
JT31
 TBF TFELT911,JT32
 MOVE SPINPUT,=X'00'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT91,CBIN0
 WRITE KJTAPE,SPINPUT 
 CLEAR TFELT911 
JT32
 TBF TFELT921,JT33
 MOVE SPINPUT,=X'00'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT92,CBIN0
 WRITE KJTAPE,SPINPUT 
 CLEAR TFELT921 
JT33
 TBF TFELT931,JT34
 MOVE SPINPUT,=X'00'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT93,CBIN0
 WRITE KJTAPE,SPINPUT 
 CLEAR TFELT931 
JT34
 TBF TFELT941,JT35
 MOVE SPINPUT,=X'00'
 XCOPY SPINPUT,CBIN3,CBIN22,GTFELT94,CBIN0
 WRITE KJTAPE,SPINPUT 
 CLEAR TFELT941 
JT35
* 
	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
 FILLR ' ',40 
 FILLR ' ',40 
 FBT CSWFLAG,INIT10 
 FILLR X'00',48 
 FEXIT
INIT10
 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

HexDump

0x0000…0022 (0, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» IDENT KMDIO  02.03.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, 400)  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 TFELT901 «, t00=0x0002, t01=0x00ba}
0x03ec…0404              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT911 «, t00=0x0002, t01=0x00d2}
0x0404…041c              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT921 «, t00=0x0002, t01=0x00ea}
0x041c…0434              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT931 «, t00=0x0002, t01=0x0102}
0x0434…044c              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT941 «, t00=0x0002, t01=0x011a}
0x044c…0464              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0002, t01=0x0132}
0x0464…0496              Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0002, t01=0x014a}
0x0496…04aa              Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0002, t01=0x017c}
0x04aa…04c6              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0002, t01=0x0190}
0x04c6…04d6              Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0003, t01=0x001c}
0x04d6…04ea              Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0003, t01=0x002c}
0x04ea…050e              Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0003, t01=0x0040}
0x050e…0524              Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0003, t01=0x0064}
0x0524…0534              Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0003, t01=0x007a}
0x0534…0552              Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0003, t01=0x008a}
0x0552…0580              Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0003, t01=0x00a8}
0x0580…059c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0003, t01=0x00d6}
0x059c…05ba              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x00f2}
0x05ba…05d6              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0003, t01=0x0110}
0x05d6…0610              Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0003, t01=0x012c}
0x0610…062e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x0166}
0x062e…0648              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0003, t01=0x0184}
0x0648…0676              Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0004, t01=0x000e}
0x0676…069a              Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0004, t01=0x003c}
0x069a…06ca              Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0004, t01=0x0060}
0x06ca…06da              Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0004, t01=0x0090}
0x06da…06f4              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0004, t01=0x00a0}
0x06f4…071a              Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0004, t01=0x00ba}
0x071a…0752              Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0004, t01=0x00e0}
0x0752…0772              Head {h00=0x001c, h01=0x0050, text=» MOVE SPINPUT,=X'00' YES«, t00=0x0004, t01=0x0118}
0x0772…07a0              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0004, t01=0x0138}
0x07a0…07bc              Head {h00=0x0018, h01=0x0050, text=» EDIT SPINPUT,PFRM1 «, t00=0x0004, t01=0x0166}
0x07bc…07cc              Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0004, t01=0x0182}
0x07cc…07e8 (5, 0, 398)  Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0005, t01=0x0004}
0x07e8…0810              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0005, t01=0x0020}
0x0810…082c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'26'«, t00=0x0005, t01=0x0048}
0x082c…0866              Head {h00=0x0036, h01=0x0050, text=» MATCH SPINPUT,GSWBIN6,GSWBIN7,GSWSTR1,CBIN0,CBIN1«, t00=0x0005, t01=0x0064}
0x0866…087e              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0005, t01=0x009e}
0x087e…08ae              Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0005, t01=0x00b6}
0x08ae…08e4              Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,SPINPUT,CBIN0 NO«, t00=0x0005, t01=0x00e6}
0x08e4…0900              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0005, t01=0x011c}
0x0900…092c              Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0005, t01=0x0138}
0x092c…094a              Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0005, t01=0x0164}
0x094a…095a              Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0005, t01=0x0182}
0x095a…098e (6, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,SPINPUT,CBIN0 «, t00=0x0006, t01=0x0004}
0x098e…09bc              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0006, t01=0x0038}
0x09bc…09d8              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0006, t01=0x0066}
0x09d8…0a0a              Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0006, t01=0x0082}
0x0a0a…0a2e              Head {h00=0x0020, h01=0x0050, text=» DLETE SPINPUT,CBIN0,GSWBIN4«, t00=0x0006, t01=0x00b4}
0x0a2e…0a44              Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0006, t01=0x00d8}
0x0a44…0a72              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0006, t01=0x00ee}
0x0a72…0a88              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0006, t01=0x011c}
0x0a88…0aa6              Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0006, t01=0x0132}
0x0aa6…0ac0              Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0006, t01=0x0150}
0x0ac0…0ada              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0006, t01=0x016a}
0x0ada…0af4              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0006, t01=0x0184}
0x0af4…0b18              Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0007, t01=0x000e}
0x0b18…0b28              Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0007, t01=0x0032}
0x0b28…0b44              Head {h00=0x0018, h01=0x0050, text=» TBT TFELT90,WRFD090«, t00=0x0007, t01=0x0042}
0x0b44…0b60              Head {h00=0x0018, h01=0x0050, text=» TBT TFELT91,WRFD091«, t00=0x0007, t01=0x005e}
0x0b60…0b7c              Head {h00=0x0018, h01=0x0050, text=» TBT TFELT92,WRFD092«, t00=0x0007, t01=0x007a}
0x0b7c…0b98              Head {h00=0x0018, h01=0x0050, text=» TBT TFELT93,WRFD093«, t00=0x0007, t01=0x0096}
0x0b98…0bb4              Head {h00=0x0018, h01=0x0050, text=» TBT TFELT94,WRFD094«, t00=0x0007, t01=0x00b2}
0x0bb4…0bd0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0007, t01=0x00ce}
0x0bd0…0c02              Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0007, t01=0x00ea}
0x0c02…0c30              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x011c}
0x0c30…0c46              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x014a}
0x0c46…0c64              Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0007, t01=0x0160}
0x0c64…0c7e              Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x017e}
0x0c7e…0c98              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0008, t01=0x0008}
0x0c98…0cb2              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0008, t01=0x0022}
0x0cb2…0cd2              Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0008, t01=0x003c}
0x0cd2…0ce8              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x005c}
0x0ce8…0cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0072}
0x0cf2…0d16              Head {h00=0x0020, h01=0x0050, text=»*        LOOK FOR ACCOUNT NO«, t00=0x0008, t01=0x007c}
0x0d16…0d3e              Head {h00=0x0024, h01=0x0050, text=»*        IN KONTOPLAN. IF FOUND,«, t00=0x0008, t01=0x00a0}
0x0d3e…0d60              Head {h00=0x001e, h01=0x0050, text=»*        SET FLAG GTKORTFL«, t00=0x0008, t01=0x00c8}
0x0d60…0d6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ea}
0x0d6a…0d8e              Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0008, t01=0x00f4}
0x0d8e…0d98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x0d98…0dd6              Head {h00=0x003a, h01=0x0050, text=»*       HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' «, t00=0x0008, t01=0x0122}
0x0dd6…0df8              Head {h00=0x001e, h01=0x0050, text=»WRFD075   DISK N[STEN FULD«, t00=0x0008, t01=0x0160}
0x0df8…0e0c              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0008, t01=0x0182}
0x0e0c…0e24              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x0008}
0x0e24…0e40              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x0020}
0x0e40…0e66              Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'02' FILE CODE«, t00=0x0009, t01=0x003c}
0x0e66…0e8e              Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x0009, t01=0x0062}
0x0e8e…0eb2              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x008a}
0x0eb2…0ec6              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x00ae}
0x0ec6…0ede              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x00c2}
0x0ede…0eea              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00da}
0x0eea…0ef4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e6}
0x0ef4…0f04              Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x0009, t01=0x00f0}
0x0f04…0f1c              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x0100}
0x0f1c…0f30              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0009, t01=0x0118}
0x0f30…0f56              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0009, t01=0x012c}
0x0f56…0f62              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0152}
0x0f62…0f6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f6c…0f7c              Head {h00=0x000c, h01=0x0050, text=»WRFD090 «, t00=0x0009, t01=0x0168}
0x0f7c…0f9e              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393000'«, t00=0x0009, t01=0x0178}
0x0f9e…0fd0              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90,CBIN0«, t00=0x000a, t01=0x000a}
0x0fd0…0fe6              Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT90«, t00=0x000a, t01=0x003c}
0x0fe6…0ffc              Head {h00=0x0012, h01=0x0050, text=» SET TFELT901 «, t00=0x000a, t01=0x0052}
0x0ffc…100e              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x0068}
0x100e…101e              Head {h00=0x000c, h01=0x0050, text=»WRFD091 «, t00=0x000a, t01=0x007a}
0x101e…1040              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393100'«, t00=0x000a, t01=0x008a}
0x1040…1072              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT91,CBIN0«, t00=0x000a, t01=0x00ac}
0x1072…1088              Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT91«, t00=0x000a, t01=0x00de}
0x1088…109e              Head {h00=0x0012, h01=0x0050, text=» SET TFELT911 «, t00=0x000a, t01=0x00f4}
0x109e…10b0              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x010a}
0x10b0…10c0              Head {h00=0x000c, h01=0x0050, text=»WRFD092 «, t00=0x000a, t01=0x011c}
0x10c0…10e2              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393200'«, t00=0x000a, t01=0x012c}
0x10e2…1114              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT92,CBIN0«, t00=0x000a, t01=0x014e}
0x1114…112a              Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT92«, t00=0x000a, t01=0x0180}
0x112a…1140              Head {h00=0x0012, h01=0x0050, text=» SET TFELT921 «, t00=0x000b, t01=0x0008}
0x1140…1152              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000b, t01=0x001e}
0x1152…1162              Head {h00=0x000c, h01=0x0050, text=»WRFD093 «, t00=0x000b, t01=0x0030}
0x1162…1184              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393300'«, t00=0x000b, t01=0x0040}
0x1184…11b6              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT93,CBIN0«, t00=0x000b, t01=0x0062}
0x11b6…11cc              Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT93«, t00=0x000b, t01=0x0094}
0x11cc…11e2              Head {h00=0x0012, h01=0x0050, text=» SET TFELT931 «, t00=0x000b, t01=0x00aa}
0x11e2…11f4              Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000b, t01=0x00c0}
0x11f4…1204              Head {h00=0x000c, h01=0x0050, text=»WRFD094 «, t00=0x000b, t01=0x00d2}
0x1204…1226              Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393400'«, t00=0x000b, t01=0x00e2}
0x1226…1258              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT94,CBIN0«, t00=0x000b, t01=0x0104}
0x1258…126e              Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT94«, t00=0x000b, t01=0x0136}
0x126e…1284              Head {h00=0x0012, h01=0x0050, text=» SET TFELT941 «, t00=0x000b, t01=0x014c}
0x1284…1294              Head {h00=0x000c, h01=0x0050, text=»WRFD095 «, t00=0x000b, t01=0x0162}
0x1294…12a6              Head {h00=0x000e, h01=0x0050, text=» B WRFD025«, t00=0x000b, t01=0x0172}
0x12a6…12b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0184}
0x12b0…12c0              Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x000b, t01=0x018e}
0x12c0…12ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000e}
0x12ca…12f0              Head {h00=0x0022, h01=0x0050, text=»*     HERE MUST BEE RECOVERRY «, t00=0x000c, t01=0x0018}
0x12f0…130c              Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x000c, t01=0x003e}
0x130c…132a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x000c, t01=0x005a}
0x132a…1346              Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x000c, t01=0x0078}
0x1346…135c              Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x000c, t01=0x0094}
0x135c…1370              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000c, t01=0x00aa}
0x1370…1386              Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000c, t01=0x00be}
0x1386…13aa              Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x000c, t01=0x00d4}
0x13aa…13b6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x00f8}
0x13b6…13c4              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0104}
0x13c4…13d2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0112}
0x13d2…1406              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000c, t01=0x0120}
0x1406…1410              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0154}
0x1410…1424              Head {h00=0x0010, h01=0x0050, text=»*     EDATNR«, t00=0x000c, t01=0x015e}
0x1424…145c              Head {h00=0x0034, h01=0x0050, text=»*          FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000c, t01=0x0172}
0x145c…149a              Head {h00=0x003a, h01=0x0050, text=»*          AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000d, t01=0x001a}
0x149a…14a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14a4…14dc              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000d, t01=0x0062}
0x14dc…14f0              Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000d, t01=0x009a}
0x14f0…1508              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000d, t01=0x00ae}
0x1508…152c              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000d, t01=0x00c6}
0x152c…1548              Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000d, t01=0x00ea}
0x1548…156c              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000d, t01=0x0106}
0x156c…159e              Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000d, t01=0x012a}
0x159e…15c2              Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000d, t01=0x015c}
0x15c2…15d2              Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000d, t01=0x0180}
0x15d2…15f6              Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000d, t01=0x0190}
0x15f6…160c              Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000e, t01=0x0024}
0x160c…161c              Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000e, t01=0x003a}
0x161c…1628              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x004a}
0x1628…1638              Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000e, t01=0x0056}
0x1638…165c              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000e, t01=0x0066}
0x165c…1680              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000e, t01=0x008a}
0x1680…1692              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x00ae}
0x1692…16a2              Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000e, t01=0x00c0}
0x16a2…16c6              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000e, t01=0x00d0}
0x16c6…16ea              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000e, t01=0x00f4}
0x16ea…16fc              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x0118}
0x16fc…170c              Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x000e, t01=0x012a}
0x170c…1730              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x000e, t01=0x013a}
0x1730…1754              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x000e, t01=0x015e}
0x1754…1766              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000e, t01=0x0182}
0x1766…1776 (15, 0, 400) Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x000f, t01=0x0004}
0x1776…179a              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x000f, t01=0x0014}
0x179a…17ac              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000f, t01=0x0038}
0x17ac…17ba              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x004a}
0x17ba…17c8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0058}
0x17c8…17d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0066}
0x17d2…17dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0070}
0x17dc…17f0              Head {h00=0x0010, h01=0x0050, text=»WCHECK PROC «, t00=0x000f, t01=0x007a}
0x17f0…17fc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x008e}
0x17fc…180a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x009a}
0x180a…1818              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00a8}
0x1818…1836              Head {h00=0x001a, h01=0x0050, text=»WRITJT   PROC  $JTLIT «, t00=0x000f, t01=0x00b6}
0x1836…184a              Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x000f, t01=0x00d4}
0x184a…1866              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x00e8}
0x1866…1870              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0104}
0x1870…18aa              Head {h00=0x0036, h01=0x0050, text=»*        THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x000f, t01=0x010e}
0x18aa…18d8              Head {h00=0x002a, h01=0x0050, text=»*        DEPENDING ON TRANSACTION TYPE«, t00=0x000f, t01=0x0148}
0x18d8…18e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0176}
0x18e2…18fe              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x0180}
0x18fe…1912              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0010, t01=0x000c}
0x1912…1926              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0010, t01=0x0020}
0x1926…1942              Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x0010, t01=0x0034}
0x1942…1968              Head {h00=0x0022, h01=0x0050, text=»         MOVE  GSWBIN1,$JTLIT «, t00=0x0010, t01=0x0050}
0x1968…1992              Head {h00=0x0026, h01=0x0050, text=»         CBG   GSWBIN1,CBIN0,JT10 «, t00=0x0010, t01=0x0076}
0x1992…19dc              Head {h00=0x0046, h01=0x0050, text=»         PERF  FRMTJT                  GET FORMAT ACORDING TO TYPE«, t00=0x0010, t01=0x00a0}
0x19dc…19f8              Head {h00=0x0018, h01=0x0050, text=»         B     JT20 «, t00=0x0010, t01=0x00ea}
0x19f8…1a2c              Head {h00=0x0030, h01=0x0050, text=»JT10 PERF FRMXJT,GSWBIN1 GET SPECIAL FORMAT «, t00=0x0010, t01=0x0106}
0x1a2c…1a38              Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x0010, t01=0x013a}
0x1a38…1a6c              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x0010, t01=0x0146}
0x1a6c…1a86              Head {h00=0x0016, h01=0x0050, text=» TBT GTNWFLG,JT50 «, t00=0x0010, t01=0x017a}
0x1a86…1ab2 (17, 0, 400) Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x0011, t01=0x0004}
0x1ab2…1abe              Head {h00=0x0008, h01=0x0050, text=»JT30«, t00=0x0011, t01=0x0030}
0x1abe…1ad6              Head {h00=0x0014, h01=0x0050, text=» TBF CF9094,JT35«, t00=0x0011, t01=0x003c}
0x1ad6…1af6              Head {h00=0x001c, h01=0x0050, text=» CBL GTREGDEX,CBIN8,JT35«, t00=0x0011, t01=0x0054}
0x1af6…1b16              Head {h00=0x001c, h01=0x0050, text=» CBG GTREGDEX,CBIN9,JT35«, t00=0x0011, t01=0x0074}
0x1b16…1b30              Head {h00=0x0016, h01=0x0050, text=» TBF TFELT901,JT31«, t00=0x0011, t01=0x0094}
0x1b30…1b4c              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0011, t01=0x00ae}
0x1b4c…1b7e              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90,CBIN0«, t00=0x0011, t01=0x00ca}
0x1b7e…1b9c              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0011, t01=0x00fc}
0x1b9c…1bb4              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT901 «, t00=0x0011, t01=0x011a}
0x1bb4…1bc0              Head {h00=0x0008, h01=0x0050, text=»JT31«, t00=0x0011, t01=0x0132}
0x1bc0…1bda              Head {h00=0x0016, h01=0x0050, text=» TBF TFELT911,JT32«, t00=0x0011, t01=0x013e}
0x1bda…1bf6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0011, t01=0x0158}
0x1bf6…1c28              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT91,CBIN0«, t00=0x0011, t01=0x0174}
0x1c28…1c46              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0012, t01=0x0016}
0x1c46…1c5e              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT911 «, t00=0x0012, t01=0x0034}
0x1c5e…1c6a              Head {h00=0x0008, h01=0x0050, text=»JT32«, t00=0x0012, t01=0x004c}
0x1c6a…1c84              Head {h00=0x0016, h01=0x0050, text=» TBF TFELT921,JT33«, t00=0x0012, t01=0x0058}
0x1c84…1ca0              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0012, t01=0x0072}
0x1ca0…1cd2              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT92,CBIN0«, t00=0x0012, t01=0x008e}
0x1cd2…1cf0              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0012, t01=0x00c0}
0x1cf0…1d08              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT921 «, t00=0x0012, t01=0x00de}
0x1d08…1d14              Head {h00=0x0008, h01=0x0050, text=»JT33«, t00=0x0012, t01=0x00f6}
0x1d14…1d2e              Head {h00=0x0016, h01=0x0050, text=» TBF TFELT931,JT34«, t00=0x0012, t01=0x0102}
0x1d2e…1d4a              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0012, t01=0x011c}
0x1d4a…1d7c              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT93,CBIN0«, t00=0x0012, t01=0x0138}
0x1d7c…1d9a              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0012, t01=0x016a}
0x1d9a…1db2              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT931 «, t00=0x0012, t01=0x0188}
0x1db2…1dbe              Head {h00=0x0008, h01=0x0050, text=»JT34«, t00=0x0013, t01=0x0010}
0x1dbe…1dd8              Head {h00=0x0016, h01=0x0050, text=» TBF TFELT941,JT35«, t00=0x0013, t01=0x001c}
0x1dd8…1df4              Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0013, t01=0x0036}
0x1df4…1e26              Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTFELT94,CBIN0«, t00=0x0013, t01=0x0052}
0x1e26…1e44              Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x0013, t01=0x0084}
0x1e44…1e5c              Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT941 «, t00=0x0013, t01=0x00a2}
0x1e5c…1e68              Head {h00=0x0008, h01=0x0050, text=»JT35«, t00=0x0013, t01=0x00ba}
0x1e68…1e72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c6}
0x1e72…1ea4              Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x0013, t01=0x00d0}
0x1ea4…1ec0              Head {h00=0x0018, h01=0x0050, text=»         BOK   JTRET«, t00=0x0013, t01=0x0102}
0x1ec0…1ef0              Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x0013, t01=0x011e}
0x1ef0…1f04              Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x0013, t01=0x014e}
0x1f04…1f12              Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x0013, t01=0x0162}
0x1f12…1f1e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x0170}
0x1f1e…1f2a              Head {h00=0x0008, h01=0x0050, text=»JT50«, t00=0x0013, t01=0x017c}
0x1f2a…1f4c              Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KJTAPE,GTSTRFMT«, t00=0x0013, t01=0x0188}
0x1f4c…1f58              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x001a}
0x1f58…1f6e              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0014, t01=0x0026}
0x1f6e…1f84              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0014, t01=0x003c}
0x1f84…1f9a              Head {h00=0x0012, h01=0x0050, text=»WTALLY   PROC «, t00=0x0014, t01=0x0052}
0x1f9a…1fb6              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0014, t01=0x0068}
0x1fb6…1fc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0084}
0x1fc0…1fe2              Head {h00=0x001e, h01=0x0050, text=»*        WRITE TALLY ROLL «, t00=0x0014, t01=0x008e}
0x1fe2…1fec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b0}
0x1fec…2008              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x00ba}
0x2008…201c              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0014, t01=0x00d6}
0x201c…2030              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0014, t01=0x00ea}
0x2030…207c              Head {h00=0x0048, h01=0x0050, text=»         EDWRT   .NW,KTALLY,GTSTRFMT           EDWRT WITH THE FORMAT«, t00=0x0014, t01=0x00fe}
0x207c…209c              Head {h00=0x001c, h01=0x0050, text=» RET  STORED IN GTSTRFMT«, t00=0x0014, t01=0x014a}
0x209c…20b0              Head {h00=0x0010, h01=0x0050, text=»        PEND«, t00=0x0014, t01=0x016a}
0x20b0…20ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017e}
0x20ba…20c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0188}
0x20c4…20da (21, 0, 398) Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0015, t01=0x0004}
0x20da…20f0              Head {h00=0x0012, h01=0x0050, text=»CRKJ     PROC «, t00=0x0015, t01=0x001a}
0x20f0…210c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0015, t01=0x0030}
0x210c…2116              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004c}
0x2116…2152              Head {h00=0x0038, h01=0x0050, text=»*         DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x0015, t01=0x0056}
0x2152…215c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0092}
0x215c…2178              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0015, t01=0x009c}
0x2178…21a4              Head {h00=0x0028, h01=0x0050, text=»         EDWRT   .NW,KJTAPE,CRJTFMT «, t00=0x0015, t01=0x00b8}
0x21a4…21b8              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0015, t01=0x00e4}
0x21b8…21cc              Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x0015, t01=0x00f8}
0x21cc…21ea              Head {h00=0x001a, h01=0x0050, text=»         FILLR   ' ',2«, t00=0x0015, t01=0x010c}
0x21ea…2200              Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x0015, t01=0x012a}
0x2200…2216              Head {h00=0x0012, h01=0x0050, text=»        FMEND «, t00=0x0015, t01=0x0140}
0x2216…222c              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0015, t01=0x0156}
0x222c…2236              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016c}
0x2236…2240              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0176}
0x2240…2252              Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x0015, t01=0x0180}
0x2252…226e (22, 0, 400) Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0016, t01=0x0004}
0x226e…2278              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0020}
0x2278…22b6              Head {h00=0x003a, h01=0x0050, text=»*          DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x0016, t01=0x002a}
0x22b6…22c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0068}
0x22c0…22dc              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x0072}
0x22dc…22fa              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x0016, t01=0x008e}
0x22fa…2306              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x00ac}
0x2306…231a              Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x0016, t01=0x00b8}
0x231a…232e              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0016, t01=0x00cc}
0x232e…2344              Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x0016, t01=0x00e0}
0x2344…2352              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0016, t01=0x00f6}
0x2352…2360              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0104}
0x2360…236a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0112}
0x236a…2374              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011c}
0x2374…238a              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0016, t01=0x0126}
0x238a…239e              Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0016, t01=0x013c}
0x239e…23a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0150}
0x23a8…23c6              Head {h00=0x001a, h01=0x0050, text=»*        WRITE VOUCHER«, t00=0x0016, t01=0x015a}
0x23c6…23d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0178}
0x23d0…23fe              Head {h00=0x002a, h01=0x0050, text=»*        IN CYCLE  POSITION AND WRITE «, t00=0x0016, t01=0x0182}
0x23fe…242a              Head {h00=0x0028, h01=0x0050, text=»*                  (MAY BE NEW PAGE)«, t00=0x0017, t01=0x0020}
0x242a…2434              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004c}
0x2434…245c              Head {h00=0x0024, h01=0x0050, text=»*        NOT CYCLE  GET LINE NR «, t00=0x0017, t01=0x0056}
0x245c…2488              Head {h00=0x0028, h01=0x0050, text=»*                  POSITION VOUCHER «, t00=0x0017, t01=0x007e}
0x2488…24a8              Head {h00=0x001c, h01=0x0050, text=»*                  WRITE«, t00=0x0017, t01=0x00aa}
0x24a8…24d6              Head {h00=0x002a, h01=0x0050, text=»*                  AND RELEASE VOUCHER«, t00=0x0017, t01=0x00ca}
0x24d6…24e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f8}
0x24e0…24fc              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x0102}
0x24fc…2524              Head {h00=0x0024, h01=0x0050, text=»         TBT     GTCYFLG,CYVOUCH«, t00=0x0017, t01=0x011e}
0x2524…253a              Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0017, t01=0x0146}
0x253a…254a              Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0017, t01=0x015c}
0x254a…2576              Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0017, t01=0x016c}
0x2576…2592              Head {h00=0x0018, h01=0x0050, text=»         PERF GRASPV«, t00=0x0018, t01=0x0008}
0x2592…25aa              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0018, t01=0x0024}
0x25aa…25d2              Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x0018, t01=0x003c}
0x25d2…25f2              Head {h00=0x001c, h01=0x0050, text=»         BNOK    WOBILAG«, t00=0x0018, t01=0x0064}
0x25f2…2612              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x0018, t01=0x0084}
0x2612…2630              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0018, t01=0x00a4}
0x2630…2640              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0018, t01=0x00c2}
0x2640…2662              Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x0018, t01=0x00d2}
0x2662…267e              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0018, t01=0x00f4}
0x267e…2696              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2,  C «, t00=0x0018, t01=0x0110}
0x2696…26bc              Head {h00=0x0022, h01=0x0050, text=»  WO99,WO98,WO97,WO96,WO95,  C«, t00=0x0018, t01=0x0128}
0x26bc…26da              Head {h00=0x001a, h01=0x0050, text=»  WO94,WO93,WO92,WO91 «, t00=0x0018, t01=0x014e}
0x26da…26e6              Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x0018, t01=0x016c}
0x26e6…2700              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x0018, t01=0x0178}
0x2700…271c (25, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0019, t01=0x0004}
0x271c…272c              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0019, t01=0x0020}
0x272c…2738              Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x0019, t01=0x0030}
0x2738…2752              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x0019, t01=0x003c}
0x2752…276e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0019, t01=0x0056}
0x276e…277e              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0019, t01=0x0072}
0x277e…278a              Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x0019, t01=0x0082}
0x278a…27a4              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x0019, t01=0x008e}
0x27a4…27c0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0019, t01=0x00a8}
0x27c0…27d0              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0019, t01=0x00c4}
0x27d0…27dc              Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x0019, t01=0x00d4}
0x27dc…27f8              Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x0019, t01=0x00e0}
0x27f8…2814              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x0019, t01=0x00fc}
0x2814…2824              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0019, t01=0x0118}
0x2824…2830              Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x0019, t01=0x0128}
0x2830…283c              Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x0019, t01=0x0134}
0x283c…2848              Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x0019, t01=0x0140}
0x2848…2862              Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0019, t01=0x014c}
0x2862…2874              Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x0019, t01=0x0166}
0x2874…2890              Head {h00=0x0018, h01=0x0050, text=»WO92   SHORT 'BILAG'«, t00=0x0019, t01=0x0178}
0x2890…28b0 (26, 0, 400) Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x001a, t01=0x0004}
0x28b0…28c4              Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x001a, t01=0x0024}
0x28c4…28da              Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001a, t01=0x0038}
0x28da…28ee              Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x001a, t01=0x004e}
0x28ee…2900              Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x001a, t01=0x0062}
0x2900…2920              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x001a, t01=0x0074}
0x2920…293e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001a, t01=0x0094}
0x293e…2956              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001a, t01=0x00b2}
0x2956…2972              Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x001a, t01=0x00ca}
0x2972…2982              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x001a, t01=0x00e6}
0x2982…298e              Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x001a, t01=0x00f6}
0x298e…29bc              Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,=W'3' INDICATE KONTOKORT«, t00=0x001a, t01=0x0102}
0x29bc…29c8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x0130}
0x29c8…29d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x013c}
0x29d2…29e0              Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x001a, t01=0x0146}
0x29e0…2a12              Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x001a, t01=0x0154}
0x2a12…2a4a              Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x001a, t01=0x0186}
0x2a4a…2a5c              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x001b, t01=0x002e}
0x2a5c…2a6a              Head {h00=0x000a, h01=0x0050, text=»WO110 «, t00=0x001b, t01=0x0040}
0x2a6a…2ab2              Head {h00=0x0044, h01=0x0050, text=»         DSC0    .NW,KVOUCH,RLEAS                RELEASE VOUCHER«, t00=0x001b, t01=0x004e}
0x2ab2…2ac6              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x001b, t01=0x0096}
0x2ac6…2ad8              Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x001b, t01=0x00aa}
0x2ad8…2ae8              Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x001b, t01=0x00bc}
0x2ae8…2b02              Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x001b, t01=0x00cc}
0x2b02…2b16              Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x001b, t01=0x00e6}
0x2b16…2b28              Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x001b, t01=0x00fa}
0x2b28…2b34              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x010c}
0x2b34…2b3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0118}
0x2b3e…2b4a              Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x001b, t01=0x0122}
0x2b4a…2b70              Head {h00=0x0022, h01=0x0050, text=»         TBT     TTTSTFLG,WO10«, t00=0x001b, t01=0x012e}
0x2b70…2b92              Head {h00=0x001e, h01=0x0050, text=»         SET     TTTSTFLG «, t00=0x001b, t01=0x0154}
0x2b92…2bc0              Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x001b, t01=0x0176}
0x2bc0…2be0              Head {h00=0x001c, h01=0x0050, text=»         PERF    GRASPV «, t00=0x001c, t01=0x0014}
0x2be0…2bf4              Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x001c, t01=0x0034}
0x2bf4…2c00              Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x001c, t01=0x0048}
0x2c00…2c1e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001c, t01=0x0054}
0x2c1e…2c50              Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x001c, t01=0x0072}
0x2c50…2c72              Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x001c, t01=0x00a4}
0x2c72…2c80              Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001c, t01=0x00c6}
0x2c80…2c8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d4}
0x2c8a…2cae              Head {h00=0x0020, h01=0x0050, text=»*        WRITING OF TEXTLINE«, t00=0x001c, t01=0x00de}
0x2cae…2cd4              Head {h00=0x0022, h01=0x0050, text=»*        FOR CHECK ON WORKSET «, t00=0x001c, t01=0x0102}
0x2cd4…2cde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0128}
0x2cde…2cec              Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x001c, t01=0x0132}
0x2cec…2cf6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0140}
0x2cf6…2d38              Head {h00=0x003e, h01=0x0050, text=»*        SEE OLD SUBS                      LINES 700 - 719«, t00=0x001c, t01=0x014a}
0x2d38…2d42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018c}
0x2d42…2d4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x2d4c…2d58              Head {h00=0x0008, h01=0x0050, text=»WO20«, t00=0x001d, t01=0x0012}
0x2d58…2d94              Head {h00=0x0038, h01=0x0050, text=»         SUB     TTLINNR,=D'2'             NEXT LINE«, t00=0x001d, t01=0x001e}
0x2d94…2dd0              Head {h00=0x0038, h01=0x0050, text=»         CBL     TTLINNR,=D'4',NEWPG       NEW PAGE?«, t00=0x001d, t01=0x005a}
0x2dd0…2de0              Head {h00=0x000c, h01=0x0050, text=» RET  NO«, t00=0x001d, t01=0x0096}
0x2de0…2dea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a6}
0x2dea…2e02              Head {h00=0x0014, h01=0x0050, text=»NEWPG   NEW PAGE«, t00=0x001d, t01=0x00b0}
0x2e02…2e2c              Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x001d, t01=0x00c8}
0x2e2c…2e40              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001d, t01=0x00f2}
0x2e40…2e5e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001d, t01=0x0106}
0x2e5e…2e7e              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x001d, t01=0x0124}
0x2e7e…2e9c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x001d, t01=0x0144}
0x2e9c…2eb6              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x001d, t01=0x0162}
0x2eb6…2ed4              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001d, t01=0x017c}
0x2ed4…2efa              Head {h00=0x0022, h01=0x0050, text=»         DSC0    KVOUCH,RLEAS «, t00=0x001e, t01=0x000a}
0x2efa…2f10              Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x001e, t01=0x0030}
0x2f10…2f1e              Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x001e, t01=0x0046}
0x2f1e…2f2a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0054}
0x2f2a…2f40              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x001e, t01=0x0060}
0x2f40…2f4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0076}
0x2f4a…2f54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0080}
0x2f54…2f6a              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x001e, t01=0x008a}
0x2f6a…2f80              Head {h00=0x0012, h01=0x0050, text=»GRASPV   PROC «, t00=0x001e, t01=0x00a0}
0x2f80…2f9c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x00b6}
0x2f9c…2fa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d2}
0x2fa6…2fc4              Head {h00=0x001a, h01=0x0050, text=»*        GRASP VOUCHER«, t00=0x001e, t01=0x00dc}
0x2fc4…2fce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fa}
0x2fce…2fea              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0104}
0x2fea…2ffe              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001e, t01=0x0120}
0x2ffe…3026              Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x001e, t01=0x0134}
0x3026…303a              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x001e, t01=0x015c}
0x303a…3050              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x001e, t01=0x0170}
0x3050…305a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0186}
0x305a…3064              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0190}
0x3064…307a              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x001f, t01=0x000a}
0x307a…3090              Head {h00=0x0012, h01=0x0050, text=»LINOPT   PROC «, t00=0x001f, t01=0x0020}
0x3090…30ac              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0036}
0x30ac…30b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0052}
0x30b6…30e0              Head {h00=0x0026, h01=0x0050, text=»*        CHECK LINE NUMBER, IF ANY«, t00=0x001f, t01=0x005c}
0x30e0…30ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0086}
0x30ea…3106              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0090}
0x3106…3122              Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x001f, t01=0x00ac}
0x3122…314c              Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x001f, t01=0x00c8}
0x314c…316a              Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x001f, t01=0x00f2}
0x316a…3178              Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x001f, t01=0x0110}
0x3178…318a              Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001f, t01=0x011e}
0x318a…31b6              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',LINOP0 SLUT KEY «, t00=0x001f, t01=0x0130}
0x31b6…31f0              Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,=W'4',LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x001f, t01=0x015c}
0x31f0…31fe              Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x0020, t01=0x0008}
0x31fe…322c              Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH«, t00=0x0020, t01=0x0016}
0x322c…3256              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x0020, t01=0x0044}
0x3256…328a              Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x0020, t01=0x006e}
0x328a…32b0              Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x0020, t01=0x00a2}
0x32b0…32e2              Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR«, t00=0x0020, t01=0x00c8}
0x32e2…3316              Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x0020, t01=0x00fa}
0x3316…3324              Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x0020, t01=0x012e}
0x3324…3348              Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x0020, t01=0x013c}
0x3348…335a              Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0020, t01=0x0160}
0x335a…3368              Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x0020, t01=0x0172}
0x3368…338a              Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x0020, t01=0x0180}
0x338a…33ae              Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x0021, t01=0x0012}
0x33ae…33cc              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x0021, t01=0x0036}
0x33cc…33de              Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x0021, t01=0x0054}
0x33de…33ee              Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x0021, t01=0x0066}
0x33ee…340c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x0021, t01=0x0076}
0x340c…342a              Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x0021, t01=0x0094}
0x342a…343e              Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0021, t01=0x00b2}
0x343e…3470              Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x0021, t01=0x00c6}
0x3470…3496              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x0021, t01=0x00f8}
0x3496…34b2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'0' «, t00=0x0021, t01=0x011e}
0x34b2…34c4              Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0021, t01=0x013a}
0x34c4…34d2              Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x0021, t01=0x014c}
0x34d2…34fc              Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0021, t01=0x015a}
0x34fc…3514              Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x0021, t01=0x0184}
0x3514…353e              Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x0022, t01=0x000c}
0x353e…3552              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0022, t01=0x0036}
0x3552…3560              Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x0022, t01=0x004a}
0x3560…357e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0022, t01=0x0058}
0x357e…358e              Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x0022, t01=0x0076}
0x358e…359c              Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x0022, t01=0x0086}
0x359c…35be              Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x0022, t01=0x0094}
0x35be…35ca              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x00b6}
0x35ca…35de              Head {h00=0x0010, h01=0x0050, text=»        PEND«, t00=0x0022, t01=0x00c2}
0x35de…35e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d6}
0x35e8…35f6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00e0}
0x35f6…361c              Head {h00=0x0022, h01=0x0050, text=»WRITID PROC WRITVAR1,WRITVAR2 «, t00=0x0022, t01=0x00ee}
0x361c…3638              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0022, t01=0x0114}
0x3638…3642              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0130}
0x3642…367a              Head {h00=0x0034, h01=0x0050, text=»*          PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x0022, t01=0x013a}
0x367a…36ae              Head {h00=0x0030, h01=0x0050, text=»*          PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x0022, t01=0x0172}
0x36ae…36b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0016}
0x36b8…36e6              Head {h00=0x002a, h01=0x0050, text=»*          PRINTS ON JOURNAL AND TALLY«, t00=0x0023, t01=0x0020}
0x36e6…36f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x004e}
0x36f0…36fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0058}
0x36fa…3716              Head {h00=0x0018, h01=0x0050, text=»*          WRITVAR1:«, t00=0x0023, t01=0x0062}
0x3716…3736              Head {h00=0x001c, h01=0x0050, text=»*               1   FEJL«, t00=0x0023, t01=0x007e}
0x3736…375a              Head {h00=0x0020, h01=0x0050, text=»*               2   OPSTART «, t00=0x0023, t01=0x009e}
0x375a…3784              Head {h00=0x0026, h01=0x0050, text=»*               3   DISKETTE SKIFT«, t00=0x0023, t01=0x00c2}
0x3784…37ac              Head {h00=0x0024, h01=0x0050, text=»*               4   KONVERTERING«, t00=0x0023, t01=0x00ec}
0x37ac…37d8              Head {h00=0x0028, h01=0x0050, text=»*               5   DATATRANSMISSION«, t00=0x0023, t01=0x0114}
0x37d8…37fa              Head {h00=0x001e, h01=0x0050, text=»*               6   BACKUP«, t00=0x0023, t01=0x0140}
0x37fa…3804              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0162}
0x3804…3820              Head {h00=0x0018, h01=0x0050, text=»*          WRITVAR2:«, t00=0x0023, t01=0x016c}
0x3820…3856              Head {h00=0x0032, h01=0x0050, text=»*          CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x0023, t01=0x0188}
0x3856…387e              Head {h00=0x0024, h01=0x0050, text=»*               1   1-20 + 40-59«, t00=0x0024, t01=0x002e}
0x387e…38b8              Head {h00=0x0036, h01=0x0050, text=»*               2   1-20 + 23-42, IF KONVERTERING «, t00=0x0024, t01=0x0056}
0x38b8…38f6              Head {h00=0x003a, h01=0x0050, text=»*               2   1-20 + VOLID, IF NOT KONVERTERING «, t00=0x0024, t01=0x0090}
0x38f6…391a              Head {h00=0x0020, h01=0x0050, text=»*               3   NOTHING «, t00=0x0024, t01=0x00ce}
0x391a…393c              Head {h00=0x001e, h01=0x0050, text=»*               4   VOLID «, t00=0x0024, t01=0x00f2}
0x393c…3946              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0114}
0x3946…3950              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011e}
0x3950…395a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0128}
0x395a…3976              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x0132}
0x3976…3980              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014e}
0x3980…3994              Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x0024, t01=0x0158}
0x3994…39d2              Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x0024, t01=0x016c}
0x39d2…39e4              Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0025, t01=0x001a}
0x39e4…39f2              Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x0025, t01=0x002c}
0x39f2…3a12              Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x0025, t01=0x003a}
0x3a12…3a24              Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0025, t01=0x005a}
0x3a24…3a32              Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x0025, t01=0x006c}
0x3a32…3a56              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x0025, t01=0x007a}
0x3a56…3a68              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0025, t01=0x009e}
0x3a68…3a76              Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x0025, t01=0x00b0}
0x3a76…3aa0              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'DISKETTE SKIFT '«, t00=0x0025, t01=0x00be}
0x3aa0…3ab2              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0025, t01=0x00e8}
0x3ab2…3ac0              Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x0025, t01=0x00fa}
0x3ac0…3ae8              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x0025, t01=0x0108}
0x3ae8…3afa              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0025, t01=0x0130}
0x3afa…3b08              Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x0025, t01=0x0142}
0x3b08…3b34              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x0025, t01=0x0150}
0x3b34…3b46              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0025, t01=0x017c}
0x3b46…3b54              Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x0025, t01=0x018e}
0x3b54…3b76              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x0026, t01=0x000c}
0x3b76…3b88              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0026, t01=0x002e}
0x3b88…3b96              Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x0026, t01=0x0040}
0x3b96…3bb2              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0026, t01=0x004e}
0x3bb2…3bcc              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0026, t01=0x006a}
0x3bcc…3be0              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0026, t01=0x0084}
0x3be0…3bea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0098}
0x3bea…3bf4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a2}
0x3bf4…3c02              Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x0026, t01=0x00ac}
0x3c02…3c16              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0026, t01=0x00ba}
0x3c16…3c38              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x0026, t01=0x00ce}
0x3c38…3c5a              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x0026, t01=0x00f0}
0x3c5a…3c78              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CPCKBUF«, t00=0x0026, t01=0x0112}
0x3c78…3c94              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0026, t01=0x0130}
0x3c94…3cb6              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID60«, t00=0x0026, t01=0x014c}
0x3cb6…3cd0              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0026, t01=0x016e}
0x3cd0…3ce4              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0026, t01=0x0188}
0x3ce4…3cf8              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0027, t01=0x000c}
0x3cf8…3d02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0020}
0x3d02…3d10              Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0027, t01=0x002a}
0x3d10…3d32              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0027, t01=0x0038}
0x3d32…3d4e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0027, t01=0x005a}
0x3d4e…3d6a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0027, t01=0x0076}
0x3d6a…3d9e              Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0027, t01=0x0092}
0x3d9e…3db0              Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0027, t01=0x00c6}
0x3db0…3dba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d8}
0x3dba…3dc8              Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0027, t01=0x00e2}
0x3dc8…3dec              Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0027, t01=0x00f0}
0x3dec…3e08              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0027, t01=0x0114}
0x3e08…3e24              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0027, t01=0x0130}
0x3e24…3e58              Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0027, t01=0x014c}
0x3e58…3e6a              Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0027, t01=0x0180}
0x3e6a…3e78 (40, 0, 400) Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0028, t01=0x0004}
0x3e78…3e9a              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0028, t01=0x0012}
0x3e9a…3ea8              Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0028, t01=0x0034}
0x3ea8…3ec6              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0028, t01=0x0042}
0x3ec6…3ee2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0028, t01=0x0060}
0x3ee2…3f00              Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0028, t01=0x007c}
0x3f00…3f0e              Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x0028, t01=0x009a}
0x3f0e…3f2a              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0028, t01=0x00a8}
0x3f2a…3f54              Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,=W'4',WRID76 1,2,3,6«, t00=0x0028, t01=0x00c4}
0x3f54…3f7a              Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,=W'6',WRID90 4,5«, t00=0x0028, t01=0x00ee}
0x3f7a…3f88              Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x0028, t01=0x0114}
0x3f88…3fa2              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0028, t01=0x0122}
0x3fa2…3fb6              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0028, t01=0x013c}
0x3fb6…3fca              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0028, t01=0x0150}
0x3fca…3fdc              Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x0028, t01=0x0164}
0x3fdc…3fea              Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x0028, t01=0x0176}
0x3fea…400c              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID90«, t00=0x0028, t01=0x0184}
0x400c…401a              Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x0029, t01=0x0016}
0x401a…4034              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x0029, t01=0x0024}
0x4034…4048              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0029, t01=0x003e}
0x4048…405c              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0029, t01=0x0052}
0x405c…406a              Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x0029, t01=0x0066}
0x406a…4076              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x0074}
0x4076…4084              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x0080}
0x4084…4092              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x008e}
0x4092…40a6              Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x0029, t01=0x009c}
0x40a6…40ce              Head {h00=0x0024, h01=0x0050, text=»*     DELETE FIRST 14 CHARACTERS«, t00=0x0029, t01=0x00b0}
0x40ce…40e6              Head {h00=0x0014, h01=0x0050, text=»*     OF LINE 8 «, t00=0x0029, t01=0x00d8}
0x40e6…4118              Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'0801' INDICATE LAST LINE «, t00=0x0029, t01=0x00f0}
0x4118…4138              Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x0029, t01=0x0122}
0x4138…4154              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0029, t01=0x0142}
0x4154…4182              Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x0029, t01=0x015e}
0x4182…4190              Head {h00=0x000a, h01=0x0050, text=» RET  «, t00=0x0029, t01=0x018c}
0x4190…419e              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x000a}
0x419e…41a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0018}
0x41a8…41e2              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x002a, t01=0x0022}
0x41e2…41ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x005c}
0x41ec…420e              Head {h00=0x001e, h01=0x0050, text=»*       FORMATS FOR WRITFD«, t00=0x002a, t01=0x0066}
0x420e…4218              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0088}
0x4218…4258              Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x002a, t01=0x0092}
0x4258…4262              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d2}
0x4262…4276              Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x002a, t01=0x00dc}
0x4276…428c              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x002a, t01=0x00f0}
0x428c…42a2              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x002a, t01=0x0106}
0x42a2…42be              Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x002a, t01=0x011c}
0x42be…42d6              Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x002a, t01=0x0138}
0x42d6…42e4              Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x002a, t01=0x0150}
0x42e4…42f2              Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x002a, t01=0x015e}
0x42f2…4308              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x002a, t01=0x016c}
0x4308…4316              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002a, t01=0x0182}
0x4316…4320              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0190}
0x4320…4334              Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x002b, t01=0x000a}
0x4334…4354              Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x002b, t01=0x001e}
0x4354…4372              Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x002b, t01=0x003e}
0x4372…4380              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002b, t01=0x005c}
0x4380…438a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006a}
0x438a…439c              Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x002b, t01=0x0074}
0x439c…43b6              Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x002b, t01=0x0086}
0x43b6…43cc              Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x002b, t01=0x00a0}
0x43cc…43e6              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x002b, t01=0x00b6}
0x43e6…4404              Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x002b, t01=0x00d0}
0x4404…4420              Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x002b, t01=0x00ee}
0x4420…443a              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x002b, t01=0x010a}
0x443a…4450              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x002b, t01=0x0124}
0x4450…446c              Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x002b, t01=0x013a}
0x446c…4488              Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x002b, t01=0x0156}
0x4488…44a4              Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x002b, t01=0x0172}
0x44a4…44ba              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x002b, t01=0x018e}
0x44ba…44d8              Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x002c, t01=0x0014}
0x44d8…44e6              Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x002c, t01=0x0032}
0x44e6…44fc              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x002c, t01=0x0040}
0x44fc…4516              Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x002c, t01=0x0056}
0x4516…4532              Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x002c, t01=0x0070}
0x4532…4548              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x002c, t01=0x008c}
0x4548…4564              Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x002c, t01=0x00a2}
0x4564…4572              Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x002c, t01=0x00be}
0x4572…4580              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002c, t01=0x00cc}
0x4580…458a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00da}
0x458a…459c              Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x002c, t01=0x00e4}
0x459c…45b0              Head {h00=0x0010, h01=0x0050, text=» FCOPY =C'&'«, t00=0x002c, t01=0x00f6}
0x45b0…45ca              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x002c, t01=0x010a}
0x45ca…45e6              Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x002c, t01=0x0124}
0x45e6…4616              Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x002c, t01=0x0140}
0x4616…4624              Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x002c, t01=0x0170}
0x4624…4632              Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x002c, t01=0x017e}
0x4632…4660              Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x002c, t01=0x018c}
0x4660…466e              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002d, t01=0x002a}
0x466e…4682              Head {h00=0x0010, h01=0x0050, text=»         END«, t00=0x002d, t01=0x0038}
0x4682…4686              Head {h00=0x4004, h01=0x0000}
0x4686…468a              00 2d 00 4c                                                                                                                                                                                                                                       ┆ - L┆
0x468a…4692 (46, 1, 8)   20 04 00 00 00 2e 00 04                                                                                                                                                                                                                           ┆     .  ┆
0x4692…46e2 (47, 2, 88)  00 00 00 00 00 00 00 00 00 00 00 00 00 2e 01 76 00 16 00 12 03 08 00 00 01 69 00 00 00 00 00 00 00 00 00 00 00 2a 00 2f 00 14 00 10 00 0c 04 05 00 00 00 01 01 72 00 03 00 00 00 2f 00 2e 00 0e 00 0a 07 04 00 00 01 69 01 72 00 00 00 2f 00 42   ┆             . v         i           * /             r     / .         i r   / B┆
0x46e2…46ea              40 04 00 00 00 2f 00 54                                                                                                                                                                                                                           ┆@    / T┆
0x46ea…473a (48, 2, 216) 00 3a 00 48 20 49 44 45 4e 54 20 44 3a 43 42 36 30 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 30 35 2d 30 35 20 46 31 20 4f 31 31 31 31 20 20 30 32 2e 30 33 2e 58 58 58 2e 31 00 30 00 04 00 0e 00 0a 01 04 c8 44 3a 43 42 36 30 00 00 30 00 42   ┆ : H IDENT D:CB60  TRA 4.2  81-05-05 F1 O1111  02.03.XXX.1 0         D:CB60  0 B┆
0x473a…478a              00 10 00 0c 05 05 c8 44 3a 43 42 36 30 43 00 02 00 30 00 54 00 2a 00 26 03 12 00 00 00 01 00 00 00 3a 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 b0 07 00 0a 00 07 00 00 00 30 00 68 00 28 00 24 03 11 00 00 00 1f 00 00 00 80   ┆       D:CB60C   0 T * &         :                             0 h ( $          ┆
0x478a…47c2              00 3b 00 80 00 bb 30 02 01 3b 80 02 01 3d 00 0c 00 00 b0 02 01 55 00 0c 00 00 00 30 00 96 00 0e 00 0a 07 04 00 00 00 01 00 3a 00 00 00 30 00 c2 40 04 00 00 00 30 00 d4                                                                           ┆ ;    0  ;   =       U     0             :   0  @    0  ┆
0x47c2…4812 (49, 0, 400) 00 3a 00 48 20 49 44 45 4e 54 20 5a 3a 54 42 31 30 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 30 35 2d 30 35 20 46 31 20 4f 31 31 31 31 20 20 30 32 2e 30 33 2e 58 58 58 2e 31 00 31 00 04 00 0e 00 0a 01 04 c8 5a 3a 54 42 31 30 00 00 31 00 42   ┆ : H IDENT Z:TB10  TRA 4.2  81-05-05 F1 O1111  02.03.XXX.1 1         Z:TB10  1 B┆
0x4812…4862              00 10 00 0c 05 05 c8 5a 3a 54 42 31 30 54 00 04 00 31 00 54 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 31 00 68 00 2a 00 26 03 12 00 00 00 1f 00 00 00 00   ┆       Z:TB10T   1 T * &                                       1 h * &          ┆
0x4862…48b2              00 00 00 00 00 00 00 00 00 00 ff ff ff ff 00 20 f0 00 00 00 00 00 00 00 f0 00 00 00 00 31 00 96 00 2a 00 26 03 12 00 00 00 3d 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 31 00 c4 00 2a   ┆                             1   * &     =                                 1   *┆
0x48b2…4902              00 26 03 12 00 00 00 5b 00 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 00 31 00 f2 00 2a 00 26 03 12 00 00 00 79 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00   ┆ &     [                                 1   * &     y                          ┆
0x4902…4952              f0 00 00 00 00 00 00 31 01 20 00 2a 00 26 03 12 00 00 00 97 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 31 01 4e 00 2a 00 26 03 12 00 00 00 b5 00 00 00 00 00 00 f0 00 00 00 00 00 00 00   ┆       1   * &                                       1 N * &                    ┆
0x4952…49a2 (50, 2, 146) f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 31 01 7c 00 2a 00 26 03 12 00 00 00 d3 00 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 00 32 00 1a 00 1c 00 18 03 0b 00 00 00 f1 00 00   ┆                   1 | * &                                       2              ┆
0x49a2…49e4              f0 00 00 00 00 00 00 00 f0 00 00 00 00 00 00 00 00 32 00 48 00 10 00 0c 04 05 00 00 00 01 01 00 00 03 00 00 00 32 00 68 00 0e 00 0a 07 04 00 00 00 f1 01 00 00 00 00 32 00 7c 40 04 00 00 00 32 00 8e                                             ┆                 2 H                 2 h               2 |@    2  ┆
0x49e4…4a34 (51, 2, 244) 00 3a 00 48 20 49 44 45 4e 54 20 44 3a 54 42 31 30 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 30 35 2d 30 35 20 46 31 20 4f 31 31 31 31 20 20 30 32 2e 30 33 2e 58 58 58 2e 31 00 33 00 04 00 0e 00 0a 01 04 c8 44 3a 54 42 31 30 00 00 33 00 42   ┆ : H IDENT D:TB10  TRA 4.2  81-05-05 F1 O1111  02.03.XXX.1 3         D:TB10  3 B┆
0x4a34…4a84              00 10 00 0c 05 05 c8 44 3a 54 42 31 30 54 00 02 00 33 00 54 00 2a 00 26 03 12 00 00 00 01 00 00 00 46 20 02 00 00 20 02 00 02 20 02 00 04 20 02 00 06 30 01 00 08 30 06 00 09 30 07 00 0f 00 33 00 68 00 2a 00 26 03 12 00 00 00 1f 00 00 30 02   ┆       D:TB10T   3 T * &         F                0   0   0    3 h * &        0 ┆
0x4a84…4ad4              00 16 30 02 00 18 30 02 00 1a 30 07 00 1c 30 03 00 23 30 04 00 26 30 01 00 2a 00 01 00 33 00 96 00 16 00 12 03 08 00 00 00 3d 00 00 00 2b b0 08 00 2c 00 1a 00 00 00 33 00 c4 00 0e 00 0a 07 04 00 00 00 1f 00 46 00 00 00 33 00 de 40 04 00 00   ┆  0   0   0   0  #0  &0  *   3           =   +   ,     3             F   3  @   ┆
0x4ad4…4ad8              00 33 00 f0                                                                                                                                                                                                                                       ┆ 3  ┆
0x4ad8…4b28 (52, 2, 262) 00 3a 00 48 20 49 44 45 4e 54 20 5a 3a 47 42 31 30 20 20 54 52 41 20 34 2e 32 20 20 38 31 2d 30 35 2d 30 35 20 46 31 20 4f 31 31 31 31 20 20 30 32 2e 30 33 2e 58 58 58 2e 31 00 34 00 04 00 0e 00 0a 01 04 c8 5a 3a 47 42 31 30 00 00 34 00 42   ┆ : H IDENT Z:GB10  TRA 4.2  81-05-05 F1 O1111  02.03.XXX.1 4         Z:GB10  4 B┆
0x4b28…4b78              00 10 00 0c 05 05 c8 5a 3a 47 42 31 30 47 00 04 00 34 00 54 00 2a 00 26 03 12 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 34 00 68 00 2a 00 26 03 12 00 00 00 1f 00 00 00 00   ┆       Z:GB10G   4 T * &                                       4 h * &          ┆
0x4b78…4bc8              00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 34 00 96 00 14 00 16 03 0a 00 00 00 3d 00 00 00 00 00 00 00 00 00 20 00 34 00 c4 00 10 00 0c 04 05 00 00 00 01 00 4a 00 03 04 00 00 34 00 dc 00 0e 00 0a   ┆                             4           =           4             J     4      ┆
0x4bc8…4bde              07 04 00 00 00 3d 00 4a 00 00 00 34 00 f0 40 04 00 00 00 34 01 02                                                                                                                                                                                 ┆     = J   4  @    4  ┆

Reduced view