|
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: 33350 (0x8246)
Notes: pts_type(SC)
Names: »SUBAPL.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/SUBAPL.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/SUBAPL.SC«
IDENT SUBAPL 03.02.XXX.1
DDUM KMD08
PDIV
ENTRY SPAPPL
ENTRY SPCHK1
ENTRY SPCHK2
ENTRY SPCHK3
ENTRY SPCHK4
ENTRY SPCHK5
ENTRY SPCHK6
ENTRY SPCHK7
ENTRY SPTCHK
ENTRY SETKRE
ENTRY SETDEB
ENTRY CLRSW
ENTRY SELTR
EXT PACKCL
EXT CRKJ
EXT KKCH
EXT KTPLAN
INCLUDE EQUATE
STANDARD CHECKS
*
SPCHK1 PROC
********************
*
* SPCHK1 - CDVCHECK
*
* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT
* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4
*
********************
MOVE SPBINW3,CBIN1 INITIAL ERRORCODE
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK
CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR
MOVE GSWBIN2,=W'13'
MOVE GSWBCD5,=D'0'
MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED
TBT GTADMFLG,CHK11
CBE GSWBCD6,=D'0',CHK1ER
CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3
COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT
MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH
ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM
SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX
SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM
CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT
MOVE GSWBCD4,GSWBCD5
DIV GSWBCD5,=D'11' DIVIDE BY 11
MUL GSWBCD5,=D'11' MULTIPLY WITH 11
SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11
CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN
*
CHK1ER
MOVE SPBINW4,=W'6'
MOVE SPBINW3,CBIN3 SET ERROR VALUE
*
CHK1RET
RET
PEND
EJECT
SPCHK2 PROC
********************
*
* SPCHK2 - CHECK DATE
*
* CHECKS 0<DAY<32 AND 0<MONTH<13
* DATE IS IN THE FORM DDMMYY
* INPUT FIELD: SPINPUT
*
* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4
*
********************
MOVE SPBINW3,CBIN1 INITIAL ERRORCODE
MOVE GSWBCD3,=D'1' BLANK GSWBCD3
MOVE GSWBCD6,SPINPUT GET DATE
MOVE GSWBIN2,=W'10' SET POINTER TO MONTH
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH
CBG GSWBCD3,=D'12',CH29 CHECK MONTH
CBL GSWBCD3,=D'1',CH29
SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY
CBG GSWBCD3,=D'31',CH29
CBL GSWBCD3,=D'1',CH29
B CH2RET
CH29
MOVE SPBINW3,CBIN3 INDICATE ERROR
MOVE SPBINW4,=W'7' SET ERRORCODE
CH2RET
MOVE GSWBCD3,=X'FF'
RET
PEND
EJECT
SPCHK3 PROC
****************
*
* SPCHK3 - CHECK MONTH
*
* CHECKS 0<MONTH<13
* MONTH IS IN THE FORM MM
* INPUT FIELD: SPINPUT
*
* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4
*
******************
MOVE GSWBCD3,SPINPUT GET MONTH
CBG GSWBCD3,=D'12',CH39 CHECK MONTH
CBL GSWBCD3,=D'1',CH39
MOVE SPBINW3,CBIN1 SET ERRORCODE OK
B CH3RET
CH39
MOVE SPBINW3,CBIN3 INDICATE ERROR
MOVE SPBINW4,=W'7' SET ERRORCODE
CH3RET
RET
PEND
EJECT
SPCHK4 PROC
********************
*
* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY
*
********************
MOVE SPBINW3,CBIN1
CBNE SPBINW2,=W'18',CH4RET
MOVE GSWBCD7,SPINPUT IF KREDIT KEY
MUL GSWBCD7,=D'-1'
MOVE SPINPUT,GSWBCD7
MOVE SPBINW2,=W'3' SIMULATE EOI-KEY
CH4RET
RET
PEND
EJECT
SPCHK5 PROC
********************
*
* SPCHK5 - CHECK LINE NUMBER
*
*******************
MOVE SPBINW3,CBIN1
MOVE GSWBCD3,SPINPUT GET LINE NUMBER
CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ?
CBE GSWBCD3,=D'91',CH510
MUL GSWBCD3,=D'2'
MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE
SUB GSWBCD4,GSWBCD3
CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?
MOVE GSWBIN1,GSWBCD4
CBG GSWBIN1,CMAXLIN,CH5ERR
CBL GSWBIN1,CMINLIN,CH5ERR
RET
CH5ERR
MOVE SPBINW3,CBIN3
MOVE SPBINW4,=W'8'
RET
CH510
MOVE GSWBIN1,GSWBCD3
RET
PEND
EJECT
SPCHK6 PROC
********************
*
* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO,
* KONTOKORT
*
*******************
PERF KKCH
MOVE GSWBCD3,SPINPUT GET DIGIT
MOVE SPBINW3,CBIN1
CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO
CBE GSWBCD3,TTKTCHK,CH6RET OK
MOVE SPBINW3,CBIN3 ERROR
MOVE SPBINW4,=W'13'
CH6RET
RET
PEND
EJECT
SPCHK7 PROC
RET
PEND
EJECT
SPTCHK PROC
********************
*
* SPTCHK - CONDITIONAL TABULATION
* CONTROLLED BY 'CTAB' IN FORMATS
*
********************
GETCTL 0,SPBINW3 GET APPL-VALUE
CBE SPBINW3,=W'6',TCHK06
CBE SPBINW3,=W'27',TCHK27
CBE SPBINW3,=W'48',TCHK48
CBE SPBINW3,=W'84',TCHK84
SUB SPBINW3,=W'16' ADJUST INDEX
IB SPBINW3, C
TCHK17,TCHK18,TCHK19,TCHK20
SUB SPBINW3,=W'61' +16-77
IB SPBINW3,TCHK78,TCHK79
TCHK00 CORRECT FIELD
MOVE SPBINW3,CBIN0
RET
*
TCHK06
CBE GTUSED(CBIN1),=W'0',TCHK00 NOT FELT 28
B TCHK99
*
TCHK17
TBT BCPR,TCHK00
B TCHK99
*
TCHK18
TCHK19
TCHK20
TBF BCPR,TCHK00
B TCHK99
*
TCHK27
TBF CFLT27,TCHK00 NOT USED
CBE GTUSED(CBIN3),=W'0',TCHK99 BKO? NO
CBL GTREGF(CBIN3),=D'21',TCHK99
CBG GTREGF(CBIN3),=D'22',TCHK99
B TCHK00 BKO= 21,22
*
TCHK48
CBE GTUSED(CBIN2),=W'0',TCHK99 NOT FELT 6
B TCHK00
*
TCHK78
MOVE SPBINW3,TTCNTNR
SUB SPBINW3,=W'100'
CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB
B TCHK99 CORRECT FIELD
*
TCHK79
MOVE SPBINW3,TTCNTNR
SUB SPBINW3,=W'100'
CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD
B TCHK00 CONTINUE TAB
*
TCHK84
TBF GTTRSEL,TCHK00
B TCHK99
*
TCHK99 CONTINUE TAB
MOVE SPBINW3,CBIN2
RET
PEND
EJECT
SPAPPL PROC
********************
*
* SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE
* IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS.
*
* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)
* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT
* TESTING AND BRANCH TO PACKING ROUTINE
*
********************
*
* SPBINW3 IS CURRENT APPL NUMBER
ART - RETURN
APK - PACK FIELD
APF - PACK FIELD WITH SIGN
AA01 - TEST FOR FIELD TO BE
---- - AUTODUPPED
AA02 - TEST FOR AUTODUP KEY
AA03 - IF LENGTH ZERO,
---- - DELETE FIELS
AA05 - TEST FIELD 5
AA06 - TEST FIELD 6
AA11 - TEST VALOERDATE
A14 - OPK TR50...
AA17 - TEST FORFALDSAAR
A28 - DEB NR TR50...
A29 - ADM NR TR50...
A30 - ADM KOD TR50...
A32 - RATEANTAL TR50...
A46 - ALT ADR TR50...
A48 - DEB LBNR TR50...
A49 - [NDR TYP, TR50...
AA65 - IF AA05, AA06 THERE
---- - MIGHT BE A CHOICE
---- - OF NEW TRANSTYPE
A64 - TEST FIELD 64
A65 - TEST FIELD 65
A67 - FELT 81 TR50...
AA70 - KONTONR WITHOUT CHECK
AA71 - 'ANTAL' IN TRANSTYPE
---- - 51, 53
A76 - COUNTER, TRANS 12
A77 - TR 4, INSERT BKO 51,52
A78 - ACCOUNT NO, TRANS 12
A79 - - - - - - (COPY)
A80-A87 - CHECK OF CONTROL
---- - INFORMATION FOR
---- - TRANSTYPES
A88 - AUTODUP BKO, TR 4
A89 - STORE IN FIELD 6
A90 - SPECIAL SLUT-FIELD
A91 - ENTER TO SLUT-KEY
A100 - CHECK TR 12
A101 - CHECK BEHL. COUNT.
A102 - REL. DAY
A103 - SET BEHL. COUNT
A104 - SET TRANS 12
A105 - CTRL.DIGIT CALC.
A106 - CHECK VALUE 0-3
A107 - AS A102
A108 - SPG -REGKONTONR
A109 - SPG-CPR/CIR/NR
A110 - SPG-BELOB
A111 - SPG-OTHER FIELD
*
CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS
*
*
AA01
TBF GTADUPFL,AA02 AUTODUP TEST (VERIF)
CLEAR GTADUPFL IF FIELD IS TO BE AUTODUPPED
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET DUP FIELD
MOVE SPINPUT,GTDUPF(GSWBIN1) AND CONTINUE
B AAA
*
AA02
TBF GTAUTODP,AA03 AUTO DUP KEY
CLEAR GTAUTODP IF GTAUTODP KEY,
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX
MOVE GSSWITCH(GSWBIN1),CBIN1 AND SET GTAUTODPSWITCH FOR
RELEVANT FIELD TO BE USED
IN FORMATS
*
AA03
CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO
MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4
MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD
B ART
*
AAA IB SPBINW3, C
ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C
APK,A11,APK,APK,A14,APK,APK,A17,APK,APK, FIELDS 10,19 C
APK,APK,APK,APK,APK,APK,APK,APK,A28,A29, FIELDS 20-29 C
A30,APK,A32,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C
APK,APK,APK,APK,APK,APK,A46,APF,A48,A49, FIELDS 40-49 C
APK,APK,APF,APF,A54,APF,APF,APF,APF,APF, FIELDS 50-59 C
APF,APF,APF,APK,A64,A65,APK,A67,ART,ART, FIELDS 60-69 C
A70,A71,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C
A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C
A90,A91,APK,APK,APK,ART,ART,ART,ART,ART, FIELDS 90,99 C
A100,A101,A102,A103,A104, FIELDS 100,104 C
A105,A106,A107,A108,A109, FIELDS 105,109 C
A110,A111,ART,ART,ART FIELDS 110,114
**********
A05 CHECK REGISTRERINGSKONTONUMMER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065
CMP GSWBIN1,=W'10' LENGTH MUST BE 10
BNE A058
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
A053,A053,A051,A053,A053
A051
B APK CPR NOT NECESSARY
A053 CPR NECESSARY
IB GTREGDEX, C
A054,A055,A054,A054,A055,A054,A055,A055
A054
B APK
A055
CBL GSWBIN1,CBIN3,A056 ERROR
SET SPWARNFL WARNING
B A054
A056
MOVE SPBINW4,=W'19'
B ART
A058
MOVE SPBINW4,=W'3' SET ERRORCODE
B ART
**********
A06 CHECK CPR/CIR NUMBER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065
CBE SPBINW1,=W'7',A060 CIR
CBE SPBINW1,=W'10',A060 CPR
B A058
A060
SET BCPR SET CPR-SWITCH (CPR-NO)
MOVE GSWBCD1,SPINPUT
CMP GSWBCD1,=D'10000000'
BL A061
SET BLEV LEVERAND.
CMP GSWBCD1,=D'3200000000'
BG APK
CLEAR BLEV CPR.
B APK
A061
CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO)
B APK
**********
A54 FIELD 54 HAS BEEN ENTERED
MOVE GSSWITCH(CBIN2),CBIN1 AND SHOULD BE AUTODUPPED
B APK
******
A065
MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION)
MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE
*
CMP SPBINW2,=W'30' ADM ROUTINE
BE ART
CMP SPBINW2,=W'31' CYCLE
BE ART
*
* CHECK FOR VALID TRANSTYPE
*
* ADJUST REGDEX
A0655
*
MOVE GSWBIN1,CBIN1
* TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION
TBT GTKASSE,A0672
CBG GSWBCD3,=D'49',A0675
CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE
B A0675
A0672
CBG GSWBCD3,=D'49',A067001
CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE
B A0675
A067001 CHECK IF TR50... ALLOWED
DVS. CYKEL/STABEL,LISTE,???
TBT GTCYFLG,A0675 CYKEL
*
A067
CBE GSWBCD3,CREGTAB(GSWBIN1,GTCLASS),A068 SEARCH REGNR
ADD GSWBIN1,CBIN1 ADD 1 TO INDEX
CBNE CREGTAB(GSWBIN1,GTCLASS),=D'-1',A067 END OF TABLE?
*
A0675
MOVE SPBINW4,=W'9' INVALID TRANSTYPE
B ART
A068
TAKE CARE OF NEW TRANSTYPE
CBE SPBINW2,=W'18',A06KRE HANDLING OF KREDIT KEY
CBE SPBINW2,=W'17',A06DEB SLUT/DEB KEY
CBE SPBINW2,=W'3',A06DEB HANDLING OF DEBIT KEY
MOVE SPBINW4,=W'4' HANDLING OF WRONG KEY
B ART
A06KRE
CBG GSWBCD3,=D'49',A06DEB TR50... ONLY DEB
PERF SETKRE
B A066
A06DEB
PERF SETDEB
A066
MOVE GTREGNR,GSWBCD3
MOVE GTREGDEX,GSWBIN1
SET GTREGFLG VALID TRANSTYPE FOUND
SET TTEORFLG START NEW TRANS
PERF CLRSW
CLEAR GTSPECTR SPECIAL TRANS.?
CBNG GSWBCD3,=D'49',A06601 NO
SET GTSPECTR YES
PERF PACKCL
A06601
*
MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED
B ART
**********
A07 BKO FIELD
INSERT TEXT IN TT07TXT
CLEAR TTASKAT
MOVE GSWBCD3,SPINPUT
CBNE GSWBCD3,=D'51',A070
SET TTASKAT
A070
CBNE GTREGDEX,=W'3',A0705
CBE GSWBCD3,=D'51',A076 TRANS 3
CBE GSWBCD3,=D'52',A076
A0705
MOVE GSWBIN1,CBIN16
COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1
MOVE GSWBCD3,TT07TXT
MOVE GSWBIN2,GSWBCD3
MOVE TT07TXT,CBLANKS
MOVE GSWBIN1,CBIN21 FIRST CHAR POINTER
MOVE GSWBIN3,CBIN0
CBNG SPBINW1,=W'2',A071
MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX
A071
SUB GSWBIN1,CBIN7
A0708
ADD GSWBIN1,CBIN7
CBG GSWBIN1,GSWBIN2,A075
MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2
BNOK A0708
* NEXT 5 CHARS CONTAIN TEXT
ADD GSWBIN1,=W'2'
COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1
* SEE IF ALLOWED
CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3
ADD GSWBIN1,=W'5'
MOVE GSWSTR2,CBLANKS
COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE
MOVE GSWBCD3,GSWSTR2
CBE GSWBCD3,=D'0',A077 OK
CBL GTREGF(CBIN2),=D'10000000',A072
CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED
B A076
A072
CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED
B A076
A075
TBT CBKOFLG,A077
A076
MOVE SPBINW4,=W'11'
B ART
A077
B APK
**********
A11 CHECK VAL DATE NOT GREATER
THAN POST DATE
CBE GTREGDEX,=W'3',A0110 TRANS 3
CBE GTREGDEX,=W'4',A0110 TRANS 4
B APK
A0110
* GET AND CHANGE VALOERDATE
MOVE GSWBCD6,SPINPUT
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12
COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8
COPY GSWBCD6,CBIN8,CBIN2,GSWBCD3,CBIN4
* GET AND CHANGE POSTDATE
MOVE GSWBCD1,GTDATO
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12
COPY GSWBCD1,CBIN12,CBIN2,GSWBCD1,CBIN8
COPY GSWBCD1,CBIN8,CBIN2,GSWBCD3,CBIN4
* COMPARE
CMP GSWBCD6,GSWBCD1
BNG APK
MOVE SPBINW4,=W'7'
B ART
**********
A14 OPK-KODE TR50...
MOVE GSWBCD3,SPINPUT GET VALUE
CBL GSWBCD3,=D'4',A145 <4
MOVE SPBINW4,=W'11' ERROR
B ART
A145
B APK
**********
A17 CHECK 'FORFALDSAAR' FAAR
FAAR >= 70
FAAR <= YY+2
MOVE GSWBCD6,SPINPUT GET FAAR
CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR
MOVE GSWBCD1,GTDATO GET POSTDATO
MOVE GSWBCD3,=D'2'
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR
ADD GSWBCD3,=D'2' ADD 2
CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2
B APK
A17ERR
MOVE SPBINW4,=W'11' INVALID NUMBER
B ART
**********
A28 DEBITOR NR, TR 50...
MOVE GSWBIN1,SPBINW1 GET LENGTH
CMP GSWBIN1,=W'3'
BL A065 TRANSTYPE HANDLING
CBE GSWBIN1,=W'8',A280 LENGTH 8
CBE GSWBIN1,=W'10',A280 LENGTH 10
MOVE SPBINW4,=W'3' ERROR
B ART
A280
B APK
**********
A29 ADM-NR TR50...
CBE SPBINW1,='7',A295 LENGTH 7
CBE SPBINW1,=W'10',A295 LENGTH 10
MOVE SPBINW4,=W'3' ERROR
B ART
A295
B APK
**********
A30 ADM KODE (1 EL 2)
MOVE GSWBCD3,SPINPUT GET VALUE
CBE GSWBCD3,=D'1',A305 VALUE 1
CBE GSWBCD3,=D'2',A305 VALUE 2
MOVE SPBINW4,=W'11' ERROR
B ART
A305
B APK
**********
A32 RATE ANTAL
MOVE GSWBCD3,SPINPUT GET VALUE
CBL GSWBCD3,=D'13',A325 0-12
MOVE SPBINW4,=W'11' ERROR
B ART
A325
B ART
**********
A46 ALT ADR (0 EL 1)
MOVE GSWBCD6,SPINPUT GET VALUE
CBL GSWBCD6,=D'2',A465 VALUE 0,1
MOVE SPBINW4,=W'11' ERROR
B ART
A465
B APK
**********
A48 DEBITOR LBNR
TBF BCPR,A485
MOVE GSWBCD1,SPINPUT GET VALUE
CBL GSWBCD1,=D'100',A485
MOVE SPBINW4,=W'11'
B ART
A485
B APK
**********
A49 [NDRINGS TYPE
MOVE GSWBCD6,SPINPUT GET VALUE
CBL GSWBCD6,=D'3',A495 VALUE 0,1,2
CBE GSWBCD6,=D'4',A495 VALUE 4
MOVE SPBINW4,=W'11' ERROR
B ART
A495
B APK
**********
A64
MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE'
CBG GSWBCD3,=D'5',A649
CBL GSWBCD3,=D'0',A649
FIELD 64 HAS BEEN ENTERED AND
MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED
B APK
A649
MOVE SPBINW4,=W'10'
B ART
**********
A65 CHECK VALUE 1000-3999
MOVE GSWBCD4,SPINPUT GET VALUE
CBG GSWBCD4,=D'3999',A659
CBL GSWBCD4,=D'1000',A659
B APK
A659
MOVE SPBINW4,=W'11'
B ART
**********
A67 FELT 81
MOVE SPBINW3,=W'81'
B APF
**********
A70 KONTONR WITHOUT CHECK
MOVE SPBINW3,=W'5'
CMP SPBINW1,=W'3'
BL A065 IF LENGTH < 3
B APK NEW TRANSTYPE
**********
A71
MOVE GSSWITCH(CBIN1),CBIN1 SET AUTODUP
MOVE GTSUM,SPINPUT
SUB GTSUM,=D'1' SUB 1 FROM ANTAL
MOVE SPINPUT,GTSUM
CBL GTSUM,=D'0',A715
CMP GTSUM,=D'12' IF > 12
BL ART
A715
MOVE SPINPUT,=C'51' SIMULATE NEW
MOVE SPBINW2,=W'3' TRANSTYPE
MOVE GSSWITCH(CBIN1),CBIN0 DELETE AUTODUP
B A065
**********
A76 COUNTER NO, TRANS 12
CMP SPBINW1,=W'3'
BL A065 TRANSTYPE HANDLING
MOVE GSWBCD3,SPINPUT GET VALUE
MOVE TTCNTNR,SPINPUT
SUB GSWBCD3,=D'100' GET INDEX
MOVE GSWBIN1,GSWBCD3
CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK
CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
CBE CTR12NR(GSWBIN1),=D'0',A76NOK
MUST BE > 0
B ART TO WRITE ON SCREEN
A76NOK
MOVE SPBINW4,=W'18'
B ART
**********
A77 INSERT 51,52 IN TR 4
MOVE SPBINW3,=W'7' FIELD 7
MOVE SPBINW1,=W'2' LENGTH
TBT BCPR,A775
MOVE SPINPUT,=X'35310000' 51 IF CIR
B A07
A775
MOVE SPINPUT,=X'35320000' 52 IF CPR
B A07
**********
A78 INSERT ACCOUNT NO
11-15
MOVE SPBINW3,=W'5' SIMULATE FIELD 5
B APK
********
A79 AUTODUP ACCOUNT NO
MOVE SPBINW3,=W'5' IN FIELD 5
MOVE GSWBIN1,TTCNTNR GET COUNTER NO
SUB GSWBIN1,=W'100'
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
MOVE SPINPUT,CTR12NR(GSWBIN1)
MOVE SPBINW1,=W'10' LENGTH
B APK
**********
A80 CHECK HOVEDBOG, KONTONR
MOVE SPBINW3,=W'5' FIELD 5
MOVE SPBINW5,=W'2' MIGHT BE TRANSTYPE 2
CBL SPBINW1,=W'3',A805 CHECK LENGTH
CBE SPBINW1,=W'10',A801 MUST BE 10
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
A801
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
A805 CHECK FUNCTION KEYS
MOVE SPBINW1,CBIN0
CMP SPBINW2,=W'30' ADM KEY
BE ART
CMP SPBINW2,=W'31' CYCLE KEY
BE ART
MOVE SPBINW4,=W'4' INVALID KEY
B ART
**********
A81 CHECK HOVEDBOG, CPR/CIR/NR
MOVE SPBINW3,=W'6' FIELD 6
MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1
CBE SPBINW1,=W'7',A811
CBE SPBINW1,=W'10',A811
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
A811 CPR OR CIR ?
SET BCPR SET CPR NO
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'10000000',A814
SET BLEV
CBG GSWBCD1,=D'3200000000',A812
CLEAR BLEV
B A812
A814
CLEAR BCPR SET CIR NO
A812
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
**********
A82 CHECK HOVEDBOG, YD.MODT.
MOVE SPBINW3,=W'21' FIELD 21
MOVE SPBINW5,=W'6' MIGHT BE TRANSTYPE 6
A821
CBNE SPBINW2,=W'3',A822 IF ENTER KEY,
MOVE SPBINW2,=W'17' SIMULATE DEBET KEY
A822
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
**********
A83 CHECK DEBITOR, DEBITOR NR
MOVE SPBINW3,=W'6' FIELD 6
CBL SPBINW1,=W'3',A805 FUNCTION?
CBE SPBINW1,=W'7',A830
CBNE SPBINW1,=W'10',A833
A830
MOVE SPBINW5,=W'4' MIGHT BE TRANSTYPE 4
SET BCPR SET CPR
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'10000000',A831
SET BLEV
CBG GSWBCD1,=D'3200000000',A832
CLEAR BLEV
B A832
A831
CLEAR BCPR SET CIR
A832
PERF SELTR
BNOK ART
MOVE SPBINW2,=W'3'
B APK
A833
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
**********
A84 CHECK DEBITOR, BKO
MOVE SPBINW3,=W'7' FIELD 7
MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3
CBNE SPBINW2,=W'3',A842
MOVE SPBINW2,=W'17'
A842
MOVE GSWBCD1,SPINPUT
CBE GSWBCD1,=D'+51',A845
CBE GSWBCD1,=D'+52',A845
A843
PERF SELTR
BNOK ART
B A07
A845
MOVE SPBINW5,=W'4'
B A843
**********
A85 CHECK REMITTERING, KONTONR
MOVE SPBINW3,=W'5' FIELD 5
CBL SPBINW1,=W'3',A805 CHECK LENGTH
CBE SPBINW1,=W'10',A850 MUST BE 10
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
A850
CMP SPBINW2,=W'3' ONLY ENTER-KEY ALLOWED
BNE A855
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
B APK
A855
MOVE SPBINW4,=W'4' INVALID KEY
B ART
**********
A86 CHECK REMITTERING, LEV.NR.
MOVE SPBINW3,=W'6' FIELD 6
MOVE SPBINW5,=W'8' MIGHT BE TRANSTYPE 8
CBE SPBINW1,=W'7',A811
CBE SPBINW1,=W'10',A811
MOVE SPBINW4,=W'3' ERROR LENGTH
B ART
**********
A87 CHECK REMITTERING, YD.MODT.
MOVE SPBINW3,=W'21' FIELD 21
MOVE SPBINW5,=W'9' MIGHT BE TRANSTYPE 9
B A821 CHECK FOR INVALID KEY
**********
A88
MOVE SPBINW3,=W'7' FIELD 7
MOVE SPBINW2,=W'36'
MOVE SPBINW1,='2'
TBT BCPR,A885
MOVE SPINPUT,=X'35310000' 51 IF CIR
B A07
A885
MOVE SPINPUT,=X'35320000' 52 IF CPR
B A07
**********
A89
MOVE SPBINW3,=W'6' STORE IN FIELD 6
B APK
**********
A90 SIMULATE SLUT KEY
CLEAR GTSLUTFL
CLEAR GTADUPFL
MOVE SPBINW2,=W'17' SLUT KEY
MOVE SPBINW1,=W'0' LENGTH ZERO
B ART
**********
A91 ENTER TO SLUT KEY
CMP SPBINW2,=W'3'
BNE ART
MOVE SPBINW2,=W'17'
B ART
**********
A100 CHECK TR 12 COUNTERS
MOVE GSWBCD1,SPINPUT
SUB GSWBCD1,=D'100'
MOVE GSWBIN6,GSWBCD1
CBL GSWBIN6,CBIN1,A1009 TOO SMALL
CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH
ADD GSWBIN6,CTR12(TTASKNR,CBIN1)
B ART
A1009
MOVE SPBINW4,=W'11'
B ART
**********
A101 CHECK BEHL. COUNTERS
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'1',A101ER
MOVE GSWBIN6,GSWBCD1
CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER
ADD GSWBIN6,CBEH(TTASKNR,CBIN1)
B ART
A101ER
MOVE SPBINW4,=W'11'
B ART
**********
A102 CHECK RELATIVE DAY
MOVE GSWBCD7,CMASKDAT
A102A
MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.
MOVE GSWBCD3,=D'1' BLANK GSWBCD3
MOVE GSWBIN2,CBIN8 SET POINTER TO DAY
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY
ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY
ADD GSWBIN2,CBIN2 SET POINTER TO MONTH
COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH
SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS
MUL GSWBCD3,=D'30' EQUAL IN DAYS
ADD GSWBCD5,GSWBCD3
MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY
SUB GSWBCD5,=D'5'
CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL
ADD GSWBCD5,=D'10'
CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE
B A102END
A102ER
MOVE SPBINW4,=W'11' INVALID VALUE
A102END
MOVE GSWBCD3,=X'FF'
B ART
**********
A103 SET BEHL. COUNTERS
MOVE GSWBCD3,SPINPUT
MOVE GSWBIN6,GSWBCD3
ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)
CBG GSWBIN6,=W'60',A103ER TOO MANY
CBE GSWBIN1,CBIN12,A1035
ADD GSWBIN1,CBIN1
MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6
SUB GSWBIN1,CBIN1
A1035
MOVE GSWBIN6,GSWBCD3
MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6
B ART
A103ER
MOVE SPBINW4,=W'11'
B ART
**********
A104 SET TR 12 COUNTERS
MOVE GSWBCD4,SPINPUT
MOVE GSWBIN6,GSWBCD4
ADD GSWBIN6,CTR12(GSWBIN1,CBIN1)
CBG GSWBIN6,=W'60',A104ER TOO MANY
CBE GSWBIN1,CBIN12,A1045
ADD GSWBIN1,CBIN1
MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6
SUB GSWBIN1,CBIN1
A1045
MOVE GSWBIN6,GSWBCD4
MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6
B ART
A104ER
MOVE SPBINW4,=W'11'
B ART
**********
A105 CONRTL.DIGITCALC.
MOVE GSWBCD6,SPINPUT
CBE SPBINW2,=W'3',CALCD01
CMP SPBINW2,=W'17'
BNE ART
CALCD01
MOVE GSWBIN1,SPBINW1 GET LENGTH
MOVE GSWBIN2,=W'13'
MOVE GSWBCD5,=D'0'
CALCD02
MOVE GSWBCD3,=D'0'
COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT
MUL GSWBCD3,WEIGTH(GSWBIN2) MULTIPLY BY WEIGHT
ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM
SUB GSWBIN1,=W'1' ADJUST LENGTH
SUB GSWBIN2,=W'1' ADJUST WEIGHT-INDEX
CBG GSWBIN1,=W'0',CALCD02
MOVE GSWBCD4,GSWBCD5
DIV GSWBCD5,=D'11'
MUL GSWBCD5,=D'11'
SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11
CBNE GSWBCD4,=D'0',CALCD05
MOVE GSWBCD4,=D'11'
CALCD05
MOVE GSWBCD5,=D'11'
SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT
B ART
**********
A106 CHECK VALUE 0-3
MOVE GSWBCD3,SPINPUT GET VALUE
CBL GSWBCD3,=D'6',ART
MOVE SPBINW4,=W'11' ERROR 'OUT OF RANGE'
B ART
**********
A107 POSTDATO = MASKINDATO ?
MOVE GSWBCD7,SPINPUT
CBNE GSWBCD7,CMASKDAT,A1075
B ART
A1075
SET SPWARNFL
B ART
**********
A108 SPG-REGKONTONR
MOVE GSWBCD6,=D'5'
B ART
**********
A109 SPG-CPR/CIR/NR
MOVE GSWBCD6,=D'6'
B ART
**********
A110 SPG-BELOB
MOVE GSWBCD6,=D'8'
B ART
**********
A111 SPG-OTHER FIELD
MOVE GSWBCD6,SPINPUT
CBG GSWBCD6,=D'90',A111ERR
MOVE GSWBCD7,=D'0'
B ART
A111ERR
MOVE SPBINW4,=W'11'
B ART
**********
APK KEEP INFORMATION
TBF TTEORFLG,APK00 FIRST FIELD?
CBE SPBINW3,=W'5',APK10
MOVE GTKTTYP,=D'0' NOT KONTONR.
APK10
PERF PACKCL YES, CLEAR GTUSED
PERF CRKJ
SET SPME CHECK FOR ME FIELDS
APK00
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD
MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER
B ART
**********
APF
TBF TTEORFLG,APF00 FIRST FIELD?
MOVE GTKTTYP,=D'0'
PERF PACKCL YES, CLEAR GTUSED
PERF CRKJ
SET SPME CHECK FOR ME FIELDS
APF00
TBT SPDUPL,APF10
MOVE GSWBCD6,SPINPUT GET VALUE
MUL GSWBCD6,GTDBKRS
MOVE SPINPUT,GSWBCD6
APF10
MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD
* MULTIPLY WITH -1 IF KREDIT
* STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN)
MOVE GTUSED(GSWBIN1),SPBINW3
MUL GTUSED(GSWBIN1),=W'-1'
B ART
**********
ART
MOVE SPBINW3,CBIN1
CBL SPBINW4,CBIN3,ARET
MOVE SPBINW3,CBIN3
ARET
RET
PEND
********************
EJECT
SETKRE PROC
********************
*
* SETKRE - SET KREDIT INFORMATION
*
********************
MOVE GTDBKRC,=C' KRE'
MOVE GTDBKRS,=D'-1'
MOVE TTDKBCD,=D'1'
MOVE TTDKDEX,=W'1'
RET
PEND
*
*
*
*
*
SETDEB PROC
********************
*
* SETDEB - SET DEBET INFORMATION
*
********************
MOVE GTDBKRC,=C' DEB'
MOVE GTDBKRS,=D'+1'
MOVE TTDKBCD,=D'2'
MOVE TTDKDEX,=W'2'
RET
PEND
EJECT
CLRSW PROC
********************
*
* CLRSW - CLEAR ALL AUTODUP FLAGS
*
********************
MOVE GSWBIN1,CBIN1
CLRSW1
MOVE GSSWITCH(GSWBIN1),CBIN0
ADD GSWBIN1,CBIN1
CBL GSWBIN1,CBINMAX,CLRSW1
RET
PEND
EJECT
SELTR PROC
********************
*
* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN
* SELECTED.
* SELECTED TRANSTYPE IS IN SPBINW5
*
********************
CBE SPBINW2,=W'3',SELOK ENTER KEY
CBE SPBINW2,=W'18',SEL10 KREDIT KEY
CBE SPBINW2,=W'17',SEL20 DEBET KEY
MOVE SPBINW4,=W'4' INVALID KEY
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
SEL10 KREDIT
PERF SETKRE
B SEL30
SEL20 DEBET
PERF SETDEB
SEL30 TRANSTYPE SELECTED
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
SEL40,SEL40,SEL90,SEL40,SEL40
B SEL90
SEL40
IB SPBINW5, C
SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90
SEL45
CBL GSWBIN1,CBIN3,SEL50
SET SPWARNFL WARNING
B SEL90
SEL50
MOVE SPBINW4,=W'19' ERROR
CMP CBIN1,CBIN0
RET
SEL90
MOVE GTREGNR,SPBINW5 TYPE
MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11
MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED
SET GTTRSEL
SELOK
CLEAR GTSPECTR NOT SPECIAL TR 50...
CMP CBIN0,CBIN0 OK, SET CR=0
RET
PEND
*
*
*
*
*
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT SUBAPL 03.02.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAPPL «, t00=0x0000, t01=0x0048}
0x005a…0070 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK1 «, t00=0x0000, t01=0x005e}
0x0070…0086 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK2 «, t00=0x0000, t01=0x0074}
0x0086…009c Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK3 «, t00=0x0000, t01=0x008a}
0x009c…00b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK4 «, t00=0x0000, t01=0x00a0}
0x00b2…00c8 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK5 «, t00=0x0000, t01=0x00b6}
0x00c8…00de Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK6 «, t00=0x0000, t01=0x00cc}
0x00de…00f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK7 «, t00=0x0000, t01=0x00e2}
0x00f4…010a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPTCHK «, t00=0x0000, t01=0x00f8}
0x010a…0120 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKRE «, t00=0x0000, t01=0x010e}
0x0120…0136 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETDEB «, t00=0x0000, t01=0x0124}
0x0136…014a Head {h00=0x0010, h01=0x0050, text=» ENTRY CLRSW«, t00=0x0000, t01=0x013a}
0x014a…015e Head {h00=0x0010, h01=0x0050, text=» ENTRY SELTR«, t00=0x0000, t01=0x014e}
0x015e…0172 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x0162}
0x0172…0184 Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0000, t01=0x0176}
0x0184…0196 Head {h00=0x000e, h01=0x0050, text=» EXT KKCH «, t00=0x0000, t01=0x0188}
0x0196…01aa Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x000a}
0x01aa…01c2 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x001e}
0x01c2…01dc Head {h00=0x0016, h01=0x0050, text=» STANDARD CHECKS«, t00=0x0001, t01=0x0036}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…01fa Head {h00=0x0010, h01=0x0050, text=»SPCHK1 PROC «, t00=0x0001, t01=0x005a}
0x01fa…0216 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x006e}
0x0216…0220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008a}
0x0220…0244 Head {h00=0x0020, h01=0x0050, text=»* SPCHK1 - CDVCHECK«, t00=0x0001, t01=0x0094}
0x0244…024e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b8}
0x024e…028e Head {h00=0x003c, h01=0x0050, text=»* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x0001, t01=0x00c2}
0x028e…02ca Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x0001, t01=0x0102}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02f0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0148}
0x02f0…031e Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0001, t01=0x0164}
0x031e…0346 (2, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0002, t01=0x0004}
0x0346…0382 Head {h00=0x0038, h01=0x0050, text=» CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK «, t00=0x0002, t01=0x002c}
0x0382…03b8 Head {h00=0x0032, h01=0x0050, text=» CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR«, t00=0x0002, t01=0x0068}
0x03b8…03d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0002, t01=0x009e}
0x03d4…03f0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0002, t01=0x00ba}
0x03f0…0424 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0002, t01=0x00d6}
0x0424…0440 Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0002, t01=0x010a}
0x0440…0462 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD6,=D'0',CHK1ER «, t00=0x0002, t01=0x0126}
0x0462…046a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0148}
0x046a…0498 Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0002, t01=0x0150}
0x0498…04d8 Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0002, t01=0x017e}
0x04d8…0512 Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x002e}
0x0512…053e Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x0068}
0x053e…056c Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX«, t00=0x0003, t01=0x0094}
0x056c…059c Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM«, t00=0x0003, t01=0x00c2}
0x059c…05d0 Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT«, t00=0x0003, t01=0x00f2}
0x05d0…05ee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0003, t01=0x0126}
0x05ee…0616 Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0003, t01=0x0144}
0x0616…0642 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0003, t01=0x016c}
0x0642…0674 Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x0008}
0x0674…06b2 Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x003a}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0078}
0x06bc…06ca Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x0082}
0x06ca…06e6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'6' «, t00=0x0004, t01=0x0090}
0x06e6…0712 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0004, t01=0x00ac}
0x0712…071c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d8}
0x071c…072c Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0004, t01=0x00e2}
0x072c…0738 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00f2}
0x0738…0746 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00fe}
0x0746…0754 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x010c}
0x0754…0768 Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0004, t01=0x011a}
0x0768…0784 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0004, t01=0x012e}
0x0784…078e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014a}
0x078e…07b4 Head {h00=0x0022, h01=0x0050, text=»* SPCHK2 - CHECK DATE«, t00=0x0004, t01=0x0154}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07be…07f2 Head {h00=0x0030, h01=0x0050, text=»* CHECKS 0<DAY<32 AND 0<MONTH<13«, t00=0x0004, t01=0x0184}
0x07f2…0820 Head {h00=0x002a, h01=0x0050, text=»* DATE IS IN THE FORM DDMMYY«, t00=0x0005, t01=0x0028}
0x0820…0848 Head {h00=0x0024, h01=0x0050, text=»* INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x0056}
0x0848…0852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x007e}
0x0852…088e Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x0088}
0x088e…0898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c4}
0x0898…08b4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x00ce}
0x08b4…08bc Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00ea}
0x08bc…08ea Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0005, t01=0x00f2}
0x08ea…0914 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0005, t01=0x0120}
0x0914…093a Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0005, t01=0x014a}
0x093a…096c Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=W'10' SET POINTER TO MONTH «, t00=0x0005, t01=0x0170}
0x096c…09a8 Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x0012}
0x09a8…09d4 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x004e}
0x09d4…09f4 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x007a}
0x09f4…0a24 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY«, t00=0x0006, t01=0x009a}
0x0a24…0a5e Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0006, t01=0x00ca}
0x0a5e…0a7e Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0006, t01=0x0104}
0x0a7e…0a9e Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x0124}
0x0a9e…0ab0 Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0006, t01=0x0144}
0x0ab0…0abc Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0006, t01=0x0156}
0x0abc…0ae6 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0006, t01=0x0162}
0x0ae6…0b10 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0006, t01=0x018c}
0x0b10…0b1e Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x0026}
0x0b1e…0b3a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x0034}
0x0b3a…0b46 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0050}
0x0b46…0b54 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x005c}
0x0b54…0b62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x006a}
0x0b62…0b76 Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x0078}
0x0b76…0b8e Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x008c}
0x0b8e…0b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a4}
0x0b98…0bbe Head {h00=0x0022, h01=0x0050, text=»* SPCHK3 - CHECK MONTH«, t00=0x0007, t01=0x00ae}
0x0bbe…0bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d4}
0x0bc8…0bee Head {h00=0x0022, h01=0x0050, text=»* CHECKS 0<MONTH<13 «, t00=0x0007, t01=0x00de}
0x0bee…0c1a Head {h00=0x0028, h01=0x0050, text=»* MONTH IS IN THE FORM MM «, t00=0x0007, t01=0x0104}
0x0c1a…0c40 Head {h00=0x0022, h01=0x0050, text=»* INPUT FIELD: SPINPUT«, t00=0x0007, t01=0x0130}
0x0c40…0c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0156}
0x0c4a…0c86 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0007, t01=0x0160}
0x0c86…0c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000c}
0x0c90…0caa Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x0016}
0x0caa…0cd2 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x0030}
0x0cd2…0cfe Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x0058}
0x0cfe…0d1e Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x0084}
0x0d1e…0d4a Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0008, t01=0x00a4}
0x0d4a…0d5c Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0008, t01=0x00d0}
0x0d5c…0d68 Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0008, t01=0x00e2}
0x0d68…0d92 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0008, t01=0x00ee}
0x0d92…0dbc Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0008, t01=0x0118}
0x0dbc…0dca Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0008, t01=0x0142}
0x0dca…0dd6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0150}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x015c}
0x0de4…0df2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x016a}
0x0df2…0e06 Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0008, t01=0x0178}
0x0e06…0e22 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x018c}
0x0e22…0e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0018}
0x0e2c…0e6c Head {h00=0x003c, h01=0x0050, text=»* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x0022}
0x0e6c…0e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0062}
0x0e76…0e92 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x006c}
0x0e92…0eae Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x0088}
0x0eae…0ed2 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,=W'18',CH4RET «, t00=0x0009, t01=0x00a4}
0x0ed2…0efe Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x0009, t01=0x00c8}
0x0efe…0f1a Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x0009, t01=0x00f4}
0x0f1a…0f38 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x0009, t01=0x0110}
0x0f38…0f64 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,=W'3' SIMULATE EOI-KEY«, t00=0x0009, t01=0x012e}
0x0f64…0f72 Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x0009, t01=0x015a}
0x0f72…0f7e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0168}
0x0f7e…0f8c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0174}
0x0f8c…0f9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0182}
0x0f9a…0fae Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x0009, t01=0x0190}
0x0fae…0fca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0014}
0x0fca…0fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0030}
0x0fd4…1002 Head {h00=0x002a, h01=0x0050, text=»* SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x003a}
0x1002…100c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0068}
0x100c…1028 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x0072}
0x1028…1044 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x008e}
0x1044…1072 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000a, t01=0x00aa}
0x1072…10a8 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000a, t01=0x00d8}
0x10a8…10ca Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000a, t01=0x010e}
0x10ca…10e4 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000a, t01=0x0130}
0x10e4…1116 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000a, t01=0x014a}
0x1116…1132 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000a, t01=0x017c}
0x1132…1162 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x0008}
0x1162…1180 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x0038}
0x1180…11a4 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,CMAXLIN,CH5ERR «, t00=0x000b, t01=0x0056}
0x11a4…11c8 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x007a}
0x11c8…11d4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x009e}
0x11d4…11e2 Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000b, t01=0x00aa}
0x11e2…11fe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000b, t01=0x00b8}
0x11fe…121a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'8' «, t00=0x000b, t01=0x00d4}
0x121a…1226 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00f0}
0x1226…1234 Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000b, t01=0x00fc}
0x1234…1252 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000b, t01=0x010a}
0x1252…125e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0128}
0x125e…126c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0134}
0x126c…127a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0142}
0x127a…128e Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000b, t01=0x0150}
0x128e…12aa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x0164}
0x12aa…12b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0180}
0x12b4…12fa Head {h00=0x0042, h01=0x0050, text=»* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000b, t01=0x018a}
0x12fa…1316 Head {h00=0x0018, h01=0x0050, text=»* KONTOKORT«, t00=0x000c, t01=0x0040}
0x1316…1320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005c}
0x1320…133c Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x0066}
0x133c…134e Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x0082}
0x134e…1376 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000c, t01=0x0094}
0x1376…1392 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000c, t01=0x00bc}
0x1392…13c4 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO«, t00=0x000c, t01=0x00d8}
0x13c4…13ea Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000c, t01=0x010a}
0x13ea…140c Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000c, t01=0x0130}
0x140c…1428 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'13'«, t00=0x000c, t01=0x0152}
0x1428…1436 Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000c, t01=0x016e}
0x1436…1442 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x017c}
0x1442…1450 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0188}
0x1450…145e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x145e…1472 Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x0016}
0x1472…147e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x002a}
0x147e…148c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0036}
0x148c…149a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0044}
0x149a…14ae Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x000d, t01=0x0052}
0x14ae…14ca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0066}
0x14ca…14d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0082}
0x14d4…1506 Head {h00=0x002e, h01=0x0050, text=»* SPTCHK - CONDITIONAL TABULATION«, t00=0x000d, t01=0x008c}
0x1506…1538 Head {h00=0x002e, h01=0x0050, text=»* CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x000d, t01=0x00be}
0x1538…1542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f0}
0x1542…155e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00fa}
0x155e…1586 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000d, t01=0x0116}
0x1586…15a8 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'6',TCHK06 «, t00=0x000d, t01=0x013e}
0x15a8…15ca Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'27',TCHK27«, t00=0x000d, t01=0x0160}
0x15ca…15ec Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'48',TCHK48«, t00=0x000d, t01=0x0182}
0x15ec…160e Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x000e, t01=0x0014}
0x160e…1636 Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,=W'16' ADJUST INDEX«, t00=0x000e, t01=0x0036}
0x1636…164e Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3, C «, t00=0x000e, t01=0x005e}
0x164e…1674 Head {h00=0x0022, h01=0x0050, text=» TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x000e, t01=0x0076}
0x1674…1696 Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x000e, t01=0x009c}
0x1696…16b8 Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x000e, t01=0x00be}
0x16b8…16d6 Head {h00=0x001a, h01=0x0050, text=»TCHK00 CORRECT FIELD«, t00=0x000e, t01=0x00e0}
0x16d6…16f2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x000e, t01=0x00fe}
0x16f2…16fe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x011a}
0x16fe…1708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0126}
0x1708…1716 Head {h00=0x000a, h01=0x0050, text=»TCHK06«, t00=0x000e, t01=0x0130}
0x1716…174a Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',TCHK00 NOT FELT 28 «, t00=0x000e, t01=0x013e}
0x174a…175c Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000e, t01=0x0172}
0x175c…1766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0184}
0x1766…1774 Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x000e, t01=0x018e}
0x1774…178c Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x000f, t01=0x000c}
0x178c…179e Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000f, t01=0x0024}
0x179e…17a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0036}
0x17a8…17b6 Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x000f, t01=0x0040}
0x17b6…17c4 Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x000f, t01=0x004e}
0x17c4…17d2 Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x000f, t01=0x005c}
0x17d2…17ea Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x000f, t01=0x006a}
0x17ea…17fc Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000f, t01=0x0082}
0x17fc…1806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x1806…1814 Head {h00=0x000a, h01=0x0050, text=»TCHK27«, t00=0x000f, t01=0x009e}
0x1814…1838 Head {h00=0x0020, h01=0x0050, text=» TBF CFLT27,TCHK00 NOT USED «, t00=0x000f, t01=0x00ac}
0x1838…1868 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(CBIN3),=W'0',TCHK99 BKO? NO «, t00=0x000f, t01=0x00d0}
0x1868…1890 Head {h00=0x0024, h01=0x0050, text=» CBL GTREGF(CBIN3),=D'21',TCHK99«, t00=0x000f, t01=0x0100}
0x1890…18b8 Head {h00=0x0024, h01=0x0050, text=» CBG GTREGF(CBIN3),=D'22',TCHK99«, t00=0x000f, t01=0x0128}
0x18b8…18d4 Head {h00=0x0018, h01=0x0050, text=» B TCHK00 BKO= 21,22«, t00=0x000f, t01=0x0150}
0x18d4…18de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016c}
0x18de…18ec Head {h00=0x000a, h01=0x0050, text=»TCHK48«, t00=0x000f, t01=0x0176}
0x18ec…191e Head {h00=0x002e, h01=0x0050, text=» CBE GTUSED(CBIN2),=W'0',TCHK99 NOT FELT 6«, t00=0x000f, t01=0x0184}
0x191e…1930 Head {h00=0x000e, h01=0x0050, text=» B TCHK00 «, t00=0x0010, t01=0x0026}
0x1930…193a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0038}
0x193a…1948 Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x0010, t01=0x0042}
0x1948…1966 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0010, t01=0x0050}
0x1966…1982 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0010, t01=0x006e}
0x1982…19c0 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB «, t00=0x0010, t01=0x008a}
0x19c0…19e0 Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x0010, t01=0x00c8}
0x19e0…19ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e8}
0x19ea…19f8 Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x0010, t01=0x00f2}
0x19f8…1a16 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0010, t01=0x0100}
0x1a16…1a32 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0010, t01=0x011e}
0x1a32…1a70 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD«, t00=0x0010, t01=0x013a}
0x1a70…1a8e Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x0010, t01=0x0178}
0x1a8e…1a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a98…1aa6 Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x0011, t01=0x0012}
0x1aa6…1ac2 Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0011, t01=0x0020}
0x1ac2…1ad4 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0011, t01=0x003c}
0x1ad4…1ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004e}
0x1ade…1afc Head {h00=0x001a, h01=0x0050, text=»TCHK99 CONTINUE TAB «, t00=0x0011, t01=0x0058}
0x1afc…1b18 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0011, t01=0x0076}
0x1b18…1b24 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0092}
0x1b24…1b32 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x009e}
0x1b32…1b40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00ac}
0x1b40…1b54 Head {h00=0x0010, h01=0x0050, text=»SPAPPL PROC «, t00=0x0011, t01=0x00ba}
0x1b54…1b70 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00ce}
0x1b70…1b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ea}
0x1b7a…1bca Head {h00=0x004c, h01=0x0050, text=»* SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE «, t00=0x0011, t01=0x00f4}
0x1bca…1c0c Head {h00=0x003e, h01=0x0050, text=»* IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. «, t00=0x0011, t01=0x0144}
0x1c0c…1c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0186}
0x1c16…1c5a Head {h00=0x0040, h01=0x0050, text=»* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)«, t00=0x0011, t01=0x0190}
0x1c5a…1c9e Head {h00=0x0040, h01=0x0050, text=»* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT «, t00=0x0012, t01=0x0044}
0x1c9e…1cd6 Head {h00=0x0034, h01=0x0050, text=»* TESTING AND BRANCH TO PACKING ROUTINE«, t00=0x0012, t01=0x0088}
0x1cd6…1ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c0}
0x1ce0…1cfc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x00ca}
0x1cfc…1d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d06…1d38 Head {h00=0x002e, h01=0x0050, text=»* SPBINW3 IS CURRENT APPL NUMBER «, t00=0x0012, t01=0x00f0}
0x1d38…1d50 Head {h00=0x0014, h01=0x0050, text=» ART - RETURN «, t00=0x0012, t01=0x0122}
0x1d50…1d6c Head {h00=0x0018, h01=0x0050, text=» APK - PACK FIELD «, t00=0x0012, t01=0x013a}
0x1d6c…1d92 Head {h00=0x0022, h01=0x0050, text=» APF - PACK FIELD WITH SIGN «, t00=0x0012, t01=0x0156}
0x1d92…1db8 Head {h00=0x0022, h01=0x0050, text=» AA01 - TEST FOR FIELD TO BE«, t00=0x0012, t01=0x017c}
0x1db8…1dd4 Head {h00=0x0018, h01=0x0050, text=» ---- - AUTODUPPED«, t00=0x0013, t01=0x0012}
0x1dd4…1dfa Head {h00=0x0022, h01=0x0050, text=» AA02 - TEST FOR AUTODUP KEY«, t00=0x0013, t01=0x002e}
0x1dfa…1e1c Head {h00=0x001e, h01=0x0050, text=» AA03 - IF LENGTH ZERO, «, t00=0x0013, t01=0x0054}
0x1e1c…1e3a Head {h00=0x001a, h01=0x0050, text=» ---- - DELETE FIELS«, t00=0x0013, t01=0x0076}
0x1e3a…1e58 Head {h00=0x001a, h01=0x0050, text=» AA05 - TEST FIELD 5«, t00=0x0013, t01=0x0094}
0x1e58…1e76 Head {h00=0x001a, h01=0x0050, text=» AA06 - TEST FIELD 6«, t00=0x0013, t01=0x00b2}
0x1e76…1e98 Head {h00=0x001e, h01=0x0050, text=» AA11 - TEST VALOERDATE «, t00=0x0013, t01=0x00d0}
0x1e98…1eb4 Head {h00=0x0018, h01=0x0050, text=» A14 - OPK TR50...«, t00=0x0013, t01=0x00f2}
0x1eb4…1ed6 Head {h00=0x001e, h01=0x0050, text=» AA17 - TEST FORFALDSAAR«, t00=0x0013, t01=0x010e}
0x1ed6…1ef6 Head {h00=0x001c, h01=0x0050, text=» A28 - DEB NR TR50... «, t00=0x0013, t01=0x0130}
0x1ef6…1f16 Head {h00=0x001c, h01=0x0050, text=» A29 - ADM NR TR50... «, t00=0x0013, t01=0x0150}
0x1f16…1f36 Head {h00=0x001c, h01=0x0050, text=» A30 - ADM KOD TR50...«, t00=0x0013, t01=0x0170}
0x1f36…1f58 Head {h00=0x001e, h01=0x0050, text=» A32 - RATEANTAL TR50...«, t00=0x0013, t01=0x0190}
0x1f58…1f78 Head {h00=0x001c, h01=0x0050, text=» A46 - ALT ADR TR50...«, t00=0x0014, t01=0x0022}
0x1f78…1f9a Head {h00=0x001e, h01=0x0050, text=» A48 - DEB LBNR TR50... «, t00=0x0014, t01=0x0042}
0x1f9a…1fbc Head {h00=0x001e, h01=0x0050, text=» A49 - [NDR TYP, TR50...«, t00=0x0014, t01=0x0064}
0x1fbc…1fe2 Head {h00=0x0022, h01=0x0050, text=» AA65 - IF AA05, AA06 THERE «, t00=0x0014, t01=0x0086}
0x1fe2…2006 Head {h00=0x0020, h01=0x0050, text=» ---- - MIGHT BE A CHOICE «, t00=0x0014, t01=0x00ac}
0x2006…2028 Head {h00=0x001e, h01=0x0050, text=» ---- - OF NEW TRANSTYPE«, t00=0x0014, t01=0x00d0}
0x2028…2046 Head {h00=0x001a, h01=0x0050, text=» A64 - TEST FIELD 64«, t00=0x0014, t01=0x00f2}
0x2046…2064 Head {h00=0x001a, h01=0x0050, text=» A65 - TEST FIELD 65«, t00=0x0014, t01=0x0110}
0x2064…2084 Head {h00=0x001c, h01=0x0050, text=» A67 - FELT 81 TR50...«, t00=0x0014, t01=0x012e}
0x2084…20ac Head {h00=0x0024, h01=0x0050, text=» AA70 - KONTONR WITHOUT CHECK «, t00=0x0014, t01=0x014e}
0x20ac…20d2 Head {h00=0x0022, h01=0x0050, text=» AA71 - 'ANTAL' IN TRANSTYPE«, t00=0x0014, t01=0x0176}
0x20d2…20ea Head {h00=0x0014, h01=0x0050, text=» ---- - 51, 53«, t00=0x0015, t01=0x000c}
0x20ea…210e Head {h00=0x0020, h01=0x0050, text=» A76 - COUNTER, TRANS 12 «, t00=0x0015, t01=0x0024}
0x210e…2136 Head {h00=0x0024, h01=0x0050, text=» A77 - TR 4, INSERT BKO 51,52«, t00=0x0015, t01=0x0048}
0x2136…215c Head {h00=0x0022, h01=0x0050, text=» A78 - ACCOUNT NO, TRANS 12«, t00=0x0015, t01=0x0070}
0x215c…2184 Head {h00=0x0024, h01=0x0050, text=» A79 - - - - - - (COPY)«, t00=0x0015, t01=0x0096}
0x2184…21aa Head {h00=0x0022, h01=0x0050, text=» A80-A87 - CHECK OF CONTROL «, t00=0x0015, t01=0x00be}
0x21aa…21cc Head {h00=0x001e, h01=0x0050, text=» ---- - INFORMATION FOR «, t00=0x0015, t01=0x00e4}
0x21cc…21e8 Head {h00=0x0018, h01=0x0050, text=» ---- - TRANSTYPES«, t00=0x0015, t01=0x0106}
0x21e8…220c Head {h00=0x0020, h01=0x0050, text=» A88 - AUTODUP BKO, TR 4 «, t00=0x0015, t01=0x0122}
0x220c…222e Head {h00=0x001e, h01=0x0050, text=» A89 - STORE IN FIELD 6«, t00=0x0015, t01=0x0146}
0x222e…2252 Head {h00=0x0020, h01=0x0050, text=» A90 - SPECIAL SLUT-FIELD«, t00=0x0015, t01=0x0168}
0x2252…2274 Head {h00=0x001e, h01=0x0050, text=» A91 - ENTER TO SLUT-KEY«, t00=0x0015, t01=0x018c}
0x2274…2292 Head {h00=0x001a, h01=0x0050, text=» A100 - CHECK TR 12 «, t00=0x0016, t01=0x001e}
0x2292…22b6 Head {h00=0x0020, h01=0x0050, text=» A101 - CHECK BEHL. COUNT.«, t00=0x0016, t01=0x003c}
0x22b6…22d0 Head {h00=0x0016, h01=0x0050, text=» A102 - REL. DAY«, t00=0x0016, t01=0x0060}
0x22d0…22f2 Head {h00=0x001e, h01=0x0050, text=» A103 - SET BEHL. COUNT «, t00=0x0016, t01=0x007a}
0x22f2…2310 Head {h00=0x001a, h01=0x0050, text=» A104 - SET TRANS 12«, t00=0x0016, t01=0x009c}
0x2310…2360 Head {h00=0x004c, h01=0x0050, text=» A105 - CTRL.DIGIT CALC.«, t00=0x0016, t01=0x00ba}
0x2360…2382 Head {h00=0x001e, h01=0x0050, text=» A106 - CHECK VALUE 0-3 «, t00=0x0016, t01=0x010a}
0x2382…239c Head {h00=0x0016, h01=0x0050, text=» A107 - AS A102 «, t00=0x0016, t01=0x012c}
0x239c…23be Head {h00=0x001e, h01=0x0050, text=» A108 - SPG -REGKONTONR «, t00=0x0016, t01=0x0146}
0x23be…23de Head {h00=0x001c, h01=0x0050, text=» A109 - SPG-CPR/CIR/NR«, t00=0x0016, t01=0x0168}
0x23de…23fa Head {h00=0x0018, h01=0x0050, text=» A110 - SPG-BELOB «, t00=0x0016, t01=0x0188}
0x23fa…241c Head {h00=0x001e, h01=0x0050, text=» A111 - SPG-OTHER FIELD «, t00=0x0017, t01=0x0014}
0x241c…2426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0036}
0x2426…2460 Head {h00=0x0036, h01=0x0050, text=» CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS «, t00=0x0017, t01=0x0040}
0x2460…246a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007a}
0x246a…2474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0084}
0x2474…2480 Head {h00=0x0008, h01=0x0050, text=»AA01«, t00=0x0017, t01=0x008e}
0x2480…24b0 Head {h00=0x002c, h01=0x0050, text=» TBF GTADUPFL,AA02 AUTODUP TEST (VERIF) «, t00=0x0017, t01=0x009a}
0x24b0…24e4 Head {h00=0x0030, h01=0x0050, text=» CLEAR GTADUPFL IF FIELD IS TO BE AUTODUPPED«, t00=0x0017, t01=0x00ca}
0x24e4…2518 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET DUP FIELD«, t00=0x0017, t01=0x00fe}
0x2518…254a Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,GTDUPF(GSWBIN1) AND CONTINUE«, t00=0x0017, t01=0x0132}
0x254a…2558 Head {h00=0x000a, h01=0x0050, text=» B AAA«, t00=0x0017, t01=0x0164}
0x2558…2562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0172}
0x2562…256e Head {h00=0x0008, h01=0x0050, text=»AA02«, t00=0x0017, t01=0x017c}
0x256e…2596 Head {h00=0x0024, h01=0x0050, text=» TBF GTAUTODP,AA03 AUTO DUP KEY «, t00=0x0017, t01=0x0188}
0x2596…25be Head {h00=0x0024, h01=0x0050, text=» CLEAR GTAUTODP IF GTAUTODP KEY,«, t00=0x0018, t01=0x0020}
0x25be…25f4 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX«, t00=0x0018, t01=0x0048}
0x25f4…2634 Head {h00=0x003c, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN1 AND SET GTAUTODPSWITCH FOR«, t00=0x0018, t01=0x007e}
0x2634…2658 Head {h00=0x0020, h01=0x0050, text=» RELEVANT FIELD TO BE USED«, t00=0x0018, t01=0x00be}
0x2658…266e Head {h00=0x0012, h01=0x0050, text=» IN FORMATS «, t00=0x0018, t01=0x00e2}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f8}
0x2678…2684 Head {h00=0x0008, h01=0x0050, text=»AA03«, t00=0x0018, t01=0x0102}
0x2684…26b6 Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO «, t00=0x0018, t01=0x010e}
0x26b6…26f8 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 «, t00=0x0018, t01=0x0140}
0x26f8…2728 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD«, t00=0x0018, t01=0x0182}
0x2728…2736 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0019, t01=0x0022}
0x2736…2740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0030}
0x2740…275a Head {h00=0x0016, h01=0x0050, text=»AAA IB SPBINW3, C«, t00=0x0019, t01=0x003a}
0x275a…2796 Head {h00=0x0038, h01=0x0050, text=» ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C «, t00=0x0019, t01=0x0054}
0x2796…27d8 Head {h00=0x003e, h01=0x0050, text=» APK,A11,APK,APK,A14,APK,APK,A17,APK,APK, FIELDS 10,19 C «, t00=0x0019, t01=0x0090}
0x27d8…281a Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APK,A28,A29, FIELDS 20-29 C «, t00=0x0019, t01=0x00d2}
0x281a…285c Head {h00=0x003e, h01=0x0050, text=» A30,APK,A32,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C «, t00=0x0019, t01=0x0114}
0x285c…289e Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,A46,APF,A48,A49, FIELDS 40-49 C «, t00=0x0019, t01=0x0156}
0x289e…28e0 Head {h00=0x003e, h01=0x0050, text=» APK,APK,APF,APF,A54,APF,APF,APF,APF,APF, FIELDS 50-59 C «, t00=0x001a, t01=0x0008}
0x28e0…2922 Head {h00=0x003e, h01=0x0050, text=» APF,APF,APF,APK,A64,A65,APK,A67,ART,ART, FIELDS 60-69 C «, t00=0x001a, t01=0x004a}
0x2922…2964 Head {h00=0x003e, h01=0x0050, text=» A70,A71,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C «, t00=0x001a, t01=0x008c}
0x2964…29a6 Head {h00=0x003e, h01=0x0050, text=» A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C «, t00=0x001a, t01=0x00ce}
0x29a6…29e8 Head {h00=0x003e, h01=0x0050, text=» A90,A91,APK,APK,APK,ART,ART,ART,ART,ART, FIELDS 90,99 C «, t00=0x001a, t01=0x0110}
0x29e8…2a1c Head {h00=0x0030, h01=0x0050, text=» A100,A101,A102,A103,A104, FIELDS 100,104 C«, t00=0x001a, t01=0x0152}
0x2a1c…2a50 Head {h00=0x0030, h01=0x0050, text=» A105,A106,A107,A108,A109, FIELDS 105,109 C«, t00=0x001a, t01=0x0186}
0x2a50…2a7e Head {h00=0x002a, h01=0x0050, text=» A110,A111,ART,ART,ART FIELDS 110,114«, t00=0x001b, t01=0x002a}
0x2a7e…2a90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x0058}
0x2a90…2abc Head {h00=0x0028, h01=0x0050, text=»A05 CHECK REGISTRERINGSKONTONUMMER«, t00=0x001b, t01=0x006a}
0x2abc…2ae4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001b, t01=0x0096}
0x2ae4…2b1e Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x001b, t01=0x00be}
0x2b1e…2b4c Head {h00=0x002a, h01=0x0050, text=» CMP GSWBIN1,=W'10' LENGTH MUST BE 10 «, t00=0x001b, t01=0x00f8}
0x2b4c…2b5e Head {h00=0x000e, h01=0x0050, text=» BNE A058 «, t00=0x001b, t01=0x0126}
0x2b5e…2b7c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001b, t01=0x0138}
0x2b7c…2ba0 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x001b, t01=0x0156}
0x2ba0…2bbe Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001b, t01=0x017a}
0x2bbe…2bd6 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x001c, t01=0x0008}
0x2bd6…2bf8 Head {h00=0x001e, h01=0x0050, text=» A053,A053,A051,A053,A053«, t00=0x001c, t01=0x0020}
0x2bf8…2c04 Head {h00=0x0008, h01=0x0050, text=»A051«, t00=0x001c, t01=0x0042}
0x2c04…2c24 Head {h00=0x001c, h01=0x0050, text=» B APK CPR NOT NECESSARY«, t00=0x001c, t01=0x004e}
0x2c24…2c40 Head {h00=0x0018, h01=0x0050, text=»A053 CPR NECESSARY«, t00=0x001c, t01=0x006e}
0x2c40…2c58 Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x001c, t01=0x008a}
0x2c58…2c8a Head {h00=0x002e, h01=0x0050, text=» A054,A055,A054,A054,A055,A054,A055,A055 «, t00=0x001c, t01=0x00a2}
0x2c8a…2c96 Head {h00=0x0008, h01=0x0050, text=»A054«, t00=0x001c, t01=0x00d4}
0x2c96…2ca4 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001c, t01=0x00e0}
0x2ca4…2cb0 Head {h00=0x0008, h01=0x0050, text=»A055«, t00=0x001c, t01=0x00ee}
0x2cb0…2cd6 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A056 ERROR «, t00=0x001c, t01=0x00fa}
0x2cd6…2cf4 Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x001c, t01=0x0120}
0x2cf4…2d04 Head {h00=0x000c, h01=0x0050, text=» B A054 «, t00=0x001c, t01=0x013e}
0x2d04…2d10 Head {h00=0x0008, h01=0x0050, text=»A056«, t00=0x001c, t01=0x014e}
0x2d10…2d2c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'19'«, t00=0x001c, t01=0x015a}
0x2d2c…2d3a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001c, t01=0x0176}
0x2d3a…2d46 Head {h00=0x0008, h01=0x0050, text=»A058«, t00=0x001c, t01=0x0184}
0x2d46…2d70 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'3' SET ERRORCODE «, t00=0x001c, t01=0x0190}
0x2d70…2d7e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001d, t01=0x002a}
0x2d7e…2d90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0038}
0x2d90…2db2 Head {h00=0x001e, h01=0x0050, text=»A06 CHECK CPR/CIR NUMBER«, t00=0x001d, t01=0x004a}
0x2db2…2dda Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001d, t01=0x006c}
0x2dda…2e14 Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x001d, t01=0x0094}
0x2e14…2e38 Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW1,=W'7',A060 CIR «, t00=0x001d, t01=0x00ce}
0x2e38…2e5c Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW1,=W'10',A060 CPR«, t00=0x001d, t01=0x00f2}
0x2e5c…2e6c Head {h00=0x000c, h01=0x0050, text=» B A058 «, t00=0x001d, t01=0x0116}
0x2e6c…2e78 Head {h00=0x0008, h01=0x0050, text=»A060«, t00=0x001d, t01=0x0126}
0x2e78…2ea2 Head {h00=0x0026, h01=0x0050, text=» SET BCPR SET CPR-SWITCH (CPR-NO) «, t00=0x001d, t01=0x0132}
0x2ea2…2ec0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001d, t01=0x015c}
0x2ec0…2ee2 Head {h00=0x001e, h01=0x0050, text=» CMP GSWBCD1,=D'10000000' «, t00=0x001d, t01=0x017a}
0x2ee2…2ef2 Head {h00=0x000c, h01=0x0050, text=» BL A061«, t00=0x001e, t01=0x000c}
0x2ef2…2f0e Head {h00=0x0018, h01=0x0050, text=» SET BLEV LEVERAND. «, t00=0x001e, t01=0x001c}
0x2f0e…2f32 Head {h00=0x0020, h01=0x0050, text=» CMP GSWBCD1,=D'3200000000' «, t00=0x001e, t01=0x0038}
0x2f32…2f42 Head {h00=0x000c, h01=0x0050, text=» BG APK «, t00=0x001e, t01=0x005c}
0x2f42…2f5a Head {h00=0x0014, h01=0x0050, text=» CLEAR BLEV CPR.«, t00=0x001e, t01=0x006c}
0x2f5a…2f68 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001e, t01=0x0084}
0x2f68…2f74 Head {h00=0x0008, h01=0x0050, text=»A061«, t00=0x001e, t01=0x0092}
0x2f74…2fa2 Head {h00=0x002a, h01=0x0050, text=» CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) «, t00=0x001e, t01=0x009e}
0x2fa2…2fb0 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001e, t01=0x00cc}
0x2fb0…2fc2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x00da}
0x2fc2…2fea Head {h00=0x0024, h01=0x0050, text=»A54 FIELD 54 HAS BEEN ENTERED «, t00=0x001e, t01=0x00ec}
0x2fea…3026 Head {h00=0x0038, h01=0x0050, text=» MOVE GSSWITCH(CBIN2),CBIN1 AND SHOULD BE AUTODUPPED«, t00=0x001e, t01=0x0114}
0x3026…3034 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001e, t01=0x0150}
0x3034…3042 Head {h00=0x000a, h01=0x0050, text=»******«, t00=0x001e, t01=0x015e}
0x3042…304e Head {h00=0x0008, h01=0x0050, text=»A065«, t00=0x001e, t01=0x016c}
0x304e…3088 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) «, t00=0x001e, t01=0x0178}
0x3088…30b8 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE «, t00=0x001f, t01=0x0022}
0x30b8…30c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0052}
0x30c2…30ea Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM ROUTINE «, t00=0x001f, t01=0x005c}
0x30ea…30fa Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001f, t01=0x0084}
0x30fa…311c Head {h00=0x001e, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE «, t00=0x001f, t01=0x0094}
0x311c…312c Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001f, t01=0x00b6}
0x312c…3136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c6}
0x3136…3162 Head {h00=0x0028, h01=0x0050, text=»* CHECK FOR VALID TRANSTYPE«, t00=0x001f, t01=0x00d0}
0x3162…316c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fc}
0x316c…318c Head {h00=0x001c, h01=0x0050, text=»* ADJUST REGDEX«, t00=0x001f, t01=0x0106}
0x318c…319a Head {h00=0x000a, h01=0x0050, text=»A0655 «, t00=0x001f, t01=0x0126}
0x319a…31a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0134}
0x31a4…31c0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001f, t01=0x013e}
0x31c0…31fc Head {h00=0x0038, h01=0x0050, text=»* TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION«, t00=0x001f, t01=0x015a}
0x31fc…3216 Head {h00=0x0016, h01=0x0050, text=» TBT GTKASSE,A0672«, t00=0x0020, t01=0x0008}
0x3216…3238 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD3,=D'49',A0675 «, t00=0x0020, t01=0x0022}
0x3238…3272 Head {h00=0x0036, h01=0x0050, text=» CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE «, t00=0x0020, t01=0x0044}
0x3272…3282 Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0020, t01=0x007e}
0x3282…3290 Head {h00=0x000a, h01=0x0050, text=»A0672 «, t00=0x0020, t01=0x008e}
0x3290…32b4 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD3,=D'49',A067001 «, t00=0x0020, t01=0x009c}
0x32b4…32e6 Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE «, t00=0x0020, t01=0x00c0}
0x32e6…32ee Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00f2}
0x32ee…32fe Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0020, t01=0x00fa}
0x32fe…3328 Head {h00=0x0026, h01=0x0050, text=»A067001 CHECK IF TR50... ALLOWED«, t00=0x0020, t01=0x010a}
0x3328…334e Head {h00=0x0022, h01=0x0050, text=» DVS. CYKEL/STABEL,LISTE,???«, t00=0x0020, t01=0x0134}
0x334e…336e Head {h00=0x001c, h01=0x0050, text=» TBT GTCYFLG,A0675 CYKEL«, t00=0x0020, t01=0x015a}
0x336e…3378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017a}
0x3378…3384 Head {h00=0x0008, h01=0x0050, text=»A067«, t00=0x0020, t01=0x0184}
0x3384…33c4 Head {h00=0x003c, h01=0x0050, text=» CBE GSWBCD3,CREGTAB(GSWBIN1,GTCLASS),A068 SEARCH REGNR «, t00=0x0020, t01=0x0190}
0x33c4…33ee Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CBIN1 ADD 1 TO INDEX «, t00=0x0021, t01=0x0040}
0x33ee…342e Head {h00=0x003c, h01=0x0050, text=» CBNE CREGTAB(GSWBIN1,GTCLASS),=D'-1',A067 END OF TABLE?«, t00=0x0021, t01=0x006a}
0x342e…3438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00aa}
0x3438…3446 Head {h00=0x000a, h01=0x0050, text=»A0675 «, t00=0x0021, t01=0x00b4}
0x3446…3474 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,=W'9' INVALID TRANSTYPE «, t00=0x0021, t01=0x00c2}
0x3474…3482 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x00f0}
0x3482…348e Head {h00=0x0008, h01=0x0050, text=»A068«, t00=0x0021, t01=0x00fe}
0x348e…34b4 Head {h00=0x0022, h01=0x0050, text=» TAKE CARE OF NEW TRANSTYPE «, t00=0x0021, t01=0x010a}
0x34b4…34ee Head {h00=0x0036, h01=0x0050, text=» CBE SPBINW2,=W'18',A06KRE HANDLING OF KREDIT KEY «, t00=0x0021, t01=0x0130}
0x34ee…351e Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,=W'17',A06DEB SLUT/DEB KEY «, t00=0x0021, t01=0x016a}
0x351e…3556 Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,=W'3',A06DEB HANDLING OF DEBIT KEY «, t00=0x0022, t01=0x000a}
0x3556…3588 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,=W'4' HANDLING OF WRONG KEY «, t00=0x0022, t01=0x0042}
0x3588…3596 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0022, t01=0x0074}
0x3596…35a4 Head {h00=0x000a, h01=0x0050, text=»A06KRE«, t00=0x0022, t01=0x0082}
0x35a4…35d8 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'49',A06DEB TR50... ONLY DEB «, t00=0x0022, t01=0x0090}
0x35d8…35ec Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0022, t01=0x00c4}
0x35ec…35fc Head {h00=0x000c, h01=0x0050, text=» B A066 «, t00=0x0022, t01=0x00d8}
0x35fc…360a Head {h00=0x000a, h01=0x0050, text=»A06DEB«, t00=0x0022, t01=0x00e8}
0x360a…361e Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0022, t01=0x00f6}
0x361e…362a Head {h00=0x0008, h01=0x0050, text=»A066«, t00=0x0022, t01=0x010a}
0x362a…3648 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGNR,GSWBCD3 «, t00=0x0022, t01=0x0116}
0x3648…3666 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGDEX,GSWBIN1«, t00=0x0022, t01=0x0134}
0x3666…3692 Head {h00=0x0028, h01=0x0050, text=» SET GTREGFLG VALID TRANSTYPE FOUND «, t00=0x0022, t01=0x0152}
0x3692…36b8 Head {h00=0x0022, h01=0x0050, text=» SET TTEORFLG START NEW TRANS «, t00=0x0022, t01=0x017e}
0x36b8…36cc Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0023, t01=0x0014}
0x36cc…36f4 Head {h00=0x0024, h01=0x0050, text=» CLEAR GTSPECTR SPECIAL TRANS.? «, t00=0x0023, t01=0x0028}
0x36f4…371a Head {h00=0x0022, h01=0x0050, text=» CBNG GSWBCD3,=D'49',A06601 NO«, t00=0x0023, t01=0x0050}
0x371a…3734 Head {h00=0x0016, h01=0x0050, text=» SET GTSPECTR YES «, t00=0x0023, t01=0x0076}
0x3734…3748 Head {h00=0x0010, h01=0x0050, text=» PERF PACKCL«, t00=0x0023, t01=0x0090}
0x3748…3756 Head {h00=0x000a, h01=0x0050, text=»A06601«, t00=0x0023, t01=0x00a4}
0x3756…3760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b2}
0x3760…379a Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED«, t00=0x0023, t01=0x00bc}
0x379a…37a8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0023, t01=0x00f6}
0x37a8…37ba Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0023, t01=0x0104}
0x37ba…37d2 Head {h00=0x0014, h01=0x0050, text=»A07 BKO FIELD «, t00=0x0023, t01=0x0116}
0x37d2…37f4 Head {h00=0x001e, h01=0x0050, text=» INSERT TEXT IN TT07TXT «, t00=0x0023, t01=0x012e}
0x37f4…380a Head {h00=0x0012, h01=0x0050, text=» CLEAR TTASKAT«, t00=0x0023, t01=0x0150}
0x380a…3828 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0023, t01=0x0166}
0x3828…384a Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD3,=D'51',A070 «, t00=0x0023, t01=0x0184}
0x384a…385e Head {h00=0x0010, h01=0x0050, text=» SET TTASKAT«, t00=0x0024, t01=0x0016}
0x385e…386a Head {h00=0x0008, h01=0x0050, text=»A070«, t00=0x0024, t01=0x002a}
0x386a…388c Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A0705«, t00=0x0024, t01=0x0036}
0x388c…38b4 Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'51',A076 TRANS 3«, t00=0x0024, t01=0x0058}
0x38b4…38d4 Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD3,=D'52',A076«, t00=0x0024, t01=0x0080}
0x38d4…38e2 Head {h00=0x000a, h01=0x0050, text=»A0705 «, t00=0x0024, t01=0x00a0}
0x38e2…38fe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN16«, t00=0x0024, t01=0x00ae}
0x38fe…3930 Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0024, t01=0x00ca}
0x3930…394e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,TT07TXT «, t00=0x0024, t01=0x00fc}
0x394e…396c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD3 «, t00=0x0024, t01=0x011a}
0x396c…398a Head {h00=0x001a, h01=0x0050, text=» MOVE TT07TXT,CBLANKS «, t00=0x0024, t01=0x0138}
0x398a…39ba Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN21 FIRST CHAR POINTER «, t00=0x0024, t01=0x0156}
0x39ba…39d6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0024, t01=0x0186}
0x39d6…39f6 Head {h00=0x001c, h01=0x0050, text=» CBNG SPBINW1,=W'2',A071«, t00=0x0025, t01=0x0012}
0x39f6…3a2c Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX «, t00=0x0025, t01=0x0032}
0x3a2c…3a38 Head {h00=0x0008, h01=0x0050, text=»A071«, t00=0x0025, t01=0x0068}
0x3a38…3a52 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN7«, t00=0x0025, t01=0x0074}
0x3a52…3a60 Head {h00=0x000a, h01=0x0050, text=»A0708 «, t00=0x0025, t01=0x008e}
0x3a60…3a7a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN7«, t00=0x0025, t01=0x009c}
0x3a7a…3a9c Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,A075 «, t00=0x0025, t01=0x00b6}
0x3a9c…3ad6 Head {h00=0x0036, h01=0x0050, text=» MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2«, t00=0x0025, t01=0x00d8}
0x3ad6…3aea Head {h00=0x0010, h01=0x0050, text=» BNOK A0708 «, t00=0x0025, t01=0x0112}
0x3aea…3b0e Head {h00=0x0020, h01=0x0050, text=»* NEXT 5 CHARS CONTAIN TEXT«, t00=0x0025, t01=0x0126}
0x3b0e…3b28 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'2'«, t00=0x0025, t01=0x014a}
0x3b28…3b5a Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0025, t01=0x0164}
0x3b5a…3b7c Head {h00=0x001e, h01=0x0050, text=»* SEE IF ALLOWED «, t00=0x0026, t01=0x0008}
0x3b7c…3bb8 Head {h00=0x0038, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3 «, t00=0x0026, t01=0x002a}
0x3bb8…3bd2 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'5'«, t00=0x0026, t01=0x0066}
0x3bd2…3bf0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR2,CBLANKS «, t00=0x0026, t01=0x0080}
0x3bf0…3c2a Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE«, t00=0x0026, t01=0x009e}
0x3c2a…3c48 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR2 «, t00=0x0026, t01=0x00d8}
0x3c48…3c6a Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',A077 OK«, t00=0x0026, t01=0x00f6}
0x3c6a…3c96 Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN2),=D'10000000',A072«, t00=0x0026, t01=0x0118}
0x3c96…3cc8 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED «, t00=0x0026, t01=0x0144}
0x3cc8…3cd8 Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0026, t01=0x0176}
0x3cd8…3ce4 Head {h00=0x0008, h01=0x0050, text=»A072«, t00=0x0026, t01=0x0186}
0x3ce4…3d16 (39, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED «, t00=0x0027, t01=0x0004}
0x3d16…3d26 Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0027, t01=0x0036}
0x3d26…3d32 Head {h00=0x0008, h01=0x0050, text=»A075«, t00=0x0027, t01=0x0046}
0x3d32…3d4c Head {h00=0x0016, h01=0x0050, text=» TBT CBKOFLG,A077 «, t00=0x0027, t01=0x0052}
0x3d4c…3d58 Head {h00=0x0008, h01=0x0050, text=»A076«, t00=0x0027, t01=0x006c}
0x3d58…3d74 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0027, t01=0x0078}
0x3d74…3d82 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0027, t01=0x0094}
0x3d82…3d8e Head {h00=0x0008, h01=0x0050, text=»A077«, t00=0x0027, t01=0x00a2}
0x3d8e…3d9c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0027, t01=0x00ae}
0x3d9c…3dae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x00bc}
0x3dae…3dd6 Head {h00=0x0024, h01=0x0050, text=»A11 CHECK VAL DATE NOT GREATER«, t00=0x0027, t01=0x00ce}
0x3dd6…3df0 Head {h00=0x0016, h01=0x0050, text=» THAN POST DATE «, t00=0x0027, t01=0x00f6}
0x3df0…3e1a Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'3',A0110 TRANS 3 «, t00=0x0027, t01=0x0110}
0x3e1a…3e44 Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'4',A0110 TRANS 4 «, t00=0x0027, t01=0x013a}
0x3e44…3e52 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0027, t01=0x0164}
0x3e52…3e60 Head {h00=0x000a, h01=0x0050, text=»A0110 «, t00=0x0027, t01=0x0172}
0x3e60…3e88 Head {h00=0x0024, h01=0x0050, text=»* GET AND CHANGE VALOERDATE «, t00=0x0027, t01=0x0180}
0x3e88…3ea6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0028, t01=0x0018}
0x3ea6…3ed6 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12«, t00=0x0028, t01=0x0036}
0x3ed6…3f06 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8«, t00=0x0028, t01=0x0066}
0x3f06…3f36 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0028, t01=0x0096}
0x3f36…3f5c Head {h00=0x0022, h01=0x0050, text=»* GET AND CHANGE POSTDATE «, t00=0x0028, t01=0x00c6}
0x3f5c…3f78 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,GTDATO«, t00=0x0028, t01=0x00ec}
0x3f78…3fa8 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12«, t00=0x0028, t01=0x0108}
0x3fa8…3fd8 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN12,CBIN2,GSWBCD1,CBIN8«, t00=0x0028, t01=0x0138}
0x3fd8…4008 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0028, t01=0x0168}
0x4008…401e Head {h00=0x0012, h01=0x0050, text=»* COMPARE «, t00=0x0029, t01=0x0008}
0x401e…403a Head {h00=0x0018, h01=0x0050, text=» CMP GSWBCD6,GSWBCD1«, t00=0x0029, t01=0x001e}
0x403a…404a Head {h00=0x000c, h01=0x0050, text=» BNG APK«, t00=0x0029, t01=0x003a}
0x404a…4066 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'7' «, t00=0x0029, t01=0x004a}
0x4066…4074 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0066}
0x4074…4086 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0074}
0x4086…40a4 Head {h00=0x001a, h01=0x0050, text=»A14 OPK-KODE TR50...«, t00=0x0029, t01=0x0086}
0x40a4…40cc Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0029, t01=0x00a4}
0x40cc…40ee Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'4',A145 <4«, t00=0x0029, t01=0x00cc}
0x40ee…4110 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR«, t00=0x0029, t01=0x00ee}
0x4110…411e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0110}
0x411e…412a Head {h00=0x0008, h01=0x0050, text=»A145«, t00=0x0029, t01=0x011e}
0x412a…4138 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0029, t01=0x012a}
0x4138…414a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0138}
0x414a…4170 Head {h00=0x0022, h01=0x0050, text=»A17 CHECK 'FORFALDSAAR' FAAR«, t00=0x0029, t01=0x014a}
0x4170…4186 Head {h00=0x0012, h01=0x0050, text=» FAAR >= 70 «, t00=0x0029, t01=0x0170}
0x4186…419e Head {h00=0x0014, h01=0x0050, text=» FAAR <= YY+2 «, t00=0x0029, t01=0x0186}
0x419e…41c4 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET FAAR«, t00=0x002a, t01=0x000e}
0x41c4…41fa Head {h00=0x0032, h01=0x0050, text=» CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR«, t00=0x002a, t01=0x0034}
0x41fa…4224 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD1,GTDATO GET POSTDATO «, t00=0x002a, t01=0x006a}
0x4224…4240 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'2' «, t00=0x002a, t01=0x0094}
0x4240…427a Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR «, t00=0x002a, t01=0x00b0}
0x427a…429a Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD3,=D'2' ADD 2«, t00=0x002a, t01=0x00ea}
0x429a…42cc Head {h00=0x002e, h01=0x0050, text=» CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2«, t00=0x002a, t01=0x010a}
0x42cc…42da Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002a, t01=0x013c}
0x42da…42e8 Head {h00=0x000a, h01=0x0050, text=»A17ERR«, t00=0x002a, t01=0x014a}
0x42e8…4314 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID NUMBER «, t00=0x002a, t01=0x0158}
0x4314…4322 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002a, t01=0x0184}
0x4322…4334 (43, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x0004}
0x4334…4356 Head {h00=0x001e, h01=0x0050, text=»A28 DEBITOR NR, TR 50...«, t00=0x002b, t01=0x0016}
0x4356…437e Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x002b, t01=0x0038}
0x437e…4398 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'3'«, t00=0x002b, t01=0x0060}
0x4398…43bc Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x002b, t01=0x007a}
0x43bc…43e4 Head {h00=0x0024, h01=0x0050, text=» CBE GSWBIN1,=W'8',A280 LENGTH 8«, t00=0x002b, t01=0x009e}
0x43e4…440e Head {h00=0x0026, h01=0x0050, text=» CBE GSWBIN1,=W'10',A280 LENGTH 10«, t00=0x002b, t01=0x00c6}
0x440e…4430 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR «, t00=0x002b, t01=0x00f0}
0x4430…443e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002b, t01=0x0112}
0x443e…444a Head {h00=0x0008, h01=0x0050, text=»A280«, t00=0x002b, t01=0x0120}
0x444a…4458 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002b, t01=0x012c}
0x4458…446a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x013a}
0x446a…4486 Head {h00=0x0018, h01=0x0050, text=»A29 ADM-NR TR50...«, t00=0x002b, t01=0x014c}
0x4486…44ae Head {h00=0x0024, h01=0x0050, text=» CBE SPBINW1,='7',A295 LENGTH 7 «, t00=0x002b, t01=0x0168}
0x44ae…44d8 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW1,=W'10',A295 LENGTH 10«, t00=0x002b, t01=0x0190}
0x44d8…44fa Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR «, t00=0x002c, t01=0x002a}
0x44fa…4508 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002c, t01=0x004c}
0x4508…4514 Head {h00=0x0008, h01=0x0050, text=»A295«, t00=0x002c, t01=0x005a}
0x4514…4522 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002c, t01=0x0066}
0x4522…4534 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x0074}
0x4534…4554 Head {h00=0x001c, h01=0x0050, text=»A30 ADM KODE (1 EL 2) «, t00=0x002c, t01=0x0086}
0x4554…457c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x002c, t01=0x00a6}
0x457c…45a4 Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'1',A305 VALUE 1 «, t00=0x002c, t01=0x00ce}
0x45a4…45cc Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'2',A305 VALUE 2 «, t00=0x002c, t01=0x00f6}
0x45cc…45ee Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR«, t00=0x002c, t01=0x011e}
0x45ee…45fc Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002c, t01=0x0140}
0x45fc…4608 Head {h00=0x0008, h01=0x0050, text=»A305«, t00=0x002c, t01=0x014e}
0x4608…4616 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002c, t01=0x015a}
0x4616…4628 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x0168}
0x4628…4640 Head {h00=0x0014, h01=0x0050, text=»A32 RATE ANTAL«, t00=0x002c, t01=0x017a}
0x4640…4668 (45, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x002d, t01=0x0004}
0x4668…468e Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD3,=D'13',A325 0-12 «, t00=0x002d, t01=0x002c}
0x468e…46b0 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR«, t00=0x002d, t01=0x0052}
0x46b0…46be Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002d, t01=0x0074}
0x46be…46ca Head {h00=0x0008, h01=0x0050, text=»A325«, t00=0x002d, t01=0x0082}
0x46ca…46d8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002d, t01=0x008e}
0x46d8…46ea Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x009c}
0x46ea…4708 Head {h00=0x001a, h01=0x0050, text=»A46 ALT ADR (0 EL 1)«, t00=0x002d, t01=0x00ae}
0x4708…4730 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x002d, t01=0x00cc}
0x4730…475a Head {h00=0x0026, h01=0x0050, text=» CBL GSWBCD6,=D'2',A465 VALUE 0,1 «, t00=0x002d, t01=0x00f4}
0x475a…477c Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR«, t00=0x002d, t01=0x011e}
0x477c…478a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002d, t01=0x0140}
0x478a…4796 Head {h00=0x0008, h01=0x0050, text=»A465«, t00=0x002d, t01=0x014e}
0x4796…47a4 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002d, t01=0x015a}
0x47a4…47b6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0168}
0x47b6…47d0 Head {h00=0x0016, h01=0x0050, text=»A48 DEBITOR LBNR«, t00=0x002d, t01=0x017a}
0x47d0…47e6 (46, 0, 400) Head {h00=0x0012, h01=0x0050, text=» TBF BCPR,A485«, t00=0x002e, t01=0x0004}
0x47e6…480e Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT GET VALUE «, t00=0x002e, t01=0x001a}
0x480e…4830 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'100',A485 «, t00=0x002e, t01=0x0042}
0x4830…484c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x002e, t01=0x0064}
0x484c…485a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002e, t01=0x0080}
0x485a…4866 Head {h00=0x0008, h01=0x0050, text=»A485«, t00=0x002e, t01=0x008e}
0x4866…4874 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002e, t01=0x009a}
0x4874…4886 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002e, t01=0x00a8}
0x4886…48a2 Head {h00=0x0018, h01=0x0050, text=»A49 [NDRINGS TYPE «, t00=0x002e, t01=0x00ba}
0x48a2…48ca Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x002e, t01=0x00d6}
0x48ca…48f6 Head {h00=0x0028, h01=0x0050, text=» CBL GSWBCD6,=D'3',A495 VALUE 0,1,2 «, t00=0x002e, t01=0x00fe}
0x48f6…491e Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD6,=D'4',A495 VALUE 4 «, t00=0x002e, t01=0x012a}
0x491e…4940 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR«, t00=0x002e, t01=0x0152}
0x4940…494e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002e, t01=0x0174}
0x494e…495a Head {h00=0x0008, h01=0x0050, text=»A495«, t00=0x002e, t01=0x0182}
0x495a…4968 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002e, t01=0x018e}
0x4968…497a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x000c}
0x497a…4986 Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x002f, t01=0x001e}
0x4986…49be Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' «, t00=0x002f, t01=0x002a}
0x49be…49de Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'5',A649 «, t00=0x002f, t01=0x0062}
0x49de…49fe Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'0',A649 «, t00=0x002f, t01=0x0082}
0x49fe…4a26 Head {h00=0x0024, h01=0x0050, text=» FIELD 64 HAS BEEN ENTERED AND«, t00=0x002f, t01=0x00a2}
0x4a26…4a60 Head {h00=0x0036, h01=0x0050, text=» MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED«, t00=0x002f, t01=0x00ca}
0x4a60…4a6e Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002f, t01=0x0104}
0x4a6e…4a7a Head {h00=0x0008, h01=0x0050, text=»A649«, t00=0x002f, t01=0x0112}
0x4a7a…4a96 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'10'«, t00=0x002f, t01=0x011e}
0x4a96…4aa4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002f, t01=0x013a}
0x4aa4…4ab6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x0148}
0x4ab6…4ada Head {h00=0x0020, h01=0x0050, text=»A65 CHECK VALUE 1000-3999 «, t00=0x002f, t01=0x015a}
0x4ada…4b02 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT GET VALUE «, t00=0x002f, t01=0x017e}
0x4b02…4b24 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD4,=D'3999',A659«, t00=0x0030, t01=0x0016}
0x4b24…4b46 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD4,=D'1000',A659«, t00=0x0030, t01=0x0038}
0x4b46…4b54 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0030, t01=0x005a}
0x4b54…4b60 Head {h00=0x0008, h01=0x0050, text=»A659«, t00=0x0030, t01=0x0068}
0x4b60…4b7c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0030, t01=0x0074}
0x4b7c…4b8a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0030, t01=0x0090}
0x4b8a…4b9c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x009e}
0x4b9c…4bb2 Head {h00=0x0012, h01=0x0050, text=»A67 FELT 81 «, t00=0x0030, t01=0x00b0}
0x4bb2…4bce Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'81'«, t00=0x0030, t01=0x00c6}
0x4bce…4bdc Head {h00=0x000a, h01=0x0050, text=» B APF«, t00=0x0030, t01=0x00e2}
0x4bdc…4bee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00f0}
0x4bee…4c12 Head {h00=0x0020, h01=0x0050, text=»A70 KONTONR WITHOUT CHECK «, t00=0x0030, t01=0x0102}
0x4c12…4c2e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'5' «, t00=0x0030, t01=0x0126}
0x4c2e…4c48 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x0030, t01=0x0142}
0x4c48…4c66 Head {h00=0x001a, h01=0x0050, text=» BL A065 IF LENGTH < 3«, t00=0x0030, t01=0x015c}
0x4c66…4c82 Head {h00=0x0018, h01=0x0050, text=» B APK NEW TRANSTYPE«, t00=0x0030, t01=0x017a}
0x4c82…4c94 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0008}
0x4c94…4ca0 Head {h00=0x0008, h01=0x0050, text=»A71 «, t00=0x0031, t01=0x001a}
0x4ca0…4cd0 Head {h00=0x002c, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN1 SET AUTODUP «, t00=0x0031, t01=0x0026}
0x4cd0…4cec Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,SPINPUT «, t00=0x0031, t01=0x0056}
0x4cec…4d16 Head {h00=0x0026, h01=0x0050, text=» SUB GTSUM,=D'1' SUB 1 FROM ANTAL «, t00=0x0031, t01=0x0072}
0x4d16…4d32 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,GTSUM «, t00=0x0031, t01=0x009c}
0x4d32…4d50 Head {h00=0x001a, h01=0x0050, text=» CBL GTSUM,=D'0',A715 «, t00=0x0031, t01=0x00b8}
0x4d50…4d72 Head {h00=0x001e, h01=0x0050, text=» CMP GTSUM,=D'12' IF > 12 «, t00=0x0031, t01=0x00d6}
0x4d72…4d82 Head {h00=0x000c, h01=0x0050, text=» BL ART «, t00=0x0031, t01=0x00f8}
0x4d82…4d8e Head {h00=0x0008, h01=0x0050, text=»A715«, t00=0x0031, t01=0x0108}
0x4d8e…4db8 Head {h00=0x0026, h01=0x0050, text=» MOVE SPINPUT,=C'51' SIMULATE NEW «, t00=0x0031, t01=0x0114}
0x4db8…4dde Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'3' TRANSTYPE «, t00=0x0031, t01=0x013e}
0x4dde…4e10 Head {h00=0x002e, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN0 DELETE AUTODUP«, t00=0x0031, t01=0x0164}
0x4e10…4e20 Head {h00=0x000c, h01=0x0050, text=» B A065 «, t00=0x0032, t01=0x0008}
0x4e20…4e32 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0018}
0x4e32…4e54 Head {h00=0x001e, h01=0x0050, text=»A76 COUNTER NO, TRANS 12«, t00=0x0032, t01=0x002a}
0x4e54…4e6e Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x0032, t01=0x004c}
0x4e6e…4e92 Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x0032, t01=0x0066}
0x4e92…4eba Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0032, t01=0x008a}
0x4eba…4ed8 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCNTNR,SPINPUT «, t00=0x0032, t01=0x00b2}
0x4ed8…4efe Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD3,=D'100' GET INDEX«, t00=0x0032, t01=0x00d0}
0x4efe…4f1c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0032, t01=0x00f6}
0x4f1c…4f4c Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK«, t00=0x0032, t01=0x0114}
0x4f4c…4f7c Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO«, t00=0x0032, t01=0x0144}
0x4f7c…4fa6 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0032, t01=0x0174}
0x4fa6…4fd0 Head {h00=0x0026, h01=0x0050, text=» CBE CTR12NR(GSWBIN1),=D'0',A76NOK«, t00=0x0033, t01=0x000e}
0x4fd0…4fe6 Head {h00=0x0012, h01=0x0050, text=» MUST BE > 0«, t00=0x0033, t01=0x0038}
0x4fe6…5008 Head {h00=0x001e, h01=0x0050, text=» B ART TO WRITE ON SCREEN «, t00=0x0033, t01=0x004e}
0x5008…5016 Head {h00=0x000a, h01=0x0050, text=»A76NOK«, t00=0x0033, t01=0x0070}
0x5016…5032 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'18'«, t00=0x0033, t01=0x007e}
0x5032…5040 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0033, t01=0x009a}
0x5040…5052 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x00a8}
0x5052…5074 Head {h00=0x001e, h01=0x0050, text=»A77 INSERT 51,52 IN TR 4«, t00=0x0033, t01=0x00ba}
0x5074…5098 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x0033, t01=0x00dc}
0x5098…50ba Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW1,=W'2' LENGTH«, t00=0x0033, t01=0x0100}
0x50ba…50d0 Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A775«, t00=0x0033, t01=0x0122}
0x50d0…50fc Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0033, t01=0x0138}
0x50fc…510a Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0033, t01=0x0164}
0x510a…5116 Head {h00=0x0008, h01=0x0050, text=»A775«, t00=0x0033, t01=0x0172}
0x5116…5142 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0033, t01=0x017e}
0x5142…5150 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0034, t01=0x001a}
0x5150…5162 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x0028}
0x5162…5182 Head {h00=0x001c, h01=0x0050, text=»A78 INSERT ACCOUNT NO «, t00=0x0034, t01=0x003a}
0x5182…5192 Head {h00=0x000c, h01=0x0050, text=» 11-15«, t00=0x0034, t01=0x005a}
0x5192…51be Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'5' SIMULATE FIELD 5«, t00=0x0034, t01=0x006a}
0x51be…51cc Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0034, t01=0x0096}
0x51cc…51dc Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0034, t01=0x00a4}
0x51dc…51fc Head {h00=0x001c, h01=0x0050, text=»A79 AUTODUP ACCOUNT NO«, t00=0x0034, t01=0x00b4}
0x51fc…5222 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'5' IN FIELD 5«, t00=0x0034, t01=0x00d4}
0x5222…524e Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR GET COUNTER NO«, t00=0x0034, t01=0x00fa}
0x524e…526a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN1,=W'100'«, t00=0x0034, t01=0x0126}
0x526a…5294 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0034, t01=0x0142}
0x5294…52ba Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,CTR12NR(GSWBIN1)«, t00=0x0034, t01=0x016c}
0x52ba…52de (53, 0, 400) Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW1,=W'10' LENGTH «, t00=0x0035, t01=0x0004}
0x52de…52ec Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0035, t01=0x0028}
0x52ec…52fe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0036}
0x52fe…5324 Head {h00=0x0022, h01=0x0050, text=»A80 CHECK HOVEDBOG, KONTONR «, t00=0x0035, t01=0x0048}
0x5324…5348 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x0035, t01=0x006e}
0x5348…5378 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'2' MIGHT BE TRANSTYPE 2«, t00=0x0035, t01=0x0092}
0x5378…53a4 Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x0035, t01=0x00c2}
0x53a4…53d0 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A801 MUST BE 10 «, t00=0x0035, t01=0x00ee}
0x53d0…53f8 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0035, t01=0x011a}
0x53f8…5406 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0035, t01=0x0142}
0x5406…5412 Head {h00=0x0008, h01=0x0050, text=»A801«, t00=0x0035, t01=0x0150}
0x5412…5430 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0035, t01=0x015c}
0x5430…5454 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x0035, t01=0x017a}
0x5454…5476 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0036, t01=0x000e}
0x5476…5494 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0036, t01=0x0030}
0x5494…54a6 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0036, t01=0x004e}
0x54a6…54c8 Head {h00=0x001e, h01=0x0050, text=»A805 CHECK FUNCTION KEYS«, t00=0x0036, t01=0x0060}
0x54c8…54e4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0036, t01=0x0082}
0x54e4…5508 Head {h00=0x0020, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM KEY «, t00=0x0036, t01=0x009e}
0x5508…5518 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0036, t01=0x00c2}
0x5518…553e Head {h00=0x0022, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE KEY «, t00=0x0036, t01=0x00d2}
0x553e…554e Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0036, t01=0x00f8}
0x554e…5576 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x0036, t01=0x0108}
0x5576…5584 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0036, t01=0x0130}
0x5584…5596 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x013e}
0x5596…55be Head {h00=0x0024, h01=0x0050, text=»A81 CHECK HOVEDBOG, CPR/CIR/NR«, t00=0x0036, t01=0x0150}
0x55be…55e2 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0036, t01=0x0178}
0x55e2…5614 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1 «, t00=0x0037, t01=0x000c}
0x5614…5634 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW1,=W'7',A811 «, t00=0x0037, t01=0x003e}
0x5634…5654 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW1,=W'10',A811«, t00=0x0037, t01=0x005e}
0x5654…567c Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0037, t01=0x007e}
0x567c…568a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0037, t01=0x00a6}
0x568a…56a6 Head {h00=0x0018, h01=0x0050, text=»A811 CPR OR CIR ? «, t00=0x0037, t01=0x00b4}
0x56a6…56c2 Head {h00=0x0018, h01=0x0050, text=» SET BCPR SET CPR NO«, t00=0x0037, t01=0x00d0}
0x56c2…56e0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0037, t01=0x00ec}
0x56e0…5706 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A814«, t00=0x0037, t01=0x010a}
0x5706…5718 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x0037, t01=0x0130}
0x5718…5740 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A812«, t00=0x0037, t01=0x0142}
0x5740…5754 Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0037, t01=0x016a}
0x5754…5764 Head {h00=0x000c, h01=0x0050, text=» B A812 «, t00=0x0037, t01=0x017e}
0x5764…5770 Head {h00=0x0008, h01=0x0050, text=»A814«, t00=0x0037, t01=0x018e}
0x5770…578e Head {h00=0x001a, h01=0x0050, text=» CLEAR BCPR SET CIR NO«, t00=0x0038, t01=0x000a}
0x578e…579a Head {h00=0x0008, h01=0x0050, text=»A812«, t00=0x0038, t01=0x0028}
0x579a…57bc Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0038, t01=0x0034}
0x57bc…57da Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0038, t01=0x0056}
0x57da…57ec Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0038, t01=0x0074}
0x57ec…57fe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x0086}
0x57fe…5824 Head {h00=0x0022, h01=0x0050, text=»A82 CHECK HOVEDBOG, YD.MODT.«, t00=0x0038, t01=0x0098}
0x5824…584a Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x0038, t01=0x00be}
0x584a…587a Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'6' MIGHT BE TRANSTYPE 6«, t00=0x0038, t01=0x00e4}
0x587a…5886 Head {h00=0x0008, h01=0x0050, text=»A821«, t00=0x0038, t01=0x0114}
0x5886…58b4 Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,=W'3',A822 IF ENTER KEY,«, t00=0x0038, t01=0x0120}
0x58b4…58e4 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,=W'17' SIMULATE DEBET KEY «, t00=0x0038, t01=0x014e}
0x58e4…58f0 Head {h00=0x0008, h01=0x0050, text=»A822«, t00=0x0038, t01=0x017e}
0x58f0…5912 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0038, t01=0x018a}
0x5912…5930 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0039, t01=0x001c}
0x5930…5942 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0039, t01=0x003a}
0x5942…5954 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x004c}
0x5954…597c Head {h00=0x0024, h01=0x0050, text=»A83 CHECK DEBITOR, DEBITOR NR «, t00=0x0039, t01=0x005e}
0x597c…59a0 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0039, t01=0x0086}
0x59a0…59ca Head {h00=0x0026, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 FUNCTION? «, t00=0x0039, t01=0x00aa}
0x59ca…59ea Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW1,=W'7',A830 «, t00=0x0039, t01=0x00d4}
0x59ea…5a0c Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW1,=W'10',A833 «, t00=0x0039, t01=0x00f4}
0x5a0c…5a18 Head {h00=0x0008, h01=0x0050, text=»A830«, t00=0x0039, t01=0x0116}
0x5a18…5a48 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'4' MIGHT BE TRANSTYPE 4«, t00=0x0039, t01=0x0122}
0x5a48…5a62 Head {h00=0x0016, h01=0x0050, text=» SET BCPR SET CPR «, t00=0x0039, t01=0x0152}
0x5a62…5a80 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0039, t01=0x016c}
0x5a80…5aa6 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A831«, t00=0x0039, t01=0x018a}
0x5aa6…5ab8 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x003a, t01=0x0020}
0x5ab8…5ae0 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A832«, t00=0x003a, t01=0x0032}
0x5ae0…5af4 Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x003a, t01=0x005a}
0x5af4…5b04 Head {h00=0x000c, h01=0x0050, text=» B A832 «, t00=0x003a, t01=0x006e}
0x5b04…5b10 Head {h00=0x0008, h01=0x0050, text=»A831«, t00=0x003a, t01=0x007e}
0x5b10…5b2c Head {h00=0x0018, h01=0x0050, text=» CLEAR BCPR SET CIR «, t00=0x003a, t01=0x008a}
0x5b2c…5b38 Head {h00=0x0008, h01=0x0050, text=»A832«, t00=0x003a, t01=0x00a6}
0x5b38…5b4c Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003a, t01=0x00b2}
0x5b4c…5b5e Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003a, t01=0x00c6}
0x5b5e…5b7a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'3' «, t00=0x003a, t01=0x00d8}
0x5b7a…5b88 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x003a, t01=0x00f4}
0x5b88…5b94 Head {h00=0x0008, h01=0x0050, text=»A833«, t00=0x003a, t01=0x0102}
0x5b94…5bbc Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x003a, t01=0x010e}
0x5bbc…5bca Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003a, t01=0x0136}
0x5bca…5bdc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0144}
0x5bdc…5bfc Head {h00=0x001c, h01=0x0050, text=»A84 CHECK DEBITOR, BKO«, t00=0x003a, t01=0x0156}
0x5bfc…5c20 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x003a, t01=0x0176}
0x5c20…5c50 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3«, t00=0x003b, t01=0x000a}
0x5c50…5c70 Head {h00=0x001c, h01=0x0050, text=» CBNE SPBINW2,=W'3',A842«, t00=0x003b, t01=0x003a}
0x5c70…5c8c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'17'«, t00=0x003b, t01=0x005a}
0x5c8c…5c98 Head {h00=0x0008, h01=0x0050, text=»A842«, t00=0x003b, t01=0x0076}
0x5c98…5cb6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003b, t01=0x0082}
0x5cb6…5cd8 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+51',A845 «, t00=0x003b, t01=0x00a0}
0x5cd8…5cfa Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+52',A845 «, t00=0x003b, t01=0x00c2}
0x5cfa…5d06 Head {h00=0x0008, h01=0x0050, text=»A843«, t00=0x003b, t01=0x00e4}
0x5d06…5d1a Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003b, t01=0x00f0}
0x5d1a…5d2c Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003b, t01=0x0104}
0x5d2c…5d3a Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x003b, t01=0x0116}
0x5d3a…5d46 Head {h00=0x0008, h01=0x0050, text=»A845«, t00=0x003b, t01=0x0124}
0x5d46…5d62 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW5,=W'4' «, t00=0x003b, t01=0x0130}
0x5d62…5d72 Head {h00=0x000c, h01=0x0050, text=» B A843 «, t00=0x003b, t01=0x014c}
0x5d72…5d84 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x015c}
0x5d84…5dac Head {h00=0x0024, h01=0x0050, text=»A85 CHECK REMITTERING, KONTONR«, t00=0x003b, t01=0x016e}
0x5dac…5dd0 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x003c, t01=0x0008}
0x5dd0…5dfc Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x003c, t01=0x002c}
0x5dfc…5e28 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A850 MUST BE 10 «, t00=0x003c, t01=0x0058}
0x5e28…5e50 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x003c, t01=0x0084}
0x5e50…5e5e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003c, t01=0x00ac}
0x5e5e…5e6a Head {h00=0x0008, h01=0x0050, text=»A850«, t00=0x003c, t01=0x00ba}
0x5e6a…5e9e Head {h00=0x0030, h01=0x0050, text=» CMP SPBINW2,=W'3' ONLY ENTER-KEY ALLOWED«, t00=0x003c, t01=0x00c6}
0x5e9e…5eb0 Head {h00=0x000e, h01=0x0050, text=» BNE A855 «, t00=0x003c, t01=0x00fa}
0x5eb0…5ece Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003c, t01=0x010c}
0x5ece…5ef2 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x003c, t01=0x012a}
0x5ef2…5f00 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x003c, t01=0x014e}
0x5f00…5f0c Head {h00=0x0008, h01=0x0050, text=»A855«, t00=0x003c, t01=0x015c}
0x5f0c…5f34 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x003c, t01=0x0168}
0x5f34…5f42 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003c, t01=0x0190}
0x5f42…5f54 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x000e}
0x5f54…5f7c Head {h00=0x0024, h01=0x0050, text=»A86 CHECK REMITTERING, LEV.NR.«, t00=0x003d, t01=0x0020}
0x5f7c…5fa0 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x003d, t01=0x0048}
0x5fa0…5fd0 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'8' MIGHT BE TRANSTYPE 8«, t00=0x003d, t01=0x006c}
0x5fd0…5ff0 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW1,=W'7',A811 «, t00=0x003d, t01=0x009c}
0x5ff0…6010 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW1,=W'10',A811«, t00=0x003d, t01=0x00bc}
0x6010…6038 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x003d, t01=0x00dc}
0x6038…6046 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003d, t01=0x0104}
0x6046…6058 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0112}
0x6058…6082 Head {h00=0x0026, h01=0x0050, text=»A87 CHECK REMITTERING, YD.MODT. «, t00=0x003d, t01=0x0124}
0x6082…60a8 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x003d, t01=0x014e}
0x60a8…60d8 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'9' MIGHT BE TRANSTYPE 9«, t00=0x003d, t01=0x0174}
0x60d8…60fe Head {h00=0x0022, h01=0x0050, text=» B A821 CHECK FOR INVALID KEY «, t00=0x003e, t01=0x0014}
0x60fe…6110 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x003a}
0x6110…611c Head {h00=0x0008, h01=0x0050, text=»A88 «, t00=0x003e, t01=0x004c}
0x611c…6140 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x003e, t01=0x0058}
0x6140…615c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'36'«, t00=0x003e, t01=0x007c}
0x615c…6176 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW1,='2'«, t00=0x003e, t01=0x0098}
0x6176…618c Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A885«, t00=0x003e, t01=0x00b2}
0x618c…61b8 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x003e, t01=0x00c8}
0x61b8…61c6 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x003e, t01=0x00f4}
0x61c6…61d2 Head {h00=0x0008, h01=0x0050, text=»A885«, t00=0x003e, t01=0x0102}
0x61d2…61fe Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x003e, t01=0x010e}
0x61fe…620c Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x003e, t01=0x013a}
0x620c…621e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x0148}
0x621e…622a Head {h00=0x0008, h01=0x0050, text=»A89 «, t00=0x003e, t01=0x015a}
0x622a…6256 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'6' STORE IN FIELD 6«, t00=0x003e, t01=0x0166}
0x6256…6264 (63, 0, 400) Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x003f, t01=0x0004}
0x6264…6276 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0012}
0x6276…6296 Head {h00=0x001c, h01=0x0050, text=»A90 SIMULATE SLUT KEY «, t00=0x003f, t01=0x0024}
0x6296…62ae Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLUTFL «, t00=0x003f, t01=0x0044}
0x62ae…62c6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTADUPFL «, t00=0x003f, t01=0x005c}
0x62c6…62ec Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'17' SLUT KEY «, t00=0x003f, t01=0x0074}
0x62ec…6314 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,=W'0' LENGTH ZERO «, t00=0x003f, t01=0x009a}
0x6314…6322 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003f, t01=0x00c2}
0x6322…6334 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x00d0}
0x6334…6354 Head {h00=0x001c, h01=0x0050, text=»A91 ENTER TO SLUT KEY«, t00=0x003f, t01=0x00e2}
0x6354…636e Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,=W'3'«, t00=0x003f, t01=0x0102}
0x636e…637e Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x003f, t01=0x011c}
0x637e…639c Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW2,=W'17' «, t00=0x003f, t01=0x012c}
0x639c…63ac Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x003f, t01=0x014a}
0x63ac…63be Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x015a}
0x63be…63e2 Head {h00=0x0020, h01=0x0050, text=»A100 CHECK TR 12 COUNTERS «, t00=0x003f, t01=0x016c}
0x63e2…6400 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003f, t01=0x0190}
0x6400…641c Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD1,=D'100'«, t00=0x0040, t01=0x001e}
0x641c…643a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0040, t01=0x003a}
0x643a…6464 Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN6,CBIN1,A1009 TOO SMALL«, t00=0x0040, t01=0x0058}
0x6464…649c Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH«, t00=0x0040, t01=0x0082}
0x649c…64c6 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(TTASKNR,CBIN1) «, t00=0x0040, t01=0x00ba}
0x64c6…64d4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x00e4}
0x64d4…64e2 Head {h00=0x000a, h01=0x0050, text=»A1009 «, t00=0x0040, t01=0x00f2}
0x64e2…64fe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0040, t01=0x0100}
0x64fe…650c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x011c}
0x650c…651e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x012a}
0x651e…6542 Head {h00=0x0020, h01=0x0050, text=»A101 CHECK BEHL. COUNTERS «, t00=0x0040, t01=0x013c}
0x6542…6560 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0040, t01=0x0160}
0x6560…6582 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',A101ER «, t00=0x0040, t01=0x017e}
0x6582…65a0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0041, t01=0x0010}
0x65a0…65d0 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER «, t00=0x0041, t01=0x002e}
0x65d0…65f8 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(TTASKNR,CBIN1)«, t00=0x0041, t01=0x005e}
0x65f8…6606 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x0086}
0x6606…6614 Head {h00=0x000a, h01=0x0050, text=»A101ER«, t00=0x0041, t01=0x0094}
0x6614…6630 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0041, t01=0x00a2}
0x6630…663e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x00be}
0x663e…6650 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00cc}
0x6650…6672 Head {h00=0x001e, h01=0x0050, text=»A102 CHECK RELATIVE DAY «, t00=0x0041, t01=0x00de}
0x6672…6690 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,CMASKDAT«, t00=0x0041, t01=0x0100}
0x6690…669e Head {h00=0x000a, h01=0x0050, text=»A102A «, t00=0x0041, t01=0x011e}
0x669e…66ce Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.«, t00=0x0041, t01=0x012c}
0x66ce…66f8 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0041, t01=0x015c}
0x66f8…6726 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN2,CBIN8 SET POINTER TO DAY«, t00=0x0041, t01=0x0186}
0x6726…6760 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY «, t00=0x0042, t01=0x0024}
0x6760…6790 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY«, t00=0x0042, t01=0x005e}
0x6790…67c0 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN2,CBIN2 SET POINTER TO MONTH «, t00=0x0042, t01=0x008e}
0x67c0…67fc Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH «, t00=0x0042, t01=0x00be}
0x67fc…682e Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS«, t00=0x0042, t01=0x00fa}
0x682e…6858 Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD3,=D'30' EQUAL IN DAYS «, t00=0x0042, t01=0x012c}
0x6858…6874 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3«, t00=0x0042, t01=0x0156}
0x6874…68a4 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY«, t00=0x0042, t01=0x0172}
0x68a4…68be Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD5,=D'5'«, t00=0x0043, t01=0x0012}
0x68be…68ec Head {h00=0x002a, h01=0x0050, text=» CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL «, t00=0x0043, t01=0x002c}
0x68ec…6908 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,=D'10' «, t00=0x0043, t01=0x005a}
0x6908…6936 Head {h00=0x002a, h01=0x0050, text=» CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE «, t00=0x0043, t01=0x0076}
0x6936…6948 Head {h00=0x000e, h01=0x0050, text=» B A102END«, t00=0x0043, t01=0x00a4}
0x6948…6956 Head {h00=0x000a, h01=0x0050, text=»A102ER«, t00=0x0043, t01=0x00b6}
0x6956…6980 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID VALUE«, t00=0x0043, t01=0x00c4}
0x6980…6990 Head {h00=0x000c, h01=0x0050, text=»A102END «, t00=0x0043, t01=0x00ee}
0x6990…69ac Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0043, t01=0x00fe}
0x69ac…69ba Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x011a}
0x69ba…69cc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0128}
0x69cc…69ee Head {h00=0x001e, h01=0x0050, text=»A103 SET BEHL. COUNTERS «, t00=0x0043, t01=0x013a}
0x69ee…6a0c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0043, t01=0x015c}
0x6a0c…6a2a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x0043, t01=0x017a}
0x6a2a…6a52 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)«, t00=0x0044, t01=0x0008}
0x6a52…6a7e Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A103ER TOO MANY «, t00=0x0044, t01=0x0030}
0x6a7e…6aa0 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1035 «, t00=0x0044, t01=0x005c}
0x6aa0…6aba Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0044, t01=0x007e}
0x6aba…6ae4 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 «, t00=0x0044, t01=0x0098}
0x6ae4…6afe Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x0044, t01=0x00c2}
0x6afe…6b0c Head {h00=0x000a, h01=0x0050, text=»A1035 «, t00=0x0044, t01=0x00dc}
0x6b0c…6b2a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x0044, t01=0x00ea}
0x6b2a…6b54 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 «, t00=0x0044, t01=0x0108}
0x6b54…6b62 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x0132}
0x6b62…6b70 Head {h00=0x000a, h01=0x0050, text=»A103ER«, t00=0x0044, t01=0x0140}
0x6b70…6b8c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0044, t01=0x014e}
0x6b8c…6b9a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0044, t01=0x016a}
0x6b9a…6bac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x0178}
0x6bac…6bce Head {h00=0x001e, h01=0x0050, text=»A104 SET TR 12 COUNTERS «, t00=0x0044, t01=0x018a}
0x6bce…6bec Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT «, t00=0x0045, t01=0x001c}
0x6bec…6c0a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x0045, t01=0x003a}
0x6c0a…6c34 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) «, t00=0x0045, t01=0x0058}
0x6c34…6c60 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A104ER TOO MANY «, t00=0x0045, t01=0x0082}
0x6c60…6c82 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1045 «, t00=0x0045, t01=0x00ae}
0x6c82…6c9c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0045, t01=0x00d0}
0x6c9c…6cc6 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6«, t00=0x0045, t01=0x00ea}
0x6cc6…6ce0 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x0045, t01=0x0114}
0x6ce0…6cee Head {h00=0x000a, h01=0x0050, text=»A1045 «, t00=0x0045, t01=0x012e}
0x6cee…6d0c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x0045, t01=0x013c}
0x6d0c…6d36 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6«, t00=0x0045, t01=0x015a}
0x6d36…6d44 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0184}
0x6d44…6d52 (70, 0, 400) Head {h00=0x000a, h01=0x0050, text=»A104ER«, t00=0x0046, t01=0x0004}
0x6d52…6d6e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0046, t01=0x0012}
0x6d6e…6d7c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x002e}
0x6d7c…6d8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x003c}
0x6d8e…6db0 Head {h00=0x001e, h01=0x0050, text=»A105 CONRTL.DIGITCALC. «, t00=0x0046, t01=0x004e}
0x6db0…6dce Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0046, t01=0x0070}
0x6dce…6df0 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,=W'3',CALCD01«, t00=0x0046, t01=0x008e}
0x6df0…6e0c Head {h00=0x0018, h01=0x0050, text=» CMP SPBINW2,=W'17' «, t00=0x0046, t01=0x00b0}
0x6e0c…6e1c Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0046, t01=0x00cc}
0x6e1c…6e2c Head {h00=0x000c, h01=0x0050, text=»CALCD01 «, t00=0x0046, t01=0x00dc}
0x6e2c…6e56 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0046, t01=0x00ec}
0x6e56…6e72 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0046, t01=0x0116}
0x6e72…6e8e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0046, t01=0x0132}
0x6e8e…6e9e Head {h00=0x000c, h01=0x0050, text=»CALCD02 «, t00=0x0046, t01=0x014e}
0x6e9e…6ebc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,=D'0' «, t00=0x0046, t01=0x015e}
0x6ebc…6efe Head {h00=0x003e, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT «, t00=0x0046, t01=0x017c}
0x6efe…6f36 Head {h00=0x0034, h01=0x0050, text=» MUL GSWBCD3,WEIGTH(GSWBIN2) MULTIPLY BY WEIGHT«, t00=0x0047, t01=0x002e}
0x6f36…6f64 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0047, t01=0x0066}
0x6f64…6f8e Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH«, t00=0x0047, t01=0x0094}
0x6f8e…6fbe Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT-INDEX«, t00=0x0047, t01=0x00be}
0x6fbe…6fe0 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'0',CALCD02«, t00=0x0047, t01=0x00ee}
0x6fe0…6ffe Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0047, t01=0x0110}
0x6ffe…701a Head {h00=0x0018, h01=0x0050, text=» DIV GSWBCD5,=D'11' «, t00=0x0047, t01=0x012e}
0x701a…7036 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD5,=D'11' «, t00=0x0047, t01=0x014a}
0x7036…7072 Head {h00=0x0038, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0047, t01=0x0166}
0x7072…7096 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD4,=D'0',CALCD05 «, t00=0x0048, t01=0x0012}
0x7096…70b2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'11'«, t00=0x0048, t01=0x0036}
0x70b2…70c2 Head {h00=0x000c, h01=0x0050, text=»CALCD05 «, t00=0x0048, t01=0x0052}
0x70c2…70de Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'11'«, t00=0x0048, t01=0x0062}
0x70de…7114 Head {h00=0x0032, h01=0x0050, text=» SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT «, t00=0x0048, t01=0x007e}
0x7114…7124 Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x0048, t01=0x00b4}
0x7124…7136 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x00c4}
0x7136…7154 Head {h00=0x001a, h01=0x0050, text=»A106 CHECK VALUE 0-3«, t00=0x0048, t01=0x00d6}
0x7154…717c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0048, t01=0x00f4}
0x717c…719a Head {h00=0x001a, h01=0x0050, text=» CBL GSWBCD3,=D'6',ART«, t00=0x0048, t01=0x011c}
0x719a…71cc Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR 'OUT OF RANGE' «, t00=0x0048, t01=0x013a}
0x71cc…71da Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0048, t01=0x016c}
0x71da…71ec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x017a}
0x71ec…7212 Head {h00=0x0022, h01=0x0050, text=»A107 POSTDATO = MASKINDATO ?«, t00=0x0048, t01=0x018c}
0x7212…7230 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT «, t00=0x0049, t01=0x0022}
0x7230…7254 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD7,CMASKDAT,A1075«, t00=0x0049, t01=0x0040}
0x7254…7262 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x0064}
0x7262…7270 Head {h00=0x000a, h01=0x0050, text=»A1075 «, t00=0x0049, t01=0x0072}
0x7270…7286 Head {h00=0x0012, h01=0x0050, text=» SET SPWARNFL «, t00=0x0049, t01=0x0080}
0x7286…7294 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x0096}
0x7294…72a6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x00a4}
0x72a6…72c4 Head {h00=0x001a, h01=0x0050, text=»A108 SPG-REGKONTONR «, t00=0x0049, t01=0x00b6}
0x72c4…72e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'5' «, t00=0x0049, t01=0x00d4}
0x72e0…72ee Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x00f0}
0x72ee…7300 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x00fe}
0x7300…731e Head {h00=0x001a, h01=0x0050, text=»A109 SPG-CPR/CIR/NR «, t00=0x0049, t01=0x0110}
0x731e…733a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'6' «, t00=0x0049, t01=0x012e}
0x733a…7348 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x014a}
0x7348…735a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x0158}
0x735a…7372 Head {h00=0x0014, h01=0x0050, text=»A110 SPG-BELOB«, t00=0x0049, t01=0x016a}
0x7372…738e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'8' «, t00=0x0049, t01=0x0182}
0x738e…739c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004a, t01=0x000e}
0x739c…73ae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x001c}
0x73ae…73cc Head {h00=0x001a, h01=0x0050, text=»A111 SPG-OTHER FIELD«, t00=0x004a, t01=0x002e}
0x73cc…73ea Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004a, t01=0x004c}
0x73ea…740e Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD6,=D'90',A111ERR «, t00=0x004a, t01=0x006a}
0x740e…742a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x004a, t01=0x008e}
0x742a…7438 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004a, t01=0x00aa}
0x7438…7448 Head {h00=0x000c, h01=0x0050, text=»A111ERR «, t00=0x004a, t01=0x00b8}
0x7448…7464 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x004a, t01=0x00c8}
0x7464…7472 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004a, t01=0x00e4}
0x7472…7484 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x00f2}
0x7484…74a2 Head {h00=0x001a, h01=0x0050, text=»APK KEEP INFORMATION«, t00=0x004a, t01=0x0104}
0x74a2…74ca Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APK00 FIRST FIELD?«, t00=0x004a, t01=0x0122}
0x74ca…74ea Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW3,=W'5',APK10«, t00=0x004a, t01=0x014a}
0x74ea…7512 Head {h00=0x0024, h01=0x0050, text=» MOVE GTKTTYP,=D'0' NOT KONTONR.«, t00=0x004a, t01=0x016a}
0x7512…7520 (75, 0, 400) Head {h00=0x000a, h01=0x0050, text=»APK10 «, t00=0x004b, t01=0x0004}
0x7520…7546 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x004b, t01=0x0012}
0x7546…7558 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x004b, t01=0x0038}
0x7558…757e Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x004b, t01=0x004a}
0x757e…758c Head {h00=0x000a, h01=0x0050, text=»APK00 «, t00=0x004b, t01=0x0070}
0x758c…75c6 Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD «, t00=0x004b, t01=0x007e}
0x75c6…75fe Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER «, t00=0x004b, t01=0x00b8}
0x75fe…760c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004b, t01=0x00f0}
0x760c…761e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x00fe}
0x761e…762a Head {h00=0x0008, h01=0x0050, text=»APF «, t00=0x004b, t01=0x0110}
0x762a…7652 Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APF00 FIRST FIELD?«, t00=0x004b, t01=0x011c}
0x7652…766e Head {h00=0x0018, h01=0x0050, text=» MOVE GTKTTYP,=D'0' «, t00=0x004b, t01=0x0144}
0x766e…7694 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x004b, t01=0x0160}
0x7694…76a6 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x004b, t01=0x0186}
0x76a6…76cc Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x004c, t01=0x0008}
0x76cc…76da Head {h00=0x000a, h01=0x0050, text=»APF00 «, t00=0x004c, t01=0x002e}
0x76da…76f4 Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,APF10 «, t00=0x004c, t01=0x003c}
0x76f4…771c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x004c, t01=0x0056}
0x771c…7738 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,GTDBKRS«, t00=0x004c, t01=0x007e}
0x7738…7756 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x004c, t01=0x009a}
0x7756…7764 Head {h00=0x000a, h01=0x0050, text=»APF10 «, t00=0x004c, t01=0x00b8}
0x7764…77a6 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD «, t00=0x004c, t01=0x00c6}
0x77a6…77d4 Head {h00=0x002a, h01=0x0050, text=»* MULTIPLY WITH -1 IF KREDIT «, t00=0x004c, t01=0x0108}
0x77d4…7816 Head {h00=0x003e, h01=0x0050, text=»* STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) «, t00=0x004c, t01=0x0136}
0x7816…783c Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 «, t00=0x004c, t01=0x0178}
0x783c…7860 Head {h00=0x0020, h01=0x0050, text=» MUL GTUSED(GSWBIN1),=W'-1' «, t00=0x004d, t01=0x000e}
0x7860…786e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004d, t01=0x0032}
0x786e…7880 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004d, t01=0x0040}
0x7880…788c Head {h00=0x0008, h01=0x0050, text=»ART «, t00=0x004d, t01=0x0052}
0x788c…78a8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x004d, t01=0x005e}
0x78a8…78c8 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW4,CBIN3,ARET «, t00=0x004d, t01=0x007a}
0x78c8…78e4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x004d, t01=0x009a}
0x78e4…78f0 Head {h00=0x0008, h01=0x0050, text=»ARET«, t00=0x004d, t01=0x00b6}
0x78f0…78fc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x00c2}
0x78fc…790a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004d, t01=0x00ce}
0x790a…7926 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004d, t01=0x00dc}
0x7926…7934 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x00f8}
0x7934…7948 Head {h00=0x0010, h01=0x0050, text=»SETKRE PROC «, t00=0x004d, t01=0x0106}
0x7948…7964 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004d, t01=0x011a}
0x7964…796e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0136}
0x796e…79a2 Head {h00=0x0030, h01=0x0050, text=»* SETKRE - SET KREDIT INFORMATION «, t00=0x004d, t01=0x0140}
0x79a2…79ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0174}
0x79ac…79c8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004d, t01=0x017e}
0x79c8…79e6 Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' KRE'«, t00=0x004e, t01=0x000a}
0x79e6…7a02 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'-1'«, t00=0x004e, t01=0x0028}
0x7a02…7a1e Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'1' «, t00=0x004e, t01=0x0044}
0x7a1e…7a3a Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'1' «, t00=0x004e, t01=0x0060}
0x7a3a…7a46 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004e, t01=0x007c}
0x7a46…7a54 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004e, t01=0x0088}
0x7a54…7a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0096}
0x7a5e…7a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a0}
0x7a68…7a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00aa}
0x7a72…7a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00b4}
0x7a7c…7a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00be}
0x7a86…7a9a Head {h00=0x0010, h01=0x0050, text=»SETDEB PROC «, t00=0x004e, t01=0x00c8}
0x7a9a…7ab6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004e, t01=0x00dc}
0x7ab6…7ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f8}
0x7ac0…7af2 Head {h00=0x002e, h01=0x0050, text=»* SETDEB - SET DEBET INFORMATION «, t00=0x004e, t01=0x0102}
0x7af2…7afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0134}
0x7afc…7b18 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004e, t01=0x013e}
0x7b18…7b36 Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' DEB'«, t00=0x004e, t01=0x015a}
0x7b36…7b52 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'+1'«, t00=0x004e, t01=0x0178}
0x7b52…7b6e (79, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'2' «, t00=0x004f, t01=0x0004}
0x7b6e…7b8a Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'2' «, t00=0x004f, t01=0x0020}
0x7b8a…7b96 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004f, t01=0x003c}
0x7b96…7ba4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004f, t01=0x0048}
0x7ba4…7bb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0056}
0x7bb2…7bc4 Head {h00=0x000e, h01=0x0050, text=»CLRSW PROC«, t00=0x004f, t01=0x0064}
0x7bc4…7be0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004f, t01=0x0076}
0x7be0…7bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0092}
0x7bea…7c1c Head {h00=0x002e, h01=0x0050, text=»* CLRSW - CLEAR ALL AUTODUP FLAGS«, t00=0x004f, t01=0x009c}
0x7c1c…7c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00ce}
0x7c26…7c42 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004f, t01=0x00d8}
0x7c42…7c5e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x004f, t01=0x00f4}
0x7c5e…7c6c Head {h00=0x000a, h01=0x0050, text=»CLRSW1«, t00=0x004f, t01=0x0110}
0x7c6c…7c92 Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN0 «, t00=0x004f, t01=0x011e}
0x7c92…7cac Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x004f, t01=0x0144}
0x7cac…7cd0 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,CLRSW1 «, t00=0x004f, t01=0x015e}
0x7cd0…7cdc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004f, t01=0x0182}
0x7cdc…7cea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004f, t01=0x018e}
0x7cea…7cf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x000c}
0x7cf8…7d0a Head {h00=0x000e, h01=0x0050, text=»SELTR PROC«, t00=0x0050, t01=0x001a}
0x7d0a…7d26 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0050, t01=0x002c}
0x7d26…7d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0048}
0x7d30…7d72 Head {h00=0x003e, h01=0x0050, text=»* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN «, t00=0x0050, t01=0x0052}
0x7d72…7d8e Head {h00=0x0018, h01=0x0050, text=»* SELECTED.«, t00=0x0050, t01=0x0094}
0x7d8e…7dc2 Head {h00=0x0030, h01=0x0050, text=»* SELECTED TRANSTYPE IS IN SPBINW5 «, t00=0x0050, t01=0x00b0}
0x7dc2…7dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00e4}
0x7dcc…7de8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0050, t01=0x00ee}
0x7de8…7e12 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'3',SELOK ENTER KEY«, t00=0x0050, t01=0x010a}
0x7e12…7e3e Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',SEL10 KREDIT KEY«, t00=0x0050, t01=0x0134}
0x7e3e…7e6a Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'17',SEL20 DEBET KEY «, t00=0x0050, t01=0x0160}
0x7e6a…7e92 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x0050, t01=0x018c}
0x7e92…7eba Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0051, t01=0x0024}
0x7eba…7ec6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0051, t01=0x004c}
0x7ec6…7edc Head {h00=0x0012, h01=0x0050, text=»SEL10 KREDIT«, t00=0x0051, t01=0x0058}
0x7edc…7ef0 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0051, t01=0x006e}
0x7ef0…7f00 Head {h00=0x000c, h01=0x0050, text=» B SEL30«, t00=0x0051, t01=0x0082}
0x7f00…7f16 Head {h00=0x0012, h01=0x0050, text=»SEL20 DEBET «, t00=0x0051, t01=0x0092}
0x7f16…7f2a Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0051, t01=0x00a8}
0x7f2a…7f4c Head {h00=0x001e, h01=0x0050, text=»SEL30 TRANSTYPE SELECTED«, t00=0x0051, t01=0x00bc}
0x7f4c…7f6a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0051, t01=0x00de}
0x7f6a…7f82 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0051, t01=0x00fc}
0x7f82…7faa Head {h00=0x0024, h01=0x0050, text=» SEL40,SEL40,SEL90,SEL40,SEL40 «, t00=0x0051, t01=0x0114}
0x7faa…7fba Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x0051, t01=0x013c}
0x7fba…7fc8 Head {h00=0x000a, h01=0x0050, text=»SEL40 «, t00=0x0051, t01=0x014c}
0x7fc8…7fe0 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW5, C «, t00=0x0051, t01=0x015a}
0x7fe0…8020 Head {h00=0x003c, h01=0x0050, text=» SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 «, t00=0x0051, t01=0x0172}
0x8020…802e Head {h00=0x000a, h01=0x0050, text=»SEL45 «, t00=0x0052, t01=0x0022}
0x802e…804e Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN1,CBIN3,SEL50«, t00=0x0052, t01=0x0030}
0x804e…806c Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x0052, t01=0x0050}
0x806c…807c Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x0052, t01=0x006e}
0x807c…808a Head {h00=0x000a, h01=0x0050, text=»SEL50 «, t00=0x0052, t01=0x007e}
0x808a…80ac Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'19' ERROR«, t00=0x0052, t01=0x008c}
0x80ac…80c4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0052, t01=0x00ae}
0x80c4…80d0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0052, t01=0x00c6}
0x80d0…80de Head {h00=0x000a, h01=0x0050, text=»SEL90 «, t00=0x0052, t01=0x00d2}
0x80de…8100 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGNR,SPBINW5 TYPE«, t00=0x0052, t01=0x00e0}
0x8100…8136 Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11 «, t00=0x0052, t01=0x0102}
0x8136…816a Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED«, t00=0x0052, t01=0x0138}
0x816a…817e Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0052, t01=0x016c}
0x817e…818c Head {h00=0x000a, h01=0x0050, text=»SELOK «, t00=0x0052, t01=0x0180}
0x818c…81b8 Head {h00=0x0028, h01=0x0050, text=» CLEAR GTSPECTR NOT SPECIAL TR 50...«, t00=0x0052, t01=0x018e}
0x81b8…81de Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0053, t01=0x002a}
0x81de…81ea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0053, t01=0x0050}
0x81ea…81f8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0053, t01=0x005c}
0x81f8…8202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x006a}
0x8202…820c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0074}
0x820c…8216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x007e}
0x8216…8220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0088}
0x8220…822a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0092}
0x822a…8236 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0053, t01=0x009c}
0x8236…823a Head {h00=0x4004, h01=0x0000}
0x823a…823e 00 53 00 a8 ┆ S ┆
0x823e…8246 (84, 1, 8) 20 04 00 00 00 54 00 04 ┆ T ┆