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

⟦dfeb1f06a⟧

    Length: 17320 (0x43a8)
    Notes: pts_type(SC)
    Names: »KMDIO.SC«

Derivation

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »OD-KOM/KMDIO.SC« 

PTS(SC)

 IDENT KMDIO 840203 EV
         DDUM    KMD08
	PDIV 
	ENTRY	WRITFD 
         ENTRY   WRITVO 
         ENTRY   WRITJT 
         ENTRY   WTALLY 
 ENTRY WRITID 
         ENTRY   CRKJ 
	ENTRY	GRASPV 
	ENTRY	LINOPT 
	ENTRY	CRVO 
         ENTRY   WCHECK 
	ENTRY	CLEAR8 
 ENTRY EDATNR 
 EXT RADEL
	EXT	SPCHK5 
	EXT	SPLIN8 
 EXT SPERR
         EXT     FRMTJT 
	EXT	FRMXJT 
 EXT FRMXBC 
 EXT ADM
 EXT CYWRT
	EXT	FRMXVO 
 EXT FRMXTA 
         EXT     ABORT
 EXT RAWRIT 
 EXT WRITLO 
 EXT WAITF
         INCLUDE EQUATE 
* 
WRITFD	PROC 
 TBF CSKIFTWN,WRFD00
 PERF ADM,CBIN12 DISKETTE SKIFT 
 TBF CSKIFTWN,WRFD00
 CMP CBIN1,CBIN0
 RET
WRFD00
 PERF WAITF,CPFLG 
 CLEAR CSPLITFL 
 MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS
 PERF EDATNR
 MOVE GSWBIN5,CBIN0 
 MOVE GTWBCD1,=D'0' TR 50.., RATE COUNTER 
WRFD005 
 SET CSWFLAG
 CBE CRECLGD,=W'128',WRFD006
 CLEAR CSWFLAG
WRFD006 
 EDIT CPCKBUF,PCKINIT 
 EDIT CPCKBUF,TREC1 INSERT HEADER INF 
 MOVE GSWBIN3,CBIN10
 MOVE GSWBIN4,CRECLGD 
 SUB GSWBIN4,CBIN11 
 MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2
 MOVE GSWBIN4,CRECLGD 
 SUB GSWBIN4,CBIN1
 SUB GSWBIN4,GSWBIN3 REMAINING LENGTH 
 CBE GTREGNR,=D'12',WRFD070 
 TBT CSPLITFL,WRFD025 IF SPLIT PACK REST
WRFD020 
 TBF GTSPECTR,WRFD024 TR 50... ?
 CBNE GSWBIN5,=W'6',WRFD024 YES, AFTER FIELD 39/47
 ADD GTWBCD1,=D'1' YES
 CBNL GTWBCD1,GTRTANT,WRFD022 MORE 'RATE' ? 
 ADD GTDUPF(CBIN4),=D'1' YES SET NEXT 'RATE'
 SUB GSWBIN5,CBIN3 READY FOR NEXT RATE
 B WRFD024
WRFD022			CORRECT RATE ?
 SUB GTWBCD1,=D'1'
 SUB GTDUPF(CBIN4),GTWBCD1
WRFD024 
 ADD GSWBIN5,CBIN1
 CBNL GSWBIN5,CBINMAX,WRFD070 
 CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? 
 MOVE GSWSTR20,=X'00' YES 
 MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT 
 EDIT GSWSTR20,PFRM1
WRFD025 
	MOVE	GSWSTR1,=X'00'
 MOVE GSWBIN6,CBIN0 FIND LENGTH 
 MATCH GSWSTR20,GSWBIN6,CBIN16,GSWSTR1,CBIN0,CBIN1
 CLEAR CSPLITFL 
 CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? 
 COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO 
 ADD GSWBIN3,GSWBIN6
 SUB GSWBIN4,GSWBIN6 ADJUST POINTERS
 B WRFD020 SEE IF MORE
WRFD030 
 COPY CPCKBUF,GSWBIN3,GSWBIN4,GSWSTR20,CBIN0
 MOVE GSWSTR1,=X'21' CONTINUATION MARK
 ADD GSWBIN3,GSWBIN4
 COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 
 DLETE GSWSTR20,CBIN0,GSWBIN4 
 SET CSPLITFL 
 PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
 BNOK WRFDERR 
 TBT GTTESTFL,WRFD005 
 ADD CTWBIN1,CBIN1
 ADD CRECNR,CBIN1 
 ADD CRECBCD,=D'1'
 B WRFD005 GO AND PACK REST 
