|
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: 30154 (0x75ca)
Notes: pts_type(SC)
Names: »SUBAPL.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »NJ-AMT/SUBAPL.SC«
IDENT SUBAPL 02.01.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
CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK (CIRNR)
CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK (CPRNR)
CHK10
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'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
*
TCHK17
TBT BCPR,TCHK00
B TCHK99
*
TCHK18
TCHK19
TCHK20
TBF BCPR,TCHK00
B TCHK99
*
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
AA17 - TEST FORFALDSAAR
AA65 - IF AA05, AA06 THERE
---- - MIGHT BE A CHOICE
---- - OF NEW TRANSTYPE
A64 - TEST FIELD 64
A65 - TEST FIELD 65
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,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C
APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C
APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C
APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, 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,ART,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
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'30',A067 CORRECT FOR NOT IN KASSE
B A0675
A0672
CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE
B A0675
*
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
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
*
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,CBIN0 GET LENGTH OF STRING
COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1
MOVE GSWBCD3,TT07TXT
MOVE GSWBIN2,GSWBCD3
MOVE TT07TXT,CBLANKS
MOVE GSWBIN1,CBIN5 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
**********
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
**********
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
**********
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
CBG SPBINW1,=W'2',A811 CHECK LENGTH
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?
CBL SPBINW1,=W'7',A833
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
CBG SPBINW1,=W'2',A811 CHECK LENGTH + CPR/CIR
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 REL DAY, 'POSTERINGSDATO'
MOVE GSWBCD7,GTDATO
B A102A
**********
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
CMP CBIN0,CBIN0 OK, SET CR=0
RET
PEND
*
*
*
*
*
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT SUBAPL 02.01.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…03f4 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN1,=W'7',CHK10 IF LENGTH = 7, OK (CIRNR) «, t00=0x0002, t01=0x009e}
0x03f4…0434 Head {h00=0x003c, h01=0x0050, text=» CBNE GSWBIN1,=W'10',CHK1ER IF LENGTH = 10, OK (CPRNR)«, t00=0x0002, t01=0x00da}
0x0434…0442 Head {h00=0x000a, h01=0x0050, text=»CHK10 «, t00=0x0002, t01=0x011a}
0x0442…045e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x0002, t01=0x0128}
0x045e…047a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0002, t01=0x0144}
0x047a…04ae Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0002, t01=0x0160}
0x04ae…04ca (3, 0, 400) Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0003, t01=0x0004}
0x04ca…04ec Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD6,=D'0',CHK1ER «, t00=0x0003, t01=0x0020}
0x04ec…04f4 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0042}
0x04f4…0522 Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0003, t01=0x004a}
0x0522…0562 Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0003, t01=0x0078}
0x0562…059c Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x00b8}
0x059c…05c8 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x00f2}
0x05c8…05f6 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX«, t00=0x0003, t01=0x011e}
0x05f6…0626 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM«, t00=0x0003, t01=0x014c}
0x0626…065a Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT«, t00=0x0003, t01=0x017c}
0x065a…0678 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0004, t01=0x0020}
0x0678…06a0 Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0004, t01=0x003e}
0x06a0…06cc Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0004, t01=0x0066}
0x06cc…06fe Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x0092}
0x06fe…073c Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x00c4}
0x073c…0746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0746…0754 Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x010c}
0x0754…0770 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'6' «, t00=0x0004, t01=0x011a}
0x0770…079c Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0004, t01=0x0136}
0x079c…07a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0162}
0x07a6…07b6 Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0004, t01=0x016c}
0x07b6…07c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x017c}
0x07c2…07d0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0188}
0x07d0…07de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0008}
0x07de…07f2 Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0005, t01=0x0016}
0x07f2…080e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x002a}
0x080e…0818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0046}
0x0818…083e Head {h00=0x0022, h01=0x0050, text=»* SPCHK2 - CHECK DATE«, t00=0x0005, t01=0x0050}
0x083e…0848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x0848…087c Head {h00=0x0030, h01=0x0050, text=»* CHECKS 0<DAY<32 AND 0<MONTH<13«, t00=0x0005, t01=0x0080}
0x087c…08aa Head {h00=0x002a, h01=0x0050, text=»* DATE IS IN THE FORM DDMMYY«, t00=0x0005, t01=0x00b4}
0x08aa…08d2 Head {h00=0x0024, h01=0x0050, text=»* INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x00e2}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x08dc…0918 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x0114}
0x0918…0922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0922…093e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x015a}
0x093e…0946 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0176}
0x0946…0974 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0005, t01=0x017e}
0x0974…099e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0006, t01=0x001c}
0x099e…09c4 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0006, t01=0x0046}
0x09c4…09f6 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=W'10' SET POINTER TO MONTH «, t00=0x0006, t01=0x006c}
0x09f6…0a32 Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x009e}
0x0a32…0a5e Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x00da}
0x0a5e…0a7e Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x0106}
0x0a7e…0aae Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY«, t00=0x0006, t01=0x0126}
0x0aae…0ae8 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0006, t01=0x0156}
0x0ae8…0b08 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0006, t01=0x0190}
0x0b08…0b28 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0007, t01=0x0020}
0x0b28…0b3a Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0007, t01=0x0040}
0x0b3a…0b46 Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0007, t01=0x0052}
0x0b46…0b70 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0007, t01=0x005e}
0x0b70…0b9a Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0007, t01=0x0088}
0x0b9a…0ba8 Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x00b2}
0x0ba8…0bc4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x00c0}
0x0bc4…0bd0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00dc}
0x0bd0…0bde Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00e8}
0x0bde…0bec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00f6}
0x0bec…0c00 Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x0104}
0x0c00…0c18 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x0118}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c22…0c48 Head {h00=0x0022, h01=0x0050, text=»* SPCHK3 - CHECK MONTH«, t00=0x0007, t01=0x013a}
0x0c48…0c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0160}
0x0c52…0c78 Head {h00=0x0022, h01=0x0050, text=»* CHECKS 0<MONTH<13 «, t00=0x0007, t01=0x016a}
0x0c78…0ca4 Head {h00=0x0028, h01=0x0050, text=»* MONTH IS IN THE FORM MM «, t00=0x0007, t01=0x0190}
0x0ca4…0cca Head {h00=0x0022, h01=0x0050, text=»* INPUT FIELD: SPINPUT«, t00=0x0008, t01=0x002c}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0052}
0x0cd4…0d10 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0008, t01=0x005c}
0x0d10…0d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1a…0d34 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x00a2}
0x0d34…0d5c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x00bc}
0x0d5c…0d88 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x00e4}
0x0d88…0da8 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x0110}
0x0da8…0dd4 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0008, t01=0x0130}
0x0dd4…0de6 Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0008, t01=0x015c}
0x0de6…0df2 Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0008, t01=0x016e}
0x0df2…0e1c Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0008, t01=0x017a}
0x0e1c…0e46 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'7' SET ERRORCODE «, t00=0x0009, t01=0x0014}
0x0e46…0e54 Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0009, t01=0x003e}
0x0e54…0e60 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x004c}
0x0e60…0e6e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0058}
0x0e6e…0e7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0066}
0x0e7c…0e90 Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0009, t01=0x0074}
0x0e90…0eac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0088}
0x0eac…0eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb6…0ef6 Head {h00=0x003c, h01=0x0050, text=»* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x00ae}
0x0ef6…0f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ee}
0x0f00…0f1c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00f8}
0x0f1c…0f38 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x0114}
0x0f38…0f5c Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,=W'18',CH4RET «, t00=0x0009, t01=0x0130}
0x0f5c…0f88 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x0009, t01=0x0154}
0x0f88…0fa4 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x0009, t01=0x0180}
0x0fa4…0fc2 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x000a, t01=0x000c}
0x0fc2…0fee Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,=W'3' SIMULATE EOI-KEY«, t00=0x000a, t01=0x002a}
0x0fee…0ffc Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x000a, t01=0x0056}
0x0ffc…1008 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0064}
0x1008…1016 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0070}
0x1016…1024 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x007e}
0x1024…1038 Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x000a, t01=0x008c}
0x1038…1054 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00a0}
0x1054…105e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00bc}
0x105e…108c Head {h00=0x002a, h01=0x0050, text=»* SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x00c6}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x1096…10b2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x00fe}
0x10b2…10ce Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x011a}
0x10ce…10fc Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000a, t01=0x0136}
0x10fc…1132 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000a, t01=0x0164}
0x1132…1154 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000b, t01=0x000a}
0x1154…116e Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000b, t01=0x002c}
0x116e…11a0 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000b, t01=0x0046}
0x11a0…11bc Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000b, t01=0x0078}
0x11bc…11ec Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x0094}
0x11ec…120a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x00c4}
0x120a…122e Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN1,CMAXLIN,CH5ERR «, t00=0x000b, t01=0x00e2}
0x122e…1252 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x0106}
0x1252…125e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x012a}
0x125e…126c Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000b, t01=0x0136}
0x126c…1288 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000b, t01=0x0144}
0x1288…12a4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'8' «, t00=0x000b, t01=0x0160}
0x12a4…12b0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x017c}
0x12b0…12be Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000b, t01=0x0188}
0x12be…12dc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000c, t01=0x0008}
0x12dc…12e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0026}
0x12e8…12f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0032}
0x12f6…1304 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0040}
0x1304…1318 Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000c, t01=0x004e}
0x1318…1334 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0062}
0x1334…133e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007e}
0x133e…1384 Head {h00=0x0042, h01=0x0050, text=»* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000c, t01=0x0088}
0x1384…13a0 Head {h00=0x0018, h01=0x0050, text=»* KONTOKORT«, t00=0x000c, t01=0x00ce}
0x13a0…13aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ea}
0x13aa…13c6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x00f4}
0x13c6…13d8 Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x0110}
0x13d8…1400 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000c, t01=0x0122}
0x1400…141c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000c, t01=0x014a}
0x141c…144e Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO«, t00=0x000c, t01=0x0166}
0x144e…1474 Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000d, t01=0x0008}
0x1474…1496 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000d, t01=0x002e}
0x1496…14b2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'13'«, t00=0x000d, t01=0x0050}
0x14b2…14c0 Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000d, t01=0x006c}
0x14c0…14cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x007a}
0x14cc…14da Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0086}
0x14da…14e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0094}
0x14e8…14fc Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x00a2}
0x14fc…1508 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00b6}
0x1508…1516 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00c2}
0x1516…1524 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00d0}
0x1524…1538 Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x000d, t01=0x00de}
0x1538…1554 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00f2}
0x1554…155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x155e…1590 Head {h00=0x002e, h01=0x0050, text=»* SPTCHK - CONDITIONAL TABULATION«, t00=0x000d, t01=0x0118}
0x1590…15c2 Head {h00=0x002e, h01=0x0050, text=»* CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x000d, t01=0x014a}
0x15c2…15cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017c}
0x15cc…15e8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0186}
0x15e8…1610 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000e, t01=0x0012}
0x1610…1632 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x000e, t01=0x003a}
0x1632…165a Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,=W'16' ADJUST INDEX«, t00=0x000e, t01=0x005c}
0x165a…1672 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3, C «, t00=0x000e, t01=0x0084}
0x1672…1698 Head {h00=0x0022, h01=0x0050, text=» TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x000e, t01=0x009c}
0x1698…16ba Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x000e, t01=0x00c2}
0x16ba…16dc Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x000e, t01=0x00e4}
0x16dc…16fa Head {h00=0x001a, h01=0x0050, text=»TCHK00 CORRECT FIELD«, t00=0x000e, t01=0x0106}
0x16fa…1716 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x000e, t01=0x0124}
0x1716…1722 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0140}
0x1722…172c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014c}
0x172c…173a Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x000e, t01=0x0156}
0x173a…1752 Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x000e, t01=0x0164}
0x1752…1764 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000e, t01=0x017c}
0x1764…176e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018e}
0x176e…177c Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x000f, t01=0x0008}
0x177c…178a Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x000f, t01=0x0016}
0x178a…1798 Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x000f, t01=0x0024}
0x1798…17b0 Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x000f, t01=0x0032}
0x17b0…17c2 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x000f, t01=0x004a}
0x17c2…17cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005c}
0x17cc…17da Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x000f, t01=0x0066}
0x17da…17f8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x0074}
0x17f8…1814 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x0092}
0x1814…1852 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB «, t00=0x000f, t01=0x00ae}
0x1852…1872 Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x000f, t01=0x00ec}
0x1872…187c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x187c…188a Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x000f, t01=0x0116}
0x188a…18a8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x000f, t01=0x0124}
0x18a8…18c4 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x000f, t01=0x0142}
0x18c4…1902 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD«, t00=0x000f, t01=0x015e}
0x1902…1920 Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x0010, t01=0x000c}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192a…1938 Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x0010, t01=0x0034}
0x1938…1954 Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0010, t01=0x0042}
0x1954…1966 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0010, t01=0x005e}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0070}
0x1970…198e Head {h00=0x001a, h01=0x0050, text=»TCHK99 CONTINUE TAB «, t00=0x0010, t01=0x007a}
0x198e…19aa Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0010, t01=0x0098}
0x19aa…19b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00b4}
0x19b6…19c4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00c0}
0x19c4…19d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00ce}
0x19d2…19e6 Head {h00=0x0010, h01=0x0050, text=»SPAPPL PROC «, t00=0x0010, t01=0x00dc}
0x19e6…1a02 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x00f0}
0x1a02…1a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010c}
0x1a0c…1a5c Head {h00=0x004c, h01=0x0050, text=»* SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE «, t00=0x0010, t01=0x0116}
0x1a5c…1a9e Head {h00=0x003e, h01=0x0050, text=»* IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. «, t00=0x0010, t01=0x0166}
0x1a9e…1aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0018}
0x1aa8…1aec Head {h00=0x0040, h01=0x0050, text=»* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)«, t00=0x0011, t01=0x0022}
0x1aec…1b30 Head {h00=0x0040, h01=0x0050, text=»* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT «, t00=0x0011, t01=0x0066}
0x1b30…1b68 Head {h00=0x0034, h01=0x0050, text=»* TESTING AND BRANCH TO PACKING ROUTINE«, t00=0x0011, t01=0x00aa}
0x1b68…1b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e2}
0x1b72…1b8e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00ec}
0x1b8e…1b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b98…1bca Head {h00=0x002e, h01=0x0050, text=»* SPBINW3 IS CURRENT APPL NUMBER «, t00=0x0011, t01=0x0112}
0x1bca…1be2 Head {h00=0x0014, h01=0x0050, text=» ART - RETURN «, t00=0x0011, t01=0x0144}
0x1be2…1bfe Head {h00=0x0018, h01=0x0050, text=» APK - PACK FIELD «, t00=0x0011, t01=0x015c}
0x1bfe…1c24 Head {h00=0x0022, h01=0x0050, text=» APF - PACK FIELD WITH SIGN «, t00=0x0011, t01=0x0178}
0x1c24…1c4a Head {h00=0x0022, h01=0x0050, text=» AA01 - TEST FOR FIELD TO BE«, t00=0x0012, t01=0x000e}
0x1c4a…1c66 Head {h00=0x0018, h01=0x0050, text=» ---- - AUTODUPPED«, t00=0x0012, t01=0x0034}
0x1c66…1c8c Head {h00=0x0022, h01=0x0050, text=» AA02 - TEST FOR AUTODUP KEY«, t00=0x0012, t01=0x0050}
0x1c8c…1cae Head {h00=0x001e, h01=0x0050, text=» AA03 - IF LENGTH ZERO, «, t00=0x0012, t01=0x0076}
0x1cae…1ccc Head {h00=0x001a, h01=0x0050, text=» ---- - DELETE FIELS«, t00=0x0012, t01=0x0098}
0x1ccc…1cea Head {h00=0x001a, h01=0x0050, text=» AA05 - TEST FIELD 5«, t00=0x0012, t01=0x00b6}
0x1cea…1d08 Head {h00=0x001a, h01=0x0050, text=» AA06 - TEST FIELD 6«, t00=0x0012, t01=0x00d4}
0x1d08…1d2a Head {h00=0x001e, h01=0x0050, text=» AA11 - TEST VALOERDATE «, t00=0x0012, t01=0x00f2}
0x1d2a…1d4c Head {h00=0x001e, h01=0x0050, text=» AA17 - TEST FORFALDSAAR«, t00=0x0012, t01=0x0114}
0x1d4c…1d72 Head {h00=0x0022, h01=0x0050, text=» AA65 - IF AA05, AA06 THERE «, t00=0x0012, t01=0x0136}
0x1d72…1d96 Head {h00=0x0020, h01=0x0050, text=» ---- - MIGHT BE A CHOICE «, t00=0x0012, t01=0x015c}
0x1d96…1db8 Head {h00=0x001e, h01=0x0050, text=» ---- - OF NEW TRANSTYPE«, t00=0x0012, t01=0x0180}
0x1db8…1dd6 Head {h00=0x001a, h01=0x0050, text=» A64 - TEST FIELD 64«, t00=0x0013, t01=0x0012}
0x1dd6…1df4 Head {h00=0x001a, h01=0x0050, text=» A65 - TEST FIELD 65«, t00=0x0013, t01=0x0030}
0x1df4…1e1c Head {h00=0x0024, h01=0x0050, text=» AA70 - KONTONR WITHOUT CHECK «, t00=0x0013, t01=0x004e}
0x1e1c…1e42 Head {h00=0x0022, h01=0x0050, text=» AA71 - 'ANTAL' IN TRANSTYPE«, t00=0x0013, t01=0x0076}
0x1e42…1e5a Head {h00=0x0014, h01=0x0050, text=» ---- - 51, 53«, t00=0x0013, t01=0x009c}
0x1e5a…1e7e Head {h00=0x0020, h01=0x0050, text=» A76 - COUNTER, TRANS 12 «, t00=0x0013, t01=0x00b4}
0x1e7e…1ea6 Head {h00=0x0024, h01=0x0050, text=» A77 - TR 4, INSERT BKO 51,52«, t00=0x0013, t01=0x00d8}
0x1ea6…1ecc Head {h00=0x0022, h01=0x0050, text=» A78 - ACCOUNT NO, TRANS 12«, t00=0x0013, t01=0x0100}
0x1ecc…1ef4 Head {h00=0x0024, h01=0x0050, text=» A79 - - - - - - (COPY)«, t00=0x0013, t01=0x0126}
0x1ef4…1f1a Head {h00=0x0022, h01=0x0050, text=» A80-A87 - CHECK OF CONTROL «, t00=0x0013, t01=0x014e}
0x1f1a…1f3c Head {h00=0x001e, h01=0x0050, text=» ---- - INFORMATION FOR «, t00=0x0013, t01=0x0174}
0x1f3c…1f58 Head {h00=0x0018, h01=0x0050, text=» ---- - TRANSTYPES«, t00=0x0014, t01=0x0008}
0x1f58…1f7c Head {h00=0x0020, h01=0x0050, text=» A88 - AUTODUP BKO, TR 4 «, t00=0x0014, t01=0x0024}
0x1f7c…1f9e Head {h00=0x001e, h01=0x0050, text=» A89 - STORE IN FIELD 6«, t00=0x0014, t01=0x0048}
0x1f9e…1fc2 Head {h00=0x0020, h01=0x0050, text=» A90 - SPECIAL SLUT-FIELD«, t00=0x0014, t01=0x006a}
0x1fc2…1fe4 Head {h00=0x001e, h01=0x0050, text=» A91 - ENTER TO SLUT-KEY«, t00=0x0014, t01=0x008e}
0x1fe4…2002 Head {h00=0x001a, h01=0x0050, text=» A100 - CHECK TR 12 «, t00=0x0014, t01=0x00b0}
0x2002…2026 Head {h00=0x0020, h01=0x0050, text=» A101 - CHECK BEHL. COUNT.«, t00=0x0014, t01=0x00ce}
0x2026…2040 Head {h00=0x0016, h01=0x0050, text=» A102 - REL. DAY«, t00=0x0014, t01=0x00f2}
0x2040…2062 Head {h00=0x001e, h01=0x0050, text=» A103 - SET BEHL. COUNT «, t00=0x0014, t01=0x010c}
0x2062…2080 Head {h00=0x001a, h01=0x0050, text=» A104 - SET TRANS 12«, t00=0x0014, t01=0x012e}
0x2080…20d0 Head {h00=0x004c, h01=0x0050, text=» A105 - CTRL.DIGIT CALC.«, t00=0x0014, t01=0x014c}
0x20d0…20f2 Head {h00=0x001e, h01=0x0050, text=» A106 - CHECK VALUE 0-3 «, t00=0x0015, t01=0x000c}
0x20f2…210c Head {h00=0x0016, h01=0x0050, text=» A107 - AS A102 «, t00=0x0015, t01=0x002e}
0x210c…212e Head {h00=0x001e, h01=0x0050, text=» A108 - SPG -REGKONTONR «, t00=0x0015, t01=0x0048}
0x212e…214e Head {h00=0x001c, h01=0x0050, text=» A109 - SPG-CPR/CIR/NR«, t00=0x0015, t01=0x006a}
0x214e…216a Head {h00=0x0018, h01=0x0050, text=» A110 - SPG-BELOB «, t00=0x0015, t01=0x008a}
0x216a…218c Head {h00=0x001e, h01=0x0050, text=» A111 - SPG-OTHER FIELD «, t00=0x0015, t01=0x00a6}
0x218c…2196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c8}
0x2196…21d0 Head {h00=0x0036, h01=0x0050, text=» CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS «, t00=0x0015, t01=0x00d2}
0x21d0…21da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010c}
0x21da…21e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0116}
0x21e4…21f0 Head {h00=0x0008, h01=0x0050, text=»AA01«, t00=0x0015, t01=0x0120}
0x21f0…2220 Head {h00=0x002c, h01=0x0050, text=» TBF GTADUPFL,AA02 AUTODUP TEST (VERIF) «, t00=0x0015, t01=0x012c}
0x2220…2254 Head {h00=0x0030, h01=0x0050, text=» CLEAR GTADUPFL IF FIELD IS TO BE AUTODUPPED«, t00=0x0015, t01=0x015c}
0x2254…2288 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET DUP FIELD«, t00=0x0015, t01=0x0190}
0x2288…22ba Head {h00=0x002e, h01=0x0050, text=» MOVE SPINPUT,GTDUPF(GSWBIN1) AND CONTINUE«, t00=0x0016, t01=0x0034}
0x22ba…22c8 Head {h00=0x000a, h01=0x0050, text=» B AAA«, t00=0x0016, t01=0x0066}
0x22c8…22d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0074}
0x22d2…22de Head {h00=0x0008, h01=0x0050, text=»AA02«, t00=0x0016, t01=0x007e}
0x22de…2306 Head {h00=0x0024, h01=0x0050, text=» TBF GTAUTODP,AA03 AUTO DUP KEY «, t00=0x0016, t01=0x008a}
0x2306…232e Head {h00=0x0024, h01=0x0050, text=» CLEAR GTAUTODP IF GTAUTODP KEY,«, t00=0x0016, t01=0x00b2}
0x232e…2364 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX«, t00=0x0016, t01=0x00da}
0x2364…23a4 Head {h00=0x003c, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN1 AND SET GTAUTODPSWITCH FOR«, t00=0x0016, t01=0x0110}
0x23a4…23c8 Head {h00=0x0020, h01=0x0050, text=» RELEVANT FIELD TO BE USED«, t00=0x0016, t01=0x0150}
0x23c8…23de Head {h00=0x0012, h01=0x0050, text=» IN FORMATS «, t00=0x0016, t01=0x0174}
0x23de…23e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018a}
0x23e8…23f4 (23, 0, 400) Head {h00=0x0008, h01=0x0050, text=»AA03«, t00=0x0017, t01=0x0004}
0x23f4…2426 Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO «, t00=0x0017, t01=0x0010}
0x2426…2468 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 «, t00=0x0017, t01=0x0042}
0x2468…2498 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD«, t00=0x0017, t01=0x0084}
0x2498…24a6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0017, t01=0x00b4}
0x24a6…24b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c2}
0x24b0…24ca Head {h00=0x0016, h01=0x0050, text=»AAA IB SPBINW3, C«, t00=0x0017, t01=0x00cc}
0x24ca…2506 Head {h00=0x0038, h01=0x0050, text=» ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C «, t00=0x0017, t01=0x00e6}
0x2506…2548 Head {h00=0x003e, h01=0x0050, text=» APK,A11,APK,APK,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C «, t00=0x0017, t01=0x0122}
0x2548…258a Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C «, t00=0x0017, t01=0x0164}
0x258a…25cc Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C «, t00=0x0018, t01=0x0016}
0x25cc…260e Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C «, t00=0x0018, t01=0x0058}
0x260e…2650 Head {h00=0x003e, h01=0x0050, text=» APK,APK,APF,APF,A54,APF,APF,APF,APF,APF, FIELDS 50-59 C «, t00=0x0018, t01=0x009a}
0x2650…2692 Head {h00=0x003e, h01=0x0050, text=» APF,APF,APF,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C «, t00=0x0018, t01=0x00dc}
0x2692…26d4 Head {h00=0x003e, h01=0x0050, text=» A70,A71,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C «, t00=0x0018, t01=0x011e}
0x26d4…2716 Head {h00=0x003e, h01=0x0050, text=» A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C «, t00=0x0018, t01=0x0160}
0x2716…2758 Head {h00=0x003e, h01=0x0050, text=» A90,A91,APK,APK,APK,ART,ART,ART,ART,ART, FIELDS 90,99 C «, t00=0x0019, t01=0x0012}
0x2758…278c Head {h00=0x0030, h01=0x0050, text=» A100,A101,A102,A103,A104, FIELDS 100,104 C«, t00=0x0019, t01=0x0054}
0x278c…27c0 Head {h00=0x0030, h01=0x0050, text=» A105,A106,A107,A108,A109, FIELDS 105,109 C«, t00=0x0019, t01=0x0088}
0x27c0…27ee Head {h00=0x002a, h01=0x0050, text=» A110,A111,ART,ART,ART FIELDS 110,114«, t00=0x0019, t01=0x00bc}
0x27ee…2800 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00ea}
0x2800…282c Head {h00=0x0028, h01=0x0050, text=»A05 CHECK REGISTRERINGSKONTONUMMER«, t00=0x0019, t01=0x00fc}
0x282c…2854 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0019, t01=0x0128}
0x2854…288e Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x0019, t01=0x0150}
0x288e…28bc Head {h00=0x002a, h01=0x0050, text=» CMP GSWBIN1,=W'10' LENGTH MUST BE 10 «, t00=0x0019, t01=0x018a}
0x28bc…28ce Head {h00=0x000e, h01=0x0050, text=» BNE A058 «, t00=0x001a, t01=0x0028}
0x28ce…28ec Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001a, t01=0x003a}
0x28ec…2910 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x001a, t01=0x0058}
0x2910…292e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001a, t01=0x007c}
0x292e…2946 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x001a, t01=0x009a}
0x2946…2968 Head {h00=0x001e, h01=0x0050, text=» A053,A053,A051,A053,A053«, t00=0x001a, t01=0x00b2}
0x2968…2974 Head {h00=0x0008, h01=0x0050, text=»A051«, t00=0x001a, t01=0x00d4}
0x2974…2994 Head {h00=0x001c, h01=0x0050, text=» B APK CPR NOT NECESSARY«, t00=0x001a, t01=0x00e0}
0x2994…29b0 Head {h00=0x0018, h01=0x0050, text=»A053 CPR NECESSARY«, t00=0x001a, t01=0x0100}
0x29b0…29c8 Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x001a, t01=0x011c}
0x29c8…29fa Head {h00=0x002e, h01=0x0050, text=» A054,A055,A054,A054,A055,A054,A055,A055 «, t00=0x001a, t01=0x0134}
0x29fa…2a06 Head {h00=0x0008, h01=0x0050, text=»A054«, t00=0x001a, t01=0x0166}
0x2a06…2a14 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001a, t01=0x0172}
0x2a14…2a20 Head {h00=0x0008, h01=0x0050, text=»A055«, t00=0x001a, t01=0x0180}
0x2a20…2a46 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A056 ERROR «, t00=0x001a, t01=0x018c}
0x2a46…2a64 Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x001b, t01=0x0022}
0x2a64…2a74 Head {h00=0x000c, h01=0x0050, text=» B A054 «, t00=0x001b, t01=0x0040}
0x2a74…2a80 Head {h00=0x0008, h01=0x0050, text=»A056«, t00=0x001b, t01=0x0050}
0x2a80…2a9c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'19'«, t00=0x001b, t01=0x005c}
0x2a9c…2aaa Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x0078}
0x2aaa…2ab6 Head {h00=0x0008, h01=0x0050, text=»A058«, t00=0x001b, t01=0x0086}
0x2ab6…2ae0 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'3' SET ERRORCODE «, t00=0x001b, t01=0x0092}
0x2ae0…2aee Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x00bc}
0x2aee…2b00 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x00ca}
0x2b00…2b22 Head {h00=0x001e, h01=0x0050, text=»A06 CHECK CPR/CIR NUMBER«, t00=0x001b, t01=0x00dc}
0x2b22…2b4a Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001b, t01=0x00fe}
0x2b4a…2b84 Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065«, t00=0x001b, t01=0x0126}
0x2b84…2bae Head {h00=0x0026, h01=0x0050, text=» SET BCPR SET CPR-SWITCH (CPR-NO) «, t00=0x001b, t01=0x0160}
0x2bae…2bcc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001b, t01=0x018a}
0x2bcc…2bee Head {h00=0x001e, h01=0x0050, text=» CMP GSWBCD1,=D'10000000' «, t00=0x001c, t01=0x0018}
0x2bee…2bfe Head {h00=0x000c, h01=0x0050, text=» BL A061«, t00=0x001c, t01=0x003a}
0x2bfe…2c1a Head {h00=0x0018, h01=0x0050, text=» SET BLEV LEVERAND. «, t00=0x001c, t01=0x004a}
0x2c1a…2c3e Head {h00=0x0020, h01=0x0050, text=» CMP GSWBCD1,=D'3200000000' «, t00=0x001c, t01=0x0066}
0x2c3e…2c4e Head {h00=0x000c, h01=0x0050, text=» BG APK «, t00=0x001c, t01=0x008a}
0x2c4e…2c66 Head {h00=0x0014, h01=0x0050, text=» CLEAR BLEV CPR.«, t00=0x001c, t01=0x009a}
0x2c66…2c74 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001c, t01=0x00b2}
0x2c74…2c80 Head {h00=0x0008, h01=0x0050, text=»A061«, t00=0x001c, t01=0x00c0}
0x2c80…2cae Head {h00=0x002a, h01=0x0050, text=» CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) «, t00=0x001c, t01=0x00cc}
0x2cae…2cbc Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001c, t01=0x00fa}
0x2cbc…2cce Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0108}
0x2cce…2cf6 Head {h00=0x0024, h01=0x0050, text=»A54 FIELD 54 HAS BEEN ENTERED «, t00=0x001c, t01=0x011a}
0x2cf6…2d32 Head {h00=0x0038, h01=0x0050, text=» MOVE GSSWITCH(CBIN2),CBIN1 AND SHOULD BE AUTODUPPED«, t00=0x001c, t01=0x0142}
0x2d32…2d40 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x001c, t01=0x017e}
0x2d40…2d4e Head {h00=0x000a, h01=0x0050, text=»******«, t00=0x001c, t01=0x018c}
0x2d4e…2d5a Head {h00=0x0008, h01=0x0050, text=»A065«, t00=0x001d, t01=0x000a}
0x2d5a…2d94 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) «, t00=0x001d, t01=0x0016}
0x2d94…2dc4 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE «, t00=0x001d, t01=0x0050}
0x2dc4…2dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0080}
0x2dce…2df6 Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM ROUTINE «, t00=0x001d, t01=0x008a}
0x2df6…2e06 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001d, t01=0x00b2}
0x2e06…2e28 Head {h00=0x001e, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE «, t00=0x001d, t01=0x00c2}
0x2e28…2e38 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x001d, t01=0x00e4}
0x2e38…2e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f4}
0x2e42…2e6e Head {h00=0x0028, h01=0x0050, text=»* CHECK FOR VALID TRANSTYPE«, t00=0x001d, t01=0x00fe}
0x2e6e…2e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012a}
0x2e78…2e98 Head {h00=0x001c, h01=0x0050, text=»* ADJUST REGDEX«, t00=0x001d, t01=0x0134}
0x2e98…2ea6 Head {h00=0x000a, h01=0x0050, text=»A0655 «, t00=0x001d, t01=0x0154}
0x2ea6…2eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0162}
0x2eb0…2ecc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001d, t01=0x016c}
0x2ecc…2f08 Head {h00=0x0038, h01=0x0050, text=»* TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION«, t00=0x001d, t01=0x0188}
0x2f08…2f22 Head {h00=0x0016, h01=0x0050, text=» TBT GTKASSE,A0672«, t00=0x001e, t01=0x0034}
0x2f22…2f5c Head {h00=0x0036, h01=0x0050, text=» CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE «, t00=0x001e, t01=0x004e}
0x2f5c…2f6c Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x001e, t01=0x0088}
0x2f6c…2f7a Head {h00=0x000a, h01=0x0050, text=»A0672 «, t00=0x001e, t01=0x0098}
0x2f7a…2fac Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE «, t00=0x001e, t01=0x00a6}
0x2fac…2fb4 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00d8}
0x2fb4…2fc4 Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x001e, t01=0x00e0}
0x2fc4…2fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f0}
0x2fce…2fda Head {h00=0x0008, h01=0x0050, text=»A067«, t00=0x001e, t01=0x00fa}
0x2fda…301a Head {h00=0x003c, h01=0x0050, text=» CBE GSWBCD3,CREGTAB(GSWBIN1,GTCLASS),A068 SEARCH REGNR «, t00=0x001e, t01=0x0106}
0x301a…3044 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CBIN1 ADD 1 TO INDEX «, t00=0x001e, t01=0x0146}
0x3044…3084 Head {h00=0x003c, h01=0x0050, text=» CBNE CREGTAB(GSWBIN1,GTCLASS),=D'-1',A067 END OF TABLE?«, t00=0x001e, t01=0x0170}
0x3084…308e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0020}
0x308e…309c Head {h00=0x000a, h01=0x0050, text=»A0675 «, t00=0x001f, t01=0x002a}
0x309c…30ca Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,=W'9' INVALID TRANSTYPE «, t00=0x001f, t01=0x0038}
0x30ca…30d8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001f, t01=0x0066}
0x30d8…30e4 Head {h00=0x0008, h01=0x0050, text=»A068«, t00=0x001f, t01=0x0074}
0x30e4…310a Head {h00=0x0022, h01=0x0050, text=» TAKE CARE OF NEW TRANSTYPE «, t00=0x001f, t01=0x0080}
0x310a…3144 Head {h00=0x0036, h01=0x0050, text=» CBE SPBINW2,=W'18',A06KRE HANDLING OF KREDIT KEY «, t00=0x001f, t01=0x00a6}
0x3144…3174 Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,=W'17',A06DEB SLUT/DEB KEY «, t00=0x001f, t01=0x00e0}
0x3174…31ac Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,=W'3',A06DEB HANDLING OF DEBIT KEY «, t00=0x001f, t01=0x0110}
0x31ac…31de Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,=W'4' HANDLING OF WRONG KEY «, t00=0x001f, t01=0x0148}
0x31de…31ec Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001f, t01=0x017a}
0x31ec…31fa Head {h00=0x000a, h01=0x0050, text=»A06KRE«, t00=0x001f, t01=0x0188}
0x31fa…320e Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0020, t01=0x0008}
0x320e…321e Head {h00=0x000c, h01=0x0050, text=» B A066 «, t00=0x0020, t01=0x001c}
0x321e…322c Head {h00=0x000a, h01=0x0050, text=»A06DEB«, t00=0x0020, t01=0x002c}
0x322c…3240 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0020, t01=0x003a}
0x3240…324c Head {h00=0x0008, h01=0x0050, text=»A066«, t00=0x0020, t01=0x004e}
0x324c…326a Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGNR,GSWBCD3 «, t00=0x0020, t01=0x005a}
0x326a…3288 Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGDEX,GSWBIN1«, t00=0x0020, t01=0x0078}
0x3288…32b4 Head {h00=0x0028, h01=0x0050, text=» SET GTREGFLG VALID TRANSTYPE FOUND «, t00=0x0020, t01=0x0096}
0x32b4…32da Head {h00=0x0022, h01=0x0050, text=» SET TTEORFLG START NEW TRANS «, t00=0x0020, t01=0x00c2}
0x32da…32ee Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0020, t01=0x00e8}
0x32ee…32f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fc}
0x32f8…3332 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED«, t00=0x0020, t01=0x0106}
0x3332…3340 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0020, t01=0x0140}
0x3340…3352 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x014e}
0x3352…336a Head {h00=0x0014, h01=0x0050, text=»A07 BKO FIELD «, t00=0x0020, t01=0x0160}
0x336a…338c Head {h00=0x001e, h01=0x0050, text=» INSERT TEXT IN TT07TXT «, t00=0x0020, t01=0x0178}
0x338c…33a2 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTASKAT«, t00=0x0021, t01=0x000a}
0x33a2…33c0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0021, t01=0x0020}
0x33c0…33e2 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD3,=D'51',A070 «, t00=0x0021, t01=0x003e}
0x33e2…33f6 Head {h00=0x0010, h01=0x0050, text=» SET TTASKAT«, t00=0x0021, t01=0x0060}
0x33f6…3402 Head {h00=0x0008, h01=0x0050, text=»A070«, t00=0x0021, t01=0x0074}
0x3402…3424 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A0705«, t00=0x0021, t01=0x0080}
0x3424…344c Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'51',A076 TRANS 3«, t00=0x0021, t01=0x00a2}
0x344c…346c Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD3,=D'52',A076«, t00=0x0021, t01=0x00ca}
0x346c…347a Head {h00=0x000a, h01=0x0050, text=»A0705 «, t00=0x0021, t01=0x00ea}
0x347a…34aa Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING«, t00=0x0021, t01=0x00f8}
0x34aa…34dc Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0021, t01=0x0128}
0x34dc…34fa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,TT07TXT «, t00=0x0021, t01=0x015a}
0x34fa…3518 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD3 «, t00=0x0021, t01=0x0178}
0x3518…3536 Head {h00=0x001a, h01=0x0050, text=» MOVE TT07TXT,CBLANKS «, t00=0x0022, t01=0x0008}
0x3536…3566 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER «, t00=0x0022, t01=0x0026}
0x3566…3582 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0022, t01=0x0056}
0x3582…35a2 Head {h00=0x001c, h01=0x0050, text=» CBNG SPBINW1,=W'2',A071«, t00=0x0022, t01=0x0072}
0x35a2…35d8 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX «, t00=0x0022, t01=0x0092}
0x35d8…35e4 Head {h00=0x0008, h01=0x0050, text=»A071«, t00=0x0022, t01=0x00c8}
0x35e4…35fe Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN7«, t00=0x0022, t01=0x00d4}
0x35fe…360c Head {h00=0x000a, h01=0x0050, text=»A0708 «, t00=0x0022, t01=0x00ee}
0x360c…3626 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN7«, t00=0x0022, t01=0x00fc}
0x3626…3648 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,A075 «, t00=0x0022, t01=0x0116}
0x3648…3682 Head {h00=0x0036, h01=0x0050, text=» MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2«, t00=0x0022, t01=0x0138}
0x3682…3696 Head {h00=0x0010, h01=0x0050, text=» BNOK A0708 «, t00=0x0022, t01=0x0172}
0x3696…36ba Head {h00=0x0020, h01=0x0050, text=»* NEXT 5 CHARS CONTAIN TEXT«, t00=0x0022, t01=0x0186}
0x36ba…36d4 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'2'«, t00=0x0023, t01=0x001a}
0x36d4…3706 Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x0023, t01=0x0034}
0x3706…3728 Head {h00=0x001e, h01=0x0050, text=»* SEE IF ALLOWED «, t00=0x0023, t01=0x0066}
0x3728…3764 Head {h00=0x0038, h01=0x0050, text=» CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3 «, t00=0x0023, t01=0x0088}
0x3764…377e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,=W'5'«, t00=0x0023, t01=0x00c4}
0x377e…379c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR2,CBLANKS «, t00=0x0023, t01=0x00de}
0x379c…37d6 Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE«, t00=0x0023, t01=0x00fc}
0x37d6…37f4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR2 «, t00=0x0023, t01=0x0136}
0x37f4…3816 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',A077 OK«, t00=0x0023, t01=0x0154}
0x3816…3842 Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN2),=D'10000000',A072«, t00=0x0023, t01=0x0176}
0x3842…3874 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED «, t00=0x0024, t01=0x0012}
0x3874…3884 Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0024, t01=0x0044}
0x3884…3890 Head {h00=0x0008, h01=0x0050, text=»A072«, t00=0x0024, t01=0x0054}
0x3890…38c2 Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED «, t00=0x0024, t01=0x0060}
0x38c2…38d2 Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0024, t01=0x0092}
0x38d2…38de Head {h00=0x0008, h01=0x0050, text=»A075«, t00=0x0024, t01=0x00a2}
0x38de…38f8 Head {h00=0x0016, h01=0x0050, text=» TBT CBKOFLG,A077 «, t00=0x0024, t01=0x00ae}
0x38f8…3904 Head {h00=0x0008, h01=0x0050, text=»A076«, t00=0x0024, t01=0x00c8}
0x3904…3920 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0024, t01=0x00d4}
0x3920…392e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0024, t01=0x00f0}
0x392e…393a Head {h00=0x0008, h01=0x0050, text=»A077«, t00=0x0024, t01=0x00fe}
0x393a…3948 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0024, t01=0x010a}
0x3948…395a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x0118}
0x395a…3982 Head {h00=0x0024, h01=0x0050, text=»A11 CHECK VAL DATE NOT GREATER«, t00=0x0024, t01=0x012a}
0x3982…399c Head {h00=0x0016, h01=0x0050, text=» THAN POST DATE «, t00=0x0024, t01=0x0152}
0x399c…39c6 Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'3',A0110 TRANS 3 «, t00=0x0024, t01=0x016c}
0x39c6…39f0 Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,=W'4',A0110 TRANS 4 «, t00=0x0025, t01=0x0008}
0x39f0…39fe Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0025, t01=0x0032}
0x39fe…3a0c Head {h00=0x000a, h01=0x0050, text=»A0110 «, t00=0x0025, t01=0x0040}
0x3a0c…3a34 Head {h00=0x0024, h01=0x0050, text=»* GET AND CHANGE VALOERDATE «, t00=0x0025, t01=0x004e}
0x3a34…3a52 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0025, t01=0x0076}
0x3a52…3a82 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12«, t00=0x0025, t01=0x0094}
0x3a82…3ab2 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8«, t00=0x0025, t01=0x00c4}
0x3ab2…3ae2 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0025, t01=0x00f4}
0x3ae2…3b08 Head {h00=0x0022, h01=0x0050, text=»* GET AND CHANGE POSTDATE «, t00=0x0025, t01=0x0124}
0x3b08…3b24 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,GTDATO«, t00=0x0025, t01=0x014a}
0x3b24…3b54 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12«, t00=0x0025, t01=0x0166}
0x3b54…3b84 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN12,CBIN2,GSWBCD1,CBIN8«, t00=0x0026, t01=0x0008}
0x3b84…3bb4 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD1,CBIN8,CBIN2,GSWBCD3,CBIN4 «, t00=0x0026, t01=0x0038}
0x3bb4…3bca Head {h00=0x0012, h01=0x0050, text=»* COMPARE «, t00=0x0026, t01=0x0068}
0x3bca…3be6 Head {h00=0x0018, h01=0x0050, text=» CMP GSWBCD6,GSWBCD1«, t00=0x0026, t01=0x007e}
0x3be6…3bf6 Head {h00=0x000c, h01=0x0050, text=» BNG APK«, t00=0x0026, t01=0x009a}
0x3bf6…3c12 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'7' «, t00=0x0026, t01=0x00aa}
0x3c12…3c20 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0026, t01=0x00c6}
0x3c20…3c32 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x00d4}
0x3c32…3c58 Head {h00=0x0022, h01=0x0050, text=»A17 CHECK 'FORFALDSAAR' FAAR«, t00=0x0026, t01=0x00e6}
0x3c58…3c6e Head {h00=0x0012, h01=0x0050, text=» FAAR >= 70 «, t00=0x0026, t01=0x010c}
0x3c6e…3c86 Head {h00=0x0014, h01=0x0050, text=» FAAR <= YY+2 «, t00=0x0026, t01=0x0122}
0x3c86…3cac Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET FAAR«, t00=0x0026, t01=0x013a}
0x3cac…3ce2 Head {h00=0x0032, h01=0x0050, text=» CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR«, t00=0x0026, t01=0x0160}
0x3ce2…3d0c Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD1,GTDATO GET POSTDATO «, t00=0x0027, t01=0x0008}
0x3d0c…3d28 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'2' «, t00=0x0027, t01=0x0032}
0x3d28…3d62 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR «, t00=0x0027, t01=0x004e}
0x3d62…3d82 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD3,=D'2' ADD 2«, t00=0x0027, t01=0x0088}
0x3d82…3db4 Head {h00=0x002e, h01=0x0050, text=» CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2«, t00=0x0027, t01=0x00a8}
0x3db4…3dc2 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0027, t01=0x00da}
0x3dc2…3dd0 Head {h00=0x000a, h01=0x0050, text=»A17ERR«, t00=0x0027, t01=0x00e8}
0x3dd0…3dfc Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID NUMBER «, t00=0x0027, t01=0x00f6}
0x3dfc…3e0a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0027, t01=0x0122}
0x3e0a…3e1c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x0130}
0x3e1c…3e28 Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x0027, t01=0x0142}
0x3e28…3e60 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' «, t00=0x0027, t01=0x014e}
0x3e60…3e80 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'5',A649 «, t00=0x0027, t01=0x0186}
0x3e80…3ea0 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'0',A649 «, t00=0x0028, t01=0x0016}
0x3ea0…3ec8 Head {h00=0x0024, h01=0x0050, text=» FIELD 64 HAS BEEN ENTERED AND«, t00=0x0028, t01=0x0036}
0x3ec8…3f02 Head {h00=0x0036, h01=0x0050, text=» MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED«, t00=0x0028, t01=0x005e}
0x3f02…3f10 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0028, t01=0x0098}
0x3f10…3f1c Head {h00=0x0008, h01=0x0050, text=»A649«, t00=0x0028, t01=0x00a6}
0x3f1c…3f38 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'10'«, t00=0x0028, t01=0x00b2}
0x3f38…3f46 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0028, t01=0x00ce}
0x3f46…3f58 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x00dc}
0x3f58…3f7c Head {h00=0x0020, h01=0x0050, text=»A65 CHECK VALUE 1000-3999 «, t00=0x0028, t01=0x00ee}
0x3f7c…3fa4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT GET VALUE «, t00=0x0028, t01=0x0112}
0x3fa4…3fc6 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD4,=D'3999',A659«, t00=0x0028, t01=0x013a}
0x3fc6…3fe8 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD4,=D'1000',A659«, t00=0x0028, t01=0x015c}
0x3fe8…3ff6 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0028, t01=0x017e}
0x3ff6…4002 Head {h00=0x0008, h01=0x0050, text=»A659«, t00=0x0028, t01=0x018c}
0x4002…401e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0029, t01=0x0008}
0x401e…402c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0024}
0x402c…403e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0032}
0x403e…4062 Head {h00=0x0020, h01=0x0050, text=»A70 KONTONR WITHOUT CHECK «, t00=0x0029, t01=0x0044}
0x4062…407e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'5' «, t00=0x0029, t01=0x0068}
0x407e…4098 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x0029, t01=0x0084}
0x4098…40b6 Head {h00=0x001a, h01=0x0050, text=» BL A065 IF LENGTH < 3«, t00=0x0029, t01=0x009e}
0x40b6…40d2 Head {h00=0x0018, h01=0x0050, text=» B APK NEW TRANSTYPE«, t00=0x0029, t01=0x00bc}
0x40d2…40e4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00d8}
0x40e4…40f0 Head {h00=0x0008, h01=0x0050, text=»A71 «, t00=0x0029, t01=0x00ea}
0x40f0…4120 Head {h00=0x002c, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN1 SET AUTODUP «, t00=0x0029, t01=0x00f6}
0x4120…413c Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,SPINPUT «, t00=0x0029, t01=0x0126}
0x413c…4166 Head {h00=0x0026, h01=0x0050, text=» SUB GTSUM,=D'1' SUB 1 FROM ANTAL «, t00=0x0029, t01=0x0142}
0x4166…4182 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,GTSUM «, t00=0x0029, t01=0x016c}
0x4182…41a0 Head {h00=0x001a, h01=0x0050, text=» CBL GTSUM,=D'0',A715 «, t00=0x0029, t01=0x0188}
0x41a0…41c2 Head {h00=0x001e, h01=0x0050, text=» CMP GTSUM,=D'12' IF > 12 «, t00=0x002a, t01=0x0016}
0x41c2…41d2 Head {h00=0x000c, h01=0x0050, text=» BL ART «, t00=0x002a, t01=0x0038}
0x41d2…41de Head {h00=0x0008, h01=0x0050, text=»A715«, t00=0x002a, t01=0x0048}
0x41de…4208 Head {h00=0x0026, h01=0x0050, text=» MOVE SPINPUT,=C'51' SIMULATE NEW «, t00=0x002a, t01=0x0054}
0x4208…422e Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'3' TRANSTYPE «, t00=0x002a, t01=0x007e}
0x422e…4260 Head {h00=0x002e, h01=0x0050, text=» MOVE GSSWITCH(CBIN1),CBIN0 DELETE AUTODUP«, t00=0x002a, t01=0x00a4}
0x4260…4270 Head {h00=0x000c, h01=0x0050, text=» B A065 «, t00=0x002a, t01=0x00d6}
0x4270…4282 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x00e6}
0x4282…42a4 Head {h00=0x001e, h01=0x0050, text=»A76 COUNTER NO, TRANS 12«, t00=0x002a, t01=0x00f8}
0x42a4…42be Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,=W'3'«, t00=0x002a, t01=0x011a}
0x42be…42e2 Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x002a, t01=0x0134}
0x42e2…430a Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x002a, t01=0x0158}
0x430a…4328 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCNTNR,SPINPUT «, t00=0x002a, t01=0x0180}
0x4328…434e Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD3,=D'100' GET INDEX«, t00=0x002b, t01=0x000e}
0x434e…436c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x002b, t01=0x0034}
0x436c…439c Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK«, t00=0x002b, t01=0x0052}
0x439c…43cc Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO«, t00=0x002b, t01=0x0082}
0x43cc…43f6 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x002b, t01=0x00b2}
0x43f6…4420 Head {h00=0x0026, h01=0x0050, text=» CBE CTR12NR(GSWBIN1),=D'0',A76NOK«, t00=0x002b, t01=0x00dc}
0x4420…4436 Head {h00=0x0012, h01=0x0050, text=» MUST BE > 0«, t00=0x002b, t01=0x0106}
0x4436…4458 Head {h00=0x001e, h01=0x0050, text=» B ART TO WRITE ON SCREEN «, t00=0x002b, t01=0x011c}
0x4458…4466 Head {h00=0x000a, h01=0x0050, text=»A76NOK«, t00=0x002b, t01=0x013e}
0x4466…4482 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'18'«, t00=0x002b, t01=0x014c}
0x4482…4490 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002b, t01=0x0168}
0x4490…44a2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x0176}
0x44a2…44c4 Head {h00=0x001e, h01=0x0050, text=»A77 INSERT 51,52 IN TR 4«, t00=0x002b, t01=0x0188}
0x44c4…44e8 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x002c, t01=0x001a}
0x44e8…450a Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW1,=W'2' LENGTH«, t00=0x002c, t01=0x003e}
0x450a…4520 Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A775«, t00=0x002c, t01=0x0060}
0x4520…454c Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x002c, t01=0x0076}
0x454c…455a Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x002c, t01=0x00a2}
0x455a…4566 Head {h00=0x0008, h01=0x0050, text=»A775«, t00=0x002c, t01=0x00b0}
0x4566…4592 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x002c, t01=0x00bc}
0x4592…45a0 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x002c, t01=0x00e8}
0x45a0…45b2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x00f6}
0x45b2…45d2 Head {h00=0x001c, h01=0x0050, text=»A78 INSERT ACCOUNT NO «, t00=0x002c, t01=0x0108}
0x45d2…45e2 Head {h00=0x000c, h01=0x0050, text=» 11-15«, t00=0x002c, t01=0x0128}
0x45e2…460e Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'5' SIMULATE FIELD 5«, t00=0x002c, t01=0x0138}
0x460e…461c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002c, t01=0x0164}
0x461c…462c Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x002c, t01=0x0172}
0x462c…464c Head {h00=0x001c, h01=0x0050, text=»A79 AUTODUP ACCOUNT NO«, t00=0x002c, t01=0x0182}
0x464c…4672 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'5' IN FIELD 5«, t00=0x002d, t01=0x0012}
0x4672…469e Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR GET COUNTER NO«, t00=0x002d, t01=0x0038}
0x469e…46ba Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN1,=W'100'«, t00=0x002d, t01=0x0064}
0x46ba…46e4 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x002d, t01=0x0080}
0x46e4…470a Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,CTR12NR(GSWBIN1)«, t00=0x002d, t01=0x00aa}
0x470a…472e Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW1,=W'10' LENGTH «, t00=0x002d, t01=0x00d0}
0x472e…473c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x002d, t01=0x00f4}
0x473c…474e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0102}
0x474e…4774 Head {h00=0x0022, h01=0x0050, text=»A80 CHECK HOVEDBOG, KONTONR «, t00=0x002d, t01=0x0114}
0x4774…4798 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x002d, t01=0x013a}
0x4798…47c8 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'2' MIGHT BE TRANSTYPE 2«, t00=0x002d, t01=0x015e}
0x47c8…47f4 Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x002d, t01=0x018e}
0x47f4…4820 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A801 MUST BE 10 «, t00=0x002e, t01=0x002a}
0x4820…4848 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x002e, t01=0x0056}
0x4848…4856 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002e, t01=0x007e}
0x4856…4862 Head {h00=0x0008, h01=0x0050, text=»A801«, t00=0x002e, t01=0x008c}
0x4862…4880 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x002e, t01=0x0098}
0x4880…48a4 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x002e, t01=0x00b6}
0x48a4…48c6 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x002e, t01=0x00da}
0x48c6…48e4 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x002e, t01=0x00fc}
0x48e4…48f6 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x002e, t01=0x011a}
0x48f6…4918 Head {h00=0x001e, h01=0x0050, text=»A805 CHECK FUNCTION KEYS«, t00=0x002e, t01=0x012c}
0x4918…4934 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x002e, t01=0x014e}
0x4934…4958 Head {h00=0x0020, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM KEY «, t00=0x002e, t01=0x016a}
0x4958…4968 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x002e, t01=0x018e}
0x4968…498e Head {h00=0x0022, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE KEY «, t00=0x002f, t01=0x000e}
0x498e…499e Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x002f, t01=0x0034}
0x499e…49c6 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x002f, t01=0x0044}
0x49c6…49d4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002f, t01=0x006c}
0x49d4…49e6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x007a}
0x49e6…4a0e Head {h00=0x0024, h01=0x0050, text=»A81 CHECK HOVEDBOG, CPR/CIR/NR«, t00=0x002f, t01=0x008c}
0x4a0e…4a32 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x002f, t01=0x00b4}
0x4a32…4a64 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1 «, t00=0x002f, t01=0x00d8}
0x4a64…4a90 Head {h00=0x0028, h01=0x0050, text=» CBG SPBINW1,=W'2',A811 CHECK LENGTH«, t00=0x002f, t01=0x010a}
0x4a90…4ab8 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x002f, t01=0x0136}
0x4ab8…4ac6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002f, t01=0x015e}
0x4ac6…4ae2 Head {h00=0x0018, h01=0x0050, text=»A811 CPR OR CIR ? «, t00=0x002f, t01=0x016c}
0x4ae2…4afe Head {h00=0x0018, h01=0x0050, text=» SET BCPR SET CPR NO«, t00=0x002f, t01=0x0188}
0x4afe…4b1c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0030, t01=0x0014}
0x4b1c…4b42 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A814«, t00=0x0030, t01=0x0032}
0x4b42…4b54 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x0030, t01=0x0058}
0x4b54…4b7c Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A812«, t00=0x0030, t01=0x006a}
0x4b7c…4b90 Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0030, t01=0x0092}
0x4b90…4ba0 Head {h00=0x000c, h01=0x0050, text=» B A812 «, t00=0x0030, t01=0x00a6}
0x4ba0…4bac Head {h00=0x0008, h01=0x0050, text=»A814«, t00=0x0030, t01=0x00b6}
0x4bac…4bca Head {h00=0x001a, h01=0x0050, text=» CLEAR BCPR SET CIR NO«, t00=0x0030, t01=0x00c2}
0x4bca…4bd6 Head {h00=0x0008, h01=0x0050, text=»A812«, t00=0x0030, t01=0x00e0}
0x4bd6…4bf8 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0030, t01=0x00ec}
0x4bf8…4c16 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0030, t01=0x010e}
0x4c16…4c28 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0030, t01=0x012c}
0x4c28…4c3a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x013e}
0x4c3a…4c60 Head {h00=0x0022, h01=0x0050, text=»A82 CHECK HOVEDBOG, YD.MODT.«, t00=0x0030, t01=0x0150}
0x4c60…4c86 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x0030, t01=0x0176}
0x4c86…4cb6 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'6' MIGHT BE TRANSTYPE 6«, t00=0x0031, t01=0x000c}
0x4cb6…4cc2 Head {h00=0x0008, h01=0x0050, text=»A821«, t00=0x0031, t01=0x003c}
0x4cc2…4cf0 Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,=W'3',A822 IF ENTER KEY,«, t00=0x0031, t01=0x0048}
0x4cf0…4d20 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,=W'17' SIMULATE DEBET KEY «, t00=0x0031, t01=0x0076}
0x4d20…4d2c Head {h00=0x0008, h01=0x0050, text=»A822«, t00=0x0031, t01=0x00a6}
0x4d2c…4d4e Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0031, t01=0x00b2}
0x4d4e…4d6c Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0031, t01=0x00d4}
0x4d6c…4d7e Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0031, t01=0x00f2}
0x4d7e…4d90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0104}
0x4d90…4db8 Head {h00=0x0024, h01=0x0050, text=»A83 CHECK DEBITOR, DEBITOR NR «, t00=0x0031, t01=0x0116}
0x4db8…4ddc Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0031, t01=0x013e}
0x4ddc…4e06 Head {h00=0x0026, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 FUNCTION? «, t00=0x0031, t01=0x0162}
0x4e06…4e26 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW1,=W'7',A833 «, t00=0x0031, t01=0x018c}
0x4e26…4e56 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'4' MIGHT BE TRANSTYPE 4«, t00=0x0032, t01=0x001c}
0x4e56…4e70 Head {h00=0x0016, h01=0x0050, text=» SET BCPR SET CPR «, t00=0x0032, t01=0x004c}
0x4e70…4e8e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0032, t01=0x0066}
0x4e8e…4eb4 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A831«, t00=0x0032, t01=0x0084}
0x4eb4…4ec6 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x0032, t01=0x00aa}
0x4ec6…4eee Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A832«, t00=0x0032, t01=0x00bc}
0x4eee…4f02 Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0032, t01=0x00e4}
0x4f02…4f12 Head {h00=0x000c, h01=0x0050, text=» B A832 «, t00=0x0032, t01=0x00f8}
0x4f12…4f1e Head {h00=0x0008, h01=0x0050, text=»A831«, t00=0x0032, t01=0x0108}
0x4f1e…4f3a Head {h00=0x0018, h01=0x0050, text=» CLEAR BCPR SET CIR «, t00=0x0032, t01=0x0114}
0x4f3a…4f46 Head {h00=0x0008, h01=0x0050, text=»A832«, t00=0x0032, t01=0x0130}
0x4f46…4f5a Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x0032, t01=0x013c}
0x4f5a…4f6c Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x0032, t01=0x0150}
0x4f6c…4f88 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'3' «, t00=0x0032, t01=0x0162}
0x4f88…4f96 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0032, t01=0x017e}
0x4f96…4fa2 Head {h00=0x0008, h01=0x0050, text=»A833«, t00=0x0032, t01=0x018c}
0x4fa2…4fca Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0033, t01=0x0008}
0x4fca…4fd8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0033, t01=0x0030}
0x4fd8…4fea Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x003e}
0x4fea…500a Head {h00=0x001c, h01=0x0050, text=»A84 CHECK DEBITOR, BKO«, t00=0x0033, t01=0x0050}
0x500a…502e Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x0033, t01=0x0070}
0x502e…505e Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3«, t00=0x0033, t01=0x0094}
0x505e…507e Head {h00=0x001c, h01=0x0050, text=» CBNE SPBINW2,=W'3',A842«, t00=0x0033, t01=0x00c4}
0x507e…509a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'17'«, t00=0x0033, t01=0x00e4}
0x509a…50a6 Head {h00=0x0008, h01=0x0050, text=»A842«, t00=0x0033, t01=0x0100}
0x50a6…50c4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0033, t01=0x010c}
0x50c4…50e6 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+51',A845 «, t00=0x0033, t01=0x012a}
0x50e6…5108 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+52',A845 «, t00=0x0033, t01=0x014c}
0x5108…5114 Head {h00=0x0008, h01=0x0050, text=»A843«, t00=0x0033, t01=0x016e}
0x5114…5128 Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x0033, t01=0x017a}
0x5128…513a Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x0033, t01=0x018e}
0x513a…5148 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0034, t01=0x0010}
0x5148…5154 Head {h00=0x0008, h01=0x0050, text=»A845«, t00=0x0034, t01=0x001e}
0x5154…5170 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW5,=W'4' «, t00=0x0034, t01=0x002a}
0x5170…5180 Head {h00=0x000c, h01=0x0050, text=» B A843 «, t00=0x0034, t01=0x0046}
0x5180…5192 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x0056}
0x5192…51ba Head {h00=0x0024, h01=0x0050, text=»A85 CHECK REMITTERING, KONTONR«, t00=0x0034, t01=0x0068}
0x51ba…51de Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'5' FIELD 5 «, t00=0x0034, t01=0x0090}
0x51de…520a Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,=W'3',A805 CHECK LENGTH«, t00=0x0034, t01=0x00b4}
0x520a…5236 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,=W'10',A850 MUST BE 10 «, t00=0x0034, t01=0x00e0}
0x5236…525e Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0034, t01=0x010c}
0x525e…526c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0134}
0x526c…5278 Head {h00=0x0008, h01=0x0050, text=»A850«, t00=0x0034, t01=0x0142}
0x5278…52ac Head {h00=0x0030, h01=0x0050, text=» CMP SPBINW2,=W'3' ONLY ENTER-KEY ALLOWED«, t00=0x0034, t01=0x014e}
0x52ac…52be Head {h00=0x000e, h01=0x0050, text=» BNE A855 «, t00=0x0034, t01=0x0182}
0x52be…52dc (53, 0, 400) Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0035, t01=0x0004}
0x52dc…5300 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x0035, t01=0x0022}
0x5300…530e Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0035, t01=0x0046}
0x530e…531a Head {h00=0x0008, h01=0x0050, text=»A855«, t00=0x0035, t01=0x0054}
0x531a…5342 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x0035, t01=0x0060}
0x5342…5350 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0035, t01=0x0088}
0x5350…5362 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0096}
0x5362…538a Head {h00=0x0024, h01=0x0050, text=»A86 CHECK REMITTERING, LEV.NR.«, t00=0x0035, t01=0x00a8}
0x538a…53ae Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'6' FIELD 6 «, t00=0x0035, t01=0x00d0}
0x53ae…53de Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'8' MIGHT BE TRANSTYPE 8«, t00=0x0035, t01=0x00f4}
0x53de…5414 Head {h00=0x0032, h01=0x0050, text=» CBG SPBINW1,=W'2',A811 CHECK LENGTH + CPR/CIR«, t00=0x0035, t01=0x0124}
0x5414…543c Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'3' ERROR LENGTH«, t00=0x0035, t01=0x015a}
0x543c…544a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0035, t01=0x0182}
0x544a…545c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0190}
0x545c…5486 Head {h00=0x0026, h01=0x0050, text=»A87 CHECK REMITTERING, YD.MODT. «, t00=0x0036, t01=0x0012}
0x5486…54ac Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,=W'21' FIELD 21 «, t00=0x0036, t01=0x003c}
0x54ac…54dc Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,=W'9' MIGHT BE TRANSTYPE 9«, t00=0x0036, t01=0x0062}
0x54dc…5502 Head {h00=0x0022, h01=0x0050, text=» B A821 CHECK FOR INVALID KEY «, t00=0x0036, t01=0x0092}
0x5502…5514 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x00b8}
0x5514…5520 Head {h00=0x0008, h01=0x0050, text=»A88 «, t00=0x0036, t01=0x00ca}
0x5520…5544 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,=W'7' FIELD 7 «, t00=0x0036, t01=0x00d6}
0x5544…5560 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'36'«, t00=0x0036, t01=0x00fa}
0x5560…557a Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW1,='2'«, t00=0x0036, t01=0x0116}
0x557a…5590 Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A885«, t00=0x0036, t01=0x0130}
0x5590…55bc Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0036, t01=0x0146}
0x55bc…55ca Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0036, t01=0x0172}
0x55ca…55d6 Head {h00=0x0008, h01=0x0050, text=»A885«, t00=0x0036, t01=0x0180}
0x55d6…5602 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0036, t01=0x018c}
0x5602…5610 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0037, t01=0x0028}
0x5610…5622 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0036}
0x5622…562e Head {h00=0x0008, h01=0x0050, text=»A89 «, t00=0x0037, t01=0x0048}
0x562e…565a Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=W'6' STORE IN FIELD 6«, t00=0x0037, t01=0x0054}
0x565a…5668 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x0080}
0x5668…567a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x008e}
0x567a…569a Head {h00=0x001c, h01=0x0050, text=»A90 SIMULATE SLUT KEY «, t00=0x0037, t01=0x00a0}
0x569a…56b2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLUTFL «, t00=0x0037, t01=0x00c0}
0x56b2…56ca Head {h00=0x0014, h01=0x0050, text=» CLEAR GTADUPFL «, t00=0x0037, t01=0x00d8}
0x56ca…56f0 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,=W'17' SLUT KEY «, t00=0x0037, t01=0x00f0}
0x56f0…5718 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,=W'0' LENGTH ZERO «, t00=0x0037, t01=0x0116}
0x5718…5726 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0037, t01=0x013e}
0x5726…5738 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x014c}
0x5738…5758 Head {h00=0x001c, h01=0x0050, text=»A91 ENTER TO SLUT KEY«, t00=0x0037, t01=0x015e}
0x5758…5772 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,=W'3'«, t00=0x0037, t01=0x017e}
0x5772…5782 Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0038, t01=0x0008}
0x5782…57a0 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW2,=W'17' «, t00=0x0038, t01=0x0018}
0x57a0…57b0 Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x0038, t01=0x0036}
0x57b0…57c2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x0046}
0x57c2…57e6 Head {h00=0x0020, h01=0x0050, text=»A100 CHECK TR 12 COUNTERS «, t00=0x0038, t01=0x0058}
0x57e6…5804 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0038, t01=0x007c}
0x5804…5820 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD1,=D'100'«, t00=0x0038, t01=0x009a}
0x5820…583e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0038, t01=0x00b6}
0x583e…5868 Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN6,CBIN1,A1009 TOO SMALL«, t00=0x0038, t01=0x00d4}
0x5868…58a0 Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH«, t00=0x0038, t01=0x00fe}
0x58a0…58ca Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(TTASKNR,CBIN1) «, t00=0x0038, t01=0x0136}
0x58ca…58d8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x0160}
0x58d8…58e6 Head {h00=0x000a, h01=0x0050, text=»A1009 «, t00=0x0038, t01=0x016e}
0x58e6…5902 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0038, t01=0x017c}
0x5902…5910 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0039, t01=0x0008}
0x5910…5922 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0016}
0x5922…5946 Head {h00=0x0020, h01=0x0050, text=»A101 CHECK BEHL. COUNTERS «, t00=0x0039, t01=0x0028}
0x5946…5964 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0039, t01=0x004c}
0x5964…5986 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',A101ER «, t00=0x0039, t01=0x006a}
0x5986…59a4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0039, t01=0x008c}
0x59a4…59d4 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER «, t00=0x0039, t01=0x00aa}
0x59d4…59fc Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(TTASKNR,CBIN1)«, t00=0x0039, t01=0x00da}
0x59fc…5a0a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0039, t01=0x0102}
0x5a0a…5a18 Head {h00=0x000a, h01=0x0050, text=»A101ER«, t00=0x0039, t01=0x0110}
0x5a18…5a34 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0039, t01=0x011e}
0x5a34…5a42 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0039, t01=0x013a}
0x5a42…5a54 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0148}
0x5a54…5a76 Head {h00=0x001e, h01=0x0050, text=»A102 CHECK RELATIVE DAY «, t00=0x0039, t01=0x015a}
0x5a76…5a94 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,CMASKDAT«, t00=0x0039, t01=0x017c}
0x5a94…5aa2 Head {h00=0x000a, h01=0x0050, text=»A102A «, t00=0x003a, t01=0x000a}
0x5aa2…5ad2 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.«, t00=0x003a, t01=0x0018}
0x5ad2…5afc Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x003a, t01=0x0048}
0x5afc…5b2a Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN2,CBIN8 SET POINTER TO DAY«, t00=0x003a, t01=0x0072}
0x5b2a…5b64 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY «, t00=0x003a, t01=0x00a0}
0x5b64…5b94 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY«, t00=0x003a, t01=0x00da}
0x5b94…5bc4 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN2,CBIN2 SET POINTER TO MONTH «, t00=0x003a, t01=0x010a}
0x5bc4…5c00 Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH «, t00=0x003a, t01=0x013a}
0x5c00…5c32 Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS«, t00=0x003a, t01=0x0176}
0x5c32…5c5c Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD3,=D'30' EQUAL IN DAYS «, t00=0x003b, t01=0x0018}
0x5c5c…5c78 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3«, t00=0x003b, t01=0x0042}
0x5c78…5ca8 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY«, t00=0x003b, t01=0x005e}
0x5ca8…5cc2 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD5,=D'5'«, t00=0x003b, t01=0x008e}
0x5cc2…5cf0 Head {h00=0x002a, h01=0x0050, text=» CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL «, t00=0x003b, t01=0x00a8}
0x5cf0…5d0c Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,=D'10' «, t00=0x003b, t01=0x00d6}
0x5d0c…5d3a Head {h00=0x002a, h01=0x0050, text=» CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE «, t00=0x003b, t01=0x00f2}
0x5d3a…5d4c Head {h00=0x000e, h01=0x0050, text=» B A102END«, t00=0x003b, t01=0x0120}
0x5d4c…5d5a Head {h00=0x000a, h01=0x0050, text=»A102ER«, t00=0x003b, t01=0x0132}
0x5d5a…5d84 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,=W'11' INVALID VALUE«, t00=0x003b, t01=0x0140}
0x5d84…5d94 Head {h00=0x000c, h01=0x0050, text=»A102END «, t00=0x003b, t01=0x016a}
0x5d94…5db0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x003b, t01=0x017a}
0x5db0…5dbe Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003c, t01=0x0008}
0x5dbe…5dd0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x0016}
0x5dd0…5df2 Head {h00=0x001e, h01=0x0050, text=»A103 SET BEHL. COUNTERS «, t00=0x003c, t01=0x0028}
0x5df2…5e10 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x003c, t01=0x004a}
0x5e10…5e2e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x003c, t01=0x0068}
0x5e2e…5e56 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)«, t00=0x003c, t01=0x0086}
0x5e56…5e82 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A103ER TOO MANY «, t00=0x003c, t01=0x00ae}
0x5e82…5ea4 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1035 «, t00=0x003c, t01=0x00da}
0x5ea4…5ebe Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003c, t01=0x00fc}
0x5ebe…5ee8 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 «, t00=0x003c, t01=0x0116}
0x5ee8…5f02 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x003c, t01=0x0140}
0x5f02…5f10 Head {h00=0x000a, h01=0x0050, text=»A1035 «, t00=0x003c, t01=0x015a}
0x5f10…5f2e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x003c, t01=0x0168}
0x5f2e…5f58 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 «, t00=0x003c, t01=0x0186}
0x5f58…5f66 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003d, t01=0x0020}
0x5f66…5f74 Head {h00=0x000a, h01=0x0050, text=»A103ER«, t00=0x003d, t01=0x002e}
0x5f74…5f90 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003d, t01=0x003c}
0x5f90…5f9e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003d, t01=0x0058}
0x5f9e…5fb0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0066}
0x5fb0…5fd2 Head {h00=0x001e, h01=0x0050, text=»A104 SET TR 12 COUNTERS «, t00=0x003d, t01=0x0078}
0x5fd2…5ff0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT «, t00=0x003d, t01=0x009a}
0x5ff0…600e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x003d, t01=0x00b8}
0x600e…6038 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) «, t00=0x003d, t01=0x00d6}
0x6038…6064 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A104ER TOO MANY «, t00=0x003d, t01=0x0100}
0x6064…6086 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1045 «, t00=0x003d, t01=0x012c}
0x6086…60a0 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003d, t01=0x014e}
0x60a0…60ca Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6«, t00=0x003d, t01=0x0168}
0x60ca…60e4 (62, 0, 400) Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x003e, t01=0x0004}
0x60e4…60f2 Head {h00=0x000a, h01=0x0050, text=»A1045 «, t00=0x003e, t01=0x001e}
0x60f2…6110 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x003e, t01=0x002c}
0x6110…613a Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6«, t00=0x003e, t01=0x004a}
0x613a…6148 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003e, t01=0x0074}
0x6148…6156 Head {h00=0x000a, h01=0x0050, text=»A104ER«, t00=0x003e, t01=0x0082}
0x6156…6172 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x003e, t01=0x0090}
0x6172…6180 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003e, t01=0x00ac}
0x6180…6192 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x00ba}
0x6192…61b4 Head {h00=0x001e, h01=0x0050, text=»A105 CONRTL.DIGITCALC. «, t00=0x003e, t01=0x00cc}
0x61b4…61d2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x003e, t01=0x00ee}
0x61d2…61f4 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,=W'3',CALCD01«, t00=0x003e, t01=0x010c}
0x61f4…6210 Head {h00=0x0018, h01=0x0050, text=» CMP SPBINW2,=W'17' «, t00=0x003e, t01=0x012e}
0x6210…6220 Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x003e, t01=0x014a}
0x6220…6230 Head {h00=0x000c, h01=0x0050, text=»CALCD01 «, t00=0x003e, t01=0x015a}
0x6230…625a Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x003e, t01=0x016a}
0x625a…6276 (63, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'13'«, t00=0x003f, t01=0x0004}
0x6276…6292 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x003f, t01=0x0020}
0x6292…62a2 Head {h00=0x000c, h01=0x0050, text=»CALCD02 «, t00=0x003f, t01=0x003c}
0x62a2…62c0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,=D'0' «, t00=0x003f, t01=0x004c}
0x62c0…6302 Head {h00=0x003e, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT «, t00=0x003f, t01=0x006a}
0x6302…633a Head {h00=0x0034, h01=0x0050, text=» MUL GSWBCD3,WEIGTH(GSWBIN2) MULTIPLY BY WEIGHT«, t00=0x003f, t01=0x00ac}
0x633a…6368 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x003f, t01=0x00e4}
0x6368…6392 Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN1,=W'1' ADJUST LENGTH«, t00=0x003f, t01=0x0112}
0x6392…63c2 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,=W'1' ADJUST WEIGHT-INDEX«, t00=0x003f, t01=0x013c}
0x63c2…63e4 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'0',CALCD02«, t00=0x003f, t01=0x016c}
0x63e4…6402 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x003f, t01=0x018e}
0x6402…641e Head {h00=0x0018, h01=0x0050, text=» DIV GSWBCD5,=D'11' «, t00=0x0040, t01=0x001c}
0x641e…643a Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD5,=D'11' «, t00=0x0040, t01=0x0038}
0x643a…6476 Head {h00=0x0038, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0040, t01=0x0054}
0x6476…649a Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD4,=D'0',CALCD05 «, t00=0x0040, t01=0x0090}
0x649a…64b6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'11'«, t00=0x0040, t01=0x00b4}
0x64b6…64c6 Head {h00=0x000c, h01=0x0050, text=»CALCD05 «, t00=0x0040, t01=0x00d0}
0x64c6…64e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'11'«, t00=0x0040, t01=0x00e0}
0x64e2…6518 Head {h00=0x0032, h01=0x0050, text=» SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT «, t00=0x0040, t01=0x00fc}
0x6518…6528 Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x0040, t01=0x0132}
0x6528…653a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0142}
0x653a…6558 Head {h00=0x001a, h01=0x0050, text=»A106 CHECK VALUE 0-3«, t00=0x0040, t01=0x0154}
0x6558…6580 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0040, t01=0x0172}
0x6580…659e Head {h00=0x001a, h01=0x0050, text=» CBL GSWBCD3,=D'6',ART«, t00=0x0041, t01=0x000a}
0x659e…65d0 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,=W'11' ERROR 'OUT OF RANGE' «, t00=0x0041, t01=0x0028}
0x65d0…65de Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x005a}
0x65de…65f0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x0068}
0x65f0…6618 Head {h00=0x0024, h01=0x0050, text=»A107 REL DAY, 'POSTERINGSDATO'«, t00=0x0041, t01=0x007a}
0x6618…6634 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,GTDATO«, t00=0x0041, t01=0x00a2}
0x6634…6644 Head {h00=0x000c, h01=0x0050, text=» B A102A«, t00=0x0041, t01=0x00be}
0x6644…6656 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00ce}
0x6656…6674 Head {h00=0x001a, h01=0x0050, text=»A108 SPG-REGKONTONR «, t00=0x0041, t01=0x00e0}
0x6674…6690 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'5' «, t00=0x0041, t01=0x00fe}
0x6690…669e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x011a}
0x669e…66b0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x0128}
0x66b0…66ce Head {h00=0x001a, h01=0x0050, text=»A109 SPG-CPR/CIR/NR «, t00=0x0041, t01=0x013a}
0x66ce…66ea Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'6' «, t00=0x0041, t01=0x0158}
0x66ea…66f8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x0174}
0x66f8…670a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x0182}
0x670a…6722 (66, 0, 400) Head {h00=0x0014, h01=0x0050, text=»A110 SPG-BELOB«, t00=0x0042, t01=0x0004}
0x6722…673e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'8' «, t00=0x0042, t01=0x001c}
0x673e…674c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0042, t01=0x0038}
0x674c…675e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x0046}
0x675e…677c Head {h00=0x001a, h01=0x0050, text=»A111 SPG-OTHER FIELD«, t00=0x0042, t01=0x0058}
0x677c…679a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0042, t01=0x0076}
0x679a…67be Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD6,=D'90',A111ERR «, t00=0x0042, t01=0x0094}
0x67be…67da Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x0042, t01=0x00b8}
0x67da…67e8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0042, t01=0x00d4}
0x67e8…67f8 Head {h00=0x000c, h01=0x0050, text=»A111ERR «, t00=0x0042, t01=0x00e2}
0x67f8…6814 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'11'«, t00=0x0042, t01=0x00f2}
0x6814…6822 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0042, t01=0x010e}
0x6822…6834 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x011c}
0x6834…6852 Head {h00=0x001a, h01=0x0050, text=»APK KEEP INFORMATION«, t00=0x0042, t01=0x012e}
0x6852…687a Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APK00 FIRST FIELD?«, t00=0x0042, t01=0x014c}
0x687a…689a Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW3,=W'5',APK10«, t00=0x0042, t01=0x0174}
0x689a…68c2 (67, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE GTKTTYP,=D'0' NOT KONTONR.«, t00=0x0043, t01=0x0004}
0x68c2…68d0 Head {h00=0x000a, h01=0x0050, text=»APK10 «, t00=0x0043, t01=0x002c}
0x68d0…68f6 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0043, t01=0x003a}
0x68f6…6908 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0043, t01=0x0060}
0x6908…692e Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0043, t01=0x0072}
0x692e…693c Head {h00=0x000a, h01=0x0050, text=»APK00 «, t00=0x0043, t01=0x0098}
0x693c…6976 Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD «, t00=0x0043, t01=0x00a6}
0x6976…69ae Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER «, t00=0x0043, t01=0x00e0}
0x69ae…69bc Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x0118}
0x69bc…69ce Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0126}
0x69ce…69da Head {h00=0x0008, h01=0x0050, text=»APF «, t00=0x0043, t01=0x0138}
0x69da…6a02 Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APF00 FIRST FIELD?«, t00=0x0043, t01=0x0144}
0x6a02…6a1e Head {h00=0x0018, h01=0x0050, text=» MOVE GTKTTYP,=D'0' «, t00=0x0043, t01=0x016c}
0x6a1e…6a44 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0043, t01=0x0188}
0x6a44…6a56 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0044, t01=0x001e}
0x6a56…6a7c Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0044, t01=0x0030}
0x6a7c…6a8a Head {h00=0x000a, h01=0x0050, text=»APF00 «, t00=0x0044, t01=0x0056}
0x6a8a…6aa4 Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,APF10 «, t00=0x0044, t01=0x0064}
0x6aa4…6acc Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x0044, t01=0x007e}
0x6acc…6ae8 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,GTDBKRS«, t00=0x0044, t01=0x00a6}
0x6ae8…6b06 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0044, t01=0x00c2}
0x6b06…6b14 Head {h00=0x000a, h01=0x0050, text=»APF10 «, t00=0x0044, t01=0x00e0}
0x6b14…6b56 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD «, t00=0x0044, t01=0x00ee}
0x6b56…6b84 Head {h00=0x002a, h01=0x0050, text=»* MULTIPLY WITH -1 IF KREDIT «, t00=0x0044, t01=0x0130}
0x6b84…6bc6 Head {h00=0x003e, h01=0x0050, text=»* STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) «, t00=0x0044, t01=0x015e}
0x6bc6…6bec Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 «, t00=0x0045, t01=0x0010}
0x6bec…6c10 Head {h00=0x0020, h01=0x0050, text=» MUL GTUSED(GSWBIN1),=W'-1' «, t00=0x0045, t01=0x0036}
0x6c10…6c1e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x005a}
0x6c1e…6c30 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x0068}
0x6c30…6c3c Head {h00=0x0008, h01=0x0050, text=»ART «, t00=0x0045, t01=0x007a}
0x6c3c…6c58 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0045, t01=0x0086}
0x6c58…6c78 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW4,CBIN3,ARET «, t00=0x0045, t01=0x00a2}
0x6c78…6c94 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x0045, t01=0x00c2}
0x6c94…6ca0 Head {h00=0x0008, h01=0x0050, text=»ARET«, t00=0x0045, t01=0x00de}
0x6ca0…6cac Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0045, t01=0x00ea}
0x6cac…6cba Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0045, t01=0x00f6}
0x6cba…6cd6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0045, t01=0x0104}
0x6cd6…6ce4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0120}
0x6ce4…6cf8 Head {h00=0x0010, h01=0x0050, text=»SETKRE PROC «, t00=0x0045, t01=0x012e}
0x6cf8…6d14 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0045, t01=0x0142}
0x6d14…6d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x015e}
0x6d1e…6d52 Head {h00=0x0030, h01=0x0050, text=»* SETKRE - SET KREDIT INFORMATION «, t00=0x0045, t01=0x0168}
0x6d52…6d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x000c}
0x6d5c…6d78 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0046, t01=0x0016}
0x6d78…6d96 Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' KRE'«, t00=0x0046, t01=0x0032}
0x6d96…6db2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'-1'«, t00=0x0046, t01=0x0050}
0x6db2…6dce Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'1' «, t00=0x0046, t01=0x006c}
0x6dce…6dea Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'1' «, t00=0x0046, t01=0x0088}
0x6dea…6df6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0046, t01=0x00a4}
0x6df6…6e04 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0046, t01=0x00b0}
0x6e04…6e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00be}
0x6e0e…6e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00c8}
0x6e18…6e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00d2}
0x6e22…6e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00dc}
0x6e2c…6e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00e6}
0x6e36…6e4a Head {h00=0x0010, h01=0x0050, text=»SETDEB PROC «, t00=0x0046, t01=0x00f0}
0x6e4a…6e66 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0046, t01=0x0104}
0x6e66…6e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0120}
0x6e70…6ea2 Head {h00=0x002e, h01=0x0050, text=»* SETDEB - SET DEBET INFORMATION «, t00=0x0046, t01=0x012a}
0x6ea2…6eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x015c}
0x6eac…6ec8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0046, t01=0x0166}
0x6ec8…6ee6 Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' DEB'«, t00=0x0046, t01=0x0182}
0x6ee6…6f02 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'+1'«, t00=0x0047, t01=0x0010}
0x6f02…6f1e Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'2' «, t00=0x0047, t01=0x002c}
0x6f1e…6f3a Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,=W'2' «, t00=0x0047, t01=0x0048}
0x6f3a…6f46 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0047, t01=0x0064}
0x6f46…6f54 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0047, t01=0x0070}
0x6f54…6f62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x007e}
0x6f62…6f74 Head {h00=0x000e, h01=0x0050, text=»CLRSW PROC«, t00=0x0047, t01=0x008c}
0x6f74…6f90 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0047, t01=0x009e}
0x6f90…6f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ba}
0x6f9a…6fcc Head {h00=0x002e, h01=0x0050, text=»* CLRSW - CLEAR ALL AUTODUP FLAGS«, t00=0x0047, t01=0x00c4}
0x6fcc…6fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f6}
0x6fd6…6ff2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0047, t01=0x0100}
0x6ff2…700e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0047, t01=0x011c}
0x700e…701c Head {h00=0x000a, h01=0x0050, text=»CLRSW1«, t00=0x0047, t01=0x0138}
0x701c…7042 Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN0 «, t00=0x0047, t01=0x0146}
0x7042…705c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0047, t01=0x016c}
0x705c…7080 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,CLRSW1 «, t00=0x0047, t01=0x0186}
0x7080…708c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x001a}
0x708c…709a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0048, t01=0x0026}
0x709a…70a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0034}
0x70a8…70ba Head {h00=0x000e, h01=0x0050, text=»SELTR PROC«, t00=0x0048, t01=0x0042}
0x70ba…70d6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x0054}
0x70d6…70e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0070}
0x70e0…7122 Head {h00=0x003e, h01=0x0050, text=»* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN «, t00=0x0048, t01=0x007a}
0x7122…713e Head {h00=0x0018, h01=0x0050, text=»* SELECTED.«, t00=0x0048, t01=0x00bc}
0x713e…7172 Head {h00=0x0030, h01=0x0050, text=»* SELECTED TRANSTYPE IS IN SPBINW5 «, t00=0x0048, t01=0x00d8}
0x7172…717c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x010c}
0x717c…7198 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x0116}
0x7198…71c2 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'3',SELOK ENTER KEY«, t00=0x0048, t01=0x0132}
0x71c2…71ee Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',SEL10 KREDIT KEY«, t00=0x0048, t01=0x015c}
0x71ee…721a Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'17',SEL20 DEBET KEY «, t00=0x0048, t01=0x0188}
0x721a…7242 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'4' INVALID KEY «, t00=0x0049, t01=0x0024}
0x7242…726a Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0049, t01=0x004c}
0x726a…7276 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x0074}
0x7276…728c Head {h00=0x0012, h01=0x0050, text=»SEL10 KREDIT«, t00=0x0049, t01=0x0080}
0x728c…72a0 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0049, t01=0x0096}
0x72a0…72b0 Head {h00=0x000c, h01=0x0050, text=» B SEL30«, t00=0x0049, t01=0x00aa}
0x72b0…72c6 Head {h00=0x0012, h01=0x0050, text=»SEL20 DEBET «, t00=0x0049, t01=0x00ba}
0x72c6…72da Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0049, t01=0x00d0}
0x72da…72fc Head {h00=0x001e, h01=0x0050, text=»SEL30 TRANSTYPE SELECTED«, t00=0x0049, t01=0x00e4}
0x72fc…731a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0049, t01=0x0106}
0x731a…7332 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0049, t01=0x0124}
0x7332…735a Head {h00=0x0024, h01=0x0050, text=» SEL40,SEL40,SEL90,SEL40,SEL40 «, t00=0x0049, t01=0x013c}
0x735a…736a Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x0049, t01=0x0164}
0x736a…7378 Head {h00=0x000a, h01=0x0050, text=»SEL40 «, t00=0x0049, t01=0x0174}
0x7378…7390 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW5, C «, t00=0x0049, t01=0x0182}
0x7390…73d0 Head {h00=0x003c, h01=0x0050, text=» SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 «, t00=0x004a, t01=0x000a}
0x73d0…73de Head {h00=0x000a, h01=0x0050, text=»SEL45 «, t00=0x004a, t01=0x004a}
0x73de…73fe Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN1,CBIN3,SEL50«, t00=0x004a, t01=0x0058}
0x73fe…741c Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x004a, t01=0x0078}
0x741c…742c Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x004a, t01=0x0096}
0x742c…743a Head {h00=0x000a, h01=0x0050, text=»SEL50 «, t00=0x004a, t01=0x00a6}
0x743a…745c Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,=W'19' ERROR«, t00=0x004a, t01=0x00b4}
0x745c…7474 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x004a, t01=0x00d6}
0x7474…7480 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x00ee}
0x7480…748e Head {h00=0x000a, h01=0x0050, text=»SEL90 «, t00=0x004a, t01=0x00fa}
0x748e…74b0 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGNR,SPBINW5 TYPE«, t00=0x004a, t01=0x0108}
0x74b0…74e6 Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11 «, t00=0x004a, t01=0x012a}
0x74e6…751a Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED«, t00=0x004a, t01=0x0160}
0x751a…752e (75, 2, 168) Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x004b, t01=0x0004}
0x752e…753c Head {h00=0x000a, h01=0x0050, text=»SELOK «, t00=0x004b, t01=0x0018}
0x753c…7562 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x004b, t01=0x0026}
0x7562…756e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x004c}
0x756e…757c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004b, t01=0x0058}
0x757c…7586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0066}
0x7586…7590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0070}
0x7590…759a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x007a}
0x759a…75a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0084}
0x75a4…75ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x008e}
0x75ae…75ba Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004b, t01=0x0098}
0x75ba…75be Head {h00=0x4004, h01=0x0000}
0x75be…75c2 00 4b 00 a4 ┆ K ┆
0x75c2…75ca (76, 1, 8) 20 04 00 00 00 4c 00 04 ┆ L ┆