|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 23776 (0x5ce0)
Notes: pts_type(SC)
Names: »KMDIO.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/KMDIO.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/KMDIO.SC«
IDENT KMDIO 03.01.XXX.1
DDUM KMD08
PDIV
ENTRY WRITFD
ENTRY WRITVO
ENTRY WRITJT
ENTRY WTALLY
ENTRY WRITID
ENTRY CRKJ
ENTRY GRASPV
ENTRY LINOPT
ENTRY CRVO
ENTRY WCHECK
ENTRY WCHUPD
EXT CLEAR8
EXT RADEL
EXT SPCHK5
EXT SPLIN8
EXT SPERR
EXT FRMTJT
EXT FRMXJT
EXT ADM
EXT CYWRT
EXT FRMXVO
EXT FRMXTA
EXT ABORT
EXT RAWRIT
EXT LEVRD
EXT CHDATO
EXT LEVIN
EXT VARRD
EXT VARWRT
EXT IDXGET
EXT CHDATO
EXT TRINS
EXT WSTRCH
EXT TRGETF
EXT WAITF
INCLUDE EQUATE
EJECT
WRITFD PROC
TBF CSKIFTWN,WRFD00
PERF ADM,CBIN12 DISKETTE SKIFT
TBF CSKIFTWN,WRFD00
CMP CBIN1,CBIN0
RET
WRFD00
PERF WAITF,CPFLG
CLEAR TFELT901
CLEAR TFELT911
CLEAR TFELT921
CLEAR TFELT931
CLEAR TFELT941
MOVE GSWBIN3,GTREGDEX
SUB GSWBIN3,CBIN11
IB GSWBIN3,WRFD001,WRFD002,WRFD001,WRFD002
B WRFD003
WRFD001
MOVE GTREGNR,=D'1' TRANS 18,28 -> TRANS 1
B WRFD003
WRFD002
MOVE GTREGNR,=D'6' TRANS 19,29 -> TRANS 6
WRFD003
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
* RESET GTREGNR
MOVE GTREGNR,CREGTAB(GTREGDEX,CBIN1)
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 GSWBIN10,=W'30'
MATCH SPINPUT,GSWBIN6,GSWBIN10,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
CLEAR CPFLG
CLEAR CSPLITFL
MOVE SPBINW4,CBIN21
MOVE GTWBCD2,=D'2' FILE CODE
MOVE GTWBCD1,=D'50' ERROR CODE
MOVE GSWSTR9,=C'DISCFEJL '
PERF SPERR
CMP CBIN0,CBIN0
RET
WRFD090
MOVE SPINPUT,=X'26393000'
XCOPY SPINPUT,CBIN3,CBIN22,GTLEVTXT,CBIN0
CLEAR TFELT90
SET TFELT901
B WRFD095
WRFD091
MOVE SPINPUT,=X'26393100'
XCOPY SPINPUT,CBIN3,CBIN22,GTLEVNVN,CBIN0
CLEAR TFELT91
SET TFELT911
B WRFD095
WRFD092
MOVE SPINPUT,=X'26393200'
XCOPY SPINPUT,CBIN3,CBIN8,GTLEVNVN,CBIN22
XCOPY SPINPUT,CBIN11,CBIN14,GTLEVADR,CBIN0
CLEAR TFELT92
SET TFELT921
B WRFD095
WRFD093
MOVE SPINPUT,=X'26393300'
XCOPY SPINPUT,CBIN3,CBIN18,GTLEVADR,CBIN14
XCOPY SPINPUT,CBIN21,CBIN4,GTLEVBY,CBIN0
CLEAR TFELT93
SET TFELT931
B WRFD095
WRFD094
MOVE SPINPUT,=X'26393400'
XCOPY SPINPUT,CBIN3,CBIN16,GTLEVBY,CBIN4
XCOPY SPINPUT,CBIN19,CBIN6,GTLEVPDI,CBIN0
SET TFELT941
CLEAR TFELT94
WRFD095
B WRFD025
*
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 P
*
* THE PROCEDURE PRODUCES A STRAKS-CHECK OR
* A TRANSACTIONRECORD
*
TBT GTBDTFLG,WCH010 BUNDTCHECK ?
TBT GTSTRFLG,WCH050 STRAKSCHECK ?
B WCH090
WCH010 BUNDTCHECK
TBT GTCYFLG,WCH011
TBT TTCY2FLG,WCH090
TBF TTCY1FLG,WCH015
MOVE GTDUPF(CBIN1),TTARKSAV
MOVE GTDUPF(CBIN4),TTCYKTOT
B WCH015
WCH011
TBT TTCY1FLG,WCH090
WCH015
MOVE GTLEVNR,GTDUPF(CBIN2)
PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 TRY TO FIND LEV
BNOK WCH020 ERROR OR NOT FOUND
PERF TRGETF,GSWBIN7 GET A FREE RECORD
BNOK WCH095
MOVE GTLEVNR,GTDUPF(CBIN2)
PERF VARRD TRY TO FIND LEV
BNOK WCH020 ERROR OR NOT FOUND
CLEAR GTSWFLAG
PERF TRINS,GSWBIN7
BNOK WCH095
* UPDATE VAR.INFO AND REWRITE
B WCH090
WCH020
PERF SPLIN8,CBIN11,CBIN1
DELAY CBIN10
B WCH010
WCH050 STRAKSCHECK
MOVE GTLEVNR,GTDUPF(CBIN2)
PERF VARRD
BOK WCH051
SET TTLEVFLG
WCH051
TBT GTCYFLG,WCH060 CYKEL/STABEL
TBT TTCY2FLG,WCH057
TBF TTCY1FLG,WCH055
MOVE GTDUPF(CBIN4),TTCYKTOT
WCH055
PERF WCHUPD
PERF WSTRCH,CBIN0 WRITE STRAKSCHECK
BNOK WCH095
WCH057
PERF LEVRD
BOK WCH059
MOVE GTRETUR,CBIN3
PERF LEVIN
BNOK WCH057
PERF WSTRCH,CBIN1
BNOK WCH095
B WCH090
WCH059
PERF WSTRCH,CBIN1
BNOK WCH095
B WCH080
WCH060
TBT TTCY2FLG,WCH070
B WCH090
WCH070 STABEL
PERF WCHUPD UPDATE VAR.INFO
PERF WSTRCH,CBIN0 EDIT CHECKLINE
* SKRIV CHECK HVIS FYLDT OP
WCH080
PERF VARWRT
BNOK WCH095
WCH090
CMP CBIN0,CBIN0
B WCH099
WCH095
CMP CBIN0,CBIN1
WCH099
RET
PEND
EJECT
WCHUPD PROC
* THE PROCEDURE UPDATES VAR.INFO ON LEV,
* AFTER A TRANS 18,19,28 OR 29
MOVE GSWBCD6,GTDATO
PERF CHDATO
MOVE GTREGF(CBIN10),GSWBCD7 UDB.DATO
MOVE GTREGF(CBIN11),GTDUPF(CBIN4) UDB. BELOB
ADD GTREGF(CBIN12),GTDUPF(CBIN4) UDB ]TD
TBF GTBDTFLG,WCHUPD90
CBL GTDUPF(CBIN4),=D'0',WCHUPD12
ADD GTREGF(CBIN14),GTDUPF(CBIN4) VENT DEBET
B WCHUPD14
WCHUPD12
ADD GTREGF(CBIN15),GTDUPF(CBIN4) VENT KREDIT
WCHUPD14
ADD GTREGF(CBIN16),GTDUPF(CBIN4) SKYLDIGT BELOB
MOVE GSWBCD6,GTREGF(CBIN13) GET LOW VALORDATE
CBL GSWBCD6,=D'1',WCHUP155
CBG GSWBCD6,=D'800000',WCHUP150
PERF CHDATO TO GSWBCD7
MOVE GTREGF(CBIN13),GSWBCD7
WCHUP150
MOVE GSWBCD6,GTDUPF(CBIN7)
PERF CHDATO
CBG GSWBCD7,GTREGF(CBIN13),WCHUPD16 NEW LOW?
WCHUP155
MOVE GTREGF(CBIN13),GTDUPF(CBIN7) YES
B WCHUPD90
WCHUPD16
MOVE GSWBCD6,GTREGF(CBIN13)
PERF CHDATO
MOVE GTREGF(CBIN13),GSWBCD7
WCHUPD90
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,CBIN13,CBIN22,GTLEVTXT,CBIN0
WRITE KJTAPE,SPINPUT
JT31
TBF TFELT911,JT32
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN22,GTLEVNVN,CBIN0
WRITE KJTAPE,SPINPUT
JT32
TBF TFELT921,JT33
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN8,GTLEVNVN,CBIN22
XCOPY SPINPUT,CBIN21,CBIN14,GTLEVADR,CBIN0
WRITE KJTAPE,SPINPUT
JT33
TBF TFELT931,JT34
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN18,GTLEVADR,CBIN14
MOVE GSWBIN1,=W'31'
XCOPY SPINPUT,GSWBIN1,CBIN4,GTLEVBY,CBIN0
WRITE KJTAPE,SPINPUT
JT34
TBF TFELT941,JT35
MOVE SPINPUT,=X'00'
XCOPY SPINPUT,CBIN13,CBIN16,GTLEVBY,CBIN4
MOVE GSWBIN1,=W'29'
XCOPY SPINPUT,GSWBIN1,CBIN6,GTLEVPDI,CBIN0
WRITE KJTAPE,SPINPUT
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,CBIN14
B WO100
WO97
PERF FRMXVO,CBIN5
MOVE GSWBIN1,CBIN14
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,CBIN3 INDICATE KONTOKORT
RET
*
WO100
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT
PERF CRVO
DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER
RET
* IN CYCLE
CYVOUCH
SET TTCYTRFL AFTER A CORRECT TRANS
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
*
*****
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
*
*
*
*
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,CBIN4,LINOP2 ONLY ENTER KEY ALLOWED
LINOP0
CBG SPBINW1,CBIN3,LINOP2 CHECK LENGTH
MOVE GSWBCD3,SPINPUT GET LINE NR
CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS?
PERF SPCHK5 OK, CHECK LINENR
CBE SPBINW3,CBIN3,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,CBIN0
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 '
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,CBIN3,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,CBIN4,WRID76 1,2,3,6
CBL WRITVAR1,CBIN6,WRID90 4,5
WRID76
PERF FRMXTA,CBIN6
PERF WTALLY
WAIT KTALLY
B WRID85
WRID80
CBG WRITVAR1,CBIN3,WRID90
WRID85
PERF FRMXTA,CBIN7
PERF WTALLY
WAIT KTALLY
WRID90
RET
PEND
EJECT
*************************************************
*
* 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
FILLR '&',1
FMEL '99',GSWBCD3
FBP GSWBCD3,PLAB10
FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5)
FEXIT
PLAB10
FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)
FMEND
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT KMDIO 03.01.XXX.1 «, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…004e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x004e…0064 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITFD «, t00=0x0000, t01=0x0052}
0x0064…0084 Head {h00=0x001c, h01=0x0050, text=» ENTRY WRITVO «, t00=0x0000, t01=0x0068}
0x0084…00a4 Head {h00=0x001c, h01=0x0050, text=» ENTRY WRITJT «, t00=0x0000, t01=0x0088}
0x00a4…00c4 Head {h00=0x001c, h01=0x0050, text=» ENTRY WTALLY «, t00=0x0000, t01=0x00a8}
0x00c4…00da Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITID «, t00=0x0000, t01=0x00c8}
0x00da…00f8 Head {h00=0x001a, h01=0x0050, text=» ENTRY CRKJ «, t00=0x0000, t01=0x00de}
0x00f8…010e Head {h00=0x0012, h01=0x0050, text=» ENTRY GRASPV «, t00=0x0000, t01=0x00fc}
0x010e…0124 Head {h00=0x0012, h01=0x0050, text=» ENTRY LINOPT «, t00=0x0000, t01=0x0112}
0x0124…0138 Head {h00=0x0010, h01=0x0050, text=» ENTRY CRVO «, t00=0x0000, t01=0x0128}
0x0138…0158 Head {h00=0x001c, h01=0x0050, text=» ENTRY WCHECK «, t00=0x0000, t01=0x013c}
0x0158…016e Head {h00=0x0012, h01=0x0050, text=» ENTRY WCHUPD «, t00=0x0000, t01=0x015c}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0000, t01=0x0172}
0x0182…0194 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0000, t01=0x0186}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0001, t01=0x0008}
0x01a8…01bc Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x001c}
0x01bc…01ce Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0030}
0x01ce…01ee Head {h00=0x001c, h01=0x0050, text=» EXT FRMTJT «, t00=0x0001, t01=0x0042}
0x01ee…0202 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x0062}
0x0202…0212 Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x0076}
0x0212…0224 Head {h00=0x000e, h01=0x0050, text=» EXT CYWRT«, t00=0x0001, t01=0x0086}
0x0224…0238 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x0098}
0x0238…024c Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00ac}
0x024c…026a Head {h00=0x001a, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x00c0}
0x026a…027e Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00de}
0x027e…0290 Head {h00=0x000e, h01=0x0050, text=» EXT LEVRD«, t00=0x0001, t01=0x00f2}
0x0290…02a4 Head {h00=0x0010, h01=0x0050, text=» EXT CHDATO «, t00=0x0001, t01=0x0104}
0x02a4…02b6 Head {h00=0x000e, h01=0x0050, text=» EXT LEVIN«, t00=0x0001, t01=0x0118}
0x02b6…02c8 Head {h00=0x000e, h01=0x0050, text=» EXT VARRD«, t00=0x0001, t01=0x012a}
0x02c8…02dc Head {h00=0x0010, h01=0x0050, text=» EXT VARWRT «, t00=0x0001, t01=0x013c}
0x02dc…02f0 Head {h00=0x0010, h01=0x0050, text=» EXT IDXGET «, t00=0x0001, t01=0x0150}
0x02f0…0304 Head {h00=0x0010, h01=0x0050, text=» EXT CHDATO «, t00=0x0001, t01=0x0164}
0x0304…0316 Head {h00=0x000e, h01=0x0050, text=» EXT TRINS«, t00=0x0001, t01=0x0178}
0x0316…032a Head {h00=0x0010, h01=0x0050, text=» EXT WSTRCH «, t00=0x0001, t01=0x018a}
0x032a…033e Head {h00=0x0010, h01=0x0050, text=» EXT TRGETF «, t00=0x0002, t01=0x000e}
0x033e…0350 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0002, t01=0x0022}
0x0350…0370 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x0034}
0x0370…037e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0054}
0x037e…0392 Head {h00=0x0010, h01=0x0050, text=»WRITFD PROC «, t00=0x0002, t01=0x0062}
0x0392…03ae Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0002, t01=0x0076}
0x03ae…03d6 Head {h00=0x0024, h01=0x0050, text=» PERF ADM,CBIN12 DISKETTE SKIFT «, t00=0x0002, t01=0x0092}
0x03d6…03f2 Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0002, t01=0x00ba}
0x03f2…040a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0002, t01=0x00d6}
0x040a…0416 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x00ee}
0x0416…0424 Head {h00=0x000a, h01=0x0050, text=»WRFD00«, t00=0x0002, t01=0x00fa}
0x0424…043e Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CPFLG «, t00=0x0002, t01=0x0108}
0x043e…0456 Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT901 «, t00=0x0002, t01=0x0122}
0x0456…046e Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT911 «, t00=0x0002, t01=0x013a}
0x046e…0486 Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT921 «, t00=0x0002, t01=0x0152}
0x0486…049e Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT931 «, t00=0x0002, t01=0x016a}
0x049e…04b6 Head {h00=0x0014, h01=0x0050, text=» CLEAR TFELT941 «, t00=0x0002, t01=0x0182}
0x04b6…04d4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,GTREGDEX«, t00=0x0003, t01=0x000a}
0x04d4…04f0 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN3,CBIN11 «, t00=0x0003, t01=0x0028}
0x04f0…0524 Head {h00=0x0030, h01=0x0050, text=» IB GSWBIN3,WRFD001,WRFD002,WRFD001,WRFD002 «, t00=0x0003, t01=0x0044}
0x0524…0536 Head {h00=0x000e, h01=0x0050, text=» B WRFD003«, t00=0x0003, t01=0x0078}
0x0536…0546 Head {h00=0x000c, h01=0x0050, text=»WRFD001 «, t00=0x0003, t01=0x008a}
0x0546…0578 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGNR,=D'1' TRANS 18,28 -> TRANS 1«, t00=0x0003, t01=0x009a}
0x0578…058a Head {h00=0x000e, h01=0x0050, text=» B WRFD003«, t00=0x0003, t01=0x00cc}
0x058a…059a Head {h00=0x000c, h01=0x0050, text=»WRFD002 «, t00=0x0003, t01=0x00de}
0x059a…05cc Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGNR,=D'6' TRANS 19,29 -> TRANS 6«, t00=0x0003, t01=0x00ee}
0x05cc…05dc Head {h00=0x000c, h01=0x0050, text=»WRFD003 «, t00=0x0003, t01=0x0120}
0x05dc…05f4 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0003, t01=0x0130}
0x05f4…0626 Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0003, t01=0x0148}
0x0626…063a Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0003, t01=0x017a}
0x063a…0656 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0003, t01=0x018e}
0x0656…0666 Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0004, t01=0x001a}
0x0666…067a Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0004, t01=0x002a}
0x067a…069e Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0004, t01=0x003e}
0x069e…06b4 Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0004, t01=0x0062}
0x06b4…06c4 Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0004, t01=0x0078}
0x06c4…06e2 Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0004, t01=0x0088}
0x06e2…0710 Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0004, t01=0x00a6}
0x0710…0728 Head {h00=0x0014, h01=0x0050, text=»* RESET GTREGNR «, t00=0x0004, t01=0x00d4}
0x0728…0756 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGNR,CREGTAB(GTREGDEX,CBIN1) «, t00=0x0004, t01=0x00ec}
0x0756…0772 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0004, t01=0x011a}
0x0772…0790 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0004, t01=0x0136}
0x0790…07ac Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0004, t01=0x0154}
0x07ac…07e6 Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0004, t01=0x0170}
0x07e6…0804 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0005, t01=0x001a}
0x0804…081e Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0005, t01=0x0038}
0x081e…084c Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0005, t01=0x0052}
0x084c…0870 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0005, t01=0x0080}
0x0870…08a0 Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0005, t01=0x00a4}
0x08a0…08b0 Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0005, t01=0x00d4}
0x08b0…08ca Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0005, t01=0x00e4}
0x08ca…08f0 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0005, t01=0x00fe}
0x08f0…0928 Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0005, t01=0x0124}
0x0928…0948 Head {h00=0x001c, h01=0x0050, text=» MOVE SPINPUT,=X'00' YES«, t00=0x0005, t01=0x015c}
0x0948…0976 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0005, t01=0x017c}
0x0976…0992 Head {h00=0x0018, h01=0x0050, text=» EDIT SPINPUT,PFRM1 «, t00=0x0006, t01=0x001a}
0x0992…09a2 Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0006, t01=0x0036}
0x09a2…09be Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0006, t01=0x0046}
0x09be…09e6 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0006, t01=0x0062}
0x09e6…0a04 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN10,=W'30' «, t00=0x0006, t01=0x008a}
0x0a04…0a40 Head {h00=0x0038, h01=0x0050, text=» MATCH SPINPUT,GSWBIN6,GSWBIN10,GSWSTR1,CBIN0,CBIN1 «, t00=0x0006, t01=0x00a8}
0x0a40…0a58 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0006, t01=0x00e4}
0x0a58…0a88 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0006, t01=0x00fc}
0x0a88…0abe Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,SPINPUT,CBIN0 NO«, t00=0x0006, t01=0x012c}
0x0abe…0ada Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0006, t01=0x0162}
0x0ada…0b06 Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0006, t01=0x017e}
0x0b06…0b24 Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0007, t01=0x001a}
0x0b24…0b34 Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0007, t01=0x0038}
0x0b34…0b68 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,SPINPUT,CBIN0 «, t00=0x0007, t01=0x0048}
0x0b68…0b96 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0007, t01=0x007c}
0x0b96…0bb2 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0007, t01=0x00aa}
0x0bb2…0be4 Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0007, t01=0x00c6}
0x0be4…0c08 Head {h00=0x0020, h01=0x0050, text=» DLETE SPINPUT,CBIN0,GSWBIN4«, t00=0x0007, t01=0x00f8}
0x0c08…0c1e Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0007, t01=0x011c}
0x0c1e…0c4c Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x0132}
0x0c4c…0c62 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x0160}
0x0c62…0c80 Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0007, t01=0x0176}
0x0c80…0c9a (8, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0008, t01=0x0004}
0x0c9a…0cb4 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0008, t01=0x001e}
0x0cb4…0cce Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0008, t01=0x0038}
0x0cce…0cf2 Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0008, t01=0x0052}
0x0cf2…0d02 Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0008, t01=0x0076}
0x0d02…0d1e Head {h00=0x0018, h01=0x0050, text=» TBT TFELT90,WRFD090«, t00=0x0008, t01=0x0086}
0x0d1e…0d3a Head {h00=0x0018, h01=0x0050, text=» TBT TFELT91,WRFD091«, t00=0x0008, t01=0x00a2}
0x0d3a…0d56 Head {h00=0x0018, h01=0x0050, text=» TBT TFELT92,WRFD092«, t00=0x0008, t01=0x00be}
0x0d56…0d72 Head {h00=0x0018, h01=0x0050, text=» TBT TFELT93,WRFD093«, t00=0x0008, t01=0x00da}
0x0d72…0d8e Head {h00=0x0018, h01=0x0050, text=» TBT TFELT94,WRFD094«, t00=0x0008, t01=0x00f6}
0x0d8e…0daa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0008, t01=0x0112}
0x0daa…0ddc Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0008, t01=0x012e}
0x0ddc…0e0a Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0008, t01=0x0160}
0x0e0a…0e20 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x018e}
0x0e20…0e3e Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0009, t01=0x0014}
0x0e3e…0e58 Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0009, t01=0x0032}
0x0e58…0e72 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0009, t01=0x004c}
0x0e72…0e8c Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0009, t01=0x0066}
0x0e8c…0eac Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0009, t01=0x0080}
0x0eac…0ec2 Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0009, t01=0x00a0}
0x0ec2…0ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b6}
0x0ecc…0ef0 Head {h00=0x0020, h01=0x0050, text=»* LOOK FOR ACCOUNT NO«, t00=0x0009, t01=0x00c0}
0x0ef0…0f18 Head {h00=0x0024, h01=0x0050, text=»* IN KONTOPLAN. IF FOUND,«, t00=0x0009, t01=0x00e4}
0x0f18…0f3a Head {h00=0x001e, h01=0x0050, text=»* SET FLAG GTKORTFL«, t00=0x0009, t01=0x010c}
0x0f3a…0f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012e}
0x0f44…0f68 Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0009, t01=0x0138}
0x0f68…0f7c Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0009, t01=0x015c}
0x0f7c…0f94 Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x0170}
0x0f94…0fb0 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x0188}
0x0fb0…0fd6 Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'2' FILE CODE «, t00=0x000a, t01=0x0014}
0x0fd6…0ffe Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x000a, t01=0x003a}
0x0ffe…1022 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x000a, t01=0x0062}
0x1022…1036 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x000a, t01=0x0086}
0x1036…104e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000a, t01=0x009a}
0x104e…105a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00b2}
0x105a…1062 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00be}
0x1062…1072 Head {h00=0x000c, h01=0x0050, text=»WRFD090 «, t00=0x000a, t01=0x00c6}
0x1072…1094 Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393000'«, t00=0x000a, t01=0x00d6}
0x1094…10c6 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTLEVTXT,CBIN0«, t00=0x000a, t01=0x00f8}
0x10c6…10dc Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT90«, t00=0x000a, t01=0x012a}
0x10dc…10f2 Head {h00=0x0012, h01=0x0050, text=» SET TFELT901 «, t00=0x000a, t01=0x0140}
0x10f2…1104 Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000a, t01=0x0156}
0x1104…1114 Head {h00=0x000c, h01=0x0050, text=»WRFD091 «, t00=0x000a, t01=0x0168}
0x1114…1136 Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393100'«, t00=0x000a, t01=0x0178}
0x1136…1168 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN22,GTLEVNVN,CBIN0«, t00=0x000b, t01=0x000a}
0x1168…117e Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT91«, t00=0x000b, t01=0x003c}
0x117e…1194 Head {h00=0x0012, h01=0x0050, text=» SET TFELT911 «, t00=0x000b, t01=0x0052}
0x1194…11a6 Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000b, t01=0x0068}
0x11a6…11b6 Head {h00=0x000c, h01=0x0050, text=»WRFD092 «, t00=0x000b, t01=0x007a}
0x11b6…11d8 Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393200'«, t00=0x000b, t01=0x008a}
0x11d8…120a Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN8,GTLEVNVN,CBIN22«, t00=0x000b, t01=0x00ac}
0x120a…123e Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,CBIN11,CBIN14,GTLEVADR,CBIN0 «, t00=0x000b, t01=0x00de}
0x123e…1254 Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT92«, t00=0x000b, t01=0x0112}
0x1254…126a Head {h00=0x0012, h01=0x0050, text=» SET TFELT921 «, t00=0x000b, t01=0x0128}
0x126a…127c Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000b, t01=0x013e}
0x127c…128c Head {h00=0x000c, h01=0x0050, text=»WRFD093 «, t00=0x000b, t01=0x0150}
0x128c…12ae Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393300'«, t00=0x000b, t01=0x0160}
0x12ae…12e2 Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN18,GTLEVADR,CBIN14 «, t00=0x000b, t01=0x0182}
0x12e2…1314 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN21,CBIN4,GTLEVBY,CBIN0 «, t00=0x000c, t01=0x0026}
0x1314…132a Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT93«, t00=0x000c, t01=0x0058}
0x132a…1340 Head {h00=0x0012, h01=0x0050, text=» SET TFELT931 «, t00=0x000c, t01=0x006e}
0x1340…1352 Head {h00=0x000e, h01=0x0050, text=» B WRFD095«, t00=0x000c, t01=0x0084}
0x1352…1362 Head {h00=0x000c, h01=0x0050, text=»WRFD094 «, t00=0x000c, t01=0x0096}
0x1362…1384 Head {h00=0x001e, h01=0x0050, text=» MOVE SPINPUT,=X'26393400'«, t00=0x000c, t01=0x00a6}
0x1384…13b6 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN3,CBIN16,GTLEVBY,CBIN4 «, t00=0x000c, t01=0x00c8}
0x13b6…13e8 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN19,CBIN6,GTLEVPDI,CBIN0«, t00=0x000c, t01=0x00fa}
0x13e8…13fe Head {h00=0x0012, h01=0x0050, text=» SET TFELT941 «, t00=0x000c, t01=0x012c}
0x13fe…1414 Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT94«, t00=0x000c, t01=0x0142}
0x1414…1424 Head {h00=0x000c, h01=0x0050, text=»WRFD095 «, t00=0x000c, t01=0x0158}
0x1424…1436 Head {h00=0x000e, h01=0x0050, text=» B WRFD025«, t00=0x000c, t01=0x0168}
0x1436…1440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017a}
0x1440…1450 Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x000c, t01=0x0184}
0x1450…1468 (13, 0, 400) Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x000d, t01=0x0004}
0x1468…147c Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000d, t01=0x001c}
0x147c…14a2 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000d, t01=0x0030}
0x14a2…14ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0056}
0x14ae…14b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0062}
0x14b8…14c8 Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x000d, t01=0x006c}
0x14c8…14d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14d2…14f8 Head {h00=0x0022, h01=0x0050, text=»* HERE MUST BEE RECOVERRY «, t00=0x000d, t01=0x0086}
0x14f8…1514 Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x000d, t01=0x00ac}
0x1514…1532 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x000d, t01=0x00c8}
0x1532…154e Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x000d, t01=0x00e6}
0x154e…1564 Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x000d, t01=0x0102}
0x1564…1578 Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000d, t01=0x0118}
0x1578…158e Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000d, t01=0x012c}
0x158e…15b2 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x000d, t01=0x0142}
0x15b2…15be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0166}
0x15be…15cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0172}
0x15cc…15da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0180}
0x15da…160e Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000d, t01=0x018e}
0x160e…1618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1618…162c Head {h00=0x0010, h01=0x0050, text=»* EDATNR«, t00=0x000e, t01=0x003c}
0x162c…1664 Head {h00=0x0034, h01=0x0050, text=»* FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000e, t01=0x0050}
0x1664…16a2 Head {h00=0x003a, h01=0x0050, text=»* AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000e, t01=0x0088}
0x16a2…16ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16ac…16e4 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000e, t01=0x00d0}
0x16e4…16f8 Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000e, t01=0x0108}
0x16f8…1710 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000e, t01=0x011c}
0x1710…1734 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000e, t01=0x0134}
0x1734…1750 Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000e, t01=0x0158}
0x1750…1774 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000e, t01=0x0174}
0x1774…17a6 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000f, t01=0x0008}
0x17a6…17ca Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000f, t01=0x003a}
0x17ca…17da Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000f, t01=0x005e}
0x17da…17fe Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000f, t01=0x006e}
0x17fe…1814 Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000f, t01=0x0092}
0x1814…1824 Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000f, t01=0x00a8}
0x1824…1830 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00b8}
0x1830…1840 Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000f, t01=0x00c4}
0x1840…1864 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000f, t01=0x00d4}
0x1864…1888 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000f, t01=0x00f8}
0x1888…189a Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000f, t01=0x011c}
0x189a…18aa Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000f, t01=0x012e}
0x18aa…18ce Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000f, t01=0x013e}
0x18ce…18f2 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000f, t01=0x0162}
0x18f2…1904 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000f, t01=0x0186}
0x1904…1914 Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x0010, t01=0x0008}
0x1914…1938 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x0010, t01=0x0018}
0x1938…195c Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x0010, t01=0x003c}
0x195c…196e Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x0010, t01=0x0060}
0x196e…197e Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x0010, t01=0x0072}
0x197e…19a2 Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x0010, t01=0x0082}
0x19a2…19b4 Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x0010, t01=0x00a6}
0x19b4…19c2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00b8}
0x19c2…19d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00c6}
0x19d0…19da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x19da…19e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19e4…19fa Head {h00=0x0012, h01=0x0050, text=»WCHECK PROC P «, t00=0x0010, t01=0x00e8}
0x19fa…1a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fe}
0x1a04…1a36 Head {h00=0x002e, h01=0x0050, text=»* THE PROCEDURE PRODUCES A STRAKS-CHECK OR«, t00=0x0010, t01=0x0108}
0x1a36…1a54 Head {h00=0x001a, h01=0x0050, text=»* A TRANSACTIONRECORD «, t00=0x0010, t01=0x013a}
0x1a54…1a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0158}
0x1a5e…1a88 Head {h00=0x0026, h01=0x0050, text=» TBT GTBDTFLG,WCH010 BUNDTCHECK ? «, t00=0x0010, t01=0x0162}
0x1a88…1ab2 Head {h00=0x0026, h01=0x0050, text=» TBT GTSTRFLG,WCH050 STRAKSCHECK ?«, t00=0x0010, t01=0x018c}
0x1ab2…1ac4 Head {h00=0x000e, h01=0x0050, text=» B WCH090 «, t00=0x0011, t01=0x0026}
0x1ac4…1ae0 Head {h00=0x0018, h01=0x0050, text=»WCH010 BUNDTCHECK «, t00=0x0011, t01=0x0038}
0x1ae0…1afc Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,WCH011 «, t00=0x0011, t01=0x0054}
0x1afc…1b18 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,WCH090«, t00=0x0011, t01=0x0070}
0x1b18…1b34 Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,WCH015«, t00=0x0011, t01=0x008c}
0x1b34…1b58 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN1),TTARKSAV«, t00=0x0011, t01=0x00a8}
0x1b58…1b7c Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTCYKTOT«, t00=0x0011, t01=0x00cc}
0x1b7c…1b8e Head {h00=0x000e, h01=0x0050, text=» B WCH015 «, t00=0x0011, t01=0x00f0}
0x1b8e…1b9c Head {h00=0x000a, h01=0x0050, text=»WCH011«, t00=0x0011, t01=0x0102}
0x1b9c…1bb8 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY1FLG,WCH090«, t00=0x0011, t01=0x0110}
0x1bb8…1bc6 Head {h00=0x000a, h01=0x0050, text=»WCH015«, t00=0x0011, t01=0x012c}
0x1bc6…1bea Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x0011, t01=0x013a}
0x1bea…1c26 Head {h00=0x0038, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 TRY TO FIND LEV«, t00=0x0011, t01=0x015e}
0x1c26…1c4e Head {h00=0x0024, h01=0x0050, text=» BNOK WCH020 ERROR OR NOT FOUND «, t00=0x0012, t01=0x000a}
0x1c4e…1c7c Head {h00=0x002a, h01=0x0050, text=» PERF TRGETF,GSWBIN7 GET A FREE RECORD«, t00=0x0012, t01=0x0032}
0x1c7c…1c90 Head {h00=0x0010, h01=0x0050, text=» BNOK WCH095«, t00=0x0012, t01=0x0060}
0x1c90…1cb4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x0012, t01=0x0074}
0x1cb4…1cd8 Head {h00=0x0020, h01=0x0050, text=» PERF VARRD TRY TO FIND LEV «, t00=0x0012, t01=0x0098}
0x1cd8…1d00 Head {h00=0x0024, h01=0x0050, text=» BNOK WCH020 ERROR OR NOT FOUND «, t00=0x0012, t01=0x00bc}
0x1d00…1d18 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0012, t01=0x00e4}
0x1d18…1d34 Head {h00=0x0018, h01=0x0050, text=» PERF TRINS,GSWBIN7 «, t00=0x0012, t01=0x00fc}
0x1d34…1d48 Head {h00=0x0010, h01=0x0050, text=» BNOK WCH095«, t00=0x0012, t01=0x0118}
0x1d48…1d6e Head {h00=0x0022, h01=0x0050, text=»* UPDATE VAR.INFO AND REWRITE «, t00=0x0012, t01=0x012c}
0x1d6e…1d80 Head {h00=0x000e, h01=0x0050, text=» B WCH090 «, t00=0x0012, t01=0x0152}
0x1d80…1d8e Head {h00=0x000a, h01=0x0050, text=»WCH020«, t00=0x0012, t01=0x0164}
0x1d8e…1db0 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN11,CBIN1 «, t00=0x0012, t01=0x0172}
0x1db0…1dc6 (19, 0, 400) Head {h00=0x0012, h01=0x0050, text=» DELAY CBIN10 «, t00=0x0013, t01=0x0004}
0x1dc6…1dd8 Head {h00=0x000e, h01=0x0050, text=» B WCH010 «, t00=0x0013, t01=0x001a}
0x1dd8…1df4 Head {h00=0x0018, h01=0x0050, text=»WCH050 STRAKSCHECK«, t00=0x0013, t01=0x002c}
0x1df4…1e18 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) «, t00=0x0013, t01=0x0048}
0x1e18…1e2c Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x0013, t01=0x006c}
0x1e2c…1e40 Head {h00=0x0010, h01=0x0050, text=» BOK WCH051 «, t00=0x0013, t01=0x0080}
0x1e40…1e56 Head {h00=0x0012, h01=0x0050, text=» SET TTLEVFLG «, t00=0x0013, t01=0x0094}
0x1e56…1e64 Head {h00=0x000a, h01=0x0050, text=»WCH051«, t00=0x0013, t01=0x00aa}
0x1e64…1e8c Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,WCH060 CYKEL/STABEL«, t00=0x0013, t01=0x00b8}
0x1e8c…1ea8 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,WCH057«, t00=0x0013, t01=0x00e0}
0x1ea8…1ec4 Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,WCH055«, t00=0x0013, t01=0x00fc}
0x1ec4…1ee8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN4),TTCYKTOT«, t00=0x0013, t01=0x0118}
0x1ee8…1ef6 Head {h00=0x000a, h01=0x0050, text=»WCH055«, t00=0x0013, t01=0x013c}
0x1ef6…1f0a Head {h00=0x0010, h01=0x0050, text=» PERF WCHUPD«, t00=0x0013, t01=0x014a}
0x1f0a…1f36 Head {h00=0x0028, h01=0x0050, text=» PERF WSTRCH,CBIN0 WRITE STRAKSCHECK«, t00=0x0013, t01=0x015e}
0x1f36…1f4a Head {h00=0x0010, h01=0x0050, text=» BNOK WCH095«, t00=0x0013, t01=0x018a}
0x1f4a…1f58 Head {h00=0x000a, h01=0x0050, text=»WCH057«, t00=0x0014, t01=0x000e}
0x1f58…1f6c Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0014, t01=0x001c}
0x1f6c…1f80 Head {h00=0x0010, h01=0x0050, text=» BOK WCH059 «, t00=0x0014, t01=0x0030}
0x1f80…1f9c Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN3 «, t00=0x0014, t01=0x0044}
0x1f9c…1fb0 Head {h00=0x0010, h01=0x0050, text=» PERF LEVIN «, t00=0x0014, t01=0x0060}
0x1fb0…1fc4 Head {h00=0x0010, h01=0x0050, text=» BNOK WCH057«, t00=0x0014, t01=0x0074}
0x1fc4…1fde Head {h00=0x0016, h01=0x0050, text=» PERF WSTRCH,CBIN1«, t00=0x0014, t01=0x0088}
0x1fde…1ff2 Head {h00=0x0010, h01=0x0050, text=» BNOK WCH095«, t00=0x0014, t01=0x00a2}
0x1ff2…2004 Head {h00=0x000e, h01=0x0050, text=» B WCH090 «, t00=0x0014, t01=0x00b6}
0x2004…2012 Head {h00=0x000a, h01=0x0050, text=»WCH059«, t00=0x0014, t01=0x00c8}
0x2012…202c Head {h00=0x0016, h01=0x0050, text=» PERF WSTRCH,CBIN1«, t00=0x0014, t01=0x00d6}
0x202c…2040 Head {h00=0x0010, h01=0x0050, text=» BNOK WCH095«, t00=0x0014, t01=0x00f0}
0x2040…2052 Head {h00=0x000e, h01=0x0050, text=» B WCH080 «, t00=0x0014, t01=0x0104}
0x2052…2060 Head {h00=0x000a, h01=0x0050, text=»WCH060«, t00=0x0014, t01=0x0116}
0x2060…207c Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,WCH070«, t00=0x0014, t01=0x0124}
0x207c…208e Head {h00=0x000e, h01=0x0050, text=» B WCH090 «, t00=0x0014, t01=0x0140}
0x208e…20a6 Head {h00=0x0014, h01=0x0050, text=»WCH070 STABEL «, t00=0x0014, t01=0x0152}
0x20a6…20ca Head {h00=0x0020, h01=0x0050, text=» PERF WCHUPD UPDATE VAR.INFO«, t00=0x0014, t01=0x016a}
0x20ca…20f4 Head {h00=0x0026, h01=0x0050, text=» PERF WSTRCH,CBIN0 EDIT CHECKLINE «, t00=0x0014, t01=0x018e}
0x20f4…2118 Head {h00=0x0020, h01=0x0050, text=»* SKRIV CHECK HVIS FYLDT OP «, t00=0x0015, t01=0x0028}
0x2118…2126 Head {h00=0x000a, h01=0x0050, text=»WCH080«, t00=0x0015, t01=0x004c}
0x2126…213a Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0015, t01=0x005a}
0x213a…214e Head {h00=0x0010, h01=0x0050, text=» BNOK WCH095«, t00=0x0015, t01=0x006e}
0x214e…215c Head {h00=0x000a, h01=0x0050, text=»WCH090«, t00=0x0015, t01=0x0082}
0x215c…2174 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0015, t01=0x0090}
0x2174…2186 Head {h00=0x000e, h01=0x0050, text=» B WCH099 «, t00=0x0015, t01=0x00a8}
0x2186…2194 Head {h00=0x000a, h01=0x0050, text=»WCH095«, t00=0x0015, t01=0x00ba}
0x2194…21ac Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0015, t01=0x00c8}
0x21ac…21ba Head {h00=0x000a, h01=0x0050, text=»WCH099«, t00=0x0015, t01=0x00e0}
0x21ba…21c6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00ee}
0x21c6…21d4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x00fa}
0x21d4…21e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0108}
0x21e2…21f6 Head {h00=0x0010, h01=0x0050, text=»WCHUPD PROC «, t00=0x0015, t01=0x0116}
0x21f6…2226 Head {h00=0x002c, h01=0x0050, text=»* THE PROCEDURE UPDATES VAR.INFO ON LEV,«, t00=0x0015, t01=0x012a}
0x2226…224c Head {h00=0x0022, h01=0x0050, text=»* AFTER A TRANS 18,19,28 OR 29«, t00=0x0015, t01=0x015a}
0x224c…2268 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTDATO«, t00=0x0015, t01=0x0180}
0x2268…227c Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0016, t01=0x000c}
0x227c…22aa Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN10),GSWBCD7 UDB.DATO «, t00=0x0016, t01=0x0020}
0x22aa…22e0 Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGF(CBIN11),GTDUPF(CBIN4) UDB. BELOB «, t00=0x0016, t01=0x004e}
0x22e0…2312 Head {h00=0x002e, h01=0x0050, text=» ADD GTREGF(CBIN12),GTDUPF(CBIN4) UDB ]TD «, t00=0x0016, t01=0x0084}
0x2312…2330 Head {h00=0x001a, h01=0x0050, text=» TBF GTBDTFLG,WCHUPD90«, t00=0x0016, t01=0x00b6}
0x2330…235a Head {h00=0x0026, h01=0x0050, text=» CBL GTDUPF(CBIN4),=D'0',WCHUPD12 «, t00=0x0016, t01=0x00d4}
0x235a…238e Head {h00=0x0030, h01=0x0050, text=» ADD GTREGF(CBIN14),GTDUPF(CBIN4) VENT DEBET«, t00=0x0016, t01=0x00fe}
0x238e…23a2 Head {h00=0x0010, h01=0x0050, text=» B WCHUPD14 «, t00=0x0016, t01=0x0132}
0x23a2…23b2 Head {h00=0x000c, h01=0x0050, text=»WCHUPD12«, t00=0x0016, t01=0x0146}
0x23b2…23e8 Head {h00=0x0032, h01=0x0050, text=» ADD GTREGF(CBIN15),GTDUPF(CBIN4) VENT KREDIT «, t00=0x0016, t01=0x0156}
0x23e8…23f8 Head {h00=0x000c, h01=0x0050, text=»WCHUPD14«, t00=0x0016, t01=0x018c}
0x23f8…2430 Head {h00=0x0034, h01=0x0050, text=» ADD GTREGF(CBIN16),GTDUPF(CBIN4) SKYLDIGT BELOB«, t00=0x0017, t01=0x000c}
0x2430…2466 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBCD6,GTREGF(CBIN13) GET LOW VALORDATE«, t00=0x0017, t01=0x0044}
0x2466…248a Head {h00=0x0020, h01=0x0050, text=» CBL GSWBCD6,=D'1',WCHUP155 «, t00=0x0017, t01=0x007a}
0x248a…24b2 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD6,=D'800000',WCHUP150«, t00=0x0017, t01=0x009e}
0x24b2…24d2 Head {h00=0x001c, h01=0x0050, text=» PERF CHDATO TO GSWBCD7 «, t00=0x0017, t01=0x00c6}
0x24d2…24f6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7«, t00=0x0017, t01=0x00e6}
0x24f6…2506 Head {h00=0x000c, h01=0x0050, text=»WCHUP150«, t00=0x0017, t01=0x010a}
0x2506…252a Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN7) «, t00=0x0017, t01=0x011a}
0x252a…253e Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0017, t01=0x013e}
0x253e…2574 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD7,GTREGF(CBIN13),WCHUPD16 NEW LOW? «, t00=0x0017, t01=0x0152}
0x2574…2584 Head {h00=0x000c, h01=0x0050, text=»WCHUP155«, t00=0x0017, t01=0x0188}
0x2584…25b2 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN13),GTDUPF(CBIN7) YES«, t00=0x0018, t01=0x0008}
0x25b2…25c6 Head {h00=0x0010, h01=0x0050, text=» B WCHUPD90 «, t00=0x0018, t01=0x0036}
0x25c6…25d6 Head {h00=0x000c, h01=0x0050, text=»WCHUPD16«, t00=0x0018, t01=0x004a}
0x25d6…25fa Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTREGF(CBIN13)«, t00=0x0018, t01=0x005a}
0x25fa…260e Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0018, t01=0x007e}
0x260e…2632 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7«, t00=0x0018, t01=0x0092}
0x2632…2642 Head {h00=0x000c, h01=0x0050, text=»WCHUPD90«, t00=0x0018, t01=0x00b6}
0x2642…264e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00c6}
0x264e…265c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x00d2}
0x265c…266a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00e0}
0x266a…2688 Head {h00=0x001a, h01=0x0050, text=»WRITJT PROC $JTLIT «, t00=0x0018, t01=0x00ee}
0x2688…269c Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x0018, t01=0x010c}
0x269c…26b8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0018, t01=0x0120}
0x26b8…26c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013c}
0x26c2…26fc Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x0018, t01=0x0146}
0x26fc…272a Head {h00=0x002a, h01=0x0050, text=»* DEPENDING ON TRANSACTION TYPE«, t00=0x0018, t01=0x0180}
0x272a…2734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001e}
0x2734…2750 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0019, t01=0x0028}
0x2750…2764 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0019, t01=0x0044}
0x2764…2778 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0019, t01=0x0058}
0x2778…2794 Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x0019, t01=0x006c}
0x2794…27ba Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,$JTLIT «, t00=0x0019, t01=0x0088}
0x27ba…27e4 Head {h00=0x0026, h01=0x0050, text=» CBG GSWBIN1,CBIN0,JT10 «, t00=0x0019, t01=0x00ae}
0x27e4…282e Head {h00=0x0046, h01=0x0050, text=» PERF FRMTJT GET FORMAT ACORDING TO TYPE«, t00=0x0019, t01=0x00d8}
0x282e…284a Head {h00=0x0018, h01=0x0050, text=» B JT20 «, t00=0x0019, t01=0x0122}
0x284a…287e Head {h00=0x0030, h01=0x0050, text=»JT10 PERF FRMXJT,GSWBIN1 GET SPECIAL FORMAT «, t00=0x0019, t01=0x013e}
0x287e…288a Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x0019, t01=0x0172}
0x288a…28be Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x0019, t01=0x017e}
0x28be…28d8 Head {h00=0x0016, h01=0x0050, text=» TBT GTNWFLG,JT50 «, t00=0x001a, t01=0x0022}
0x28d8…2904 Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x001a, t01=0x003c}
0x2904…2910 Head {h00=0x0008, h01=0x0050, text=»JT30«, t00=0x001a, t01=0x0068}
0x2910…2928 Head {h00=0x0014, h01=0x0050, text=» TBF CF9094,JT35«, t00=0x001a, t01=0x0074}
0x2928…2948 Head {h00=0x001c, h01=0x0050, text=» CBL GTREGDEX,CBIN8,JT35«, t00=0x001a, t01=0x008c}
0x2948…2968 Head {h00=0x001c, h01=0x0050, text=» CBG GTREGDEX,CBIN9,JT35«, t00=0x001a, t01=0x00ac}
0x2968…2982 Head {h00=0x0016, h01=0x0050, text=» TBF TFELT901,JT31«, t00=0x001a, t01=0x00cc}
0x2982…299e Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x001a, t01=0x00e6}
0x299e…29d2 Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTLEVTXT,CBIN0 «, t00=0x001a, t01=0x0102}
0x29d2…29f0 Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x001a, t01=0x0136}
0x29f0…29fc Head {h00=0x0008, h01=0x0050, text=»JT31«, t00=0x001a, t01=0x0154}
0x29fc…2a16 Head {h00=0x0016, h01=0x0050, text=» TBF TFELT911,JT32«, t00=0x001a, t01=0x0160}
0x2a16…2a32 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x001a, t01=0x017a}
0x2a32…2a66 Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN22,GTLEVNVN,CBIN0 «, t00=0x001b, t01=0x0008}
0x2a66…2a84 Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT«, t00=0x001b, t01=0x003c}
0x2a84…2a90 Head {h00=0x0008, h01=0x0050, text=»JT32«, t00=0x001b, t01=0x005a}
0x2a90…2aaa Head {h00=0x0016, h01=0x0050, text=» TBF TFELT921,JT33«, t00=0x001b, t01=0x0066}
0x2aaa…2ac6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x001b, t01=0x0080}
0x2ac6…2afa Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN8,GTLEVNVN,CBIN22 «, t00=0x001b, t01=0x009c}
0x2afa…2b2e Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,CBIN21,CBIN14,GTLEVADR,CBIN0 «, t00=0x001b, t01=0x00d0}
0x2b2e…2b4c Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x001b, t01=0x0104}
0x2b4c…2b58 Head {h00=0x0008, h01=0x0050, text=»JT33«, t00=0x001b, t01=0x0122}
0x2b58…2b72 Head {h00=0x0016, h01=0x0050, text=» TBF TFELT931,JT34«, t00=0x001b, t01=0x012e}
0x2b72…2b8e Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x001b, t01=0x0148}
0x2b8e…2bc2 Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN18,GTLEVADR,CBIN14«, t00=0x001b, t01=0x0164}
0x2bc2…2bde Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'31'«, t00=0x001c, t01=0x0008}
0x2bde…2c10 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,GSWBIN1,CBIN4,GTLEVBY,CBIN0«, t00=0x001c, t01=0x0024}
0x2c10…2c2e Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x001c, t01=0x0056}
0x2c2e…2c3a Head {h00=0x0008, h01=0x0050, text=»JT34«, t00=0x001c, t01=0x0074}
0x2c3a…2c54 Head {h00=0x0016, h01=0x0050, text=» TBF TFELT941,JT35«, t00=0x001c, t01=0x0080}
0x2c54…2c70 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x001c, t01=0x009a}
0x2c70…2ca2 Head {h00=0x002e, h01=0x0050, text=» XCOPY SPINPUT,CBIN13,CBIN16,GTLEVBY,CBIN4«, t00=0x001c, t01=0x00b6}
0x2ca2…2cbe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'29'«, t00=0x001c, t01=0x00e8}
0x2cbe…2cf2 Head {h00=0x0030, h01=0x0050, text=» XCOPY SPINPUT,GSWBIN1,CBIN6,GTLEVPDI,CBIN0 «, t00=0x001c, t01=0x0104}
0x2cf2…2d10 Head {h00=0x001a, h01=0x0050, text=» WRITE KJTAPE,SPINPUT «, t00=0x001c, t01=0x0138}
0x2d10…2d1c Head {h00=0x0008, h01=0x0050, text=»JT35«, t00=0x001c, t01=0x0156}
0x2d1c…2d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0162}
0x2d26…2d58 Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x001c, t01=0x016c}
0x2d58…2d74 Head {h00=0x0018, h01=0x0050, text=» BOK JTRET«, t00=0x001d, t01=0x000e}
0x2d74…2da4 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x001d, t01=0x002a}
0x2da4…2db8 Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x001d, t01=0x005a}
0x2db8…2dc6 Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x001d, t01=0x006e}
0x2dc6…2dd2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x007c}
0x2dd2…2dde Head {h00=0x0008, h01=0x0050, text=»JT50«, t00=0x001d, t01=0x0088}
0x2dde…2e00 Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KJTAPE,GTSTRFMT«, t00=0x001d, t01=0x0094}
0x2e00…2e0c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x00b6}
0x2e0c…2e22 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x00c2}
0x2e22…2e38 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00d8}
0x2e38…2e4e Head {h00=0x0012, h01=0x0050, text=»WTALLY PROC «, t00=0x001d, t01=0x00ee}
0x2e4e…2e6a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001d, t01=0x0104}
0x2e6a…2e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0120}
0x2e74…2e96 Head {h00=0x001e, h01=0x0050, text=»* WRITE TALLY ROLL «, t00=0x001d, t01=0x012a}
0x2e96…2ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014c}
0x2ea0…2ebc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x0156}
0x2ebc…2ed0 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001d, t01=0x0172}
0x2ed0…2ee4 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x001d, t01=0x0186}
0x2ee4…2f30 Head {h00=0x0048, h01=0x0050, text=» EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORMAT«, t00=0x001e, t01=0x000a}
0x2f30…2f50 Head {h00=0x001c, h01=0x0050, text=» RET STORED IN GTSTRFMT«, t00=0x001e, t01=0x0056}
0x2f50…2f64 Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x001e, t01=0x0076}
0x2f64…2f7a Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x008a}
0x2f7a…2f90 Head {h00=0x0012, h01=0x0050, text=»CRKJ PROC «, t00=0x001e, t01=0x00a0}
0x2f90…2fac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x00b6}
0x2fac…2fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d2}
0x2fb6…2ff2 Head {h00=0x0038, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x001e, t01=0x00dc}
0x2ff2…2ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0118}
0x2ffc…3018 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0122}
0x3018…3044 Head {h00=0x0028, h01=0x0050, text=» EDWRT .NW,KJTAPE,CRJTFMT «, t00=0x001e, t01=0x013e}
0x3044…3058 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001e, t01=0x016a}
0x3058…306c Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x001e, t01=0x017e}
0x306c…308a (31, 0, 400) Head {h00=0x001a, h01=0x0050, text=» FILLR ' ',2«, t00=0x001f, t01=0x0004}
0x308a…30a0 Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x001f, t01=0x0022}
0x30a0…30b6 Head {h00=0x0012, h01=0x0050, text=» FMEND «, t00=0x001f, t01=0x0038}
0x30b6…30cc Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x004e}
0x30cc…30d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0064}
0x30d6…30e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006e}
0x30e0…30f2 Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x001f, t01=0x0078}
0x30f2…310e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001f, t01=0x008a}
0x310e…3118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a6}
0x3118…3156 Head {h00=0x003a, h01=0x0050, text=»* DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x001f, t01=0x00b0}
0x3156…3160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ee}
0x3160…317c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x00f8}
0x317c…319a Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x001f, t01=0x0114}
0x319a…31a6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x0132}
0x31a6…31ba Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x001f, t01=0x013e}
0x31ba…31ce Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x001f, t01=0x0152}
0x31ce…31e4 Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x001f, t01=0x0166}
0x31e4…31f2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x017c}
0x31f2…3200 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x018a}
0x3200…3216 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0008}
0x3216…322a Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0020, t01=0x001e}
0x322a…3234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0032}
0x3234…3252 Head {h00=0x001a, h01=0x0050, text=»* WRITE VOUCHER«, t00=0x0020, t01=0x003c}
0x3252…325c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005a}
0x325c…328a Head {h00=0x002a, h01=0x0050, text=»* IN CYCLE POSITION AND WRITE «, t00=0x0020, t01=0x0064}
0x328a…32b6 Head {h00=0x0028, h01=0x0050, text=»* (MAY BE NEW PAGE)«, t00=0x0020, t01=0x0092}
0x32b6…32c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00be}
0x32c0…32e8 Head {h00=0x0024, h01=0x0050, text=»* NOT CYCLE GET LINE NR «, t00=0x0020, t01=0x00c8}
0x32e8…3314 Head {h00=0x0028, h01=0x0050, text=»* POSITION VOUCHER «, t00=0x0020, t01=0x00f0}
0x3314…3334 Head {h00=0x001c, h01=0x0050, text=»* WRITE«, t00=0x0020, t01=0x011c}
0x3334…3362 Head {h00=0x002a, h01=0x0050, text=»* AND RELEASE VOUCHER«, t00=0x0020, t01=0x013c}
0x3362…336c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016a}
0x336c…3388 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0174}
0x3388…33b0 Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,CYVOUCH«, t00=0x0020, t01=0x0190}
0x33b0…33c6 Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0021, t01=0x0028}
0x33c6…33d6 Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0021, t01=0x003e}
0x33d6…3402 Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0021, t01=0x004e}
0x3402…341e Head {h00=0x0018, h01=0x0050, text=» PERF GRASPV«, t00=0x0021, t01=0x007a}
0x341e…3436 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0021, t01=0x0096}
0x3436…345e Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x0021, t01=0x00ae}
0x345e…347e Head {h00=0x001c, h01=0x0050, text=» BNOK WOBILAG«, t00=0x0021, t01=0x00d6}
0x347e…349e Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x0021, t01=0x00f6}
0x349e…34bc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0021, t01=0x0116}
0x34bc…34cc Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0021, t01=0x0134}
0x34cc…34ee Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x0021, t01=0x0144}
0x34ee…350a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0021, t01=0x0166}
0x350a…3522 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2, C «, t00=0x0021, t01=0x0182}
0x3522…3548 Head {h00=0x0022, h01=0x0050, text=» WO99,WO98,WO97,WO96,WO95, C«, t00=0x0022, t01=0x000a}
0x3548…3566 Head {h00=0x001a, h01=0x0050, text=» WO94,WO93,WO92,WO91 «, t00=0x0022, t01=0x0030}
0x3566…3572 Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x0022, t01=0x004e}
0x3572…358c Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x0022, t01=0x005a}
0x358c…35a8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0022, t01=0x0074}
0x35a8…35b8 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0022, t01=0x0090}
0x35b8…35c4 Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x0022, t01=0x00a0}
0x35c4…35de Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x0022, t01=0x00ac}
0x35de…35fa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN14«, t00=0x0022, t01=0x00c6}
0x35fa…360a Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0022, t01=0x00e2}
0x360a…3616 Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x0022, t01=0x00f2}
0x3616…3630 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x0022, t01=0x00fe}
0x3630…364c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN14«, t00=0x0022, t01=0x0118}
0x364c…365c Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0022, t01=0x0134}
0x365c…3668 Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x0022, t01=0x0144}
0x3668…3684 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x0022, t01=0x0150}
0x3684…36a0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x0022, t01=0x016c}
0x36a0…36b0 Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0022, t01=0x0188}
0x36b0…36bc Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x0023, t01=0x0008}
0x36bc…36c8 Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x0023, t01=0x0014}
0x36c8…36d4 Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x0023, t01=0x0020}
0x36d4…36ee Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0023, t01=0x002c}
0x36ee…3700 Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x0023, t01=0x0046}
0x3700…371c Head {h00=0x0018, h01=0x0050, text=»WO92 SHORT 'BILAG'«, t00=0x0023, t01=0x0058}
0x371c…373c Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x0023, t01=0x0074}
0x373c…3750 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0023, t01=0x0094}
0x3750…3766 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x0023, t01=0x00a8}
0x3766…377a Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0023, t01=0x00be}
0x377a…378c Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x0023, t01=0x00d2}
0x378c…37ac Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x0023, t01=0x00e4}
0x37ac…37ca Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0023, t01=0x0104}
0x37ca…37e2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0023, t01=0x0122}
0x37e2…37fe Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x0023, t01=0x013a}
0x37fe…380e Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0023, t01=0x0156}
0x380e…381a Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x0023, t01=0x0166}
0x381a…3848 Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,CBIN3 INDICATE KONTOKORT«, t00=0x0023, t01=0x0172}
0x3848…3854 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0010}
0x3854…385e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001c}
0x385e…386c Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x0024, t01=0x0026}
0x386c…389e Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0024, t01=0x0034}
0x389e…38d6 Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x0024, t01=0x0066}
0x38d6…38e8 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0024, t01=0x009e}
0x38e8…3930 Head {h00=0x0044, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0024, t01=0x00b0}
0x3930…3944 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0024, t01=0x00f8}
0x3944…3956 Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x0024, t01=0x010c}
0x3956…3966 Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x0024, t01=0x011e}
0x3966…3992 Head {h00=0x0028, h01=0x0050, text=» SET TTCYTRFL AFTER A CORRECT TRANS «, t00=0x0024, t01=0x012e}
0x3992…39ac Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x0024, t01=0x015a}
0x39ac…39c0 Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x0024, t01=0x0174}
0x39c0…39d2 Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x0024, t01=0x0188}
0x39d2…39de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x000a}
0x39de…39e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0016}
0x39e8…39f4 Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x0025, t01=0x0020}
0x39f4…3a1a Head {h00=0x0022, h01=0x0050, text=» TBT TTTSTFLG,WO10«, t00=0x0025, t01=0x002c}
0x3a1a…3a3c Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0025, t01=0x0052}
0x3a3c…3a6a Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x0025, t01=0x0074}
0x3a6a…3a8a Head {h00=0x001c, h01=0x0050, text=» PERF GRASPV «, t00=0x0025, t01=0x00a2}
0x3a8a…3a9e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0025, t01=0x00c2}
0x3a9e…3aaa Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x0025, t01=0x00d6}
0x3aaa…3ac8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0025, t01=0x00e2}
0x3ac8…3afa Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0025, t01=0x0100}
0x3afa…3b1c Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x0025, t01=0x0132}
0x3b1c…3b2a Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0025, t01=0x0154}
0x3b2a…3b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0162}
0x3b34…3b58 Head {h00=0x0020, h01=0x0050, text=»* WRITING OF TEXTLINE«, t00=0x0025, t01=0x016c}
0x3b58…3b7e Head {h00=0x0022, h01=0x0050, text=»* FOR CHECK ON WORKSET «, t00=0x0025, t01=0x0190}
0x3b7e…3b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0026}
0x3b88…3b96 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0026, t01=0x0030}
0x3b96…3bd2 Head {h00=0x0038, h01=0x0050, text=» SUB TTLINNR,=D'2' NEXT LINE«, t00=0x0026, t01=0x003e}
0x3bd2…3c0e Head {h00=0x0038, h01=0x0050, text=» CBL TTLINNR,=D'4',NEWPG NEW PAGE?«, t00=0x0026, t01=0x007a}
0x3c0e…3c1e Head {h00=0x000c, h01=0x0050, text=» RET NO«, t00=0x0026, t01=0x00b6}
0x3c1e…3c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c6}
0x3c28…3c40 Head {h00=0x0014, h01=0x0050, text=»NEWPG NEW PAGE«, t00=0x0026, t01=0x00d0}
0x3c40…3c6a Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x0026, t01=0x00e8}
0x3c6a…3c7e Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0026, t01=0x0112}
0x3c7e…3c9c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0026, t01=0x0126}
0x3c9c…3cbc Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0026, t01=0x0144}
0x3cbc…3cda Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x0026, t01=0x0164}
0x3cda…3cf4 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x0026, t01=0x0182}
0x3cf4…3d12 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0027, t01=0x000c}
0x3d12…3d38 Head {h00=0x0022, h01=0x0050, text=» DSC0 KVOUCH,RLEAS «, t00=0x0027, t01=0x002a}
0x3d38…3d4e Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x0027, t01=0x0050}
0x3d4e…3d5c Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x0027, t01=0x0066}
0x3d5c…3d68 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0074}
0x3d68…3d7e Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0080}
0x3d7e…3d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0096}
0x3d88…3d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a0}
0x3d92…3d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00aa}
0x3d9c…3da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b4}
0x3da6…3dbc Head {h00=0x0012, h01=0x0050, text=»GRASPV PROC «, t00=0x0027, t01=0x00be}
0x3dbc…3dd8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0027, t01=0x00d4}
0x3dd8…3de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f0}
0x3de2…3e00 Head {h00=0x001a, h01=0x0050, text=»* GRASP VOUCHER«, t00=0x0027, t01=0x00fa}
0x3e00…3e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0118}
0x3e0a…3e26 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0027, t01=0x0122}
0x3e26…3e3a Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0027, t01=0x013e}
0x3e3a…3e62 Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x0027, t01=0x0152}
0x3e62…3e76 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0027, t01=0x017a}
0x3e76…3e8c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x018e}
0x3e8c…3ea2 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0014}
0x3ea2…3eb8 Head {h00=0x0012, h01=0x0050, text=»LINOPT PROC «, t00=0x0028, t01=0x002a}
0x3eb8…3ed4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0028, t01=0x0040}
0x3ed4…3ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005c}
0x3ede…3f08 Head {h00=0x0026, h01=0x0050, text=»* CHECK LINE NUMBER, IF ANY«, t00=0x0028, t01=0x0066}
0x3f08…3f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0090}
0x3f12…3f2e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0028, t01=0x009a}
0x3f2e…3f4a Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x0028, t01=0x00b6}
0x3f4a…3f74 Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x0028, t01=0x00d2}
0x3f74…3f92 Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x0028, t01=0x00fc}
0x3f92…3fa0 Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x0028, t01=0x011a}
0x3fa0…3fb2 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0028, t01=0x0128}
0x3fb2…3fde Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',LINOP0 SLUT KEY «, t00=0x0028, t01=0x013a}
0x3fde…4018 Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,CBIN4,LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x0028, t01=0x0166}
0x4018…4026 Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x0029, t01=0x0010}
0x4026…4054 Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,CBIN3,LINOP2 CHECK LENGTH«, t00=0x0029, t01=0x001e}
0x4054…407e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x0029, t01=0x004c}
0x407e…40b2 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x0029, t01=0x0076}
0x40b2…40d8 Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x0029, t01=0x00aa}
0x40d8…410a Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,CBIN3,LINOP2 ERROR IN LINE NR«, t00=0x0029, t01=0x00d0}
0x410a…413e Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x0029, t01=0x0102}
0x413e…414c Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x0029, t01=0x0136}
0x414c…4170 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x0029, t01=0x0144}
0x4170…4182 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0029, t01=0x0168}
0x4182…4190 Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x0029, t01=0x017a}
0x4190…41b2 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x0029, t01=0x0188}
0x41b2…41d6 Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x002a, t01=0x001a}
0x41d6…41f4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x002a, t01=0x003e}
0x41f4…4206 Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x002a, t01=0x005c}
0x4206…4216 Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x002a, t01=0x006e}
0x4216…4234 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x002a, t01=0x007e}
0x4234…4252 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x002a, t01=0x009c}
0x4252…4266 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x002a, t01=0x00ba}
0x4266…4298 Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x002a, t01=0x00ce}
0x4298…42be Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x002a, t01=0x0100}
0x42be…42da Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x002a, t01=0x0126}
0x42da…42ec Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x002a, t01=0x0142}
0x42ec…42fa Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x002a, t01=0x0154}
0x42fa…4324 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002a, t01=0x0162}
0x4324…433c Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x002a, t01=0x018c}
0x433c…4366 Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x002b, t01=0x0014}
0x4366…437a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002b, t01=0x003e}
0x437a…4388 Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x002b, t01=0x0052}
0x4388…43a6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x002b, t01=0x0060}
0x43a6…43b6 Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x002b, t01=0x007e}
0x43b6…43c4 Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x002b, t01=0x008e}
0x43c4…43e6 Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x002b, t01=0x009c}
0x43e6…43f2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x00be}
0x43f2…4406 Head {h00=0x0010, h01=0x0050, text=» PEND«, t00=0x002b, t01=0x00ca}
0x4406…4414 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00de}
0x4414…443a Head {h00=0x0022, h01=0x0050, text=»WRITID PROC WRITVAR1,WRITVAR2 «, t00=0x002b, t01=0x00ec}
0x443a…4456 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x0112}
0x4456…4460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012e}
0x4460…4498 Head {h00=0x0034, h01=0x0050, text=»* PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x002b, t01=0x0138}
0x4498…44cc Head {h00=0x0030, h01=0x0050, text=»* PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x002b, t01=0x0170}
0x44cc…44d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0014}
0x44d6…4504 Head {h00=0x002a, h01=0x0050, text=»* PRINTS ON JOURNAL AND TALLY«, t00=0x002c, t01=0x001e}
0x4504…450e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004c}
0x450e…4518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0056}
0x4518…4534 Head {h00=0x0018, h01=0x0050, text=»* WRITVAR1:«, t00=0x002c, t01=0x0060}
0x4534…4554 Head {h00=0x001c, h01=0x0050, text=»* 1 FEJL«, t00=0x002c, t01=0x007c}
0x4554…4578 Head {h00=0x0020, h01=0x0050, text=»* 2 OPSTART «, t00=0x002c, t01=0x009c}
0x4578…45a2 Head {h00=0x0026, h01=0x0050, text=»* 3 DISKETTE SKIFT«, t00=0x002c, t01=0x00c0}
0x45a2…45ca Head {h00=0x0024, h01=0x0050, text=»* 4 KONVERTERING«, t00=0x002c, t01=0x00ea}
0x45ca…45f6 Head {h00=0x0028, h01=0x0050, text=»* 5 DATATRANSMISSION«, t00=0x002c, t01=0x0112}
0x45f6…4618 Head {h00=0x001e, h01=0x0050, text=»* 6 BACKUP«, t00=0x002c, t01=0x013e}
0x4618…4622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0160}
0x4622…463e Head {h00=0x0018, h01=0x0050, text=»* WRITVAR2:«, t00=0x002c, t01=0x016a}
0x463e…4674 Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x002c, t01=0x0186}
0x4674…469c Head {h00=0x0024, h01=0x0050, text=»* 1 1-20 + 40-59«, t00=0x002d, t01=0x002c}
0x469c…46d6 Head {h00=0x0036, h01=0x0050, text=»* 2 1-20 + 23-42, IF KONVERTERING «, t00=0x002d, t01=0x0054}
0x46d6…4714 Head {h00=0x003a, h01=0x0050, text=»* 2 1-20 + VOLID, IF NOT KONVERTERING «, t00=0x002d, t01=0x008e}
0x4714…4738 Head {h00=0x0020, h01=0x0050, text=»* 3 NOTHING «, t00=0x002d, t01=0x00cc}
0x4738…475a Head {h00=0x001e, h01=0x0050, text=»* 4 VOLID «, t00=0x002d, t01=0x00f0}
0x475a…4764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0112}
0x4764…476e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011c}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0126}
0x4778…4794 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x0130}
0x4794…479e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x014c}
0x479e…47b2 Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x002d, t01=0x0156}
0x47b2…47f0 Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x002d, t01=0x016a}
0x47f0…4802 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x002e, t01=0x0018}
0x4802…4810 Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x002e, t01=0x002a}
0x4810…4830 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x002e, t01=0x0038}
0x4830…4842 Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x002e, t01=0x0058}
0x4842…4850 Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x002e, t01=0x006a}
0x4850…4874 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x002e, t01=0x0078}
0x4874…4886 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002e, t01=0x009c}
0x4886…4894 Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x002e, t01=0x00ae}
0x4894…48be Head {h00=0x0026, h01=0x0050, text=» MOVE GSWSTR20,=C'DISKETTE SKIFT '«, t00=0x002e, t01=0x00bc}
0x48be…48d0 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002e, t01=0x00e6}
0x48d0…48de Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x002e, t01=0x00f8}
0x48de…4906 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x002e, t01=0x0106}
0x4906…4918 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002e, t01=0x012e}
0x4918…4926 Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x002e, t01=0x0140}
0x4926…4952 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x002e, t01=0x014e}
0x4952…4964 Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x002e, t01=0x017a}
0x4964…4972 Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x002e, t01=0x018c}
0x4972…4994 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x002f, t01=0x000a}
0x4994…49a2 Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x002f, t01=0x002c}
0x49a2…49be Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x002f, t01=0x003a}
0x49be…49d8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x002f, t01=0x0056}
0x49d8…49ec Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x002f, t01=0x0070}
0x49ec…49f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0084}
0x49f6…4a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008e}
0x4a00…4a0e Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x002f, t01=0x0098}
0x4a0e…4a22 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002f, t01=0x00a6}
0x4a22…4a44 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x002f, t01=0x00ba}
0x4a44…4a66 Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x002f, t01=0x00dc}
0x4a66…4a84 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CPCKBUF«, t00=0x002f, t01=0x00fe}
0x4a84…4aa0 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x002f, t01=0x011c}
0x4aa0…4ac2 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN3,WRID60«, t00=0x002f, t01=0x0138}
0x4ac2…4adc Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x002f, t01=0x015a}
0x4adc…4af0 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x002f, t01=0x0174}
0x4af0…4b04 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002f, t01=0x0188}
0x4b04…4b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000c}
0x4b0e…4b1c Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0030, t01=0x0016}
0x4b1c…4b3e Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0030, t01=0x0024}
0x4b3e…4b5a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0030, t01=0x0046}
0x4b5a…4b76 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0030, t01=0x0062}
0x4b76…4baa Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0030, t01=0x007e}
0x4baa…4bbc Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0030, t01=0x00b2}
0x4bbc…4bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00c4}
0x4bc6…4bd4 Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0030, t01=0x00ce}
0x4bd4…4bf8 Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0030, t01=0x00dc}
0x4bf8…4c14 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0030, t01=0x0100}
0x4c14…4c30 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0030, t01=0x011c}
0x4c30…4c64 Head {h00=0x0030, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,CPCKBUF,GSWBIN1«, t00=0x0030, t01=0x0138}
0x4c64…4c76 Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0030, t01=0x016c}
0x4c76…4c84 Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0030, t01=0x017e}
0x4c84…4ca6 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0030, t01=0x018c}
0x4ca6…4cb4 Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0031, t01=0x001e}
0x4cb4…4cd2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0031, t01=0x002c}
0x4cd2…4cee Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0031, t01=0x004a}
0x4cee…4d0c Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0031, t01=0x0066}
0x4d0c…4d1a Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x0031, t01=0x0084}
0x4d1a…4d36 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0031, t01=0x0092}
0x4d36…4d60 Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,CBIN4,WRID76 1,2,3,6«, t00=0x0031, t01=0x00ae}
0x4d60…4d86 Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,CBIN6,WRID90 4,5«, t00=0x0031, t01=0x00d8}
0x4d86…4d94 Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x0031, t01=0x00fe}
0x4d94…4dae Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0031, t01=0x010c}
0x4dae…4dc2 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0031, t01=0x0126}
0x4dc2…4dd6 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0031, t01=0x013a}
0x4dd6…4de8 Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x0031, t01=0x014e}
0x4de8…4df6 Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x0031, t01=0x0160}
0x4df6…4e18 Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN3,WRID90«, t00=0x0031, t01=0x016e}
0x4e18…4e26 Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x0031, t01=0x0190}
0x4e26…4e40 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x0032, t01=0x000e}
0x4e40…4e54 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0032, t01=0x0028}
0x4e54…4e68 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0032, t01=0x003c}
0x4e68…4e76 Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x0032, t01=0x0050}
0x4e76…4e82 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x005e}
0x4e82…4e90 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x006a}
0x4e90…4e9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0078}
0x4e9e…4ed8 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0032, t01=0x0086}
0x4ed8…4ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c0}
0x4ee2…4f04 Head {h00=0x001e, h01=0x0050, text=»* FORMATS FOR WRITFD«, t00=0x0032, t01=0x00ca}
0x4f04…4f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ec}
0x4f0e…4f4e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0032, t01=0x00f6}
0x4f4e…4f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0136}
0x4f58…4f6c Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0032, t01=0x0140}
0x4f6c…4f82 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0032, t01=0x0154}
0x4f82…4f98 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0032, t01=0x016a}
0x4f98…4fb4 Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0032, t01=0x0180}
0x4fb4…4fcc Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0033, t01=0x000c}
0x4fcc…4fda Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0033, t01=0x0024}
0x4fda…4fe8 Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0033, t01=0x0032}
0x4fe8…4ffe Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0033, t01=0x0040}
0x4ffe…500c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0033, t01=0x0056}
0x500c…5016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0064}
0x5016…502a Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0033, t01=0x006e}
0x502a…504a Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0033, t01=0x0082}
0x504a…5068 Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x0033, t01=0x00a2}
0x5068…5076 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0033, t01=0x00c0}
0x5076…5080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ce}
0x5080…5092 Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x0033, t01=0x00d8}
0x5092…50ac Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0033, t01=0x00ea}
0x50ac…50c2 Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x0033, t01=0x0104}
0x50c2…50dc Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x0033, t01=0x011a}
0x50dc…50fa Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0033, t01=0x0134}
0x50fa…5116 Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x0033, t01=0x0152}
0x5116…5130 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x0033, t01=0x016e}
0x5130…5146 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x0033, t01=0x0188}
0x5146…5162 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x0034, t01=0x000e}
0x5162…517e Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x0034, t01=0x002a}
0x517e…519a Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x0034, t01=0x0046}
0x519a…51b0 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x0034, t01=0x0062}
0x51b0…51ce Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x0034, t01=0x0078}
0x51ce…51dc Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x0034, t01=0x0096}
0x51dc…51f2 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x0034, t01=0x00a4}
0x51f2…520c Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0034, t01=0x00ba}
0x520c…5228 Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x0034, t01=0x00d4}
0x5228…523e Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x0034, t01=0x00f0}
0x523e…525a Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x0034, t01=0x0106}
0x525a…5268 Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x0034, t01=0x0122}
0x5268…5276 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0034, t01=0x0130}
0x5276…5280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x013e}
0x5280…5292 Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x0034, t01=0x0148}
0x5292…52a6 Head {h00=0x0010, h01=0x0050, text=» FILLR '&',1«, t00=0x0034, t01=0x015a}
0x52a6…52c0 Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x0034, t01=0x016e}
0x52c0…52dc Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x0034, t01=0x0188}
0x52dc…530c Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x0035, t01=0x0014}
0x530c…531a Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0035, t01=0x0044}
0x531a…5328 Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x0035, t01=0x0052}
0x5328…5356 Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x0035, t01=0x0060}
0x5356…5364 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0035, t01=0x008e}
0x5364…5370 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0035, t01=0x009c}
0x5370…5374 Head {h00=0x4004, h01=0x0000}
0x5374…5378 00 35 00 a8 ┆ 5 ┆
0x5378…5380 (54, 1, 8) 20 04 00 00 00 36 00 04 ┆ 6 ┆
0x5380…53d0 (55, 0, 400) 30 37 00 06 01 8c 00 0a 00 50 52 53 4f 50 30 39 00 07 00 0a 00 0a 00 50 52 53 4f 50 31 30 00 07 00 18 00 1a 00 50 20 42 20 52 53 54 30 31 30 20 4f 54 48 45 52 20 4c 41 4d 50 53 20 00 07 00 26 00 06 00 50 2a 20 00 07 00 44 00 1e 00 50 52 53 ┆07 PRSOP09 PRSOP10 P B RST010 OTHER LAMPS & P* D PRS┆
0x53d0…5420 4f 50 30 31 5c 5c 5c 52 45 53 54 4f 52 45 20 46 44 39 39 39 30 30 31 20 00 07 00 4e 00 24 00 50 20 50 45 52 46 20 4c 41 4d 50 4f 46 2c 3d 57 27 32 30 34 37 27 20 4c 41 4d 50 53 20 4f 46 46 20 00 07 00 70 00 20 00 50 20 50 45 52 46 20 4c 41 ┆OP01 RESTORE FD999001 N $ P PERF LAMPOF,=W'2047' LAMPS OFF p P PERF LA┆
0x5420…5470 4d 50 4f 4e 2c 3d 57 27 31 30 32 34 27 20 4c 41 4d 50 20 31 00 07 00 98 00 26 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 3d 57 27 33 32 27 20 4e 4f 20 4f 46 20 52 45 43 4f 52 44 53 00 07 00 bc 00 34 00 50 20 50 45 52 46 20 52 53 54 4f ┆MPON,=W'1024' LAMP 1 & P MOVE GSWBIN5,=W'32' NO OF RECORDS 4 P PERF RSTO┆
0x5470…54c0 52 45 2c 44 4b 30 31 2c 3d 44 27 31 27 2c 47 53 57 42 49 4e 35 2c 43 43 4f 4e 42 55 46 30 2c 3d 57 27 31 39 39 27 00 07 00 e6 00 18 00 50 20 42 4e 4f 4b 20 52 53 54 30 30 35 20 4e 4f 54 20 4f 4b 20 00 07 01 1e 00 10 00 50 20 50 45 52 46 20 ┆RE,DK01,=D'1',GSWBIN5,CCONBUF0,=W'199' P BNOK RST005 NOT OK P PERF ┆
0x54c0…5510 43 4f 4e 46 52 44 00 07 01 3a 00 10 00 50 20 42 20 52 53 54 30 30 30 20 4f 4b 00 07 01 4e 00 06 00 50 2a 20 00 07 01 62 00 1e 00 50 52 53 4f 50 30 34 5c 5c 5c 52 45 53 54 4f 52 45 20 46 44 39 39 39 30 30 34 20 00 07 01 6c 00 24 00 50 20 50 ┆CONFRD : P B RST000 OK N P* b PRSOP04 RESTORE FD999004 l $ P P┆
0x5510…5560 (56, 0, 400) 45 52 46 20 4c 41 4d 50 4f 46 2c 3d 57 27 32 30 34 37 27 20 4c 41 4d 50 53 20 4f 46 46 20 00 07 01 8e 00 20 00 50 20 50 45 52 46 20 4c 41 4d 50 4f 4e 2c 3d 57 27 31 32 38 27 20 4c 41 4d 50 20 34 20 00 08 00 26 00 32 00 50 20 50 45 52 46 20 ┆ERF LAMPOF,=W'2047' LAMPS OFF P PERF LAMPON,=W'128' LAMP 4 & 2 P PERF ┆
0x5560…55b0 52 53 54 4f 52 45 2c 44 4b 30 34 2c 3d 44 27 34 27 2c 43 4b 54 4d 41 58 2c 43 4b 54 42 55 46 2c 3d 57 27 31 32 38 27 20 00 08 00 4a 00 18 00 50 20 42 4e 4f 4b 20 52 53 54 30 30 35 20 4e 4f 54 20 4f 4b 20 00 08 00 80 00 22 00 50 20 50 45 52 ┆RSTORE,DK04,=D'4',CKTMAX,CKTBUF,=W'128' J P BNOK RST005 NOT OK " P PER┆
0x55b0…5600 46 20 53 45 54 4d 4b 20 49 4e 49 54 20 4d 41 53 54 45 52 20 49 4e 44 45 58 20 00 08 00 9c 00 10 00 50 20 42 20 52 53 54 30 30 30 20 4f 4b 00 08 00 c2 00 06 00 50 2a 20 00 08 00 d6 00 1e 00 50 52 53 4f 50 30 38 5c 5c 5c 46 49 4e 49 53 48 20 ┆F SETMK INIT MASTER INDEX P B RST000 OK P* PRSOP08 FINISH ┆
0x5600…5650 52 45 53 54 4f 52 49 4e 47 20 00 08 00 e0 00 24 00 50 20 50 45 52 46 20 4c 41 4d 50 4f 46 2c 3d 57 27 32 30 34 37 27 20 4c 41 4d 50 53 20 4f 46 46 20 00 08 01 02 00 2a 00 50 20 50 45 52 46 20 41 53 47 56 4f 4c 2c 43 42 49 4e 30 20 41 53 53 ┆RESTORING $ P PERF LAMPOF,=W'2047' LAMPS OFF * P PERF ASGVOL,CBIN0 ASS┆
0x5650…56a0 49 47 4e 20 4b 4f 4e 46 20 44 41 54 41 53 45 54 00 08 01 2a 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 31 30 20 00 08 01 58 00 0c 00 50 20 42 20 54 31 30 32 38 00 08 01 6c 00 06 00 50 2a 20 00 08 01 7c 00 06 00 50 2a 20 00 08 01 86 00 06 00 50 ┆IGN KONF DATASET * P BNOK T1010 X P B T1028 l P* | P* P┆
0x56a0…56f0 (57, 0, 400) 2a 20 00 08 01 90 00 06 00 50 2a 20 00 09 00 0a 00 06 00 50 2a 20 00 09 00 14 00 14 00 50 54 31 30 32 35 5c 5c 5c 53 4c 55 54 20 4b 45 59 00 09 00 1e 00 1e 00 50 20 50 45 52 46 20 43 4f 4e 46 52 44 20 52 45 41 44 20 43 4f 4e 46 44 41 54 41 ┆* P* P* PT1025 SLUT KEY P PERF CONFRD READ CONFDATA┆
0x56f0…5740 00 09 00 36 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 31 30 20 00 09 00 58 00 1c 00 50 20 43 42 4e 45 20 43 56 4f 4c 4e 4f 2c 3d 44 27 30 27 2c 54 31 30 32 38 00 09 00 6c 00 16 00 50 20 4d 4f 56 45 20 43 56 4f 4c 4e 4f 2c 3d 44 27 30 27 00 09 ┆ 6 P BNOK T1010 X P CBNE CVOLNO,=D'0',T1028 l P MOVE CVOLNO,=D'0' ┆
0x5740…5790 00 8c 00 0a 00 50 54 31 30 32 38 20 00 09 00 a6 00 1c 00 50 20 4d 4f 56 45 20 43 56 4f 4c 28 43 42 49 4e 31 29 2c 41 53 56 4f 4c 20 00 09 00 b4 00 16 00 50 20 54 42 54 20 43 53 57 46 4c 41 47 2c 54 31 30 33 30 00 09 00 d4 00 2e 00 50 20 43 ┆ PT1028 P MOVE CVOL(CBIN1),ASVOL P TBT CSWFLAG,T1030 . P C┆
0x5790…57e0 42 4e 4c 20 43 4b 4d 44 4e 52 2c 3d 44 27 31 27 2c 54 31 30 35 30 20 56 45 52 59 20 46 49 52 53 54 20 53 54 41 52 54 20 00 09 00 ee 00 06 00 50 2a 20 00 09 01 20 00 06 00 50 2a 20 00 09 01 2a 00 06 00 50 2a 20 00 09 01 34 00 0a 00 50 54 31 ┆BNL CKMDNR,=D'1',T1050 VERY FIRST START P* P* * P* 4 PT1┆
0x57e0…5830 30 33 30 20 00 09 01 3e 00 0a 00 50 54 31 30 33 33 20 00 09 01 4c 00 12 00 50 20 53 45 54 20 43 43 4f 4c 44 46 4c 47 20 00 09 01 5a 00 12 00 50 20 53 45 54 20 53 50 50 52 4f 4d 50 54 20 00 09 01 70 00 14 00 50 20 44 53 43 30 20 4b 45 59 42 ┆030 > PT1033 L P SET CCOLDFLG Z P SET SPPROMPT p P DSC0 KEYB┆
0x5830…5880 (58, 0, 400) 2c 53 4b 49 42 20 00 09 01 86 00 18 00 50 20 41 54 54 46 4d 54 20 43 53 46 52 4d 30 32 20 59 45 53 20 00 0a 00 0e 00 10 00 50 20 50 45 52 46 20 53 50 43 4c 52 4e 00 0a 00 2a 00 22 00 50 20 49 42 20 53 50 42 49 4e 57 32 2c 54 31 30 33 34 2c ┆,SKIB P ATTFMT CSFRM02 YES P PERF SPCLRN * " P IB SPBINW2,T1034,┆
0x5880…58d0 54 31 30 33 34 2c 54 31 30 33 32 20 00 0a 00 3e 00 0a 00 50 54 31 30 33 34 20 00 0a 00 64 00 0c 00 50 20 42 20 54 31 30 33 33 00 0a 00 72 00 0a 00 50 54 31 30 33 32 20 00 0a 00 82 00 16 00 50 20 54 42 54 20 43 53 57 46 4c 41 47 2c 54 31 30 ┆T1034,T1032 > PT1034 d P B T1033 r PT1032 P TBT CSWFLAG,T10┆
0x58d0…5920 32 30 00 0a 00 90 00 0a 00 50 54 31 30 33 37 20 00 0a 00 aa 00 22 00 50 20 4d 4f 56 45 20 43 42 45 48 28 43 42 49 4e 31 2c 43 42 49 4e 31 29 2c 43 42 49 4e 30 20 00 0a 00 b8 00 22 00 50 20 4d 4f 56 45 20 43 54 52 31 32 28 43 42 49 4e 31 2c ┆20 PT1037 " P MOVE CBEH(CBIN1,CBIN1),CBIN0 " P MOVE CTR12(CBIN1,┆
0x5920…5970 43 42 49 4e 31 29 2c 43 42 49 4e 30 00 0a 00 de 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 30 20 00 0a 01 04 00 0a 00 50 54 31 30 34 30 20 00 0a 01 20 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 ┆CBIN1),CBIN0 P MOVE GSWBIN5,CBIN0 PT1040 P ADD GSWBIN5,CBIN1┆
0x5970…59c0 00 0a 01 2e 00 20 00 50 20 43 42 47 20 47 53 57 42 49 4e 35 2c 43 4d 41 58 54 41 53 4b 2c 54 31 30 34 35 20 00 0a 01 48 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 35 2c 47 53 57 42 49 4e 35 20 00 0a 01 6c 00 1a 00 50 20 4d 4f 56 45 20 ┆ . P CBG GSWBIN5,CMAXTASK,T1045 H P MOVE GSWBCD5,GSWBIN5 l P MOVE ┆
0x59c0…5a10 (59, 0, 400) 47 53 57 42 49 4e 31 2c 47 53 57 42 49 4e 35 20 00 0a 01 8a 00 14 00 50 20 44 53 43 30 20 4b 45 59 42 2c 53 4b 49 42 20 00 0b 00 18 00 12 00 50 20 53 45 54 20 53 50 50 52 4f 4d 50 54 20 00 0b 00 30 00 14 00 50 20 55 53 45 20 54 42 32 2c 47 ┆GSWBIN1,GSWBIN5 P DSC0 KEYB,SKIB P SET SPPROMPT 0 P USE TB2,G┆
0x5a10…5a60 53 57 42 49 4e 35 00 0b 00 46 00 14 00 50 20 41 54 54 46 4d 54 20 43 53 46 52 4d 30 33 20 00 0b 00 5e 00 2c 00 50 20 50 45 52 46 20 53 50 43 4c 52 41 20 53 45 54 20 54 52 20 31 32 20 41 4e 44 20 42 45 48 20 43 4f 55 4e 54 45 52 53 20 00 0b ┆SWBIN5 F P ATTFMT CSFRM03 ^ , P PERF SPCLRA SET TR 12 AND BEH COUNTERS ┆
0x5a60…5ab0 00 76 00 1e 00 50 20 43 42 4e 45 20 53 50 42 49 4e 57 32 2c 43 42 49 4e 33 2c 54 31 30 33 37 20 00 0b 00 a6 00 0a 00 50 54 31 30 34 33 20 00 0b 00 c8 00 28 00 50 20 4d 55 4c 20 54 54 53 54 4c 42 4e 52 2c 3d 44 27 2d 31 27 20 53 49 4d 55 4c ┆ v P CBNE SPBINW2,CBIN3,T1037 PT1043 ( P MUL TTSTLBNR,=D'-1' SIMUL┆
0x5ab0…5b00 41 54 45 20 43 4c 4f 53 45 20 00 0b 00 d6 00 18 00 50 20 50 45 52 46 20 54 43 4f 4e 46 57 2c 47 53 57 42 49 4e 35 00 0b 01 02 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 33 37 20 00 0b 01 1e 00 0c 00 50 20 42 20 54 31 30 34 30 00 0b 01 32 00 0a ┆ATE CLOSE P PERF TCONFW,GSWBIN5 P BNOK T1037 P B T1040 2 ┆
0x5b00…5b50 00 50 54 31 30 34 35 20 00 0b 01 42 00 14 00 50 20 55 53 45 20 54 42 32 2c 54 54 41 53 4b 4e 52 00 0b 01 50 00 22 00 50 20 50 45 52 46 20 43 4f 4e 46 57 52 20 52 45 57 52 49 54 45 20 43 4f 4e 46 44 41 54 41 20 00 0b 01 68 00 10 00 50 20 42 ┆ PT1045 B P USE TB2,TTASKNR P " P PERF CONFWR REWRITE CONFDATA h P B┆
0x5b50…5ba0 (60, 0, 400) 4e 4f 4b 20 54 31 30 31 30 20 00 0b 01 8e 00 06 00 50 2a 20 00 0c 00 12 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 54 45 52 4d 49 4e 41 4c 20 43 4f 4e 46 20 00 0c 00 1c 00 0a 00 50 54 31 30 35 30 20 00 0c 00 42 00 1a 00 50 ┆NOK T1010 P* " P* READ TERMINAL CONF PT1050 B P┆
0x5ba0…5bf0 20 4d 4f 56 45 20 43 54 57 42 49 4e 32 2c 43 4d 41 58 54 41 53 4b 00 0c 00 50 00 18 00 50 20 4d 4f 56 45 20 43 54 41 53 4b 4e 52 2c 43 42 49 4e 30 20 00 0c 00 6e 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 30 20 00 0c ┆ MOVE CTWBIN2,CMAXTASK P P MOVE CTASKNR,CBIN0 n P MOVE GSWBIN5,CBIN0 ┆
0x5bf0…5c40 00 8a 00 0a 00 50 54 31 30 35 32 20 00 0c 00 a6 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 00 0c 00 b4 00 20 00 50 20 43 42 47 20 47 53 57 42 49 4e 35 2c 43 4d 41 58 54 41 53 4b 2c 54 31 30 36 30 20 00 0c 00 ce 00 24 ┆ PT1052 P ADD GSWBIN5,CBIN1 P CBG GSWBIN5,CMAXTASK,T1060 $┆
0x5c40…5c90 00 50 20 43 42 4e 4c 20 43 4d 41 53 4b 28 47 53 57 42 49 4e 35 29 2c 3d 44 27 30 27 2c 54 31 30 35 35 00 0c 00 f2 00 32 00 50 20 4d 55 4c 20 43 4d 41 53 4b 28 47 53 57 42 49 4e 35 29 2c 3d 44 27 2d 31 27 20 53 45 54 20 50 4f 53 49 54 49 56 ┆ P CBNL CMASK(GSWBIN5),=D'0',T1055 2 P MUL CMASK(GSWBIN5),=D'-1' SET POSITIV┆
0x5c90…5ce0 45 20 28 4f 50 45 4e 29 00 0c 01 1a 00 0a 00 50 54 31 30 35 35 20 00 0c 01 50 00 1a 00 50 5c 5c 5c 47 45 54 20 54 45 52 4d 49 4e 41 4c 20 42 4c 4f 43 4b 20 00 0c 01 5e 00 14 00 50 20 55 53 45 20 54 42 32 2c 47 53 57 42 49 4e 35 00 0c 01 7c ┆E (OPEN) PT1055 P P GET TERMINAL BLOCK ^ P USE TB2,GSWBIN5 |┆