WRFD070 
 MOVE GSWSTR1,=X'7F'
 COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 
 PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
 BNOK WRFDERR 
 TBT GTTESTFL,WRFD080 
 ADD CTWBIN1,CBIN1
 ADD CRECNR,CBIN1 
 ADD CRECBCD,=D'1'
 PERF RADEL,DK02,CRECNR,=D'2' 
 BNOK WRFDERR 
* 
*        LOOK FOR ACCOUNT NO
*        IN KONTOPLAN. IF FOUND,
*        SET FLAG GTKORTFL
* 
 CBL CRECNR,CMAXREC,WRFD080 
* 
*       HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' 
WRFD075			DISK N[STEN FULD
 CLEAR CPFLG
 CLEAR CSPLITFL 
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,=D'02' FILE CODE
 MOVE GTWBCD1,=D'50' ERROR CODE 
 MOVE GSWSTR9,=C'DISCFEJL ' 
 PERF SPERR 
 CMP CBIN0,CBIN0
 RET
* 
WRFD080 
 CLEAR CSPLITFL 
 CLEAR CPFLG
	CMP	CBIN0,CBIN0	OK, SET CR=0 
 RET
* 
WRFDERR 
* 
*     HERE MUST BEE RECOVERRY 
 SUB CRECNR,CTWBIN1 
 MOVE GSWBCD1,CTWBIN1 
 SUB CRECBCD,GSWBCD1
 SET CSKIFTWN 
	CLEAR	CPFLG
 SET GTREGFLG 
 CMP CBIN1,CBIN0 NOK, CR<>0 
 RET
 PEND 
 EJECT
********************************************
* 
*     EDATNR
*          FINDS DATASETNR FOR THE TRANSACTIONS 
*          AND PUT THE INFORMATION IN RELEVANT FIELDS 
* 
************************************************
EDATNR PROC 
 CLEAR TTR11FLG 
 CBG GTREGNR,=D'12',EDAT100 
 MOVE CEDATNR,=D'1' 
 CBG GTREGNR,=D'10',EDAT010 
 MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK 
 MOVE GTDUPF(CBIN5),TTDKBCD 
EDAT010 
 CBNE GTREGNR,=D'11',EDAT020
 SET TTR11FLG 
EDAT020 
 RET
EDAT100 
 CBG GTREGNR,=D'42',EDAT110 
 MOVE CEDATNR,=D'3' TR 40-42
 B EDAT020
EDAT110 
 CBG GTREGNR,=D'47',EDAT120 
 MOVE CEDATNR,=D'5' TR 45-47
 B EDAT020
EDAT120 
 CBG GTREGNR,=D'49',EDAT130 
 MOVE CEDATNR,=D'4' TR 48-49
 B EDAT020
EDAT130 
 MOVE CEDATNR,=D'2' TR 50-54
 B EDAT020
 PEND 
 EJECT
* 
* 
WCHECK	PROC 
	RET
	PEND 
	EJECT
WRITJT   PROC  $JTLIT 
 PLIT $JTLIT
********************
* 
*        THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE
*        DEPENDING ON TRANSACTION TYPE
* 
********************
 TBT TBCTASK,JT01 
 WAIT KVOUCH
 WAIT KTALLY
JT01
 TBT GTSPGFLG,JTRET 
         MOVE  GSWBIN1,$JTLIT 
         CBG   GSWBIN1,CBIN0,JT10 

JT03
 TBF CSPOOL,JT04
 TBT TSPOOL,JT05
JT04
         PERF  FRMTJT                  GET FORMAT ACORDING TO TYPE
         B     JT20 

JT05
 PERF WRITLO,CBIN0
 BNOK JT03
 MOVE GSWBIN1,TTCNTNR 
 B JTRET

JT10
			GET SPECIAL FORMAT 
 TBT TBCTASK,JT15 
 PERF FRMXJT,GSWBIN1 FOR JOURNAL
 B JT20 
JT15
 PERF FRMXBC,GSWBIN1 FOR COPY 80
JT20
 WAIT KJTAPE
	MOVE	GSWBIN1,TTCNTNR	'TAELLER' NR IN BINARY
 TBT GTNWFLG,JT50 
	EDWRT	KJTAPE,GTSTRFMT	EDWRT JOURNAL
* 
	DSC0	KJTAPE,TSTAT	TEST STATUS OF JOURNAL 
         BOK   JTRET
 TBT TBCTASK,JTRET
 PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'
	SET	TTJTEND
JTRET 
	RET
JT50
 EDWRT .NW,KJTAPE,GTSTRFMT
 RET
         PEND 
         EJECT
WTALLY   PROC 
******************* 
* 
*        WRITE TALLY ROLL 
* 
********************
 WAIT KVOUCH
 WAIT KTALLY
         EDWRT   .NW,KTALLY,GTSTRFMT           EDWRT WITH THE FORMAT
	RET		STORED IN GTSTRFMT
        PEND
* 
* 
         EJECT
CRKJ     PROC 
********************
* 
*         DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT
* 
********************

 TBT TSPOOL,CRKJRET 

         EDWRT   .NW,KJTAPE,CRJTFMT 

CRKJRET 

         RET


CRJTFMT	FRMT
         FILLR   ' ',2
 FILLR X'0D',1
        FMEND 
         PEND 
* 
* 
CRVO	PROC 
******************* 
* 
*          DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT
* 
********************
	EDWRT	KVOUCH,CRVOFMT 
	RET
CRVOFMT	FRMT
	FILLR	' ',2
 FILLR X'09',1
	FMEND
	PEND 
* 
* 
         EJECT
WRITVO PROC 
* 
*        WRITE VOUCHER
* 
*        IN CYCLE  POSITION AND WRITE 
*                  (MAY BE NEW PAGE)
* 
*        NOT CYCLE  GET LINE NR 
*                  POSITION VOUCHER 
*                  WRITE
*                  AND RELEASE VOUCHER
* 
********************
         TBT     GTCYFLG,CYVOUCH
* NOT IN CYCLE
WOBILAG 
 PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
         PERF GRASPV
 CLEAR GTSWFLAG 
	PERF	LINOPT	SEE IF DEFAULT LINE
         BNOK    WOBILAG
	CBG	GSWBIN1,=W'90',WO90
	MOVE	GSWBIN1,TTLINNR 
	B	WO100
WO90	MOVE	GSWBIN2,=W'100' 
	SUB	GSWBIN2,GSWBIN1
	IB	GSWBIN2,		C 
		WO99,WO98,WO97,WO96,WO95,		C
		WO94,WO93,WO92,WO91 
WO99
	PERF	FRMXVO,CBIN6
	MOVE	GSWBIN1,=W'35'
	B	WO100
WO98
	PERF	FRMXVO,CBIN4
	MOVE	GSWBIN1,=W'14'
	B	WO100
WO97
	PERF	FRMXVO,CBIN5
	MOVE	GSWBIN1,=W'14'
	B	WO100
WO96
 PERF FRMXVO,CBIN17 
 MOVE GSWBIN1,=W'37'
 B WO100
WO95
WO94
WO93
 DSC0 KVOUCH,RLEAS
	B	WOBILAG
WO92			SHORT 'BILAG'
 PERF SPLIN8,CBIN2,CBIN0
 PERF GRASPV
 SET GTSWFLAG 
 PERF LINOPT
 BNOK WO92
 CBG GSWBIN1,=W'90',WO92
 MOVE GSWBIN1,TTLINNR 
 CLEAR GTSWFLAG 
	PERF FRMXVO,CBIN19 
 B WO100
WO91
	MOVE	GTRETUR,=W'3'	INDICATE KONTOKORT
	RET
* 
WO100 
	DSC1	KVOUCH,POS,GSWBIN1	POSITION VOUCHER 
	EDWRT	KVOUCH,GTSTRFMT	EDWRT WITH CURRENT FORMAT
	PERF	CRVO
WO110 
         DSC0    .NW,KVOUCH,RLEAS                RELEASE VOUCHER
         RET
* IN CYCLE
CYVOUCH 
 TBT GTCYWRTF,WO5 
 PERF CYWRT 
 BNOK WO5 
 RET
* 
WO5 
         TBT     TTTSTFLG,WO10
         SET     TTTSTFLG 
 PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'
         PERF    GRASPV 
	PERF	CLEAR8
WO10
	MOVE	GSWBIN1,TTLINNR 
	DSC1	KVOUCH,POS,GSWBIN1	POSITION VOUCHER 
	EDWRT	.NW,KVOUCH,GTSTRFMT
***** 
* 
*        WRITING OF TEXTLINE
*        FOR CHECK ON WORKSET 
* 
***** 
* 
*        SEE OLD SUBS                      LINES 700 - 719
* 
* 
WO20
         SUB     TTLINNR,=D'2'             NEXT LINE
         CBL     TTLINNR,=D'4',NEWPG       NEW PAGE?
	RET		NO
* 
NEWPG			NEW PAGE
 TBT TTPSEFLG,WORET T: IF SUBTOTAL
 WAIT KVOUCH
 MOVE GSWBIN1,TTLINNR 
 DSC1 KVOUCH,POS,GSWBIN1
 MOVE GSWSTR9,=C'TRP '
 PERF FRMXVO,CBIN2
 EDWRT KVOUCH,GTSTRFMT
         DSC0    KVOUCH,RLEAS 
 SET GTCYTRPF 
WORET 
 RET
         PEND 
* 
* 
         EJECT
GRASPV   PROC 
********************
* 
*        GRASP VOUCHER
* 
********************
 WAIT KVOUCH
	DSC0	KVOUCH,GRASP	GRASP VOUCHER
         RET
         PEND 
* 
* 
         EJECT
LINOPT   PROC 
********************
* 
*        CHECK LINE NUMBER, IF ANY
* 
********************
 TBT GTSWFLAG,LINST 
	TESTIO	KEYB	SEE IF INPUT FINISHED
	BNOK	LINOP1	NO, ABORT
LINST 
	WAIT	KEYB
 CBE SPBINW2,=W'18',LINOP0 SLUT KEY 
	CBNE	SPBINW2,=W'4',LINOP2	ONLY ENTER KEY ALLOWED 
LINOP0
	CBG	SPBINW1,=W'3',LINOP2	CHECK LENGTH
	MOVE	GSWBCD3,SPINPUT	GET LINE NR 
	CBG	GSWBCD3,=D'90',LINOP4	SPECIAL FORMATS? 
	PERF	SPCHK5	OK, CHECK LINENR 
	CBE	SPBINW3,=W'3',LINOP2	ERROR IN LINE NR
	MOVE	TTLINNR,GSWBIN1	GET CONVERTED LINE NO.
LIN90 
	CMP	CBIN0,CBIN0	SET CR=0,OK
	B	LINRET 
LINOP1
	CALL	ABORT,KEYB	ABORT I/O
 CBL GTDFLIN,=W'90',LINOP101
 MOVE GSWBCD3,GTDFLIN 
 B LINOP4 
LINOP101
 MOVE GSWBCD3,GTDFLIN 
 MOVE SPINPUT,GSWBCD3 
 PERF SPCHK5
 MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO 
	CMP	CBIN0,CBIN0	SET CR=0, OK 
	MOVE	GSWBIN1,=W'0' 
	B	LINRET 
LINOP2
	DSC0	KVOUCH,RLEAS	RELEASE VOUCHER
	DSC0	KEYB,SKIB 
	CMP	CBIN0,CBIN1	SET CR<>0, NOT OK
         RET
LINOP4
	MOVE	GSWBIN1,GSWBCD3 
	B	LIN90
LINRET
	PERF	CLEAR8	DELETE LINE 8
	RET
        PEND
* 
 EJECT
WRITID PROC BUF,WRITVAR1,WRITVAR2 
********************
* 
*          PRINTS HEADING IDENTIFIED BY WRITVAR1
*          PRINTS ID IDENTIFIED BY WRITVAR2 
* 
*          PRINTS ON JOURNAL AND TALLY
* 
* 
*          WRITVAR1:
*               1   FEJL
*               2   OPSTART 
*               3   DISKETTE SKIFT
*               4   KONVERTERING
*               5   DATATRANSMISSION
*               6   BACKUP
* 
*          WRITVAR2:
*          CHARACTERS PRINTED FROM PACKBUFFER:
*               1   1-20 + 40-59
*               2   1-20 + 23-42, IF KONVERTERING 
*               2   1-20 + VOLID, IF NOT KONVERTERING 
*               3   NOTHING 
*               4   VOLID 
* 
* 
* 
********************
* 
 WAIT KJTAPE
 IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36
 B WRID50 
WRID34
 MOVE GSWSTR20,=C'FEJL '
 B WRID50 
WRID31
 MOVE GSWSTR20,=C'OPSTART ' 
 B WRID40 
WRID32
 MOVE GSWSTR20,=C'DISK SKIFT '
 B WRID40 
WRID33
 MOVE GSWSTR20,=C'KONVERTERING '
 B WRID40 
WRID35
 MOVE GSWSTR20,=C'DATATRANSMISSION '
 B WRID40 
WRID36
 MOVE GSWSTR20,=C'BACKUP '
 B WRID40 
WRID40
 PERF WRITJT,=W'12' 
 PERF WRITLO,CBIN6
 TBT TBCTASK,WRID50 
 PERF FRMXTA,CBIN6
 PERF WTALLY
* 
* 
WRID50
 TBT TBCTASK,WRID51 
 WAIT KTALLY
WRID51
 TBF TBCTASK,WRID55 
 MOVE CPRTBUF,BUF 
 PERF WRITJT,=W'13' 
 B WRID90 
WRID55
 CBE WRITVAR2,CBIN3,WRID80
 CBE WRITVAR2,CBIN4,WRID73
 MOVE GSWSTR20,BUF
 PERF WRITJT,=W'12' 
 PERF WRITLO,CBIN6
 CBG WRITVAR1,=W'3',WRID60
 TBT TBCTASK,WRID60 
 PERF FRMXTA,CBIN6
 PERF WTALLY
 WAIT KTALLY
* 
WRID60
 CBE WRITVAR2,CBIN2,WRID70
 MOVE GSWBIN2,CBIN20
 MOVE GSWBIN1,=W'40'
 COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1
 B WRID75 
* 
WRID70
 CBNE WRITVAR1,CBIN4,WRID72 
 MOVE GSWBIN2,CBIN20
 MOVE GSWBIN1,=W'23'
 COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1
 B WRID75 
WRID72
 CBG WRITVAR1,CBIN2,WRID80
WRID73
 MOVE GSWSTR20,CBLANKS
 MOVE GSWBCD3,CVOLNO
 EDIT GSWSTR20,FRVOLID
WRID75
 PERF WRITJT,=W'12' 
 PERF WRITLO,CBIN6
 CBL WRITVAR1,=W'4',WRID76 1,2,3,6
 CBL WRITVAR1,=W'6',WRID90 4,5
WRID76
 TBT TBCTASK,WRID85 
 PERF FRMXTA,CBIN6
 PERF WTALLY
 WAIT KTALLY
 B WRID85 
WRID80
 CBG WRITVAR1,=W'3',WRID90
WRID85
 TBT TBCTASK,WRID90 
 PERF FRMXTA,CBIN7
 PERF WTALLY
 WAIT KTALLY
WRID90
 RET
 PEND 
	EJECT
CLEAR8	PROC 
*     DELETE FIRST 14 CHARACTERS
*     OF LINE 8 
	MOVE	GSWBIN2,=X'0801'	INDICATE LAST LINE 
	DSC1	SCREEN,06,GSWBIN2 
	MOVE	GSWBIN2,CBIN14
	DSC1	SCREEN,02,GSWBIN2	ERASE 14 CHARS
	RET	 
	PEND 
* 
************************************************* 
* 
*       FORMATS FOR WRITFD
* 
********************************************************
* 
PCKINIT FRMT
 FBT CSWFLAG,INIT10 
 FILLR ' ',40 
 FILLR ' ',40 
 FILLR X'00',48 
 FEXIT
INIT10
 FILLR ' ',40 
 FILLR ' ',40 
 FILLR ' ',48 
 FMEND
* 
FRVOLID FRMT
 FMEL '999999',CMASKDAT 
 FMEL 'B99999',GSWBCD3
 FMEND
* 
TREC1 FRMT
 FMEL '999',GTMSK 
 FILLR C'G',1 
 FMEL '99',CEDATNR
 FMEL '99999',CRECBCD 
 FBT CSPLITFL,TREC40
 FMEL '99',GTREGNR
 FCOPY =C'&01'
 FMEL '9999',CKMDNR 
 FBF GTKASSE,TREC40 
 FBT GTSPECTR,TREC40 TR 50... 
 FBT TTR11FLG,TREC10
 FCOPY =C'&02'
 FMEL '999999',GTDATO 
TREC10
 FCOPY =C'&03'
 FMEL '999',GTMSK 
 FBT TTR11FLG,TREC40
 FCOPY =C'&04'
 FMEL '99999',TTLBNR
TREC40
 FMEND
* 
PFRM1 FRMT
 FCOPY =C'&'
 FMEL '99',GSWBCD3
 FBP GSWBCD3,PLAB10 
 FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) 
 FEXIT
PLAB10
 FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)
 FMEND
         END

HexDump

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

Reduced view