|
|
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: 39906 (0x9be2)
Notes: pts_type(SC)
Names: »SUBAPL.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/SUBAPL.SC«
IDENT SUBAPL 820903 NJ
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 SELTR
ENTRY CHDATO
ENTRY XCOP
ENTRY YYMMDD
EXT KBTEST
EXT ABORT
EXT SPLIN8
EXT PACKCL
EXT CRKJ
EXT KKCH
EXT KTPLAN
EXT TXTRD
EXT LEVRD
EXT REPL00
INCLUDE EQUATE
*
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,CBIN3,CHK1RET FOR LENGTH < 3, NO CHECK
CBL GSWBIN1,CBIN7,CHK1ER IF 2<LENGTH<7, ERROR
CBE GSWBIN1,CBIN7,CHK10 IF LENGTH = 7, OK (CIRNR)
CBNE GSWBIN1,CBIN10,CHK1ER IF LENGTH = 10, OK (CPRNR)
CHK10
MOVE GSWBIN2,CBIN13
MOVE GSWBCD5,=D'0'
MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED
TBT GTADMFLG,CHK11
CBL GSWBCD6,=D'1',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,CBIN1 ADJUST WEIGHT INDEX
SUB GSWBIN1,CBIN1 ADJUST LENGTH OF ITEM
CBNE GSWBIN1,CBIN0,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
CBL GSWBCD4,=D'1',CHK1RET IF REMAINDER 0, THEN RETURN
CHK1ER
MOVE SPBINW4,CBIN6
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,CBIN10 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,CBIN2 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,CBIN7 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,CBIN7 SET ERRORCODE
CH3RET
RET
PEND
EJECT
SPCHK4 PROC
********************
*
* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY
*
********************
MOVE SPBINW3,CBIN1
CBNE SPBINW2,CBIN18,CH4RET
MOVE GSWBCD7,SPINPUT IF KREDIT KEY
MUL GSWBCD7,=D'-1'
MOVE SPINPUT,GSWBCD7
MOVE SPBINW2,CBIN3 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
CBNL GSWBIN1,CVOUTOP,CH5ERR
CBL GSWBIN1,CMINLIN,CH5ERR
RET
CH5ERR
MOVE SPBINW3,CBIN3
MOVE SPBINW4,CBIN8
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
CBL GSWBCD3,=D'1',CH6RET NO CHECK IF ZERO
CBE GSWBCD3,TTKTCHK,CH6RET OK
MOVE SPBINW3,CBIN3 ERROR
MOVE SPBINW4,CBIN13
CH6RET
RET
PEND
SPCHK7 PROC
**********
*
* SPCHK7- CDVCHECK (USES SPCHK1)
* INSERTS CHECKDIGIT, IF LENGTH=8
*
* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT
* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4
* FIELD MUST BE 7 OR 10 LONG
* IF FIELD IS 8 LONG, IT IS ASSUMED TO BE A PHONE NUMBER,
* AND IS THEN CHANGED FROM 0XXXXXXX TO 5XXXXXXXCC
*
**********
*
TBF CLEV8FLG,CHK705
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBE GSWBIN1,CBIN8,CHK710 SPECIAL TREATMENT OF PHONE NO
CHK705
PERF SPCHK1 ELSE NORMAL CDVCHK
B CHK7RET
*
CHK710
MOVE SPBINW4,CBIN0
MOVE GSWBCD6,SPINPUT +FFFFF0XXXXXXX
TBT C539FLG,CHK720 JUMP IF TINGLEV
MOVE GSWBCD3,=D'5' +FFFF5
COPY GSWBCD6,CBIN6,CBIN1,GSWBCD3,CBIN5
CHK720
MUL GSWBCD6,=D'10' +FFFF5XXXXXXX0
MOVE SPINPUT,GSWBCD6
MOVE SPBINW1,CBIN9 SET LENGTH
MOVE SPBINW5,SPBINW2 SAVE END KEY
MOVE SPBINW2,CBIN3 SIMULATE KEY
MOVE SPBINW3,=W'105' APPL VALUE
PERF SPAPPL CALCULATE CONTROL DIGIT
MOVE SPBINW2,SPBINW5 RESTORE KEY VALUE
CBNE GSWBCD5,=D'10',CHK730 CHECK CONTROLDIGIT
MOVE GSWBCD5,=D'50' SET CONTROL DIGIT
CHK730
MUL GSWBCD6,=D'10' ROOM FOR CONTROLDIGIT
ADD GSWBCD6,GSWBCD5 INSERT CONTROL DIGIT
MOVE SPBINW1,CBIN10 SET LENGTH
MOVE SPINPUT,GSWBCD6
CHK7RET
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,CBIN16 ADJUST INDEX
IB SPBINW3, C
TCHK17,TCHK18,TCHK19,TCHK20
SUB SPBINW3,=W'61' +16-77
IB SPBINW3,TCHK78,TCHK79
SUB SPBINW3,=W'38' 116-119
IB SPBINW3,TCHK116,TCHK117,TCHK118,TCHK119
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
*
TCHK116
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK00,TCHK00,TCHK99,TCHK99,TCHK00
B TCHK99
*
TCHK117
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK99,TCHK00,TCHK99,TCHK99,TCHK99
B TCHK99
*
TCHK118
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK00,TCHK00,TCHK00
B TCHK99
*
TCHK119
MOVE SPBINW3,GTTXTTKO
IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK99,TCHK00,TCHK99
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
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.
A107 - AS A102
A108 - SPG -REGKONTONR
A109 - SPG-CPR/CIR/NR
A110 - SPG-BELOB
A111 - SPG-OTHER FIELD
A115 REMIT-TXT
A120 - BUDGET
*
CBL SPBINW3,=W'90',AA01
CBG SPBINW3,=W'114',AA01
B AAA 90-114
*
AA01
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,A57,A57,A57,A57,A57, FIELDS 50-59 C
A57,A57,A57,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C
APK,APK,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,A92,A93,A94,ART,ART,ART,ART,ART, FIELDS 90,99 C
A100,A101,A102,A103,A104, FIELDS 100,104 C
A105,ART,A107,A108,A109, FIELDS 105,109 C
A110,A111,ART,ART,ART, FIELS 110,114 C
A115,A116,A117,A118,A119,A120, FIELDS 115,120 C
A121,A122,APK,APK,APK, FIELDS 121-125 C
ART,ART,ART,ART,A130,A131,A132
**********
A05 CHECK REGISTRERINGSKONTONUMMER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBE GSWBIN1,CBIN4,A059 LENGTH = 4?
CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065
CMP GSWBIN1,CBIN10 LENGTH MUST BE 10
BNE A058
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
A053,A053,A051,A053,A053,A052,A0570,A0575
A051
B APK CPR NOT NECESSARY
A052 REMIT. NOT ALLOWED
IB GTREGDEX, C
A0520,A0520,A0520,A0520,A0520, TR 1,2,3,4,5 C
A0520,A0520,A0525,A0525,A0520, TR 6,7,8,9,10 C
A0520,A0525,A0525,A0525,A0525 TR 12,18,19,28,29
A0520
B APK
A0525
MOVE SPBINW4,CBIN20 ERROR
B ART
A053 CPR NECESSARY
IB GTREGDEX, C
A054,A055,A054,A054,A055, TR 1,2,3,4,5 C
A054,A055,A055,A054,A054, TR 6,7,8,9,10 C
A054,A055,A054,A055,A054 TR 12,18,19,28,29
A054
B APK
A055
CBL GSWBIN1,CBIN3,A056 ERROR
SET SPWARNFL WARNING
B A054
A056
MOVE SPBINW4,CBIN19
B ART
*
A0570 7: KNT.NO. NOT ALLOWED
MOVE SPBINW4,=W'23'
B ART
*
A0575 8:KNT.NO. NOT ALLOWED IN SUPL
CBE GTREGDEX,CBIN10,A0577 TR 10
TBT TTSUPFLG,A0577 SUPL
B APK OK
A0577 NOT OK
MOVE SPBINW4,CBIN22
B ART
*
A059
CBL GTREGNR,=D'48',A058 ONLY ALLOWED WHEN
CBG GTREGNR,=D'49',A058 IN BUDGET TR.48/49
B APK
*
A058
MOVE SPBINW4,CBIN3 SET ERRORCODE
B ART
**********
A06 CHECK CPR/CIR NUMBER
MOVE GSWBIN1,SPBINW1 GET LENGTH
CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065
SET BCPR SET CPR-SWITCH (CPR-NO)
MOVE GSWBCD1,SPINPUT
CBL GSWBCD1,=D'10000000',A061
SET BLEV LEVERAND.
CBG GSWBCD1,=D'3900000000',A062
CLEAR BLEV CPR.
B A062
A061
CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO)
A062
TBT GTBDTFLG,A0625 BUNDT REMIT
TBT GTSTRFLG,A0621 STRAKS REMIT
B APK NOT REMIT
*
A0621
MOVE GTLEVNR,GSWBCD1 STRAKS REMIT, SET LEVNR
PERF LEVRD
BOK A0622
NOT OK, LEV FINDES IKKE
SET SPWARNFL SET WARNING
B APK
A0622
CBG GTLEVBFO,=D'4',A0629 ONLY 0-4 VALID
B A063
*
A0625 BUNDT REMIT
TBT CAD41FLG,A0630
MOVE GTLEVNR,GSWBCD1 SET LEVNR
PERF LEVRD
BNOK A0629
CBE GTLEVBFO,=D'0',A0629
A063
TBF GTCYFLG,A064
MOVE GSSWITCH(CBIN2),CBIN1
A064
B APK
A0629 WRONG BETALINGSFORM
MOVE SPBINW4,CBIN11 ERROR
B ART
A0630
MOVE SPBINW4,=W'12' ADM 41,42,43,46
B ART
**********
A54 FIELD 54 HAS BEEN ENTERED
* THE FIELD WITH LENGTH N (N = 1,2,...,10)
* HAS TO BE LEFT-JUSTIFIED AND EXPANDED
* TO THE LENGTH 10.
MOVE GSWSTR20,=C'0'
MOVE GSWBIN1,CBIN10
SUB GSWBIN1,SPBINW1 HOW MANY ZEROES ?
INSRT SPINPUT,SPBINW1,GSWBIN1,GSWSTR20,CBIN0
MOVE SPBINW1,CBIN10 ADJUST LENGTH
B APK
**********
A57
B APF
******
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
*
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,CBIN1),A068 SEARCH REGNR
ADD GSWBIN1,CBIN1 ADD 1 TO INDEX
CBNE CREGTAB(GSWBIN1,CBIN1),=D'-1',A067 END OF TABLE?
*
A0675
MOVE SPBINW4,CBIN9 INVALID TRANSTYPE
B ART
A068
TAKE CARE OF NEW TRANSTYPE
CBE SPBINW2,CBIN18,A0680 HANDLING OF KREDIT KEY
CBE SPBINW2,CBIN17,A0680 SLUT/DEB KEY
CBE SPBINW2,CBIN3,A0680 HANDLING OF DEBIT KEY
MOVE SPBINW4,CBIN4 HANDLING OF WRONG KEY
B ART
A0680
TBT GTCYFLG,A0685 CYKEL TABEL ?
CLEAR GTBDTFLG NO, CLEAR FLAGS
CLEAR GTSTRFLG
CBL GSWBCD3,=D'28',A0681
SET GTBDTFLG TRANS 28,29
B A0689
A0681
CBL GSWBCD3,=D'18',A0689
SET GTSTRFLG TRANS 18,19
B A0689
A0685 IN CYKEL/STABEL
TBF GTBDTFLG,A0686 TRANS 28,29 ?
CBL GSWBCD3,=D'28',A0675 IF NOT, INVALID TRANS
B A0689 VALID TRANS
A0686
TBT GTSTRFLG,A0687 TRANS 18, 19 ?
NO, ONLY TRANS 1-12
CBG GSWBCD3,=D'12',A0675 IF NOT, INVALID TRANS
B A0689 VALID TRANS
A0687
TRANS 18,19
CBL GSWBCD3,=D'18',A0675 TR 1-12 INVALID
CBL GSWBCD3,=D'28',A0689 TR 18,19 VALID
B A0675 TR 28,29 INVALID
A0689
CBE SPBINW2,CBIN18,A06KRE KREDIT KEY
B A06DEB
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
*
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,CBIN3,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,=' '
MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER
MOVE GSWBIN3,CBIN0
CBNG SPBINW1,CBIN2,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,CBIN2
COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1
* SEE IF ALLOWED
CBNE GTREGDEX,CBIN3,A077 ONLY CHECK IF TRANSTYPE 3
ADD GSWBIN1,CBIN5
MOVE GSWSTR2,=' '
COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE
MOVE GSWBCD3,GSWSTR2
CBL GSWBCD3,=D'1',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,CBIN11
B ART
A077
B APK
**********
A11 CHECK VAL DATE NOT GREATER
THAN POST DATE
CBE GTREGDEX,CBIN3,A0110 TRANS 3
CBE GTREGDEX,CBIN4,A0110 TRANS 4
TBF TTCY1FLG,A01101
TBF GTBDTFLG,A01101
MOVE GSSWITCH(CBIN7),CBIN1
A01101
B APK
A0110
TBF CVALFLG,A01101
* GET AND CHANGE VALOERDATE
MOVE GSWBCD6,SPINPUT
PERF YYMMDD,GSWBCD6
MOVE GSWBCD1,GSWBCD7
* GET AND CHANGE POSTDATE
PERF YYMMDD,GTDATO
* COMPARE
CMP GSWBCD1,GSWBCD7
BNG APK
MOVE SPBINW4,CBIN7
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,CBIN11 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,CBIN10
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,CBIN11
B ART
**********
A76 COUNTER NO, TRANS 12
CMP SPBINW1,CBIN3
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)
CBL CTR12NR(GSWBIN1),=D'1',A76NOK
MUST BE > 0
B ART TO WRITE ON SCREEN
A76NOK
MOVE SPBINW4,CBIN18
B ART
**********
A77 INSERT 51,52 IN TR 4
MOVE SPBINW3,CBIN7 FIELD 7
MOVE SPBINW1,CBIN2 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,CBIN5 SIMULATE FIELD 5
B APK
********
A79 AUTODUP ACCOUNT NO
MOVE SPBINW3,CBIN5 IN FIELD 5
MOVE GSWBIN1,TTCNTNR GET COUNTER NO
SUB GSWBIN1,=W'100'
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
MOVE SPINPUT,CTR12NR(GSWBIN1)
MOVE SPBINW1,CBIN10 LENGTH
B APK
**********
A80 CHECK HOVEDBOG, KONTONR
MOVE SPBINW3,CBIN5 FIELD 5
MOVE SPBINW5,CBIN2 MIGHT BE TRANSTYPE 2
CBL SPBINW1,CBIN3,A805 CHECK LENGTH
CBE SPBINW1,CBIN10,A801 MUST BE 10
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
A801
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
MOVE GSWBIN1,GTKTTYP
CMP GSWBIN1,CBIN7 7: KNT.NO. NOT ALLOWED
BE A0570
CBNE GSWBIN1,CBIN8,A804
TBF TTSUPFLG,A804
B A0577 8:KNT.NO. NOT ALLOWED IN SUPL
A804
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,CBIN4 INVALID KEY
B ART
**********
A81 CHECK HOVEDBOG, CPR/CIR/NR
MOVE SPBINW3,CBIN6 FIELD 6
MOVE SPBINW5,CBIN1 MIGHT BE TRANS TYPE 1
CBG SPBINW1,CBIN2,A811 CHECK LENGTH
MOVE SPBINW4,CBIN3 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,CBIN21 FIELD 21
MOVE SPBINW5,CBIN6 MIGHT BE TRANSTYPE 6
A821
CBNE SPBINW2,CBIN3,A822 IF ENTER KEY,
MOVE SPBINW2,CBIN17 SIMULATE DEBET KEY
A822
PERF SELTR TRANS SELECTED
BNOK ART INVALID KEY
B APK OK
**********
A83 CHECK DEBITOR, DEBITOR NR
MOVE SPBINW3,CBIN6 FIELD 6
CBL SPBINW1,CBIN3,A805 FUNCTION?
CBL SPBINW1,CBIN7,A833
MOVE SPBINW5,CBIN4 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,CBIN3
B APK
A833
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
**********
A84 CHECK DEBITOR, BKO
MOVE SPBINW3,CBIN7 FIELD 7
MOVE SPBINW5,CBIN3 MIGHT BE TRANSTYPE 3
CBNE SPBINW2,CBIN3,A842
MOVE SPBINW2,CBIN17
A842
MOVE GSWBCD1,SPINPUT
CBE GSWBCD1,=D'+51',A845
CBE GSWBCD1,=D'+52',A845
A843
PERF SELTR
BNOK ART
B A07
A845
MOVE SPBINW5,CBIN4
B A843
**********
A85 CHECK REMITTERING, KONTONR
MOVE SPBINW3,CBIN5 FIELD 5
CBL SPBINW1,CBIN3,A805 CHECK LENGTH
CBE SPBINW1,CBIN10,A850 MUST BE 10
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
A850
CMP SPBINW2,CBIN3 ONLY ENTER-KEY ALLOWED
BNE A855
MOVE GSWBCD1,SPINPUT
PERF KTPLAN,GSWBCD1,GTKTTYP
MOVE GSWBIN1,GTKTTYP
CBE GSWBIN1,CBIN6,A853 6: REMIT NOT ALLOWED
CMP GSWBIN1,CBIN7 7:KNT.NO. NOT ALLOWED
BE A0570
CBNE GSWBIN1,CBIN8,A854
TBF TTSUPFLG,A854
B A0577 8:KNT.NO. NOT ALLOWED IN SUPL
A853
MOVE SPBINW4,CBIN20 REMIT NOT ALLOWED
B ART
A854
B APK
A855
MOVE SPBINW4,CBIN4 INVALID KEY
B ART
**********
A86 CHECK REMITTERING, LEV.NR.
MOVE SPBINW3,CBIN6 FIELD 6
MOVE SPBINW5,CBIN8 MIGHT BE TRANSTYPE 8
CMP SPBINW1,CBIN2 CHECK LENGTH + CPR/CIR
BG A811
MOVE SPBINW4,CBIN3 ERROR LENGTH
B ART
**********
A87 CHECK REMITTERING, YD.MODT.
MOVE SPBINW3,CBIN21 FIELD 21
MOVE SPBINW5,CBIN9 MIGHT BE TRANSTYPE 9
B A821 CHECK FOR INVALID KEY
**********
A88
MOVE SPBINW3,CBIN7 FIELD 7
MOVE SPBINW2,=W'36'
MOVE SPBINW1,CBIN2
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,CBIN6 STORE IN FIELD 6
B APK
**********
A121 SIMULATE SLUT KEY
CLEAR GTSLUTFL
CLEAR GTADUPFL
MOVE SPBINW2,CBIN17 SLUT KEY
MOVE SPBINW1,CBIN0 LENGTH ZERO
B ART
**********
A122 ENTER TO SLUT KEY
CMP SPBINW2,CBIN3
BNE ART
MOVE SPBINW2,CBIN17
B ART
**********
A90
PERF SPACES
MOVE GTFELT90(CBIN1),SPINPUT
B APK
***
A91
PERF SPACES
MOVE GTFELT90(CBIN2),SPINPUT
B APK
***
A92
PERF SPACES
MOVE GTFELT90(CBIN3),SPINPUT
B APK
***
A93
PERF SPACES
MOVE GTFELT90(CBIN4),SPINPUT
B APK
***
A94
PERF SPACES
MOVE GTFELT90(CBIN5),SPINPUT
B APK
***
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,CBIN11
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,CBIN11
B ART
**********
A102 CHECK RELATIVE DAY
MOVE GSWBCD7,CMASKDAT
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,CBIN11 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,CBIN11
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,CBIN11
B ART
**********
A105 CONRTL.DIGITCALC.
MOVE GSWBCD6,SPINPUT
CBE SPBINW2,CBIN3,CALCD01
CMP SPBINW2,CBIN17
BNE ART
CALCD01
MOVE GSWBIN1,SPBINW1 GET LENGTH
MOVE GSWBIN2,CBIN13
MOVE GSWBCD5,=D'0'
CALCD02
MOVE GSWBCD3,=D'0'
COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT
SUB GSWBIN2,CBIN1 ADJUST WEIGHT-INDEX
MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY BY WEIGHT
ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM
SUB GSWBIN1,CBIN1 ADJUST LENGTH
CBG GSWBIN1,CBIN0,CALCD02
MOVE GSWBCD4,GSWBCD5
DIV GSWBCD5,=D'11'
MUL GSWBCD5,=D'11'
SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11
CBNL GSWBCD4,=D'1',CALCD05
MOVE GSWBCD4,=D'11'
CALCD05
MOVE GSWBCD5,=D'11'
SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT
B ART
**********
A107 POSTDATO=MASKINDATO ?
MOVE GSWBCD7,SPINPUT
CBNE GSWBCD7,CMASKDAT,A1075
B ART
A1075
SET SPWARNFL
B ART
**********
A108 SPG-REGKONTONR
MOVE GSWBCD6,=D'5'
B ART
**********
A109 SPG-CPR/CIR/NR
MOVE GSWBCD6,=D'6'
B ART
**********
A110 SPG-BELOB
MOVE GSWBCD6,=D'8'
B ART
**********
A111 SPG-OTHER FIELD
MOVE GSWBCD6,SPINPUT
CBG GSWBCD6,=D'90',A111ERR
MOVE GSWBCD7,=D'0'
B ART
A111ERR
MOVE SPBINW4,CBIN11
B ART
**********
A115 TEXTNR REMITTERING
MOVE GSWBCD6,SPINPUT
MOVE GSWBIN8,GSWBCD6
PERF TXTRD,GSWBIN8 READ TEXT
BNOK A1154
CBE GTWBCD1,=D'10',A1154 END OF FILE
CBL GTTXTTKO,=D'1',A1154 DELETED
CLEAR GTSWFLAG
MOVE SPBINW3,=W'26'
A1151
TBF TTCY1FLG,A1153
TBT GTBDTFLG,A1152
TBF GTSTRFLG,A1153
A1152
MOVE GSWBIN1,CFLTDEX(SPBINW3)
MOVE GSSWITCH(GSWBIN1),CBIN1
A1153
B APK
A1154
MOVE SPBINW4,CBIN11 TEXT MISSING
B ART
**********
A116
MOVE SPBINW3,=W'24'
B A1151
**********
A117
MOVE SPBINW3,=W'25'
B A1151
**********
A118
MOVE SPBINW3,=W'37'
B A1151
**********
A119
MOVE SPBINW3,=W'38'
B A1151
**********
A120
* VALUESET: CURRENT YEAR +/- 1
MOVE GSWBCD1,CMASKDAT DDMMYY
MOVE GSWBCD2,CMASKDAT
DIV GSWBCD1,=D'100' DDMM
MUL GSWBCD1,=D'100' DDMM00
SUB GSWBCD2,GSWBCD1 YY
MOVE GSWBCD1,GSWBCD2
SUB GSWBCD1,=D'1'
ADD GSWBCD2,=D'1'
MOVE GSWBCD3,SPINPUT
CBL GSWBCD3,GSWBCD1,A120E
CBG GSWBCD3,GSWBCD2,A120E
B APK
A120E
MOVE SPBINW4,CBIN11
B ART
**********
A130
* USED IN "NYSTART"
MOVE GSWBCD3,SPINPUT
MOVE GSWBIN1,GSWBCD3
IB GSWBIN1,A1301,A1302,A1303
MOVE SPBINW4,CBIN11
B ART
A1301
MOVE GTSTRFMT,=C'SYSSTART '
B A1305
A1302
MOVE GTSTRFMT,=C'RESTART '
B A1305
A1303
MOVE GTSTRFMT,=C'RESTORE '
A1305
MOVE GSWBIN1,=X'0516' LINE 5, POS 22
DSC1 SCREEN,POS,GSWBIN1
EDWRT SCREEN,STRTFRM
B ART
**********
A131
* USED IN "NYSTART"
MOVE GSWBCD3,SPINPUT
MOVE GSWBIN1,GSWBCD3
IB GSWBIN1,A1311,A1312,A1313
MOVE SPBINW4,CBIN11
B ART
A1311
MOVE GTSTRFMT,=C'SYSVOL '
B A1315
A1312
MOVE GTSTRFMT,=C'REGVOL '
B A1315
A1313
MOVE GTSTRFMT,=C'AFBRYD '
A1315
MOVE GSWBIN1,=X'0711'
DSC1 SCREEN,POS,GSWBIN1
EDWRT SCREEN,STRTFRM
B ART
**********
STRTFRM FRMT
FILLR '+',2
FCOPY GTSTRFMT
FMEND
**********
A132
MOVE GSWBCD1,SPINPUT
MOVE GSWBIN1,=X'0301'
DSC1 SCREEN,POS,GSWBIN1
EDIT CVOL(CBIN2),A132FMT2
EDIT CVOL(CBIN3),A132FMT3
EDIT CVOL(CBIN4),A132FMT4
EDWRT SCREEN,A132FMT1
B ART
A132FMT1 FRMT
FILLR '+',2
FCOPY CVOL(CBIN2)
FILLR ' ',1
FCOPY CVOL(CBIN3)
FILLR ' ',1
FCOPY CVOL(CBIN4)
FMEND
A132FMT2 FRMT
FMEL '999',GSWBCD1
FTEXT '002'
FMEND
A132FMT3 FRMT
FMEL '999',GSWBCD1
FTEXT '003'
FMEND
A132FMT4 FRMT
FMEL '999',GSWBCD1
FTEXT '004'
FMEND
**********
APK KEEP INFORMATION
TBF TTEORFLG,APK00 FIRST FIELD?
CBE SPBINW3,CBIN5,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
SPACES PROC
MOVE GSWBIN1,=W'35'
PERF REPL00,SPINPUT,GSWBIN1
RET
PEND
EJECT
SETKRE PROC
********************
*
* SETKRE - SET KREDIT INFORMATION
*
********************
MOVE GTDBKRC,=C' KRE'
MOVE GTDBKRS,=D'-1'
MOVE TTDKBCD,=D'1'
MOVE TTDKDEX,CBIN1
RET
PEND
*
SETDEB PROC
********************
*
* SETDEB - SET DEBET INFORMATION
*
********************
MOVE GTDBKRC,=C' DEB'
MOVE GTDBKRS,=D'+1'
MOVE TTDKBCD,=D'2'
MOVE TTDKDEX,CBIN2
RET
PEND
EJECT
SELTR PROC
********************
*
* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN
* SELECTED.
* SELECTED TRANSTYPE IS IN SPBINW5
*
********************
CBE SPBINW2,CBIN3,SELOK ENTER KEY
CBE SPBINW2,CBIN18,SEL10 KREDIT KEY
CBE SPBINW2,CBIN17,SEL20 DEBET KEY
MOVE SPBINW4,CBIN4 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,CBIN19 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
EJECT
YYMMDD PROC P
**********
* YYMMDD CHECKS THAT THE DATE IS IN FOR FORMAT YYMMDD.
* IF NOT, IT WILL BE INVERTED
* OUTPUT IN GSWBCD7
**********
MOVE GSWBCD7,P
CBG P,=D'800000',YYMM90
MOVE GSWBCD6,P
XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4
XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6
YYMM90
RET
PEND
CHDATO PROC
**********
* CHANGES GSWBCD6 (DDMMYY) TO
* GSWBCD7 (YYMMDD)
**********
MOVE GSWBCD7,GSWBCD6
XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4
XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6
RET
PEND
*
XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT
PLIT $TOPNT
PLIT $SIZE
PLIT $FROMPNT
MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD
MOVE GSWBIN4,$SIZE LENGTH
MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD
XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5
RET
PEND
END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT SUBAPL 820903 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAPPL «, t00=0x0000, t01=0x0046}
0x0058…006e Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK1 «, t00=0x0000, t01=0x005c}
0x006e…0084 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK2 «, t00=0x0000, t01=0x0072}
0x0084…009a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK3 «, t00=0x0000, t01=0x0088}
0x009a…00b0 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK4 «, t00=0x0000, t01=0x009e}
0x00b0…00c6 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK5 «, t00=0x0000, t01=0x00b4}
0x00c6…00dc Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK6 «, t00=0x0000, t01=0x00ca}
0x00dc…00f2 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPCHK7 «, t00=0x0000, t01=0x00e0}
0x00f2…0108 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPTCHK «, t00=0x0000, t01=0x00f6}
0x0108…011e Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKRE «, t00=0x0000, t01=0x010c}
0x011e…0134 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETDEB «, t00=0x0000, t01=0x0122}
0x0134…0148 Head {h00=0x0010, h01=0x0050, text=» ENTRY SELTR«, t00=0x0000, t01=0x0138}
0x0148…015e Head {h00=0x0012, h01=0x0050, text=» ENTRY CHDATO «, t00=0x0000, t01=0x014c}
0x015e…0172 Head {h00=0x0010, h01=0x0050, text=» ENTRY XCOP «, t00=0x0000, t01=0x0162}
0x0172…0188 Head {h00=0x0012, h01=0x0050, text=» ENTRY YYMMDD «, t00=0x0000, t01=0x0176}
0x0188…019c Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0000, t01=0x018c}
0x019c…01ae Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x0010}
0x01ae…01c2 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x0022}
0x01c2…01d6 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0001, t01=0x0036}
0x01d6…01e8 Head {h00=0x000e, h01=0x0050, text=» EXT CRKJ «, t00=0x0001, t01=0x004a}
0x01e8…01fa Head {h00=0x000e, h01=0x0050, text=» EXT KKCH «, t00=0x0001, t01=0x005c}
0x01fa…020e Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x006e}
0x020e…0220 Head {h00=0x000e, h01=0x0050, text=» EXT TXTRD«, t00=0x0001, t01=0x0082}
0x0220…0232 Head {h00=0x000e, h01=0x0050, text=» EXT LEVRD«, t00=0x0001, t01=0x0094}
0x0232…0246 Head {h00=0x0010, h01=0x0050, text=» EXT REPL00 «, t00=0x0001, t01=0x00a6}
0x0246…025e Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x00ba}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…027c Head {h00=0x0010, h01=0x0050, text=»SPCHK1 PROC «, t00=0x0001, t01=0x00dc}
0x027c…0298 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x00f0}
0x0298…02a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a2…02c6 Head {h00=0x0020, h01=0x0050, text=»* SPCHK1 - CDVCHECK«, t00=0x0001, t01=0x0116}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…0310 Head {h00=0x003c, h01=0x0050, text=»* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x0001, t01=0x0144}
0x0310…034c Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x0001, t01=0x0184}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0030}
0x0356…0372 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x003a}
0x0372…03a0 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0002, t01=0x0056}
0x03a0…03c8 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0002, t01=0x0084}
0x03c8…0404 Head {h00=0x0038, h01=0x0050, text=» CBL GSWBIN1,CBIN3,CHK1RET FOR LENGTH < 3, NO CHECK «, t00=0x0002, t01=0x00ac}
0x0404…043a Head {h00=0x0032, h01=0x0050, text=» CBL GSWBIN1,CBIN7,CHK1ER IF 2<LENGTH<7, ERROR«, t00=0x0002, t01=0x00e8}
0x043a…0476 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN1,CBIN7,CHK10 IF LENGTH = 7, OK (CIRNR) «, t00=0x0002, t01=0x011e}
0x0476…04b6 Head {h00=0x003c, h01=0x0050, text=» CBNE GSWBIN1,CBIN10,CHK1ER IF LENGTH = 10, OK (CPRNR)«, t00=0x0002, t01=0x015a}
0x04b6…04c4 Head {h00=0x000a, h01=0x0050, text=»CHK10 «, t00=0x0003, t01=0x000a}
0x04c4…04e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN13«, t00=0x0003, t01=0x0018}
0x04e0…04fc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x0003, t01=0x0034}
0x04fc…0530 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED«, t00=0x0003, t01=0x0050}
0x0530…054c Head {h00=0x0018, h01=0x0050, text=» TBT GTADMFLG,CHK11 «, t00=0x0003, t01=0x0084}
0x054c…056e Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD6,=D'1',CHK1ER «, t00=0x0003, t01=0x00a0}
0x056e…0576 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00c2}
0x0576…05a4 Head {h00=0x002a, h01=0x0050, text=»CHK11 MOVE GSWBCD3,=D'1' BLANK GSWBCD3«, t00=0x0003, t01=0x00ca}
0x05a4…05e4 Head {h00=0x003c, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT«, t00=0x0003, t01=0x00f8}
0x05e4…061e Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH«, t00=0x0003, t01=0x0138}
0x061e…064a Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x0003, t01=0x0172}
0x064a…0678 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN2,CBIN1 ADJUST WEIGHT INDEX«, t00=0x0004, t01=0x000e}
0x0678…06a8 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN1,CBIN1 ADJUST LENGTH OF ITEM«, t00=0x0004, t01=0x003c}
0x06a8…06dc Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,CHK11 BACK TO NEXT DIGIT«, t00=0x0004, t01=0x006c}
0x06dc…06fa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x0004, t01=0x00a0}
0x06fa…0722 Head {h00=0x0024, h01=0x0050, text=» DIV GSWBCD5,=D'11' DIVIDE BY 11«, t00=0x0004, t01=0x00be}
0x0722…074e Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD5,=D'11' MULTIPLY WITH 11«, t00=0x0004, t01=0x00e6}
0x074e…0780 Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x0004, t01=0x0112}
0x0780…07be Head {h00=0x003a, h01=0x0050, text=» CBL GSWBCD4,=D'1',CHK1RET IF REMAINDER 0, THEN RETURN«, t00=0x0004, t01=0x0144}
0x07be…07cc Head {h00=0x000a, h01=0x0050, text=»CHK1ER«, t00=0x0004, t01=0x0182}
0x07cc…07e8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN6 «, t00=0x0004, t01=0x0190}
0x07e8…0814 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN3 SET ERROR VALUE «, t00=0x0005, t01=0x001c}
0x0814…081e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0048}
0x081e…082e Head {h00=0x000c, h01=0x0050, text=»CHK1RET «, t00=0x0005, t01=0x0052}
0x082e…083a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0062}
0x083a…0848 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x006e}
0x0848…0856 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x007c}
0x0856…086a Head {h00=0x0010, h01=0x0050, text=»SPCHK2 PROC «, t00=0x0005, t01=0x008a}
0x086a…0886 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0005, t01=0x009e}
0x0886…0890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x0890…08b6 Head {h00=0x0022, h01=0x0050, text=»* SPCHK2 - CHECK DATE«, t00=0x0005, t01=0x00c4}
0x08b6…08c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08c0…08f4 Head {h00=0x0030, h01=0x0050, text=»* CHECKS 0<DAY<32 AND 0<MONTH<13«, t00=0x0005, t01=0x00f4}
0x08f4…0922 Head {h00=0x002a, h01=0x0050, text=»* DATE IS IN THE FORM DDMMYY«, t00=0x0005, t01=0x0128}
0x0922…094a Head {h00=0x0024, h01=0x0050, text=»* INPUT FIELD: SPINPUT «, t00=0x0005, t01=0x0156}
0x094a…0954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017e}
0x0954…0990 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0005, t01=0x0188}
0x0990…099a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0034}
0x099a…09b6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0006, t01=0x003e}
0x09b6…09be Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x005a}
0x09be…09ec Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN1 INITIAL ERRORCODE «, t00=0x0006, t01=0x0062}
0x09ec…0a16 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0006, t01=0x0090}
0x0a16…0a3c Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET DATE«, t00=0x0006, t01=0x00ba}
0x0a3c…0a6e Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,CBIN10 SET POINTER TO MONTH «, t00=0x0006, t01=0x00e0}
0x0a6e…0aaa Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH «, t00=0x0006, t01=0x0112}
0x0aaa…0ad6 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH29 CHECK MONTH«, t00=0x0006, t01=0x014e}
0x0ad6…0af6 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0006, t01=0x017a}
0x0af6…0b26 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,CBIN2 ADJUST POINTER TO DAY«, t00=0x0007, t01=0x000a}
0x0b26…0b60 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY «, t00=0x0007, t01=0x003a}
0x0b60…0b80 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'31',CH29«, t00=0x0007, t01=0x0074}
0x0b80…0ba0 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH29 «, t00=0x0007, t01=0x0094}
0x0ba0…0bb2 Head {h00=0x000e, h01=0x0050, text=» B CH2RET «, t00=0x0007, t01=0x00b4}
0x0bb2…0bbe Head {h00=0x0008, h01=0x0050, text=»CH29«, t00=0x0007, t01=0x00c6}
0x0bbe…0be8 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0007, t01=0x00d2}
0x0be8…0c12 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN7 SET ERRORCODE «, t00=0x0007, t01=0x00fc}
0x0c12…0c20 Head {h00=0x000a, h01=0x0050, text=»CH2RET«, t00=0x0007, t01=0x0126}
0x0c20…0c3c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0007, t01=0x0134}
0x0c3c…0c48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0150}
0x0c48…0c56 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x015c}
0x0c56…0c64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x016a}
0x0c64…0c78 Head {h00=0x0010, h01=0x0050, text=»SPCHK3 PROC «, t00=0x0007, t01=0x0178}
0x0c78…0c90 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x018c}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0014}
0x0c9a…0cc0 Head {h00=0x0022, h01=0x0050, text=»* SPCHK3 - CHECK MONTH«, t00=0x0008, t01=0x001e}
0x0cc0…0cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cca…0cf0 Head {h00=0x0022, h01=0x0050, text=»* CHECKS 0<MONTH<13 «, t00=0x0008, t01=0x004e}
0x0cf0…0d1c Head {h00=0x0028, h01=0x0050, text=»* MONTH IS IN THE FORM MM «, t00=0x0008, t01=0x0074}
0x0d1c…0d42 Head {h00=0x0022, h01=0x0050, text=»* INPUT FIELD: SPINPUT«, t00=0x0008, t01=0x00a0}
0x0d42…0d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4c…0d88 Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4«, t00=0x0008, t01=0x00d0}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d92…0dac Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x0116}
0x0dac…0dd4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET MONTH «, t00=0x0008, t01=0x0130}
0x0dd4…0e00 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD3,=D'12',CH39 CHECK MONTH«, t00=0x0008, t01=0x0158}
0x0e00…0e20 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH39 «, t00=0x0008, t01=0x0184}
0x0e20…0e4c Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN1 SET ERRORCODE OK«, t00=0x0009, t01=0x0014}
0x0e4c…0e5e Head {h00=0x000e, h01=0x0050, text=» B CH3RET «, t00=0x0009, t01=0x0040}
0x0e5e…0e6a Head {h00=0x0008, h01=0x0050, text=»CH39«, t00=0x0009, t01=0x0052}
0x0e6a…0e94 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW3,CBIN3 INDICATE ERROR«, t00=0x0009, t01=0x005e}
0x0e94…0ebe Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN7 SET ERRORCODE «, t00=0x0009, t01=0x0088}
0x0ebe…0ecc Head {h00=0x000a, h01=0x0050, text=»CH3RET«, t00=0x0009, t01=0x00b2}
0x0ecc…0ed8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00c0}
0x0ed8…0ee6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00cc}
0x0ee6…0ef4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00da}
0x0ef4…0f08 Head {h00=0x0010, h01=0x0050, text=»SPCHK4 PROC «, t00=0x0009, t01=0x00e8}
0x0f08…0f24 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00fc}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x0f2e…0f6e Head {h00=0x003c, h01=0x0050, text=»* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY «, t00=0x0009, t01=0x0122}
0x0f6e…0f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0162}
0x0f78…0f94 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x016c}
0x0f94…0fb0 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0009, t01=0x0188}
0x0fb0…0fd4 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN18,CH4RET «, t00=0x000a, t01=0x0014}
0x0fd4…1000 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT IF KREDIT KEY «, t00=0x000a, t01=0x0038}
0x1000…101c Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD7,=D'-1' «, t00=0x000a, t01=0x0064}
0x101c…103a Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD7 «, t00=0x000a, t01=0x0080}
0x103a…1066 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,CBIN3 SIMULATE EOI-KEY«, t00=0x000a, t01=0x009e}
0x1066…1074 Head {h00=0x000a, h01=0x0050, text=»CH4RET«, t00=0x000a, t01=0x00ca}
0x1074…1080 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00d8}
0x1080…108e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x00e4}
0x108e…109c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00f2}
0x109c…10b0 Head {h00=0x0010, h01=0x0050, text=»SPCHK5 PROC «, t00=0x000a, t01=0x0100}
0x10b0…10cc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0114}
0x10cc…10d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0130}
0x10d6…1104 Head {h00=0x002a, h01=0x0050, text=»* SPCHK5 - CHECK LINE NUMBER «, t00=0x000a, t01=0x013a}
0x1104…110e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0168}
0x110e…112a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x0172}
0x112a…1146 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000a, t01=0x018e}
0x1146…1174 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NUMBER «, t00=0x000b, t01=0x001a}
0x1174…11aa Head {h00=0x0032, h01=0x0050, text=» CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ? «, t00=0x000b, t01=0x0048}
0x11aa…11cc Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'91',CH510 «, t00=0x000b, t01=0x007e}
0x11cc…11e6 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBCD3,=D'2'«, t00=0x000b, t01=0x00a0}
0x11e6…1218 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD4,CVOUTOP GET NO OF LINES/PAGE«, t00=0x000b, t01=0x00ba}
0x1218…1234 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD4,GSWBCD3«, t00=0x000b, t01=0x00ec}
0x1234…1264 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE?«, t00=0x000b, t01=0x0108}
0x1264…1282 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD4 «, t00=0x000b, t01=0x0138}
0x1282…12a6 Head {h00=0x0020, h01=0x0050, text=» CBNL GSWBIN1,CVOUTOP,CH5ERR«, t00=0x000b, t01=0x0156}
0x12a6…12ca Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CMINLIN,CH5ERR «, t00=0x000b, t01=0x017a}
0x12ca…12d6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x000e}
0x12d6…12e4 Head {h00=0x000a, h01=0x0050, text=»CH5ERR«, t00=0x000c, t01=0x001a}
0x12e4…1300 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x000c, t01=0x0028}
0x1300…131c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN8 «, t00=0x000c, t01=0x0044}
0x131c…1328 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0060}
0x1328…1336 Head {h00=0x000a, h01=0x0050, text=»CH510 «, t00=0x000c, t01=0x006c}
0x1336…1354 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x000c, t01=0x007a}
0x1354…1360 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0098}
0x1360…136e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x00a4}
0x136e…137c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00b2}
0x137c…1390 Head {h00=0x0010, h01=0x0050, text=»SPCHK6 PROC «, t00=0x000c, t01=0x00c0}
0x1390…13ac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x00d4}
0x13ac…13b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f0}
0x13b6…13fc Head {h00=0x0042, h01=0x0050, text=»* SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, «, t00=0x000c, t01=0x00fa}
0x13fc…1418 Head {h00=0x0018, h01=0x0050, text=»* KONTOKORT«, t00=0x000c, t01=0x0140}
0x1418…1422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x015c}
0x1422…143e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x0166}
0x143e…1450 Head {h00=0x000e, h01=0x0050, text=» PERF KKCH«, t00=0x000c, t01=0x0182}
0x1450…1478 (13, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET DIGIT «, t00=0x000d, t01=0x0004}
0x1478…1494 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x000d, t01=0x002c}
0x1494…14c6 Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'1',CH6RET NO CHECK IF ZERO«, t00=0x000d, t01=0x0048}
0x14c6…14ec Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD3,TTKTCHK,CH6RET OK«, t00=0x000d, t01=0x007a}
0x14ec…150e Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW3,CBIN3 ERROR «, t00=0x000d, t01=0x00a0}
0x150e…152a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN13«, t00=0x000d, t01=0x00c2}
0x152a…1538 Head {h00=0x000a, h01=0x0050, text=»CH6RET«, t00=0x000d, t01=0x00de}
0x1538…1544 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00ec}
0x1544…1552 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00f8}
0x1552…155a Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0106}
0x155a…1562 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x010e}
0x1562…156a Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0116}
0x156a…1572 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x011e}
0x1572…1586 Head {h00=0x0010, h01=0x0050, text=»SPCHK7 PROC «, t00=0x000d, t01=0x0126}
0x1586…1598 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x013a}
0x1598…15a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014c}
0x15a2…15ce Head {h00=0x0028, h01=0x0050, text=»* SPCHK7- CDVCHECK (USES SPCHK1)«, t00=0x000d, t01=0x0156}
0x15ce…1604 Head {h00=0x0032, h01=0x0050, text=»* INSERTS CHECKDIGIT, IF LENGTH=8 «, t00=0x000d, t01=0x0182}
0x1604…160e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0028}
0x160e…164e Head {h00=0x003c, h01=0x0050, text=»* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT«, t00=0x000e, t01=0x0032}
0x164e…168a Head {h00=0x0038, h01=0x0050, text=»* IF ERROR, ERRORCODE 6 IS MOVED TO SPBINW4«, t00=0x000e, t01=0x0072}
0x168a…16b2 Head {h00=0x0024, h01=0x0050, text=»* FIELD MUST BE 7 OR 10 LONG«, t00=0x000e, t01=0x00ae}
0x16b2…16f8 Head {h00=0x0042, h01=0x0050, text=»* IF FIELD IS 8 LONG, IT IS ASSUMED TO BE A PHONE NUMBER, «, t00=0x000e, t01=0x00d6}
0x16f8…1736 Head {h00=0x003a, h01=0x0050, text=»* AND IS THEN CHANGED FROM 0XXXXXXX TO 5XXXXXXXCC «, t00=0x000e, t01=0x011c}
0x1736…1740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x015a}
0x1740…1752 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0164}
0x1752…175c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0176}
0x175c…1778 Head {h00=0x0018, h01=0x0050, text=» TBF CLEV8FLG,CHK705«, t00=0x000e, t01=0x0180}
0x1778…17a0 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x000f, t01=0x000c}
0x17a0…17e0 Head {h00=0x003c, h01=0x0050, text=» CBE GSWBIN1,CBIN8,CHK710 SPECIAL TREATMENT OF PHONE NO «, t00=0x000f, t01=0x0034}
0x17e0…17ee Head {h00=0x000a, h01=0x0050, text=»CHK705«, t00=0x000f, t01=0x0074}
0x17ee…1816 Head {h00=0x0024, h01=0x0050, text=» PERF SPCHK1 ELSE NORMAL CDVCHK «, t00=0x000f, t01=0x0082}
0x1816…1828 Head {h00=0x000e, h01=0x0050, text=» B CHK7RET«, t00=0x000f, t01=0x00aa}
0x1828…1832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x1832…1840 Head {h00=0x000a, h01=0x0050, text=»CHK710«, t00=0x000f, t01=0x00c6}
0x1840…185c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN0 «, t00=0x000f, t01=0x00d4}
0x185c…1888 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT +FFFFF0XXXXXXX«, t00=0x000f, t01=0x00f0}
0x1888…18b4 Head {h00=0x0028, h01=0x0050, text=» TBT C539FLG,CHK720 JUMP IF TINGLEV «, t00=0x000f, t01=0x011c}
0x18b4…18d6 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD3,=D'5' +FFFF5«, t00=0x000f, t01=0x0148}
0x18d6…1906 Head {h00=0x002c, h01=0x0050, text=» COPY GSWBCD6,CBIN6,CBIN1,GSWBCD3,CBIN5 «, t00=0x000f, t01=0x016a}
0x1906…1914 Head {h00=0x000a, h01=0x0050, text=»CHK720«, t00=0x0010, t01=0x000a}
0x1914…193e Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD6,=D'10' +FFFF5XXXXXXX0«, t00=0x0010, t01=0x0018}
0x193e…195c Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0010, t01=0x0042}
0x195c…1982 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW1,CBIN9 SET LENGTH«, t00=0x0010, t01=0x0060}
0x1982…19ac Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,SPBINW2 SAVE END KEY«, t00=0x0010, t01=0x0086}
0x19ac…19d4 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW2,CBIN3 SIMULATE KEY«, t00=0x0010, t01=0x00b0}
0x19d4…19fc Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW3,=W'105' APPL VALUE«, t00=0x0010, t01=0x00d8}
0x19fc…1a28 Head {h00=0x0028, h01=0x0050, text=» PERF SPAPPL CALCULATE CONTROL DIGIT«, t00=0x0010, t01=0x0100}
0x1a28…1a58 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,SPBINW5 RESTORE KEY VALUE «, t00=0x0010, t01=0x012c}
0x1a58…1a8e Head {h00=0x0032, h01=0x0050, text=» CBNE GSWBCD5,=D'10',CHK730 CHECK CONTROLDIGIT«, t00=0x0010, t01=0x015c}
0x1a8e…1abc (17, 0, 400) Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD5,=D'50' SET CONTROL DIGIT«, t00=0x0011, t01=0x0004}
0x1abc…1aca Head {h00=0x000a, h01=0x0050, text=»CHK730«, t00=0x0011, t01=0x0032}
0x1aca…1afc Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD6,=D'10' ROOM FOR CONTROLDIGIT «, t00=0x0011, t01=0x0040}
0x1afc…1b2e Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD6,GSWBCD5 INSERT CONTROL DIGIT «, t00=0x0011, t01=0x0072}
0x1b2e…1b56 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,CBIN10 SET LENGTH «, t00=0x0011, t01=0x00a4}
0x1b56…1b74 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0011, t01=0x00cc}
0x1b74…1b84 Head {h00=0x000c, h01=0x0050, text=»CHK7RET «, t00=0x0011, t01=0x00ea}
0x1b84…1b90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x00fa}
0x1b90…1b9e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0106}
0x1b9e…1bac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0114}
0x1bac…1bc0 Head {h00=0x0010, h01=0x0050, text=»SPTCHK PROC «, t00=0x0011, t01=0x0122}
0x1bc0…1bdc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0136}
0x1bdc…1be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0152}
0x1be6…1c18 Head {h00=0x002e, h01=0x0050, text=»* SPTCHK - CONDITIONAL TABULATION«, t00=0x0011, t01=0x015c}
0x1c18…1c4a Head {h00=0x002e, h01=0x0050, text=»* CONTROLLED BY 'CTAB' IN FORMATS«, t00=0x0011, t01=0x018e}
0x1c4a…1c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0030}
0x1c54…1c70 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x003a}
0x1c70…1c98 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0012, t01=0x0056}
0x1c98…1cba Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,=W'84',TCHK84«, t00=0x0012, t01=0x007e}
0x1cba…1ce2 Head {h00=0x0024, h01=0x0050, text=» SUB SPBINW3,CBIN16 ADJUST INDEX«, t00=0x0012, t01=0x00a0}
0x1ce2…1cfa Head {h00=0x0014, h01=0x0050, text=» IB SPBINW3, C «, t00=0x0012, t01=0x00c8}
0x1cfa…1d20 Head {h00=0x0022, h01=0x0050, text=» TCHK17,TCHK18,TCHK19,TCHK20 «, t00=0x0012, t01=0x00e0}
0x1d20…1d42 Head {h00=0x001e, h01=0x0050, text=» SUB SPBINW3,=W'61' +16-77«, t00=0x0012, t01=0x0106}
0x1d42…1d64 Head {h00=0x001e, h01=0x0050, text=» IB SPBINW3,TCHK78,TCHK79 «, t00=0x0012, t01=0x0128}
0x1d64…1d88 Head {h00=0x0020, h01=0x0050, text=» SUB SPBINW3,=W'38' 116-119 «, t00=0x0012, t01=0x014a}
0x1d88…1dbc Head {h00=0x0030, h01=0x0050, text=» IB SPBINW3,TCHK116,TCHK117,TCHK118,TCHK119 «, t00=0x0012, t01=0x016e}
0x1dbc…1dda Head {h00=0x001a, h01=0x0050, text=»TCHK00 CORRECT FIELD«, t00=0x0013, t01=0x0012}
0x1dda…1df6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN0 «, t00=0x0013, t01=0x0030}
0x1df6…1e02 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x004c}
0x1e02…1e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0058}
0x1e0c…1e1a Head {h00=0x000a, h01=0x0050, text=»TCHK17«, t00=0x0013, t01=0x0062}
0x1e1a…1e32 Head {h00=0x0014, h01=0x0050, text=» TBT BCPR,TCHK00«, t00=0x0013, t01=0x0070}
0x1e32…1e44 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0013, t01=0x0088}
0x1e44…1e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009a}
0x1e4e…1e5c Head {h00=0x000a, h01=0x0050, text=»TCHK18«, t00=0x0013, t01=0x00a4}
0x1e5c…1e6a Head {h00=0x000a, h01=0x0050, text=»TCHK19«, t00=0x0013, t01=0x00b2}
0x1e6a…1e78 Head {h00=0x000a, h01=0x0050, text=»TCHK20«, t00=0x0013, t01=0x00c0}
0x1e78…1e90 Head {h00=0x0014, h01=0x0050, text=» TBF BCPR,TCHK00«, t00=0x0013, t01=0x00ce}
0x1e90…1ea2 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0013, t01=0x00e6}
0x1ea2…1eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f8}
0x1eac…1eba Head {h00=0x000a, h01=0x0050, text=»TCHK78«, t00=0x0013, t01=0x0102}
0x1eba…1ed8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0013, t01=0x0110}
0x1ed8…1ef4 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0013, t01=0x012e}
0x1ef4…1f32 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB «, t00=0x0013, t01=0x014a}
0x1f32…1f52 Head {h00=0x001c, h01=0x0050, text=» B TCHK99 CORRECT FIELD «, t00=0x0013, t01=0x0188}
0x1f52…1f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0018}
0x1f5c…1f6a Head {h00=0x000a, h01=0x0050, text=»TCHK79«, t00=0x0014, t01=0x0022}
0x1f6a…1f88 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,TTCNTNR «, t00=0x0014, t01=0x0030}
0x1f88…1fa4 Head {h00=0x0018, h01=0x0050, text=» SUB SPBINW3,=W'100'«, t00=0x0014, t01=0x004e}
0x1fa4…1fe2 Head {h00=0x003a, h01=0x0050, text=» CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK99 CORRECT FIELD«, t00=0x0014, t01=0x006a}
0x1fe2…2000 Head {h00=0x001a, h01=0x0050, text=» B TCHK00 CONTINUE TAB«, t00=0x0014, t01=0x00a8}
0x2000…200a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c6}
0x200a…2018 Head {h00=0x000a, h01=0x0050, text=»TCHK84«, t00=0x0014, t01=0x00d0}
0x2018…2034 Head {h00=0x0018, h01=0x0050, text=» TBF GTTRSEL,TCHK00 «, t00=0x0014, t01=0x00de}
0x2034…2046 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0014, t01=0x00fa}
0x2046…2050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010c}
0x2050…2060 Head {h00=0x000c, h01=0x0050, text=»TCHK116 «, t00=0x0014, t01=0x0116}
0x2060…207e Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0014, t01=0x0126}
0x207e…20bc Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK00,TCHK00,TCHK99,TCHK99,TCHK00 «, t00=0x0014, t01=0x0144}
0x20bc…20ce Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0014, t01=0x0182}
0x20ce…20d8 (21, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d8…20e8 Head {h00=0x000c, h01=0x0050, text=»TCHK117 «, t00=0x0015, t01=0x000e}
0x20e8…2108 Head {h00=0x001c, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO «, t00=0x0015, t01=0x001e}
0x2108…2146 Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK00,TCHK99,TCHK99,TCHK99 «, t00=0x0015, t01=0x003e}
0x2146…2158 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x007c}
0x2158…2162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x008e}
0x2162…2172 Head {h00=0x000c, h01=0x0050, text=»TCHK118 «, t00=0x0015, t01=0x0098}
0x2172…2190 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0015, t01=0x00a8}
0x2190…21ce Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK00,TCHK00,TCHK00 «, t00=0x0015, t01=0x00c6}
0x21ce…21e0 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x0104}
0x21e0…21ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0116}
0x21ea…21fa Head {h00=0x000c, h01=0x0050, text=»TCHK119 «, t00=0x0015, t01=0x0120}
0x21fa…2218 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,GTTXTTKO«, t00=0x0015, t01=0x0130}
0x2218…2256 Head {h00=0x003a, h01=0x0050, text=» IB SPBINW3,TCHK99,TCHK99,TCHK99,TCHK99,TCHK00,TCHK99 «, t00=0x0015, t01=0x014e}
0x2256…2268 Head {h00=0x000e, h01=0x0050, text=» B TCHK99 «, t00=0x0015, t01=0x018c}
0x2268…2286 Head {h00=0x001a, h01=0x0050, text=»TCHK99 CONTINUE TAB «, t00=0x0016, t01=0x000e}
0x2286…22a2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN2 «, t00=0x0016, t01=0x002c}
0x22a2…22ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0048}
0x22ae…22bc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0054}
0x22bc…22ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0062}
0x22ca…22de Head {h00=0x0010, h01=0x0050, text=»SPAPPL PROC «, t00=0x0016, t01=0x0070}
0x22de…22fa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0016, t01=0x0084}
0x22fa…2304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a0}
0x2304…2354 Head {h00=0x004c, h01=0x0050, text=»* SPAPPL - PROCEDURE ACTIVATED BY SCREEN PACKAGE IF APPL-VALUE «, t00=0x0016, t01=0x00aa}
0x2354…2396 Head {h00=0x003e, h01=0x0050, text=»* IS NOT ZERO, WHICH IS THE CASE FOR ALL FIELDS. «, t00=0x0016, t01=0x00fa}
0x2396…23a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013c}
0x23a0…23e4 Head {h00=0x0040, h01=0x0050, text=»* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE)«, t00=0x0016, t01=0x0146}
0x23e4…2428 Head {h00=0x0040, h01=0x0050, text=»* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT «, t00=0x0016, t01=0x018a}
0x2428…2460 Head {h00=0x0034, h01=0x0050, text=»* TESTING AND BRANCH TO PACKING ROUTINE«, t00=0x0017, t01=0x003e}
0x2460…246a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0076}
0x246a…2486 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x0080}
0x2486…2490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009c}
0x2490…24c2 Head {h00=0x002e, h01=0x0050, text=»* SPBINW3 IS CURRENT APPL NUMBER «, t00=0x0017, t01=0x00a6}
0x24c2…24da Head {h00=0x0014, h01=0x0050, text=» ART - RETURN «, t00=0x0017, t01=0x00d8}
0x24da…24f6 Head {h00=0x0018, h01=0x0050, text=» APK - PACK FIELD «, t00=0x0017, t01=0x00f0}
0x24f6…251c Head {h00=0x0022, h01=0x0050, text=» APF - PACK FIELD WITH SIGN «, t00=0x0017, t01=0x010c}
0x251c…2542 Head {h00=0x0022, h01=0x0050, text=» AA01 - TEST FOR FIELD TO BE«, t00=0x0017, t01=0x0132}
0x2542…255e Head {h00=0x0018, h01=0x0050, text=» ---- - AUTODUPPED«, t00=0x0017, t01=0x0158}
0x255e…2584 Head {h00=0x0022, h01=0x0050, text=» AA02 - TEST FOR AUTODUP KEY«, t00=0x0017, t01=0x0174}
0x2584…25a6 Head {h00=0x001e, h01=0x0050, text=» AA03 - IF LENGTH ZERO, «, t00=0x0018, t01=0x000a}
0x25a6…25c4 Head {h00=0x001a, h01=0x0050, text=» ---- - DELETE FIELS«, t00=0x0018, t01=0x002c}
0x25c4…25e2 Head {h00=0x001a, h01=0x0050, text=» AA05 - TEST FIELD 5«, t00=0x0018, t01=0x004a}
0x25e2…2600 Head {h00=0x001a, h01=0x0050, text=» AA06 - TEST FIELD 6«, t00=0x0018, t01=0x0068}
0x2600…2622 Head {h00=0x001e, h01=0x0050, text=» AA11 - TEST VALOERDATE «, t00=0x0018, t01=0x0086}
0x2622…2644 Head {h00=0x001e, h01=0x0050, text=» AA17 - TEST FORFALDSAAR«, t00=0x0018, t01=0x00a8}
0x2644…266a Head {h00=0x0022, h01=0x0050, text=» AA65 - IF AA05, AA06 THERE «, t00=0x0018, t01=0x00ca}
0x266a…268e Head {h00=0x0020, h01=0x0050, text=» ---- - MIGHT BE A CHOICE «, t00=0x0018, t01=0x00f0}
0x268e…26b0 Head {h00=0x001e, h01=0x0050, text=» ---- - OF NEW TRANSTYPE«, t00=0x0018, t01=0x0114}
0x26b0…26ce Head {h00=0x001a, h01=0x0050, text=» A64 - TEST FIELD 64«, t00=0x0018, t01=0x0136}
0x26ce…26ec Head {h00=0x001a, h01=0x0050, text=» A65 - TEST FIELD 65«, t00=0x0018, t01=0x0154}
0x26ec…2710 Head {h00=0x0020, h01=0x0050, text=» A76 - COUNTER, TRANS 12 «, t00=0x0018, t01=0x0172}
0x2710…2738 Head {h00=0x0024, h01=0x0050, text=» A77 - TR 4, INSERT BKO 51,52«, t00=0x0019, t01=0x0008}
0x2738…275e Head {h00=0x0022, h01=0x0050, text=» A78 - ACCOUNT NO, TRANS 12«, t00=0x0019, t01=0x0030}
0x275e…2786 Head {h00=0x0024, h01=0x0050, text=» A79 - - - - - - (COPY)«, t00=0x0019, t01=0x0056}
0x2786…27ac Head {h00=0x0022, h01=0x0050, text=» A80-A87 - CHECK OF CONTROL «, t00=0x0019, t01=0x007e}
0x27ac…27ce Head {h00=0x001e, h01=0x0050, text=» ---- - INFORMATION FOR «, t00=0x0019, t01=0x00a4}
0x27ce…27ea Head {h00=0x0018, h01=0x0050, text=» ---- - TRANSTYPES«, t00=0x0019, t01=0x00c6}
0x27ea…280e Head {h00=0x0020, h01=0x0050, text=» A88 - AUTODUP BKO, TR 4 «, t00=0x0019, t01=0x00e2}
0x280e…2830 Head {h00=0x001e, h01=0x0050, text=» A89 - STORE IN FIELD 6«, t00=0x0019, t01=0x0106}
0x2830…2854 Head {h00=0x0020, h01=0x0050, text=» A90 - SPECIAL SLUT-FIELD«, t00=0x0019, t01=0x0128}
0x2854…2876 Head {h00=0x001e, h01=0x0050, text=» A91 - ENTER TO SLUT-KEY«, t00=0x0019, t01=0x014c}
0x2876…2894 Head {h00=0x001a, h01=0x0050, text=» A100 - CHECK TR 12 «, t00=0x0019, t01=0x016e}
0x2894…28b8 Head {h00=0x0020, h01=0x0050, text=» A101 - CHECK BEHL. COUNT.«, t00=0x0019, t01=0x018c}
0x28b8…28d2 Head {h00=0x0016, h01=0x0050, text=» A102 - REL. DAY«, t00=0x001a, t01=0x0020}
0x28d2…28f4 Head {h00=0x001e, h01=0x0050, text=» A103 - SET BEHL. COUNT «, t00=0x001a, t01=0x003a}
0x28f4…2912 Head {h00=0x001a, h01=0x0050, text=» A104 - SET TRANS 12«, t00=0x001a, t01=0x005c}
0x2912…2962 Head {h00=0x004c, h01=0x0050, text=» A105 - CTRL.DIGIT CALC.«, t00=0x001a, t01=0x007a}
0x2962…297c Head {h00=0x0016, h01=0x0050, text=» A107 - AS A102 «, t00=0x001a, t01=0x00ca}
0x297c…299e Head {h00=0x001e, h01=0x0050, text=» A108 - SPG -REGKONTONR «, t00=0x001a, t01=0x00e4}
0x299e…29be Head {h00=0x001c, h01=0x0050, text=» A109 - SPG-CPR/CIR/NR«, t00=0x001a, t01=0x0106}
0x29be…29da Head {h00=0x0018, h01=0x0050, text=» A110 - SPG-BELOB «, t00=0x001a, t01=0x0126}
0x29da…29fc Head {h00=0x001e, h01=0x0050, text=» A111 - SPG-OTHER FIELD «, t00=0x001a, t01=0x0142}
0x29fc…2a16 Head {h00=0x0016, h01=0x0050, text=» A115 REMIT-TXT «, t00=0x001a, t01=0x0164}
0x2a16…2a2e Head {h00=0x0014, h01=0x0050, text=» A120 - BUDGET«, t00=0x001a, t01=0x017e}
0x2a2e…2a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0008}
0x2a38…2a58 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW3,=W'90',AA01«, t00=0x001b, t01=0x0012}
0x2a58…2a7a Head {h00=0x001e, h01=0x0050, text=» CBG SPBINW3,=W'114',AA01 «, t00=0x001b, t01=0x0032}
0x2a7a…2a90 Head {h00=0x0012, h01=0x0050, text=» B AAA 90-114 «, t00=0x001b, t01=0x0054}
0x2a90…2a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006a}
0x2a9a…2aa6 Head {h00=0x0008, h01=0x0050, text=»AA01«, t00=0x001b, t01=0x0074}
0x2aa6…2ad8 Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,CBIN0,AAA IF LENGTH IS ZERO «, t00=0x001b, t01=0x0080}
0x2ad8…2b1a Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN4,CFLTDEX(SPBINW3) GET INDEX VALUE TO GSWBIN4 «, t00=0x001b, t01=0x00b2}
0x2b1a…2b4a Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(GSWBIN4),CBIN0 DELETE FIELD«, t00=0x001b, t01=0x00f4}
0x2b4a…2b58 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x001b, t01=0x0124}
0x2b58…2b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0132}
0x2b62…2b7c Head {h00=0x0016, h01=0x0050, text=»AAA IB SPBINW3, C«, t00=0x001b, t01=0x013c}
0x2b7c…2bb8 Head {h00=0x0038, h01=0x0050, text=» ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C «, t00=0x001b, t01=0x0156}
0x2bb8…2bfa (28, 0, 400) Head {h00=0x003e, h01=0x0050, text=» APK,A11,APK,APK,APK,APK,APK,A17,APK,APK, FIELDS 10,19 C «, t00=0x001c, t01=0x0004}
0x2bfa…2c3c Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APK,APK,APK, FIELDS 20-29 C «, t00=0x001c, t01=0x0046}
0x2c3c…2c7e Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APF,APK,APK,APK,APK,APK,APF, FIELDS 30-39 C «, t00=0x001c, t01=0x0088}
0x2c7e…2cc0 Head {h00=0x003e, h01=0x0050, text=» APK,APK,APK,APK,APK,APK,APK,APF,APK,APK, FIELDS 40-49 C «, t00=0x001c, t01=0x00ca}
0x2cc0…2d02 Head {h00=0x003e, h01=0x0050, text=» APK,APK,APF,APF,A54,A57,A57,A57,A57,A57, FIELDS 50-59 C «, t00=0x001c, t01=0x010c}
0x2d02…2d44 Head {h00=0x003e, h01=0x0050, text=» A57,A57,A57,APK,A64,A65,APK,ART,ART,ART, FIELDS 60-69 C «, t00=0x001c, t01=0x014e}
0x2d44…2d86 Head {h00=0x003e, h01=0x0050, text=» APK,APK,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C «, t00=0x001c, t01=0x0190}
0x2d86…2dc8 Head {h00=0x003e, h01=0x0050, text=» A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C «, t00=0x001d, t01=0x0042}
0x2dc8…2e0a Head {h00=0x003e, h01=0x0050, text=» A90,A91,A92,A93,A94,ART,ART,ART,ART,ART, FIELDS 90,99 C «, t00=0x001d, t01=0x0084}
0x2e0a…2e3e Head {h00=0x0030, h01=0x0050, text=» A100,A101,A102,A103,A104, FIELDS 100,104 C«, t00=0x001d, t01=0x00c6}
0x2e3e…2e72 Head {h00=0x0030, h01=0x0050, text=» A105,ART,A107,A108,A109, FIELDS 105,109 C «, t00=0x001d, t01=0x00fa}
0x2e72…2ea2 Head {h00=0x002c, h01=0x0050, text=» A110,A111,ART,ART,ART, FIELS 110,114 C«, t00=0x001d, t01=0x012e}
0x2ea2…2edc Head {h00=0x0036, h01=0x0050, text=» A115,A116,A117,A118,A119,A120, FIELDS 115,120 C «, t00=0x001d, t01=0x015e}
0x2edc…2f0e Head {h00=0x002e, h01=0x0050, text=» A121,A122,APK,APK,APK, FIELDS 121-125 C «, t00=0x001e, t01=0x0008}
0x2f0e…2f36 Head {h00=0x0024, h01=0x0050, text=» ART,ART,ART,ART,A130,A131,A132«, t00=0x001e, t01=0x003a}
0x2f36…2f48 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0062}
0x2f48…2f74 Head {h00=0x0028, h01=0x0050, text=»A05 CHECK REGISTRERINGSKONTONUMMER«, t00=0x001e, t01=0x0074}
0x2f74…2f9c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x001e, t01=0x00a0}
0x2f9c…2fc8 Head {h00=0x0028, h01=0x0050, text=» CBE GSWBIN1,CBIN4,A059 LENGTH = 4? «, t00=0x001e, t01=0x00c8}
0x2fc8…3002 Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065«, t00=0x001e, t01=0x00f4}
0x3002…3030 Head {h00=0x002a, h01=0x0050, text=» CMP GSWBIN1,CBIN10 LENGTH MUST BE 10 «, t00=0x001e, t01=0x012e}
0x3030…3042 Head {h00=0x000e, h01=0x0050, text=» BNE A058 «, t00=0x001e, t01=0x015c}
0x3042…3060 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x001e, t01=0x016e}
0x3060…3084 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x001e, t01=0x018c}
0x3084…30a2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001f, t01=0x0020}
0x30a2…30ba Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x001f, t01=0x003e}
0x30ba…30ee Head {h00=0x0030, h01=0x0050, text=» A053,A053,A051,A053,A053,A052,A0570,A0575 «, t00=0x001f, t01=0x0056}
0x30ee…30fa Head {h00=0x0008, h01=0x0050, text=»A051«, t00=0x001f, t01=0x008a}
0x30fa…311a Head {h00=0x001c, h01=0x0050, text=» B APK CPR NOT NECESSARY«, t00=0x001f, t01=0x0096}
0x311a…313c Head {h00=0x001e, h01=0x0050, text=»A052 REMIT. NOT ALLOWED «, t00=0x001f, t01=0x00b6}
0x313c…3154 Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x001f, t01=0x00d8}
0x3154…318c Head {h00=0x0034, h01=0x0050, text=» A0520,A0520,A0520,A0520,A0520, TR 1,2,3,4,5 C «, t00=0x001f, t01=0x00f0}
0x318c…31c4 Head {h00=0x0034, h01=0x0050, text=» A0520,A0520,A0525,A0525,A0520, TR 6,7,8,9,10 C«, t00=0x001f, t01=0x0128}
0x31c4…31fe Head {h00=0x0036, h01=0x0050, text=» A0520,A0525,A0525,A0525,A0525 TR 12,18,19,28,29 «, t00=0x001f, t01=0x0160}
0x31fe…320c Head {h00=0x000a, h01=0x0050, text=»A0520 «, t00=0x0020, t01=0x000a}
0x320c…321a Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0020, t01=0x0018}
0x321a…3228 Head {h00=0x000a, h01=0x0050, text=»A0525 «, t00=0x0020, t01=0x0026}
0x3228…324a Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN20 ERROR«, t00=0x0020, t01=0x0034}
0x324a…3258 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0020, t01=0x0056}
0x3258…3274 Head {h00=0x0018, h01=0x0050, text=»A053 CPR NECESSARY«, t00=0x0020, t01=0x0064}
0x3274…328c Head {h00=0x0014, h01=0x0050, text=» IB GTREGDEX, C«, t00=0x0020, t01=0x0080}
0x328c…32be Head {h00=0x002e, h01=0x0050, text=» A054,A055,A054,A054,A055, TR 1,2,3,4,5 C«, t00=0x0020, t01=0x0098}
0x32be…32f2 Head {h00=0x0030, h01=0x0050, text=» A054,A055,A055,A054,A054, TR 6,7,8,9,10 C «, t00=0x0020, t01=0x00ca}
0x32f2…3326 Head {h00=0x0030, h01=0x0050, text=» A054,A055,A054,A055,A054 TR 12,18,19,28,29«, t00=0x0020, t01=0x00fe}
0x3326…3332 Head {h00=0x0008, h01=0x0050, text=»A054«, t00=0x0020, t01=0x0132}
0x3332…3340 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0020, t01=0x013e}
0x3340…334c Head {h00=0x0008, h01=0x0050, text=»A055«, t00=0x0020, t01=0x014c}
0x334c…3372 Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A056 ERROR «, t00=0x0020, t01=0x0158}
0x3372…3390 Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x0020, t01=0x017e}
0x3390…33a0 Head {h00=0x000c, h01=0x0050, text=» B A054 «, t00=0x0021, t01=0x000c}
0x33a0…33ac Head {h00=0x0008, h01=0x0050, text=»A056«, t00=0x0021, t01=0x001c}
0x33ac…33c8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN19«, t00=0x0021, t01=0x0028}
0x33c8…33d6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x0044}
0x33d6…33e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0052}
0x33e0…3406 Head {h00=0x0022, h01=0x0050, text=»A0570 7: KNT.NO. NOT ALLOWED«, t00=0x0021, t01=0x005c}
0x3406…3422 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'23'«, t00=0x0021, t01=0x0082}
0x3422…3430 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x009e}
0x3430…343a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ac}
0x343a…3468 Head {h00=0x002a, h01=0x0050, text=»A0575 8:KNT.NO. NOT ALLOWED IN SUPL «, t00=0x0021, t01=0x00b6}
0x3468…3490 Head {h00=0x0024, h01=0x0050, text=» CBE GTREGDEX,CBIN10,A0577 TR 10«, t00=0x0021, t01=0x00e4}
0x3490…34b0 Head {h00=0x001c, h01=0x0050, text=» TBT TTSUPFLG,A0577 SUPL«, t00=0x0021, t01=0x010c}
0x34b0…34c2 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0021, t01=0x012c}
0x34c2…34d8 Head {h00=0x0012, h01=0x0050, text=»A0577 NOT OK«, t00=0x0021, t01=0x013e}
0x34d8…34f4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN22«, t00=0x0021, t01=0x0154}
0x34f4…3502 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0021, t01=0x0170}
0x3502…350c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017e}
0x350c…3518 Head {h00=0x0008, h01=0x0050, text=»A059«, t00=0x0021, t01=0x0188}
0x3518…354a (34, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CBL GTREGNR,=D'48',A058 ONLY ALLOWED WHEN«, t00=0x0022, t01=0x0004}
0x354a…357e Head {h00=0x0030, h01=0x0050, text=» CBG GTREGNR,=D'49',A058 IN BUDGET TR.48/49 «, t00=0x0022, t01=0x0036}
0x357e…358c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0022, t01=0x006a}
0x358c…3596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0078}
0x3596…35a2 Head {h00=0x0008, h01=0x0050, text=»A058«, t00=0x0022, t01=0x0082}
0x35a2…35cc Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN3 SET ERRORCODE «, t00=0x0022, t01=0x008e}
0x35cc…35da Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0022, t01=0x00b8}
0x35da…35ec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x00c6}
0x35ec…360e Head {h00=0x001e, h01=0x0050, text=»A06 CHECK CPR/CIR NUMBER«, t00=0x0022, t01=0x00d8}
0x360e…3636 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x0022, t01=0x00fa}
0x3636…3670 Head {h00=0x0036, h01=0x0050, text=» CBL GSWBIN1,CBIN3,A065 TRANSTYPE HANDLING IN A065«, t00=0x0022, t01=0x0122}
0x3670…369a Head {h00=0x0026, h01=0x0050, text=» SET BCPR SET CPR-SWITCH (CPR-NO) «, t00=0x0022, t01=0x015c}
0x369a…36b8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0022, t01=0x0186}
0x36b8…36de Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A061«, t00=0x0023, t01=0x0014}
0x36de…36fa Head {h00=0x0018, h01=0x0050, text=» SET BLEV LEVERAND. «, t00=0x0023, t01=0x003a}
0x36fa…3722 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3900000000',A062«, t00=0x0023, t01=0x0056}
0x3722…373a Head {h00=0x0014, h01=0x0050, text=» CLEAR BLEV CPR.«, t00=0x0023, t01=0x007e}
0x373a…374a Head {h00=0x000c, h01=0x0050, text=» B A062 «, t00=0x0023, t01=0x0096}
0x374a…3756 Head {h00=0x0008, h01=0x0050, text=»A061«, t00=0x0023, t01=0x00a6}
0x3756…3784 Head {h00=0x002a, h01=0x0050, text=» CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) «, t00=0x0023, t01=0x00b2}
0x3784…3790 Head {h00=0x0008, h01=0x0050, text=»A062«, t00=0x0023, t01=0x00e0}
0x3790…37b8 Head {h00=0x0024, h01=0x0050, text=» TBT GTBDTFLG,A0625 BUNDT REMIT «, t00=0x0023, t01=0x00ec}
0x37b8…37e0 Head {h00=0x0024, h01=0x0050, text=» TBT GTSTRFLG,A0621 STRAKS REMIT«, t00=0x0023, t01=0x0114}
0x37e0…37f8 Head {h00=0x0014, h01=0x0050, text=» B APK NOT REMIT«, t00=0x0023, t01=0x013c}
0x37f8…3802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x3802…3810 Head {h00=0x000a, h01=0x0050, text=»A0621 «, t00=0x0023, t01=0x015e}
0x3810…3846 Head {h00=0x0032, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD1 STRAKS REMIT, SET LEVNR «, t00=0x0023, t01=0x016c}
0x3846…385a Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0024, t01=0x0012}
0x385a…386c Head {h00=0x000e, h01=0x0050, text=» BOK A0622«, t00=0x0024, t01=0x0026}
0x386c…388e Head {h00=0x001e, h01=0x0050, text=» NOT OK, LEV FINDES IKKE«, t00=0x0024, t01=0x0038}
0x388e…38b0 Head {h00=0x001e, h01=0x0050, text=» SET SPWARNFL SET WARNING «, t00=0x0024, t01=0x005a}
0x38b0…38be Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0024, t01=0x007c}
0x38be…38cc Head {h00=0x000a, h01=0x0050, text=»A0622 «, t00=0x0024, t01=0x008a}
0x38cc…38fc Head {h00=0x002c, h01=0x0050, text=» CBG GTLEVBFO,=D'4',A0629 ONLY 0-4 VALID«, t00=0x0024, t01=0x0098}
0x38fc…390c Head {h00=0x000c, h01=0x0050, text=» B A063 «, t00=0x0024, t01=0x00c8}
0x390c…3914 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00d8}
0x3914…391e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e0}
0x391e…393a Head {h00=0x0018, h01=0x0050, text=»A0625 BUNDT REMIT «, t00=0x0024, t01=0x00ea}
0x393a…3956 Head {h00=0x0018, h01=0x0050, text=» TBT CAD41FLG,A0630 «, t00=0x0024, t01=0x0106}
0x3956…397e Head {h00=0x0024, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD1 SET LEVNR «, t00=0x0024, t01=0x0122}
0x397e…3992 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0024, t01=0x014a}
0x3992…39a6 Head {h00=0x0010, h01=0x0050, text=» BNOK A0629 «, t00=0x0024, t01=0x015e}
0x39a6…39c8 Head {h00=0x001e, h01=0x0050, text=» CBE GTLEVBFO,=D'0',A0629 «, t00=0x0024, t01=0x0172}
0x39c8…39d4 (37, 0, 400) Head {h00=0x0008, h01=0x0050, text=»A063«, t00=0x0025, t01=0x0004}
0x39d4…39ee Head {h00=0x0016, h01=0x0050, text=» TBF GTCYFLG,A064 «, t00=0x0025, t01=0x0010}
0x39ee…3a12 Head {h00=0x0020, h01=0x0050, text=» MOVE GSSWITCH(CBIN2),CBIN1 «, t00=0x0025, t01=0x002a}
0x3a12…3a1e Head {h00=0x0008, h01=0x0050, text=»A064«, t00=0x0025, t01=0x004e}
0x3a1e…3a2c Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0025, t01=0x005a}
0x3a2c…3a50 Head {h00=0x0020, h01=0x0050, text=»A0629 WRONG BETALINGSFORM «, t00=0x0025, t01=0x0068}
0x3a50…3a72 Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN11 ERROR«, t00=0x0025, t01=0x008c}
0x3a72…3a80 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0025, t01=0x00ae}
0x3a80…3a8e Head {h00=0x000a, h01=0x0050, text=»A0630 «, t00=0x0025, t01=0x00bc}
0x3a8e…3aba Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,=W'12' ADM 41,42,43,46«, t00=0x0025, t01=0x00ca}
0x3aba…3ac8 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0025, t01=0x00f6}
0x3ac8…3ada Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0104}
0x3ada…3b02 Head {h00=0x0024, h01=0x0050, text=»A54 FIELD 54 HAS BEEN ENTERED «, t00=0x0025, t01=0x0116}
0x3b02…3b34 Head {h00=0x002e, h01=0x0050, text=»* THE FIELD WITH LENGTH N (N = 1,2,...,10)«, t00=0x0025, t01=0x013e}
0x3b34…3b64 Head {h00=0x002c, h01=0x0050, text=»* HAS TO BE LEFT-JUSTIFIED AND EXPANDED «, t00=0x0025, t01=0x0170}
0x3b64…3b80 Head {h00=0x0018, h01=0x0050, text=»* TO THE LENGTH 10. «, t00=0x0026, t01=0x0010}
0x3b80…3b9c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'0'«, t00=0x0026, t01=0x002c}
0x3b9c…3bb8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN10«, t00=0x0026, t01=0x0048}
0x3bb8…3be6 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN1,SPBINW1 HOW MANY ZEROES ?«, t00=0x0026, t01=0x0064}
0x3be6…3c1c Head {h00=0x0032, h01=0x0050, text=» INSRT SPINPUT,SPBINW1,GSWBIN1,GSWSTR20,CBIN0 «, t00=0x0026, t01=0x0092}
0x3c1c…3c46 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW1,CBIN10 ADJUST LENGTH«, t00=0x0026, t01=0x00c8}
0x3c46…3c54 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0026, t01=0x00f2}
0x3c54…3c66 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0100}
0x3c66…3c72 Head {h00=0x0008, h01=0x0050, text=»A57 «, t00=0x0026, t01=0x0112}
0x3c72…3c80 Head {h00=0x000a, h01=0x0050, text=» B APF«, t00=0x0026, t01=0x011e}
0x3c80…3c8e Head {h00=0x000a, h01=0x0050, text=»******«, t00=0x0026, t01=0x012c}
0x3c8e…3c9a Head {h00=0x0008, h01=0x0050, text=»A065«, t00=0x0026, t01=0x013a}
0x3c9a…3cd4 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW1,CBIN0 SET LENGTH TO ZERO (FUNCTION) «, t00=0x0026, t01=0x0146}
0x3cd4…3d04 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE «, t00=0x0026, t01=0x0180}
0x3d04…3d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0020}
0x3d0e…3d36 Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM ROUTINE «, t00=0x0027, t01=0x002a}
0x3d36…3d46 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0027, t01=0x0052}
0x3d46…3d68 Head {h00=0x001e, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE «, t00=0x0027, t01=0x0062}
0x3d68…3d78 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0027, t01=0x0084}
0x3d78…3d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0094}
0x3d82…3dae Head {h00=0x0028, h01=0x0050, text=»* CHECK FOR VALID TRANSTYPE«, t00=0x0027, t01=0x009e}
0x3dae…3db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ca}
0x3db8…3dd8 Head {h00=0x001c, h01=0x0050, text=»* ADJUST REGDEX«, t00=0x0027, t01=0x00d4}
0x3dd8…3de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f4}
0x3de2…3dfe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0027, t01=0x00fe}
0x3dfe…3e3a Head {h00=0x0038, h01=0x0050, text=»* TEST FOR CORRECT TRANSACTIONS IN THIS CONNECTION«, t00=0x0027, t01=0x011a}
0x3e3a…3e54 Head {h00=0x0016, h01=0x0050, text=» TBT GTKASSE,A0672«, t00=0x0027, t01=0x0156}
0x3e54…3e8e Head {h00=0x0036, h01=0x0050, text=» CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE «, t00=0x0027, t01=0x0170}
0x3e8e…3e9e Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0028, t01=0x001a}
0x3e9e…3eac Head {h00=0x000a, h01=0x0050, text=»A0672 «, t00=0x0028, t01=0x002a}
0x3eac…3ede Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE «, t00=0x0028, t01=0x0038}
0x3ede…3ee6 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x006a}
0x3ee6…3ef6 Head {h00=0x000c, h01=0x0050, text=» B A0675«, t00=0x0028, t01=0x0072}
0x3ef6…3f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0082}
0x3f00…3f0c Head {h00=0x0008, h01=0x0050, text=»A067«, t00=0x0028, t01=0x008c}
0x3f0c…3f4a Head {h00=0x003a, h01=0x0050, text=» CBE GSWBCD3,CREGTAB(GSWBIN1,CBIN1),A068 SEARCH REGNR «, t00=0x0028, t01=0x0098}
0x3f4a…3f74 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CBIN1 ADD 1 TO INDEX «, t00=0x0028, t01=0x00d6}
0x3f74…3fb2 Head {h00=0x003a, h01=0x0050, text=» CBNE CREGTAB(GSWBIN1,CBIN1),=D'-1',A067 END OF TABLE?«, t00=0x0028, t01=0x0100}
0x3fb2…3fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x013e}
0x3fbc…3fca Head {h00=0x000a, h01=0x0050, text=»A0675 «, t00=0x0028, t01=0x0148}
0x3fca…3ff8 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,CBIN9 INVALID TRANSTYPE «, t00=0x0028, t01=0x0156}
0x3ff8…4006 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0028, t01=0x0184}
0x4006…4012 (41, 0, 400) Head {h00=0x0008, h01=0x0050, text=»A068«, t00=0x0029, t01=0x0004}
0x4012…4038 Head {h00=0x0022, h01=0x0050, text=» TAKE CARE OF NEW TRANSTYPE «, t00=0x0029, t01=0x0010}
0x4038…4070 Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,CBIN18,A0680 HANDLING OF KREDIT KEY«, t00=0x0029, t01=0x0036}
0x4070…409e Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN17,A0680 SLUT/DEB KEY«, t00=0x0029, t01=0x006e}
0x409e…40d4 Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW2,CBIN3,A0680 HANDLING OF DEBIT KEY«, t00=0x0029, t01=0x009c}
0x40d4…4106 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW4,CBIN4 HANDLING OF WRONG KEY «, t00=0x0029, t01=0x00d2}
0x4106…4114 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0029, t01=0x0104}
0x4114…4122 Head {h00=0x000a, h01=0x0050, text=»A0680 «, t00=0x0029, t01=0x0112}
0x4122…414a Head {h00=0x0024, h01=0x0050, text=» TBT GTCYFLG,A0685 CYKEL TABEL ?«, t00=0x0029, t01=0x0120}
0x414a…4172 Head {h00=0x0024, h01=0x0050, text=» CLEAR GTBDTFLG NO, CLEAR FLAGS «, t00=0x0029, t01=0x0148}
0x4172…418a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSTRFLG «, t00=0x0029, t01=0x0170}
0x418a…41ac Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0681 «, t00=0x0029, t01=0x0188}
0x41ac…41ce Head {h00=0x001e, h01=0x0050, text=» SET GTBDTFLG TRANS 28,29 «, t00=0x002a, t01=0x001a}
0x41ce…41de Head {h00=0x000c, h01=0x0050, text=» B A0689«, t00=0x002a, t01=0x003c}
0x41de…41ec Head {h00=0x000a, h01=0x0050, text=»A0681 «, t00=0x002a, t01=0x004c}
0x41ec…420e Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'18',A0689 «, t00=0x002a, t01=0x005a}
0x420e…4230 Head {h00=0x001e, h01=0x0050, text=» SET GTSTRFLG TRANS 18,19 «, t00=0x002a, t01=0x007c}
0x4230…4240 Head {h00=0x000c, h01=0x0050, text=» B A0689«, t00=0x002a, t01=0x009e}
0x4240…4260 Head {h00=0x001c, h01=0x0050, text=»A0685 IN CYKEL/STABEL «, t00=0x002a, t01=0x00ae}
0x4260…428a Head {h00=0x0026, h01=0x0050, text=» TBF GTBDTFLG,A0686 TRANS 28,29 ? «, t00=0x002a, t01=0x00ce}
0x428a…42c2 Head {h00=0x0034, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0675 IF NOT, INVALID TRANS «, t00=0x002a, t01=0x00f8}
0x42c2…42de Head {h00=0x0018, h01=0x0050, text=» B A0689 VALID TRANS«, t00=0x002a, t01=0x0130}
0x42de…42ec Head {h00=0x000a, h01=0x0050, text=»A0686 «, t00=0x002a, t01=0x014c}
0x42ec…4316 Head {h00=0x0026, h01=0x0050, text=» TBT GTSTRFLG,A0687 TRANS 18, 19 ?«, t00=0x002a, t01=0x015a}
0x4316…4336 Head {h00=0x001c, h01=0x0050, text=» NO, ONLY TRANS 1-12 «, t00=0x002a, t01=0x0184}
0x4336…436e Head {h00=0x0034, h01=0x0050, text=» CBG GSWBCD3,=D'12',A0675 IF NOT, INVALID TRANS «, t00=0x002b, t01=0x0014}
0x436e…438a Head {h00=0x0018, h01=0x0050, text=» B A0689 VALID TRANS«, t00=0x002b, t01=0x004c}
0x438a…4398 Head {h00=0x000a, h01=0x0050, text=»A0687 «, t00=0x002b, t01=0x0068}
0x4398…43ae Head {h00=0x0012, h01=0x0050, text=» TRANS 18,19«, t00=0x002b, t01=0x0076}
0x43ae…43e0 Head {h00=0x002e, h01=0x0050, text=» CBL GSWBCD3,=D'18',A0675 TR 1-12 INVALID «, t00=0x002b, t01=0x008c}
0x43e0…4410 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'28',A0689 TR 18,19 VALID«, t00=0x002b, t01=0x00be}
0x4410…4432 Head {h00=0x001e, h01=0x0050, text=» B A0675 TR 28,29 INVALID «, t00=0x002b, t01=0x00ee}
0x4432…4440 Head {h00=0x000a, h01=0x0050, text=»A0689 «, t00=0x002b, t01=0x0110}
0x4440…446e Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN18,A06KRE KREDIT KEY «, t00=0x002b, t01=0x011e}
0x446e…4480 Head {h00=0x000e, h01=0x0050, text=» B A06DEB «, t00=0x002b, t01=0x014c}
0x4480…448e Head {h00=0x000a, h01=0x0050, text=»A06KRE«, t00=0x002b, t01=0x015e}
0x448e…44a2 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x002b, t01=0x016c}
0x44a2…44b2 Head {h00=0x000c, h01=0x0050, text=» B A066 «, t00=0x002b, t01=0x0180}
0x44b2…44c0 Head {h00=0x000a, h01=0x0050, text=»A06DEB«, t00=0x002b, t01=0x0190}
0x44c0…44d4 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x002c, t01=0x000e}
0x44d4…44e0 Head {h00=0x0008, h01=0x0050, text=»A066«, t00=0x002c, t01=0x0022}
0x44e0…44fe Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGNR,GSWBCD3 «, t00=0x002c, t01=0x002e}
0x44fe…451c Head {h00=0x001a, h01=0x0050, text=» MOVE GTREGDEX,GSWBIN1«, t00=0x002c, t01=0x004c}
0x451c…4548 Head {h00=0x0028, h01=0x0050, text=» SET GTREGFLG VALID TRANSTYPE FOUND «, t00=0x002c, t01=0x006a}
0x4548…456e Head {h00=0x0022, h01=0x0050, text=» SET TTEORFLG START NEW TRANS «, t00=0x002c, t01=0x0096}
0x456e…4578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00bc}
0x4578…45b2 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED«, t00=0x002c, t01=0x00c6}
0x45b2…45c0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x002c, t01=0x0100}
0x45c0…45d2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x010e}
0x45d2…45ea Head {h00=0x0014, h01=0x0050, text=»A07 BKO FIELD «, t00=0x002c, t01=0x0120}
0x45ea…460c Head {h00=0x001e, h01=0x0050, text=» INSERT TEXT IN TT07TXT «, t00=0x002c, t01=0x0138}
0x460c…4622 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTASKAT«, t00=0x002c, t01=0x015a}
0x4622…4640 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x002c, t01=0x0170}
0x4640…4662 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBCD3,=D'51',A070 «, t00=0x002c, t01=0x018e}
0x4662…4676 Head {h00=0x0010, h01=0x0050, text=» SET TTASKAT«, t00=0x002d, t01=0x0020}
0x4676…4682 Head {h00=0x0008, h01=0x0050, text=»A070«, t00=0x002d, t01=0x0034}
0x4682…46a4 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,CBIN3,A0705«, t00=0x002d, t01=0x0040}
0x46a4…46cc Head {h00=0x0024, h01=0x0050, text=» CBE GSWBCD3,=D'51',A076 TRANS 3«, t00=0x002d, t01=0x0062}
0x46cc…46ec Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD3,=D'52',A076«, t00=0x002d, t01=0x008a}
0x46ec…46fa Head {h00=0x000a, h01=0x0050, text=»A0705 «, t00=0x002d, t01=0x00aa}
0x46fa…472a Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 GET LENGTH OF STRING«, t00=0x002d, t01=0x00b8}
0x472a…475c Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x002d, t01=0x00e8}
0x475c…477a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,TT07TXT «, t00=0x002d, t01=0x011a}
0x477a…4798 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBCD3 «, t00=0x002d, t01=0x0138}
0x4798…47b2 Head {h00=0x0016, h01=0x0050, text=» MOVE TT07TXT,=' '«, t00=0x002d, t01=0x0156}
0x47b2…47e2 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 FIRST CHAR, POINTER «, t00=0x002d, t01=0x0170}
0x47e2…47fe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x002e, t01=0x0010}
0x47fe…481e Head {h00=0x001c, h01=0x0050, text=» CBNG SPBINW1,CBIN2,A071«, t00=0x002e, t01=0x002c}
0x481e…4854 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX «, t00=0x002e, t01=0x004c}
0x4854…4860 Head {h00=0x0008, h01=0x0050, text=»A071«, t00=0x002e, t01=0x0082}
0x4860…487a Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN7«, t00=0x002e, t01=0x008e}
0x487a…4888 Head {h00=0x000a, h01=0x0050, text=»A0708 «, t00=0x002e, t01=0x00a8}
0x4888…48a2 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN7«, t00=0x002e, t01=0x00b6}
0x48a2…48c4 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,GSWBIN2,A075 «, t00=0x002e, t01=0x00d0}
0x48c4…48fe Head {h00=0x0036, h01=0x0050, text=» MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBIN2«, t00=0x002e, t01=0x00f2}
0x48fe…4912 Head {h00=0x0010, h01=0x0050, text=» BNOK A0708 «, t00=0x002e, t01=0x012c}
0x4912…4936 Head {h00=0x0020, h01=0x0050, text=»* NEXT 5 CHARS CONTAIN TEXT«, t00=0x002e, t01=0x0140}
0x4936…4950 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN2«, t00=0x002e, t01=0x0164}
0x4950…4982 Head {h00=0x002e, h01=0x0050, text=» COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 «, t00=0x002e, t01=0x017e}
0x4982…49a4 Head {h00=0x001e, h01=0x0050, text=»* SEE IF ALLOWED «, t00=0x002f, t01=0x0020}
0x49a4…49e0 Head {h00=0x0038, h01=0x0050, text=» CBNE GTREGDEX,CBIN3,A077 ONLY CHECK IF TRANSTYPE 3 «, t00=0x002f, t01=0x0042}
0x49e0…49fa Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN5«, t00=0x002f, t01=0x007e}
0x49fa…4a14 Head {h00=0x0016, h01=0x0050, text=» MOVE GSWSTR2,=' '«, t00=0x002f, t01=0x0098}
0x4a14…4a4e Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE«, t00=0x002f, t01=0x00b2}
0x4a4e…4a6c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR2 «, t00=0x002f, t01=0x00ec}
0x4a6c…4a8e Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,=D'1',A077 OK«, t00=0x002f, t01=0x010a}
0x4a8e…4aba Head {h00=0x0028, h01=0x0050, text=» CBL GTREGF(CBIN2),=D'10000000',A072«, t00=0x002f, t01=0x012c}
0x4aba…4aec Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'1',A077 CPR - BKO ALLOWED «, t00=0x002f, t01=0x0158}
0x4aec…4afc Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x002f, t01=0x018a}
0x4afc…4b08 Head {h00=0x0008, h01=0x0050, text=»A072«, t00=0x0030, t01=0x000a}
0x4b08…4b3a Head {h00=0x002e, h01=0x0050, text=» CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED «, t00=0x0030, t01=0x0016}
0x4b3a…4b4a Head {h00=0x000c, h01=0x0050, text=» B A076 «, t00=0x0030, t01=0x0048}
0x4b4a…4b56 Head {h00=0x0008, h01=0x0050, text=»A075«, t00=0x0030, t01=0x0058}
0x4b56…4b70 Head {h00=0x0016, h01=0x0050, text=» TBT CBKOFLG,A077 «, t00=0x0030, t01=0x0064}
0x4b70…4b7c Head {h00=0x0008, h01=0x0050, text=»A076«, t00=0x0030, t01=0x007e}
0x4b7c…4b98 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0030, t01=0x008a}
0x4b98…4ba6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0030, t01=0x00a6}
0x4ba6…4bb2 Head {h00=0x0008, h01=0x0050, text=»A077«, t00=0x0030, t01=0x00b4}
0x4bb2…4bc0 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0030, t01=0x00c0}
0x4bc0…4bd2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00ce}
0x4bd2…4bfa Head {h00=0x0024, h01=0x0050, text=»A11 CHECK VAL DATE NOT GREATER«, t00=0x0030, t01=0x00e0}
0x4bfa…4c14 Head {h00=0x0016, h01=0x0050, text=» THAN POST DATE «, t00=0x0030, t01=0x0108}
0x4c14…4c3e Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN3,A0110 TRANS 3 «, t00=0x0030, t01=0x0122}
0x4c3e…4c68 Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN4,A0110 TRANS 4 «, t00=0x0030, t01=0x014c}
0x4c68…4c84 Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,A01101«, t00=0x0030, t01=0x0176}
0x4c84…4ca0 (49, 0, 400) Head {h00=0x0018, h01=0x0050, text=» TBF GTBDTFLG,A01101«, t00=0x0031, t01=0x0004}
0x4ca0…4cc4 Head {h00=0x0020, h01=0x0050, text=» MOVE GSSWITCH(CBIN7),CBIN1 «, t00=0x0031, t01=0x0020}
0x4cc4…4cd2 Head {h00=0x000a, h01=0x0050, text=»A01101«, t00=0x0031, t01=0x0044}
0x4cd2…4ce0 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0031, t01=0x0052}
0x4ce0…4cee Head {h00=0x000a, h01=0x0050, text=»A0110 «, t00=0x0031, t01=0x0060}
0x4cee…4d0a Head {h00=0x0018, h01=0x0050, text=» TBF CVALFLG,A01101 «, t00=0x0031, t01=0x006e}
0x4d0a…4d32 Head {h00=0x0024, h01=0x0050, text=»* GET AND CHANGE VALOERDATE «, t00=0x0031, t01=0x008a}
0x4d32…4d50 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x0031, t01=0x00b2}
0x4d50…4d6c Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GSWBCD6«, t00=0x0031, t01=0x00d0}
0x4d6c…4d8a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GSWBCD7 «, t00=0x0031, t01=0x00ec}
0x4d8a…4db0 Head {h00=0x0022, h01=0x0050, text=»* GET AND CHANGE POSTDATE «, t00=0x0031, t01=0x010a}
0x4db0…4dcc Head {h00=0x0018, h01=0x0050, text=» PERF YYMMDD,GTDATO «, t00=0x0031, t01=0x0130}
0x4dcc…4de2 Head {h00=0x0012, h01=0x0050, text=»* COMPARE «, t00=0x0031, t01=0x014c}
0x4de2…4dfe Head {h00=0x0018, h01=0x0050, text=» CMP GSWBCD1,GSWBCD7«, t00=0x0031, t01=0x0162}
0x4dfe…4e0e Head {h00=0x000c, h01=0x0050, text=» BNG APK«, t00=0x0031, t01=0x017e}
0x4e0e…4e2a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN7 «, t00=0x0031, t01=0x018e}
0x4e2a…4e38 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0032, t01=0x001a}
0x4e38…4e4a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0028}
0x4e4a…4e70 Head {h00=0x0022, h01=0x0050, text=»A17 CHECK 'FORFALDSAAR' FAAR«, t00=0x0032, t01=0x003a}
0x4e70…4e86 Head {h00=0x0012, h01=0x0050, text=» FAAR >= 70 «, t00=0x0032, t01=0x0060}
0x4e86…4e9e Head {h00=0x0014, h01=0x0050, text=» FAAR <= YY+2 «, t00=0x0032, t01=0x0076}
0x4e9e…4ec4 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET FAAR«, t00=0x0032, t01=0x008e}
0x4ec4…4efa Head {h00=0x0032, h01=0x0050, text=» CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR«, t00=0x0032, t01=0x00b4}
0x4efa…4f24 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD1,GTDATO GET POSTDATO «, t00=0x0032, t01=0x00ea}
0x4f24…4f40 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'2' «, t00=0x0032, t01=0x0114}
0x4f40…4f7a Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR «, t00=0x0032, t01=0x0130}
0x4f7a…4f9a Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD3,=D'2' ADD 2«, t00=0x0032, t01=0x016a}
0x4f9a…4fcc Head {h00=0x002e, h01=0x0050, text=» CBG GSWBCD6,GSWBCD3,A17ERR MORE THAN YY+2«, t00=0x0032, t01=0x018a}
0x4fcc…4fda Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0033, t01=0x002c}
0x4fda…4fe8 Head {h00=0x000a, h01=0x0050, text=»A17ERR«, t00=0x0033, t01=0x003a}
0x4fe8…5014 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW4,CBIN11 INVALID NUMBER «, t00=0x0033, t01=0x0048}
0x5014…5022 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0033, t01=0x0074}
0x5022…5034 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x0082}
0x5034…5040 Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x0033, t01=0x0094}
0x5040…5078 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' «, t00=0x0033, t01=0x00a0}
0x5078…5098 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBCD3,=D'5',A649 «, t00=0x0033, t01=0x00d8}
0x5098…50b8 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBCD3,=D'0',A649 «, t00=0x0033, t01=0x00f8}
0x50b8…50e0 Head {h00=0x0024, h01=0x0050, text=» FIELD 64 HAS BEEN ENTERED AND«, t00=0x0033, t01=0x0118}
0x50e0…511a Head {h00=0x0036, h01=0x0050, text=» MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED«, t00=0x0033, t01=0x0140}
0x511a…5128 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0033, t01=0x017a}
0x5128…5134 Head {h00=0x0008, h01=0x0050, text=»A649«, t00=0x0033, t01=0x0188}
0x5134…5150 (52, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN10«, t00=0x0034, t01=0x0004}
0x5150…515e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0020}
0x515e…5170 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x002e}
0x5170…5194 Head {h00=0x0020, h01=0x0050, text=»A65 CHECK VALUE 1000-3999 «, t00=0x0034, t01=0x0040}
0x5194…51bc Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT GET VALUE «, t00=0x0034, t01=0x0064}
0x51bc…51de Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD4,=D'3999',A659«, t00=0x0034, t01=0x008c}
0x51de…5200 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD4,=D'1000',A659«, t00=0x0034, t01=0x00ae}
0x5200…520e Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0034, t01=0x00d0}
0x520e…521a Head {h00=0x0008, h01=0x0050, text=»A659«, t00=0x0034, t01=0x00de}
0x521a…5236 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0034, t01=0x00ea}
0x5236…5244 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0034, t01=0x0106}
0x5244…5256 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x0114}
0x5256…5278 Head {h00=0x001e, h01=0x0050, text=»A76 COUNTER NO, TRANS 12«, t00=0x0034, t01=0x0126}
0x5278…5292 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW1,CBIN3«, t00=0x0034, t01=0x0148}
0x5292…52b6 Head {h00=0x0020, h01=0x0050, text=» BL A065 TRANSTYPE HANDLING «, t00=0x0034, t01=0x0162}
0x52b6…52de Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET VALUE «, t00=0x0034, t01=0x0186}
0x52de…52fc Head {h00=0x001a, h01=0x0050, text=» MOVE TTCNTNR,SPINPUT «, t00=0x0035, t01=0x001e}
0x52fc…5322 Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD3,=D'100' GET INDEX«, t00=0x0035, t01=0x003c}
0x5322…5340 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0035, t01=0x0062}
0x5340…5370 Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CTR12(TTASKNR,CBIN2),A76NOK«, t00=0x0035, t01=0x0080}
0x5370…53a0 Head {h00=0x002c, h01=0x0050, text=» CBL GSWBCD3,=D'1',A76NOK MIN COUNTER NO«, t00=0x0035, t01=0x00b0}
0x53a0…53ca Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0035, t01=0x00e0}
0x53ca…53f4 Head {h00=0x0026, h01=0x0050, text=» CBL CTR12NR(GSWBIN1),=D'1',A76NOK«, t00=0x0035, t01=0x010a}
0x53f4…540a Head {h00=0x0012, h01=0x0050, text=» MUST BE > 0«, t00=0x0035, t01=0x0134}
0x540a…542c Head {h00=0x001e, h01=0x0050, text=» B ART TO WRITE ON SCREEN «, t00=0x0035, t01=0x014a}
0x542c…543a Head {h00=0x000a, h01=0x0050, text=»A76NOK«, t00=0x0035, t01=0x016c}
0x543a…5456 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN18«, t00=0x0035, t01=0x017a}
0x5456…5464 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0036, t01=0x0008}
0x5464…5476 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0016}
0x5476…5498 Head {h00=0x001e, h01=0x0050, text=»A77 INSERT 51,52 IN TR 4«, t00=0x0036, t01=0x0028}
0x5498…54bc Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x0036, t01=0x004a}
0x54bc…54de Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW1,CBIN2 LENGTH«, t00=0x0036, t01=0x006e}
0x54de…54f4 Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A775«, t00=0x0036, t01=0x0090}
0x54f4…5520 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0036, t01=0x00a6}
0x5520…552e Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0036, t01=0x00d2}
0x552e…553a Head {h00=0x0008, h01=0x0050, text=»A775«, t00=0x0036, t01=0x00e0}
0x553a…5566 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0036, t01=0x00ec}
0x5566…5574 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0036, t01=0x0118}
0x5574…5586 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0126}
0x5586…55a6 Head {h00=0x001c, h01=0x0050, text=»A78 INSERT ACCOUNT NO «, t00=0x0036, t01=0x0138}
0x55a6…55b6 Head {h00=0x000c, h01=0x0050, text=» 11-15«, t00=0x0036, t01=0x0158}
0x55b6…55e2 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN5 SIMULATE FIELD 5«, t00=0x0036, t01=0x0168}
0x55e2…55f0 (55, 0, 400) Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x0004}
0x55f0…5600 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0037, t01=0x0012}
0x5600…5620 Head {h00=0x001c, h01=0x0050, text=»A79 AUTODUP ACCOUNT NO«, t00=0x0037, t01=0x0022}
0x5620…5646 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN5 IN FIELD 5«, t00=0x0037, t01=0x0042}
0x5646…5672 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR GET COUNTER NO«, t00=0x0037, t01=0x0068}
0x5672…568e Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN1,=W'100'«, t00=0x0037, t01=0x0094}
0x568e…56b8 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0037, t01=0x00b0}
0x56b8…56de Head {h00=0x0022, h01=0x0050, text=» MOVE SPINPUT,CTR12NR(GSWBIN1)«, t00=0x0037, t01=0x00da}
0x56de…5702 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW1,CBIN10 LENGTH «, t00=0x0037, t01=0x0100}
0x5702…5710 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0037, t01=0x0124}
0x5710…5722 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0132}
0x5722…5748 Head {h00=0x0022, h01=0x0050, text=»A80 CHECK HOVEDBOG, KONTONR «, t00=0x0037, t01=0x0144}
0x5748…576c Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN5 FIELD 5 «, t00=0x0037, t01=0x016a}
0x576c…579c Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN2 MIGHT BE TRANSTYPE 2«, t00=0x0037, t01=0x018e}
0x579c…57c8 Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 CHECK LENGTH«, t00=0x0038, t01=0x002e}
0x57c8…57f4 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,CBIN10,A801 MUST BE 10 «, t00=0x0038, t01=0x005a}
0x57f4…581c Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x0038, t01=0x0086}
0x581c…582a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0038, t01=0x00ae}
0x582a…5836 Head {h00=0x0008, h01=0x0050, text=»A801«, t00=0x0038, t01=0x00bc}
0x5836…5854 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0038, t01=0x00c8}
0x5854…5878 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x0038, t01=0x00e6}
0x5878…5896 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0038, t01=0x010a}
0x5896…58c8 Head {h00=0x002e, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7: KNT.NO. NOT ALLOWED «, t00=0x0038, t01=0x0128}
0x58c8…58da Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x0038, t01=0x015a}
0x58da…58fa Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A804«, t00=0x0038, t01=0x016c}
0x58fa…5914 Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A804«, t00=0x0038, t01=0x018c}
0x5914…5942 Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x0039, t01=0x0016}
0x5942…594e Head {h00=0x0008, h01=0x0050, text=»A804«, t00=0x0039, t01=0x0044}
0x594e…5970 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x0039, t01=0x0050}
0x5970…598e Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x0039, t01=0x0072}
0x598e…59a0 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x0039, t01=0x0090}
0x59a0…59c2 Head {h00=0x001e, h01=0x0050, text=»A805 CHECK FUNCTION KEYS«, t00=0x0039, t01=0x00a2}
0x59c2…59de Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0039, t01=0x00c4}
0x59de…5a02 Head {h00=0x0020, h01=0x0050, text=» CMP SPBINW2,=W'30' ADM KEY «, t00=0x0039, t01=0x00e0}
0x5a02…5a12 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0039, t01=0x0104}
0x5a12…5a38 Head {h00=0x0022, h01=0x0050, text=» CMP SPBINW2,=W'31' CYCLE KEY «, t00=0x0039, t01=0x0114}
0x5a38…5a48 Head {h00=0x000c, h01=0x0050, text=» BE ART «, t00=0x0039, t01=0x013a}
0x5a48…5a70 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x0039, t01=0x014a}
0x5a70…5a7e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0039, t01=0x0172}
0x5a7e…5a90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0180}
0x5a90…5ab8 (58, 0, 400) Head {h00=0x0024, h01=0x0050, text=»A81 CHECK HOVEDBOG, CPR/CIR/NR«, t00=0x003a, t01=0x0004}
0x5ab8…5adc Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x003a, t01=0x002c}
0x5adc…5b0e Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW5,CBIN1 MIGHT BE TRANS TYPE 1 «, t00=0x003a, t01=0x0050}
0x5b0e…5b3a Head {h00=0x0028, h01=0x0050, text=» CBG SPBINW1,CBIN2,A811 CHECK LENGTH«, t00=0x003a, t01=0x0082}
0x5b3a…5b62 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003a, t01=0x00ae}
0x5b62…5b70 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003a, t01=0x00d6}
0x5b70…5b8c Head {h00=0x0018, h01=0x0050, text=»A811 CPR OR CIR ? «, t00=0x003a, t01=0x00e4}
0x5b8c…5ba8 Head {h00=0x0018, h01=0x0050, text=» SET BCPR SET CPR NO«, t00=0x003a, t01=0x0100}
0x5ba8…5bc6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003a, t01=0x011c}
0x5bc6…5bec Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A814«, t00=0x003a, t01=0x013a}
0x5bec…5bfe Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x003a, t01=0x0160}
0x5bfe…5c26 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A812«, t00=0x003a, t01=0x0172}
0x5c26…5c3a Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x003b, t01=0x000a}
0x5c3a…5c4a Head {h00=0x000c, h01=0x0050, text=» B A812 «, t00=0x003b, t01=0x001e}
0x5c4a…5c56 Head {h00=0x0008, h01=0x0050, text=»A814«, t00=0x003b, t01=0x002e}
0x5c56…5c74 Head {h00=0x001a, h01=0x0050, text=» CLEAR BCPR SET CIR NO«, t00=0x003b, t01=0x003a}
0x5c74…5c80 Head {h00=0x0008, h01=0x0050, text=»A812«, t00=0x003b, t01=0x0058}
0x5c80…5ca2 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x003b, t01=0x0064}
0x5ca2…5cc0 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x003b, t01=0x0086}
0x5cc0…5cd2 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x003b, t01=0x00a4}
0x5cd2…5ce4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x00b6}
0x5ce4…5d0a Head {h00=0x0022, h01=0x0050, text=»A82 CHECK HOVEDBOG, YD.MODT.«, t00=0x003b, t01=0x00c8}
0x5d0a…5d30 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN21 FIELD 21 «, t00=0x003b, t01=0x00ee}
0x5d30…5d60 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN6 MIGHT BE TRANSTYPE 6«, t00=0x003b, t01=0x0114}
0x5d60…5d6c Head {h00=0x0008, h01=0x0050, text=»A821«, t00=0x003b, t01=0x0144}
0x5d6c…5d9a Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,CBIN3,A822 IF ENTER KEY,«, t00=0x003b, t01=0x0150}
0x5d9a…5dca Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,CBIN17 SIMULATE DEBET KEY «, t00=0x003b, t01=0x017e}
0x5dca…5dd6 Head {h00=0x0008, h01=0x0050, text=»A822«, t00=0x003c, t01=0x001e}
0x5dd6…5df8 Head {h00=0x001e, h01=0x0050, text=» PERF SELTR TRANS SELECTED«, t00=0x003c, t01=0x002a}
0x5df8…5e16 Head {h00=0x001a, h01=0x0050, text=» BNOK ART INVALID KEY «, t00=0x003c, t01=0x004c}
0x5e16…5e28 Head {h00=0x000e, h01=0x0050, text=» B APK OK «, t00=0x003c, t01=0x006a}
0x5e28…5e3a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x007c}
0x5e3a…5e62 Head {h00=0x0024, h01=0x0050, text=»A83 CHECK DEBITOR, DEBITOR NR «, t00=0x003c, t01=0x008e}
0x5e62…5e86 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x003c, t01=0x00b6}
0x5e86…5eb0 Head {h00=0x0026, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 FUNCTION? «, t00=0x003c, t01=0x00da}
0x5eb0…5ed0 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW1,CBIN7,A833 «, t00=0x003c, t01=0x0104}
0x5ed0…5f00 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN4 MIGHT BE TRANSTYPE 4«, t00=0x003c, t01=0x0124}
0x5f00…5f1a Head {h00=0x0016, h01=0x0050, text=» SET BCPR SET CPR «, t00=0x003c, t01=0x0154}
0x5f1a…5f38 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003c, t01=0x016e}
0x5f38…5f5e Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD1,=D'10000000',A831«, t00=0x003c, t01=0x018c}
0x5f5e…5f70 Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x003d, t01=0x0022}
0x5f70…5f98 Head {h00=0x0024, h01=0x0050, text=» CBG GSWBCD1,=D'3200000000',A832«, t00=0x003d, t01=0x0034}
0x5f98…5fac Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x003d, t01=0x005c}
0x5fac…5fbc Head {h00=0x000c, h01=0x0050, text=» B A832 «, t00=0x003d, t01=0x0070}
0x5fbc…5fc8 Head {h00=0x0008, h01=0x0050, text=»A831«, t00=0x003d, t01=0x0080}
0x5fc8…5fe4 Head {h00=0x0018, h01=0x0050, text=» CLEAR BCPR SET CIR «, t00=0x003d, t01=0x008c}
0x5fe4…5ff0 Head {h00=0x0008, h01=0x0050, text=»A832«, t00=0x003d, t01=0x00a8}
0x5ff0…6004 Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003d, t01=0x00b4}
0x6004…6016 Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003d, t01=0x00c8}
0x6016…6032 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN3 «, t00=0x003d, t01=0x00da}
0x6032…6040 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x003d, t01=0x00f6}
0x6040…604c Head {h00=0x0008, h01=0x0050, text=»A833«, t00=0x003d, t01=0x0104}
0x604c…6074 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003d, t01=0x0110}
0x6074…6082 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003d, t01=0x0138}
0x6082…6094 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0146}
0x6094…60b4 Head {h00=0x001c, h01=0x0050, text=»A84 CHECK DEBITOR, BKO«, t00=0x003d, t01=0x0158}
0x60b4…60d8 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x003d, t01=0x0178}
0x60d8…6108 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN3 MIGHT BE TRANSTYPE 3«, t00=0x003e, t01=0x000c}
0x6108…6128 Head {h00=0x001c, h01=0x0050, text=» CBNE SPBINW2,CBIN3,A842«, t00=0x003e, t01=0x003c}
0x6128…6144 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN17«, t00=0x003e, t01=0x005c}
0x6144…6150 Head {h00=0x0008, h01=0x0050, text=»A842«, t00=0x003e, t01=0x0078}
0x6150…616e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003e, t01=0x0084}
0x616e…6190 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+51',A845 «, t00=0x003e, t01=0x00a2}
0x6190…61b2 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD1,=D'+52',A845 «, t00=0x003e, t01=0x00c4}
0x61b2…61be Head {h00=0x0008, h01=0x0050, text=»A843«, t00=0x003e, t01=0x00e6}
0x61be…61d2 Head {h00=0x0010, h01=0x0050, text=» PERF SELTR «, t00=0x003e, t01=0x00f2}
0x61d2…61e4 Head {h00=0x000e, h01=0x0050, text=» BNOK ART «, t00=0x003e, t01=0x0106}
0x61e4…61f2 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x003e, t01=0x0118}
0x61f2…61fe Head {h00=0x0008, h01=0x0050, text=»A845«, t00=0x003e, t01=0x0126}
0x61fe…621a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW5,CBIN4 «, t00=0x003e, t01=0x0132}
0x621a…622a Head {h00=0x000c, h01=0x0050, text=» B A843 «, t00=0x003e, t01=0x014e}
0x622a…623c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003e, t01=0x015e}
0x623c…6264 Head {h00=0x0024, h01=0x0050, text=»A85 CHECK REMITTERING, KONTONR«, t00=0x003e, t01=0x0170}
0x6264…6288 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN5 FIELD 5 «, t00=0x003f, t01=0x0008}
0x6288…62b4 Head {h00=0x0028, h01=0x0050, text=» CBL SPBINW1,CBIN3,A805 CHECK LENGTH«, t00=0x003f, t01=0x002c}
0x62b4…62e0 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW1,CBIN10,A850 MUST BE 10 «, t00=0x003f, t01=0x0058}
0x62e0…6308 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x003f, t01=0x0084}
0x6308…6316 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x003f, t01=0x00ac}
0x6316…6322 Head {h00=0x0008, h01=0x0050, text=»A850«, t00=0x003f, t01=0x00ba}
0x6322…6356 Head {h00=0x0030, h01=0x0050, text=» CMP SPBINW2,CBIN3 ONLY ENTER-KEY ALLOWED«, t00=0x003f, t01=0x00c6}
0x6356…6368 Head {h00=0x000e, h01=0x0050, text=» BNE A855 «, t00=0x003f, t01=0x00fa}
0x6368…6386 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x003f, t01=0x010c}
0x6386…63aa Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP«, t00=0x003f, t01=0x012a}
0x63aa…63c8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x003f, t01=0x014e}
0x63c8…63fc Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN1,CBIN6,A853 6: REMIT NOT ALLOWED«, t00=0x003f, t01=0x016c}
0x63fc…642c Head {h00=0x002c, h01=0x0050, text=» CMP GSWBIN1,CBIN7 7:KNT.NO. NOT ALLOWED«, t00=0x0040, t01=0x0010}
0x642c…643e Head {h00=0x000e, h01=0x0050, text=» BE A0570 «, t00=0x0040, t01=0x0040}
0x643e…645e Head {h00=0x001c, h01=0x0050, text=» CBNE GSWBIN1,CBIN8,A854«, t00=0x0040, t01=0x0052}
0x645e…6478 Head {h00=0x0016, h01=0x0050, text=» TBF TTSUPFLG,A854«, t00=0x0040, t01=0x0072}
0x6478…64a6 Head {h00=0x002a, h01=0x0050, text=» B A0577 8:KNT.NO. NOT ALLOWED IN SUPL«, t00=0x0040, t01=0x008c}
0x64a6…64b2 Head {h00=0x0008, h01=0x0050, text=»A853«, t00=0x0040, t01=0x00ba}
0x64b2…64e0 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,CBIN20 REMIT NOT ALLOWED«, t00=0x0040, t01=0x00c6}
0x64e0…64ee Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x00f4}
0x64ee…64fa Head {h00=0x0008, h01=0x0050, text=»A854«, t00=0x0040, t01=0x0102}
0x64fa…6508 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0040, t01=0x010e}
0x6508…6514 Head {h00=0x0008, h01=0x0050, text=»A855«, t00=0x0040, t01=0x011c}
0x6514…653c Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x0040, t01=0x0128}
0x653c…654a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0040, t01=0x0150}
0x654a…655c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x015e}
0x655c…6584 Head {h00=0x0024, h01=0x0050, text=»A86 CHECK REMITTERING, LEV.NR.«, t00=0x0040, t01=0x0170}
0x6584…65a8 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN6 FIELD 6 «, t00=0x0041, t01=0x0008}
0x65a8…65d8 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN8 MIGHT BE TRANSTYPE 8«, t00=0x0041, t01=0x002c}
0x65d8…660a Head {h00=0x002e, h01=0x0050, text=» CMP SPBINW1,CBIN2 CHECK LENGTH + CPR/CIR «, t00=0x0041, t01=0x005c}
0x660a…661a Head {h00=0x000c, h01=0x0050, text=» BG A811«, t00=0x0041, t01=0x008e}
0x661a…6642 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN3 ERROR LENGTH«, t00=0x0041, t01=0x009e}
0x6642…6650 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0041, t01=0x00c6}
0x6650…6662 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00d4}
0x6662…668c Head {h00=0x0026, h01=0x0050, text=»A87 CHECK REMITTERING, YD.MODT. «, t00=0x0041, t01=0x00e6}
0x668c…66b2 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW3,CBIN21 FIELD 21 «, t00=0x0041, t01=0x0110}
0x66b2…66e2 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW5,CBIN9 MIGHT BE TRANSTYPE 9«, t00=0x0041, t01=0x0136}
0x66e2…6708 Head {h00=0x0022, h01=0x0050, text=» B A821 CHECK FOR INVALID KEY «, t00=0x0041, t01=0x0166}
0x6708…671a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x018c}
0x671a…6726 Head {h00=0x0008, h01=0x0050, text=»A88 «, t00=0x0042, t01=0x000e}
0x6726…674a Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW3,CBIN7 FIELD 7 «, t00=0x0042, t01=0x001a}
0x674a…6766 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'36'«, t00=0x0042, t01=0x003e}
0x6766…6782 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN2 «, t00=0x0042, t01=0x005a}
0x6782…6798 Head {h00=0x0012, h01=0x0050, text=» TBT BCPR,A885«, t00=0x0042, t01=0x0076}
0x6798…67c4 Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35310000' 51 IF CIR«, t00=0x0042, t01=0x008c}
0x67c4…67d2 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0042, t01=0x00b8}
0x67d2…67de Head {h00=0x0008, h01=0x0050, text=»A885«, t00=0x0042, t01=0x00c6}
0x67de…680a Head {h00=0x0028, h01=0x0050, text=» MOVE SPINPUT,=X'35320000' 52 IF CPR«, t00=0x0042, t01=0x00d2}
0x680a…6818 Head {h00=0x000a, h01=0x0050, text=» B A07«, t00=0x0042, t01=0x00fe}
0x6818…682a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x010c}
0x682a…6836 Head {h00=0x0008, h01=0x0050, text=»A89 «, t00=0x0042, t01=0x011e}
0x6836…6862 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,CBIN6 STORE IN FIELD 6«, t00=0x0042, t01=0x012a}
0x6862…6870 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0042, t01=0x0156}
0x6870…6882 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x0164}
0x6882…68a2 Head {h00=0x001c, h01=0x0050, text=»A121 SIMULATE SLUT KEY«, t00=0x0042, t01=0x0176}
0x68a2…68ba Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLUTFL «, t00=0x0043, t01=0x0008}
0x68ba…68d2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTADUPFL «, t00=0x0043, t01=0x0020}
0x68d2…68f8 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW2,CBIN17 SLUT KEY «, t00=0x0043, t01=0x0038}
0x68f8…6920 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW1,CBIN0 LENGTH ZERO «, t00=0x0043, t01=0x005e}
0x6920…692e Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0043, t01=0x0086}
0x692e…6940 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0094}
0x6940…6962 Head {h00=0x001e, h01=0x0050, text=»A122 ENTER TO SLUT KEY «, t00=0x0043, t01=0x00a6}
0x6962…697c Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN3«, t00=0x0043, t01=0x00c8}
0x697c…698c Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x0043, t01=0x00e2}
0x698c…69aa Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW2,CBIN17 «, t00=0x0043, t01=0x00f2}
0x69aa…69ba Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x0043, t01=0x0110}
0x69ba…69cc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0120}
0x69cc…69d8 Head {h00=0x0008, h01=0x0050, text=»A90 «, t00=0x0043, t01=0x0132}
0x69d8…69ec Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0043, t01=0x013e}
0x69ec…6a12 Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN1),SPINPUT «, t00=0x0043, t01=0x0152}
0x6a12…6a20 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0043, t01=0x0178}
0x6a20…6a2c Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0043, t01=0x0186}
0x6a2c…6a38 (68, 0, 400) Head {h00=0x0008, h01=0x0050, text=»A91 «, t00=0x0044, t01=0x0004}
0x6a38…6a4c Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0010}
0x6a4c…6a72 Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN2),SPINPUT «, t00=0x0044, t01=0x0024}
0x6a72…6a80 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x004a}
0x6a80…6a8c Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0058}
0x6a8c…6a98 Head {h00=0x0008, h01=0x0050, text=»A92 «, t00=0x0044, t01=0x0064}
0x6a98…6aac Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0070}
0x6aac…6ad2 Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN3),SPINPUT «, t00=0x0044, t01=0x0084}
0x6ad2…6ae0 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x00aa}
0x6ae0…6aec Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x00b8}
0x6aec…6af8 Head {h00=0x0008, h01=0x0050, text=»A93 «, t00=0x0044, t01=0x00c4}
0x6af8…6b0c Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x00d0}
0x6b0c…6b32 Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN4),SPINPUT «, t00=0x0044, t01=0x00e4}
0x6b32…6b40 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x010a}
0x6b40…6b4c Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0118}
0x6b4c…6b58 Head {h00=0x0008, h01=0x0050, text=»A94 «, t00=0x0044, t01=0x0124}
0x6b58…6b6c Head {h00=0x0010, h01=0x0050, text=» PERF SPACES«, t00=0x0044, t01=0x0130}
0x6b6c…6b92 Head {h00=0x0022, h01=0x0050, text=» MOVE GTFELT90(CBIN5),SPINPUT «, t00=0x0044, t01=0x0144}
0x6b92…6ba0 Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0044, t01=0x016a}
0x6ba0…6bac Head {h00=0x0008, h01=0x0050, text=»*** «, t00=0x0044, t01=0x0178}
0x6bac…6bd0 Head {h00=0x0020, h01=0x0050, text=»A100 CHECK TR 12 COUNTERS «, t00=0x0044, t01=0x0184}
0x6bd0…6bee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0045, t01=0x0018}
0x6bee…6c0a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD1,=D'100'«, t00=0x0045, t01=0x0036}
0x6c0a…6c28 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0045, t01=0x0052}
0x6c28…6c52 Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN6,CBIN1,A1009 TOO SMALL«, t00=0x0045, t01=0x0070}
0x6c52…6c8a Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH«, t00=0x0045, t01=0x009a}
0x6c8a…6cb4 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(TTASKNR,CBIN1) «, t00=0x0045, t01=0x00d2}
0x6cb4…6cc2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x00fc}
0x6cc2…6cd0 Head {h00=0x000a, h01=0x0050, text=»A1009 «, t00=0x0045, t01=0x010a}
0x6cd0…6cec Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0045, t01=0x0118}
0x6cec…6cfa Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0045, t01=0x0134}
0x6cfa…6d0c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x0142}
0x6d0c…6d30 Head {h00=0x0020, h01=0x0050, text=»A101 CHECK BEHL. COUNTERS «, t00=0x0045, t01=0x0154}
0x6d30…6d4e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0045, t01=0x0178}
0x6d4e…6d70 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD1,=D'1',A101ER «, t00=0x0046, t01=0x0008}
0x6d70…6d8e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD1 «, t00=0x0046, t01=0x002a}
0x6d8e…6dbe Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER «, t00=0x0046, t01=0x0048}
0x6dbe…6de6 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(TTASKNR,CBIN1)«, t00=0x0046, t01=0x0078}
0x6de6…6df4 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x00a0}
0x6df4…6e02 Head {h00=0x000a, h01=0x0050, text=»A101ER«, t00=0x0046, t01=0x00ae}
0x6e02…6e1e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0046, t01=0x00bc}
0x6e1e…6e2c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0046, t01=0x00d8}
0x6e2c…6e3e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x00e6}
0x6e3e…6e60 Head {h00=0x001e, h01=0x0050, text=»A102 CHECK RELATIVE DAY «, t00=0x0046, t01=0x00f8}
0x6e60…6e7e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,CMASKDAT«, t00=0x0046, t01=0x011a}
0x6e7e…6eae Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD5,=D'2' INITIATE REL DAY NO.«, t00=0x0046, t01=0x0138}
0x6eae…6ed8 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,=D'1' BLANK GSWBCD3 «, t00=0x0046, t01=0x0168}
0x6ed8…6f06 (71, 0, 400) Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN2,CBIN8 SET POINTER TO DAY«, t00=0x0047, t01=0x0004}
0x6f06…6f40 Head {h00=0x0036, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY «, t00=0x0047, t01=0x0032}
0x6f40…6f70 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY«, t00=0x0047, t01=0x006c}
0x6f70…6fa0 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN2,CBIN2 SET POINTER TO MONTH «, t00=0x0047, t01=0x009c}
0x6fa0…6fdc Head {h00=0x0038, h01=0x0050, text=» COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH «, t00=0x0047, t01=0x00cc}
0x6fdc…700e Head {h00=0x002e, h01=0x0050, text=» SUB GSWBCD3,=D'1' GET WHOLE NO. OF MONTHS«, t00=0x0047, t01=0x0108}
0x700e…7038 Head {h00=0x0026, h01=0x0050, text=» MUL GSWBCD3,=D'30' EQUAL IN DAYS «, t00=0x0047, t01=0x013a}
0x7038…7054 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3«, t00=0x0047, t01=0x0164}
0x7054…7084 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET KEYED REL. DAY«, t00=0x0047, t01=0x0180}
0x7084…709e Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD5,=D'5'«, t00=0x0048, t01=0x0020}
0x709e…70cc Head {h00=0x002a, h01=0x0050, text=» CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL «, t00=0x0048, t01=0x003a}
0x70cc…70e8 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD5,=D'10' «, t00=0x0048, t01=0x0068}
0x70e8…7116 Head {h00=0x002a, h01=0x0050, text=» CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE «, t00=0x0048, t01=0x0084}
0x7116…7128 Head {h00=0x000e, h01=0x0050, text=» B A102END«, t00=0x0048, t01=0x00b2}
0x7128…7136 Head {h00=0x000a, h01=0x0050, text=»A102ER«, t00=0x0048, t01=0x00c4}
0x7136…7160 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN11 INVALID VALUE«, t00=0x0048, t01=0x00d2}
0x7160…7170 Head {h00=0x000c, h01=0x0050, text=»A102END «, t00=0x0048, t01=0x00fc}
0x7170…718c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=X'FF'«, t00=0x0048, t01=0x010c}
0x718c…719a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0048, t01=0x0128}
0x719a…71ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x0136}
0x71ac…71ce Head {h00=0x001e, h01=0x0050, text=»A103 SET BEHL. COUNTERS «, t00=0x0048, t01=0x0148}
0x71ce…71ec Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0048, t01=0x016a}
0x71ec…720a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x0048, t01=0x0188}
0x720a…7232 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN6,CBEH(GSWBIN1,CBIN1)«, t00=0x0049, t01=0x0016}
0x7232…725e Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A103ER TOO MANY «, t00=0x0049, t01=0x003e}
0x725e…7280 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1035 «, t00=0x0049, t01=0x006a}
0x7280…729a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0049, t01=0x008c}
0x729a…72c4 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 «, t00=0x0049, t01=0x00a6}
0x72c4…72de Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x0049, t01=0x00d0}
0x72de…72ec Head {h00=0x000a, h01=0x0050, text=»A1035 «, t00=0x0049, t01=0x00ea}
0x72ec…730a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD3 «, t00=0x0049, t01=0x00f8}
0x730a…7334 Head {h00=0x0026, h01=0x0050, text=» MOVE CBEH(GSWBIN1,CBIN2),GSWBIN6 «, t00=0x0049, t01=0x0116}
0x7334…7342 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x0140}
0x7342…7350 Head {h00=0x000a, h01=0x0050, text=»A103ER«, t00=0x0049, t01=0x014e}
0x7350…736c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0049, t01=0x015c}
0x736c…737a Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0049, t01=0x0178}
0x737a…738c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x0186}
0x738c…73ae Head {h00=0x001e, h01=0x0050, text=»A104 SET TR 12 COUNTERS «, t00=0x004a, t01=0x0008}
0x73ae…73cc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPINPUT «, t00=0x004a, t01=0x002a}
0x73cc…73ea Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x004a, t01=0x0048}
0x73ea…7414 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) «, t00=0x004a, t01=0x0066}
0x7414…7440 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBIN6,=W'60',A104ER TOO MANY «, t00=0x004a, t01=0x0090}
0x7440…7462 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,CBIN12,A1045 «, t00=0x004a, t01=0x00bc}
0x7462…747c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x004a, t01=0x00de}
0x747c…74a6 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN1),GSWBIN6«, t00=0x004a, t01=0x00f8}
0x74a6…74c0 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x004a, t01=0x0122}
0x74c0…74ce Head {h00=0x000a, h01=0x0050, text=»A1045 «, t00=0x004a, t01=0x013c}
0x74ce…74ec Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,GSWBCD4 «, t00=0x004a, t01=0x014a}
0x74ec…7516 Head {h00=0x0026, h01=0x0050, text=» MOVE CTR12(GSWBIN1,CBIN2),GSWBIN6«, t00=0x004a, t01=0x0168}
0x7516…7524 (75, 0, 400) Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004b, t01=0x0004}
0x7524…7532 Head {h00=0x000a, h01=0x0050, text=»A104ER«, t00=0x004b, t01=0x0012}
0x7532…754e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x004b, t01=0x0020}
0x754e…755c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004b, t01=0x003c}
0x755c…756e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x004a}
0x756e…7590 Head {h00=0x001e, h01=0x0050, text=»A105 CONRTL.DIGITCALC. «, t00=0x004b, t01=0x005c}
0x7590…75ae Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004b, t01=0x007e}
0x75ae…75d0 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN3,CALCD01«, t00=0x004b, t01=0x009c}
0x75d0…75ec Head {h00=0x0018, h01=0x0050, text=» CMP SPBINW2,CBIN17 «, t00=0x004b, t01=0x00be}
0x75ec…75fc Head {h00=0x000c, h01=0x0050, text=» BNE ART«, t00=0x004b, t01=0x00da}
0x75fc…760c Head {h00=0x000c, h01=0x0050, text=»CALCD01 «, t00=0x004b, t01=0x00ea}
0x760c…7636 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,SPBINW1 GET LENGTH«, t00=0x004b, t01=0x00fa}
0x7636…7652 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN13«, t00=0x004b, t01=0x0124}
0x7652…766e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'0' «, t00=0x004b, t01=0x0140}
0x766e…767e Head {h00=0x000c, h01=0x0050, text=»CALCD02 «, t00=0x004b, t01=0x015c}
0x767e…769c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,=D'0' «, t00=0x004b, t01=0x016c}
0x769c…76de Head {h00=0x003e, h01=0x0050, text=» COPY GSWBCD3,CBIN5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT «, t00=0x004b, t01=0x018a}
0x76de…770e Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN2,CBIN1 ADJUST WEIGHT-INDEX«, t00=0x004c, t01=0x003c}
0x770e…7748 Head {h00=0x0036, h01=0x0050, text=» MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY BY WEIGHT «, t00=0x004c, t01=0x006c}
0x7748…7776 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM «, t00=0x004c, t01=0x00a6}
0x7776…77a0 Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN1,CBIN1 ADJUST LENGTH«, t00=0x004c, t01=0x00d4}
0x77a0…77c2 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,CBIN0,CALCD02«, t00=0x004c, t01=0x00fe}
0x77c2…77e0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBCD5 «, t00=0x004c, t01=0x0120}
0x77e0…77fc Head {h00=0x0018, h01=0x0050, text=» DIV GSWBCD5,=D'11' «, t00=0x004c, t01=0x013e}
0x77fc…7818 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD5,=D'11' «, t00=0x004c, t01=0x015a}
0x7818…7854 Head {h00=0x0038, h01=0x0050, text=» SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 «, t00=0x004c, t01=0x0176}
0x7854…7878 Head {h00=0x0020, h01=0x0050, text=» CBNL GSWBCD4,=D'1',CALCD05 «, t00=0x004d, t01=0x0022}
0x7878…7894 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'11'«, t00=0x004d, t01=0x0046}
0x7894…78a4 Head {h00=0x000c, h01=0x0050, text=»CALCD05 «, t00=0x004d, t01=0x0062}
0x78a4…78c0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD5,=D'11'«, t00=0x004d, t01=0x0072}
0x78c0…78f6 Head {h00=0x0032, h01=0x0050, text=» SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT «, t00=0x004d, t01=0x008e}
0x78f6…7906 Head {h00=0x000c, h01=0x0050, text=» B ART «, t00=0x004d, t01=0x00c4}
0x7906…7918 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004d, t01=0x00d4}
0x7918…793c Head {h00=0x0020, h01=0x0050, text=»A107 POSTDATO=MASKINDATO ?«, t00=0x004d, t01=0x00e6}
0x793c…795a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,SPINPUT «, t00=0x004d, t01=0x010a}
0x795a…797e Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD7,CMASKDAT,A1075«, t00=0x004d, t01=0x0128}
0x797e…798c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004d, t01=0x014c}
0x798c…799a Head {h00=0x000a, h01=0x0050, text=»A1075 «, t00=0x004d, t01=0x015a}
0x799a…79b0 Head {h00=0x0012, h01=0x0050, text=» SET SPWARNFL «, t00=0x004d, t01=0x0168}
0x79b0…79be Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004d, t01=0x017e}
0x79be…79d0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004d, t01=0x018c}
0x79d0…79ee Head {h00=0x001a, h01=0x0050, text=»A108 SPG-REGKONTONR «, t00=0x004e, t01=0x000e}
0x79ee…7a0a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'5' «, t00=0x004e, t01=0x002c}
0x7a0a…7a18 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x0048}
0x7a18…7a2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x0056}
0x7a2a…7a48 Head {h00=0x001a, h01=0x0050, text=»A109 SPG-CPR/CIR/NR «, t00=0x004e, t01=0x0068}
0x7a48…7a64 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'6' «, t00=0x004e, t01=0x0086}
0x7a64…7a72 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x00a2}
0x7a72…7a84 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x00b0}
0x7a84…7a9c Head {h00=0x0014, h01=0x0050, text=»A110 SPG-BELOB«, t00=0x004e, t01=0x00c2}
0x7a9c…7ab8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'8' «, t00=0x004e, t01=0x00da}
0x7ab8…7ac6 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004e, t01=0x00f6}
0x7ac6…7ad8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x0104}
0x7ad8…7af6 Head {h00=0x001a, h01=0x0050, text=»A111 SPG-OTHER FIELD«, t00=0x004e, t01=0x0116}
0x7af6…7b14 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004e, t01=0x0134}
0x7b14…7b38 Head {h00=0x0020, h01=0x0050, text=» CBG GSWBCD6,=D'90',A111ERR «, t00=0x004e, t01=0x0152}
0x7b38…7b54 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'0' «, t00=0x004e, t01=0x0176}
0x7b54…7b62 (79, 0, 400) Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x0004}
0x7b62…7b72 Head {h00=0x000c, h01=0x0050, text=»A111ERR «, t00=0x004f, t01=0x0012}
0x7b72…7b8e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x004f, t01=0x0022}
0x7b8e…7b9c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x004f, t01=0x003e}
0x7b9c…7bae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x004c}
0x7bae…7bd0 Head {h00=0x001e, h01=0x0050, text=»A115 TEXTNR REMITTERING «, t00=0x004f, t01=0x005e}
0x7bd0…7bee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT «, t00=0x004f, t01=0x0080}
0x7bee…7c0c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN8,GSWBCD6 «, t00=0x004f, t01=0x009e}
0x7c0c…7c32 Head {h00=0x0022, h01=0x0050, text=» PERF TXTRD,GSWBIN8 READ TEXT «, t00=0x004f, t01=0x00bc}
0x7c32…7c46 Head {h00=0x0010, h01=0x0050, text=» BNOK A1154 «, t00=0x004f, t01=0x00e2}
0x7c46…7c74 Head {h00=0x002a, h01=0x0050, text=» CBE GTWBCD1,=D'10',A1154 END OF FILE «, t00=0x004f, t01=0x00f6}
0x7c74…7c9e Head {h00=0x0026, h01=0x0050, text=» CBL GTTXTTKO,=D'1',A1154 DELETED «, t00=0x004f, t01=0x0124}
0x7c9e…7cb6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x004f, t01=0x014e}
0x7cb6…7cd2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'26'«, t00=0x004f, t01=0x0166}
0x7cd2…7ce0 Head {h00=0x000a, h01=0x0050, text=»A1151 «, t00=0x004f, t01=0x0182}
0x7ce0…7cfc Head {h00=0x0018, h01=0x0050, text=» TBF TTCY1FLG,A1153 «, t00=0x004f, t01=0x0190}
0x7cfc…7d18 Head {h00=0x0018, h01=0x0050, text=» TBT GTBDTFLG,A1152 «, t00=0x0050, t01=0x001c}
0x7d18…7d34 Head {h00=0x0018, h01=0x0050, text=» TBF GTSTRFLG,A1153 «, t00=0x0050, t01=0x0038}
0x7d34…7d42 Head {h00=0x000a, h01=0x0050, text=»A1152 «, t00=0x0050, t01=0x0054}
0x7d42…7d68 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3)«, t00=0x0050, t01=0x0062}
0x7d68…7d8e Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN1 «, t00=0x0050, t01=0x0088}
0x7d8e…7d9c Head {h00=0x000a, h01=0x0050, text=»A1153 «, t00=0x0050, t01=0x00ae}
0x7d9c…7daa Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0050, t01=0x00bc}
0x7daa…7db8 Head {h00=0x000a, h01=0x0050, text=»A1154 «, t00=0x0050, t01=0x00ca}
0x7db8…7de2 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,CBIN11 TEXT MISSING «, t00=0x0050, t01=0x00d8}
0x7de2…7df0 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0050, t01=0x0102}
0x7df0…7e02 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x0110}
0x7e02…7e0e Head {h00=0x0008, h01=0x0050, text=»A116«, t00=0x0050, t01=0x0122}
0x7e0e…7e2a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'24'«, t00=0x0050, t01=0x012e}
0x7e2a…7e3a Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0050, t01=0x014a}
0x7e3a…7e4c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x015a}
0x7e4c…7e58 Head {h00=0x0008, h01=0x0050, text=»A117«, t00=0x0050, t01=0x016c}
0x7e58…7e74 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'25'«, t00=0x0050, t01=0x0178}
0x7e74…7e84 (81, 0, 400) Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x0004}
0x7e84…7e96 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0014}
0x7e96…7ea2 Head {h00=0x0008, h01=0x0050, text=»A118«, t00=0x0051, t01=0x0026}
0x7ea2…7ebe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'37'«, t00=0x0051, t01=0x0032}
0x7ebe…7ece Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x004e}
0x7ece…7ee0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x005e}
0x7ee0…7eec Head {h00=0x0008, h01=0x0050, text=»A119«, t00=0x0051, t01=0x0070}
0x7eec…7f08 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,=W'38'«, t00=0x0051, t01=0x007c}
0x7f08…7f18 Head {h00=0x000c, h01=0x0050, text=» B A1151«, t00=0x0051, t01=0x0098}
0x7f18…7f2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x00a8}
0x7f2a…7f36 Head {h00=0x0008, h01=0x0050, text=»A120«, t00=0x0051, t01=0x00ba}
0x7f36…7f5c Head {h00=0x0022, h01=0x0050, text=»* VALUESET: CURRENT YEAR +/- 1«, t00=0x0051, t01=0x00c6}
0x7f5c…7f82 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD1,CMASKDAT DDMMYY «, t00=0x0051, t01=0x00ec}
0x7f82…7fa0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD2,CMASKDAT«, t00=0x0051, t01=0x0112}
0x7fa0…7fc4 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'100' DDMM «, t00=0x0051, t01=0x0130}
0x7fc4…7fe8 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'100' DDMM00 «, t00=0x0051, t01=0x0154}
0x7fe8…800a Head {h00=0x001e, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 YY «, t00=0x0051, t01=0x0178}
0x800a…8028 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GSWBCD2 «, t00=0x0052, t01=0x000a}
0x8028…8042 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD1,=D'1'«, t00=0x0052, t01=0x0028}
0x8042…805c Head {h00=0x0016, h01=0x0050, text=» ADD GSWBCD2,=D'1'«, t00=0x0052, t01=0x0042}
0x805c…807a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0052, t01=0x005c}
0x807a…809c Head {h00=0x001e, h01=0x0050, text=» CBL GSWBCD3,GSWBCD1,A120E«, t00=0x0052, t01=0x007a}
0x809c…80be Head {h00=0x001e, h01=0x0050, text=» CBG GSWBCD3,GSWBCD2,A120E«, t00=0x0052, t01=0x009c}
0x80be…80cc Head {h00=0x000a, h01=0x0050, text=» B APK«, t00=0x0052, t01=0x00be}
0x80cc…80da Head {h00=0x000a, h01=0x0050, text=»A120E «, t00=0x0052, t01=0x00cc}
0x80da…80f6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0052, t01=0x00da}
0x80f6…8104 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0052, t01=0x00f6}
0x8104…8116 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0104}
0x8116…8122 Head {h00=0x0008, h01=0x0050, text=»A130«, t00=0x0052, t01=0x0116}
0x8122…813e Head {h00=0x0018, h01=0x0050, text=»* USED IN "NYSTART" «, t00=0x0052, t01=0x0122}
0x813e…815c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0052, t01=0x013e}
0x815c…817a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0052, t01=0x015c}
0x817a…81a0 Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,A1301,A1302,A1303 «, t00=0x0052, t01=0x017a}
0x81a0…81bc Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0053, t01=0x0010}
0x81bc…81ca Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0053, t01=0x002c}
0x81ca…81d8 Head {h00=0x000a, h01=0x0050, text=»A1301 «, t00=0x0053, t01=0x003a}
0x81d8…81fc Head {h00=0x0020, h01=0x0050, text=» MOVE GTSTRFMT,=C'SYSSTART '«, t00=0x0053, t01=0x0048}
0x81fc…820c Head {h00=0x000c, h01=0x0050, text=» B A1305«, t00=0x0053, t01=0x006c}
0x820c…821a Head {h00=0x000a, h01=0x0050, text=»A1302 «, t00=0x0053, t01=0x007c}
0x821a…8240 Head {h00=0x0022, h01=0x0050, text=» MOVE GTSTRFMT,=C'RESTART ' «, t00=0x0053, t01=0x008a}
0x8240…8250 Head {h00=0x000c, h01=0x0050, text=» B A1305«, t00=0x0053, t01=0x00b0}
0x8250…825e Head {h00=0x000a, h01=0x0050, text=»A1303 «, t00=0x0053, t01=0x00c0}
0x825e…8284 Head {h00=0x0022, h01=0x0050, text=» MOVE GTSTRFMT,=C'RESTORE ' «, t00=0x0053, t01=0x00ce}
0x8284…8292 Head {h00=0x000a, h01=0x0050, text=»A1305 «, t00=0x0053, t01=0x00f4}
0x8292…82c0 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN1,=X'0516' LINE 5, POS 22 «, t00=0x0053, t01=0x0102}
0x82c0…82e0 Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,GSWBIN1«, t00=0x0053, t01=0x0130}
0x82e0…82fe Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,STRTFRM «, t00=0x0053, t01=0x0150}
0x82fe…830c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0053, t01=0x016e}
0x830c…831e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x017c}
0x831e…832a Head {h00=0x0008, h01=0x0050, text=»A131«, t00=0x0053, t01=0x018e}
0x832a…8346 Head {h00=0x0018, h01=0x0050, text=»* USED IN "NYSTART" «, t00=0x0054, t01=0x000a}
0x8346…8364 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT «, t00=0x0054, t01=0x0026}
0x8364…8382 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x0054, t01=0x0044}
0x8382…83a8 Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,A1311,A1312,A1313 «, t00=0x0054, t01=0x0062}
0x83a8…83c4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN11«, t00=0x0054, t01=0x0088}
0x83c4…83d2 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0054, t01=0x00a4}
0x83d2…83e0 Head {h00=0x000a, h01=0x0050, text=»A1311 «, t00=0x0054, t01=0x00b2}
0x83e0…8402 Head {h00=0x001e, h01=0x0050, text=» MOVE GTSTRFMT,=C'SYSVOL '«, t00=0x0054, t01=0x00c0}
0x8402…8412 Head {h00=0x000c, h01=0x0050, text=» B A1315«, t00=0x0054, t01=0x00e2}
0x8412…8420 Head {h00=0x000a, h01=0x0050, text=»A1312 «, t00=0x0054, t01=0x00f2}
0x8420…8442 Head {h00=0x001e, h01=0x0050, text=» MOVE GTSTRFMT,=C'REGVOL '«, t00=0x0054, t01=0x0100}
0x8442…8452 Head {h00=0x000c, h01=0x0050, text=» B A1315«, t00=0x0054, t01=0x0122}
0x8452…8460 Head {h00=0x000a, h01=0x0050, text=»A1313 «, t00=0x0054, t01=0x0132}
0x8460…8482 Head {h00=0x001e, h01=0x0050, text=» MOVE GTSTRFMT,=C'AFBRYD '«, t00=0x0054, t01=0x0140}
0x8482…8490 Head {h00=0x000a, h01=0x0050, text=»A1315 «, t00=0x0054, t01=0x0162}
0x8490…84ae Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=X'0711'«, t00=0x0054, t01=0x0170}
0x84ae…84ce Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,GSWBIN1«, t00=0x0054, t01=0x018e}
0x84ce…84ec Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,STRTFRM «, t00=0x0055, t01=0x001e}
0x84ec…84fa Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0055, t01=0x003c}
0x84fa…850c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x004a}
0x850c…8520 Head {h00=0x0010, h01=0x0050, text=»STRTFRM FRMT«, t00=0x0055, t01=0x005c}
0x8520…8534 Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x0055, t01=0x0070}
0x8534…854c Head {h00=0x0014, h01=0x0050, text=» FCOPY GTSTRFMT «, t00=0x0055, t01=0x0084}
0x854c…855a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x009c}
0x855a…856c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x00aa}
0x856c…8578 Head {h00=0x0008, h01=0x0050, text=»A132«, t00=0x0055, t01=0x00bc}
0x8578…8596 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,SPINPUT «, t00=0x0055, t01=0x00c8}
0x8596…85b4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=X'0301'«, t00=0x0055, t01=0x00e6}
0x85b4…85d4 Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,GSWBIN1«, t00=0x0055, t01=0x0104}
0x85d4…85f6 Head {h00=0x001e, h01=0x0050, text=» EDIT CVOL(CBIN2),A132FMT2«, t00=0x0055, t01=0x0124}
0x85f6…8618 Head {h00=0x001e, h01=0x0050, text=» EDIT CVOL(CBIN3),A132FMT3«, t00=0x0055, t01=0x0146}
0x8618…863a Head {h00=0x001e, h01=0x0050, text=» EDIT CVOL(CBIN4),A132FMT4«, t00=0x0055, t01=0x0168}
0x863a…8658 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,A132FMT1«, t00=0x0055, t01=0x018a}
0x8658…8666 Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0056, t01=0x0018}
0x8666…866e Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0026}
0x866e…8684 Head {h00=0x0012, h01=0x0050, text=»A132FMT1 FRMT «, t00=0x0056, t01=0x002e}
0x8684…8698 Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x0056, t01=0x0044}
0x8698…86b2 Head {h00=0x0016, h01=0x0050, text=» FCOPY CVOL(CBIN2)«, t00=0x0056, t01=0x0058}
0x86b2…86c6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0056, t01=0x0072}
0x86c6…86e0 Head {h00=0x0016, h01=0x0050, text=» FCOPY CVOL(CBIN3)«, t00=0x0056, t01=0x0086}
0x86e0…86f4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0056, t01=0x00a0}
0x86f4…870e Head {h00=0x0016, h01=0x0050, text=» FCOPY CVOL(CBIN4)«, t00=0x0056, t01=0x00b4}
0x870e…871c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x00ce}
0x871c…8724 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00dc}
0x8724…873a Head {h00=0x0012, h01=0x0050, text=»A132FMT2 FRMT «, t00=0x0056, t01=0x00e4}
0x873a…8756 Head {h00=0x0018, h01=0x0050, text=» FMEL '999',GSWBCD1 «, t00=0x0056, t01=0x00fa}
0x8756…876a Head {h00=0x0010, h01=0x0050, text=» FTEXT '002'«, t00=0x0056, t01=0x0116}
0x876a…8778 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x012a}
0x8778…8780 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0138}
0x8780…8796 Head {h00=0x0012, h01=0x0050, text=»A132FMT3 FRMT «, t00=0x0056, t01=0x0140}
0x8796…87b2 Head {h00=0x0018, h01=0x0050, text=» FMEL '999',GSWBCD1 «, t00=0x0056, t01=0x0156}
0x87b2…87c6 Head {h00=0x0010, h01=0x0050, text=» FTEXT '003'«, t00=0x0056, t01=0x0172}
0x87c6…87d4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x0186}
0x87d4…87dc (87, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0004}
0x87dc…87f2 Head {h00=0x0012, h01=0x0050, text=»A132FMT4 FRMT «, t00=0x0057, t01=0x000c}
0x87f2…880e Head {h00=0x0018, h01=0x0050, text=» FMEL '999',GSWBCD1 «, t00=0x0057, t01=0x0022}
0x880e…8822 Head {h00=0x0010, h01=0x0050, text=» FTEXT '004'«, t00=0x0057, t01=0x003e}
0x8822…8830 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x0052}
0x8830…8842 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0057, t01=0x0060}
0x8842…8860 Head {h00=0x001a, h01=0x0050, text=»APK KEEP INFORMATION«, t00=0x0057, t01=0x0072}
0x8860…8888 Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APK00 FIRST FIELD?«, t00=0x0057, t01=0x0090}
0x8888…88a8 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW3,CBIN5,APK10«, t00=0x0057, t01=0x00b8}
0x88a8…88d0 Head {h00=0x0024, h01=0x0050, text=» MOVE GTKTTYP,=D'0' NOT KONTONR.«, t00=0x0057, t01=0x00d8}
0x88d0…88de Head {h00=0x000a, h01=0x0050, text=»APK10 «, t00=0x0057, t01=0x0100}
0x88de…8904 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0057, t01=0x010e}
0x8904…8916 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0057, t01=0x0134}
0x8916…893c Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0057, t01=0x0146}
0x893c…894a Head {h00=0x000a, h01=0x0050, text=»APK00 «, t00=0x0057, t01=0x016c}
0x894a…8984 Head {h00=0x0036, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD «, t00=0x0057, t01=0x017a}
0x8984…89bc Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER «, t00=0x0058, t01=0x0024}
0x89bc…89ca Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0058, t01=0x005c}
0x89ca…89dc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x006a}
0x89dc…89e8 Head {h00=0x0008, h01=0x0050, text=»APF «, t00=0x0058, t01=0x007c}
0x89e8…8a10 Head {h00=0x0024, h01=0x0050, text=» TBF TTEORFLG,APF00 FIRST FIELD?«, t00=0x0058, t01=0x0088}
0x8a10…8a2c Head {h00=0x0018, h01=0x0050, text=» MOVE GTKTTYP,=D'0' «, t00=0x0058, t01=0x00b0}
0x8a2c…8a52 Head {h00=0x0022, h01=0x0050, text=» PERF PACKCL YES, CLEAR GTUSED«, t00=0x0058, t01=0x00cc}
0x8a52…8a64 Head {h00=0x000e, h01=0x0050, text=» PERF CRKJ«, t00=0x0058, t01=0x00f2}
0x8a64…8a8a Head {h00=0x0022, h01=0x0050, text=» SET SPME CHECK FOR ME FIELDS «, t00=0x0058, t01=0x0104}
0x8a8a…8a98 Head {h00=0x000a, h01=0x0050, text=»APF00 «, t00=0x0058, t01=0x012a}
0x8a98…8ab2 Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,APF10 «, t00=0x0058, t01=0x0138}
0x8ab2…8ada Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD6,SPINPUT GET VALUE «, t00=0x0058, t01=0x0152}
0x8ada…8af6 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBCD6,GTDBKRS«, t00=0x0058, t01=0x017a}
0x8af6…8b14 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD6 «, t00=0x0059, t01=0x0008}
0x8b14…8b22 Head {h00=0x000a, h01=0x0050, text=»APF10 «, t00=0x0059, t01=0x0026}
0x8b22…8b64 Head {h00=0x003e, h01=0x0050, text=» MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD «, t00=0x0059, t01=0x0034}
0x8b64…8b92 Head {h00=0x002a, h01=0x0050, text=»* MULTIPLY WITH -1 IF KREDIT «, t00=0x0059, t01=0x0076}
0x8b92…8bd4 Head {h00=0x003e, h01=0x0050, text=»* STORE NEGATIVE FIELD NUMBER (NUMBER WITH SIGN) «, t00=0x0059, t01=0x00a4}
0x8bd4…8bfa Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),SPBINW3 «, t00=0x0059, t01=0x00e6}
0x8bfa…8c1e Head {h00=0x0020, h01=0x0050, text=» MUL GTUSED(GSWBIN1),=W'-1' «, t00=0x0059, t01=0x010c}
0x8c1e…8c2c Head {h00=0x000a, h01=0x0050, text=» B ART«, t00=0x0059, t01=0x0130}
0x8c2c…8c3e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0059, t01=0x013e}
0x8c3e…8c4a Head {h00=0x0008, h01=0x0050, text=»ART «, t00=0x0059, t01=0x0150}
0x8c4a…8c66 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0059, t01=0x015c}
0x8c66…8c86 Head {h00=0x001c, h01=0x0050, text=» CBL SPBINW4,CBIN3,ARET «, t00=0x0059, t01=0x0178}
0x8c86…8ca2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN3 «, t00=0x005a, t01=0x0008}
0x8ca2…8cae Head {h00=0x0008, h01=0x0050, text=»ARET«, t00=0x005a, t01=0x0024}
0x8cae…8cba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005a, t01=0x0030}
0x8cba…8cc8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005a, t01=0x003c}
0x8cc8…8cd0 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x004a}
0x8cd0…8cd8 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0052}
0x8cd8…8cec Head {h00=0x0010, h01=0x0050, text=»SPACES PROC «, t00=0x005a, t01=0x005a}
0x8cec…8d08 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x005a, t01=0x006e}
0x8d08…8d2c Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,SPINPUT,GSWBIN1«, t00=0x005a, t01=0x008a}
0x8d2c…8d38 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005a, t01=0x00ae}
0x8d38…8d46 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005a, t01=0x00ba}
0x8d46…8d54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x00c8}
0x8d54…8d68 Head {h00=0x0010, h01=0x0050, text=»SETKRE PROC «, t00=0x005a, t01=0x00d6}
0x8d68…8d84 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x00ea}
0x8d84…8d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0106}
0x8d8e…8dc2 Head {h00=0x0030, h01=0x0050, text=»* SETKRE - SET KREDIT INFORMATION «, t00=0x005a, t01=0x0110}
0x8dc2…8dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0144}
0x8dcc…8de8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x014e}
0x8de8…8e06 Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' KRE'«, t00=0x005a, t01=0x016a}
0x8e06…8e22 Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'-1'«, t00=0x005a, t01=0x0188}
0x8e22…8e3e Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'1' «, t00=0x005b, t01=0x0014}
0x8e3e…8e5a Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN1 «, t00=0x005b, t01=0x0030}
0x8e5a…8e66 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x004c}
0x8e66…8e74 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005b, t01=0x0058}
0x8e74…8e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0066}
0x8e7e…8e92 Head {h00=0x0010, h01=0x0050, text=»SETDEB PROC «, t00=0x005b, t01=0x0070}
0x8e92…8eae Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005b, t01=0x0084}
0x8eae…8eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a0}
0x8eb8…8eea Head {h00=0x002e, h01=0x0050, text=»* SETDEB - SET DEBET INFORMATION «, t00=0x005b, t01=0x00aa}
0x8eea…8ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00dc}
0x8ef4…8f10 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005b, t01=0x00e6}
0x8f10…8f2e Head {h00=0x001a, h01=0x0050, text=» MOVE GTDBKRC,=C' DEB'«, t00=0x005b, t01=0x0102}
0x8f2e…8f4a Head {h00=0x0018, h01=0x0050, text=» MOVE GTDBKRS,=D'+1'«, t00=0x005b, t01=0x0120}
0x8f4a…8f66 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKBCD,=D'2' «, t00=0x005b, t01=0x013c}
0x8f66…8f82 Head {h00=0x0018, h01=0x0050, text=» MOVE TTDKDEX,CBIN2 «, t00=0x005b, t01=0x0158}
0x8f82…8f8e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005b, t01=0x0174}
0x8f8e…8f9c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005b, t01=0x0180}
0x8f9c…8faa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x018e}
0x8faa…8fbc Head {h00=0x000e, h01=0x0050, text=»SELTR PROC«, t00=0x005c, t01=0x000c}
0x8fbc…8fd8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005c, t01=0x001e}
0x8fd8…8fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x003a}
0x8fe2…9024 Head {h00=0x003e, h01=0x0050, text=»* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN «, t00=0x005c, t01=0x0044}
0x9024…9040 Head {h00=0x0018, h01=0x0050, text=»* SELECTED.«, t00=0x005c, t01=0x0086}
0x9040…9074 Head {h00=0x0030, h01=0x0050, text=»* SELECTED TRANSTYPE IS IN SPBINW5 «, t00=0x005c, t01=0x00a2}
0x9074…907e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00d6}
0x907e…909a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005c, t01=0x00e0}
0x909a…90c4 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,CBIN3,SELOK ENTER KEY«, t00=0x005c, t01=0x00fc}
0x90c4…90f0 Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,CBIN18,SEL10 KREDIT KEY«, t00=0x005c, t01=0x0126}
0x90f0…911c Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,CBIN17,SEL20 DEBET KEY «, t00=0x005c, t01=0x0152}
0x911c…9144 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INVALID KEY «, t00=0x005c, t01=0x017e}
0x9144…916c Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x005d, t01=0x0016}
0x916c…9178 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005d, t01=0x003e}
0x9178…918e Head {h00=0x0012, h01=0x0050, text=»SEL10 KREDIT«, t00=0x005d, t01=0x004a}
0x918e…91a2 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x005d, t01=0x0060}
0x91a2…91b2 Head {h00=0x000c, h01=0x0050, text=» B SEL30«, t00=0x005d, t01=0x0074}
0x91b2…91c8 Head {h00=0x0012, h01=0x0050, text=»SEL20 DEBET «, t00=0x005d, t01=0x0084}
0x91c8…91dc Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x005d, t01=0x009a}
0x91dc…91fe Head {h00=0x001e, h01=0x0050, text=»SEL30 TRANSTYPE SELECTED«, t00=0x005d, t01=0x00ae}
0x91fe…921c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x005d, t01=0x00d0}
0x921c…9234 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x005d, t01=0x00ee}
0x9234…925c Head {h00=0x0024, h01=0x0050, text=» SEL40,SEL40,SEL90,SEL40,SEL40 «, t00=0x005d, t01=0x0106}
0x925c…926c Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x005d, t01=0x012e}
0x926c…927a Head {h00=0x000a, h01=0x0050, text=»SEL40 «, t00=0x005d, t01=0x013e}
0x927a…9292 Head {h00=0x0014, h01=0x0050, text=» IB SPBINW5, C «, t00=0x005d, t01=0x014c}
0x9292…92d2 Head {h00=0x003c, h01=0x0050, text=» SEL90,SEL45,SEL90,SEL90,SEL90,SEL90,SEL90,SEL45,SEL90 «, t00=0x005d, t01=0x0164}
0x92d2…92e0 Head {h00=0x000a, h01=0x0050, text=»SEL45 «, t00=0x005e, t01=0x0014}
0x92e0…9300 Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN1,CBIN3,SEL50«, t00=0x005e, t01=0x0022}
0x9300…931e Head {h00=0x001a, h01=0x0050, text=» SET SPWARNFL WARNING «, t00=0x005e, t01=0x0042}
0x931e…932e Head {h00=0x000c, h01=0x0050, text=» B SEL90«, t00=0x005e, t01=0x0060}
0x932e…933c Head {h00=0x000a, h01=0x0050, text=»SEL50 «, t00=0x005e, t01=0x0070}
0x933c…935e Head {h00=0x001e, h01=0x0050, text=» MOVE SPBINW4,CBIN19 ERROR«, t00=0x005e, t01=0x007e}
0x935e…9376 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x005e, t01=0x00a0}
0x9376…9382 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005e, t01=0x00b8}
0x9382…9390 Head {h00=0x000a, h01=0x0050, text=»SEL90 «, t00=0x005e, t01=0x00c4}
0x9390…93b2 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGNR,SPBINW5 TYPE«, t00=0x005e, t01=0x00d2}
0x93b2…93e8 Head {h00=0x0032, h01=0x0050, text=» MOVE GTREGDEX,SPBINW5 TYPE INDEX. OK FOR <11 «, t00=0x005e, t01=0x00f4}
0x93e8…941c Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,=W'36' SIMULATE TRANS SELECTED«, t00=0x005e, t01=0x012a}
0x941c…9430 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x005e, t01=0x015e}
0x9430…943e Head {h00=0x000a, h01=0x0050, text=»SELOK «, t00=0x005e, t01=0x0172}
0x943e…9464 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x005e, t01=0x0180}
0x9464…9470 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005f, t01=0x0016}
0x9470…947e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005f, t01=0x0022}
0x947e…948c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0030}
0x948c…9494 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x003e}
0x9494…949c Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0046}
0x949c…94a4 Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x004e}
0x94a4…94ba Head {h00=0x0012, h01=0x0050, text=»YYMMDD PROC P «, t00=0x005f, t01=0x0056}
0x94ba…94cc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005f, t01=0x006c}
0x94cc…950a Head {h00=0x003a, h01=0x0050, text=»* YYMMDD CHECKS THAT THE DATE IS IN FOR FORMAT YYMMDD.«, t00=0x005f, t01=0x007e}
0x950a…9530 Head {h00=0x0022, h01=0x0050, text=»* IF NOT, IT WILL BE INVERTED «, t00=0x005f, t01=0x00bc}
0x9530…954c Head {h00=0x0018, h01=0x0050, text=»* OUTPUT IN GSWBCD7 «, t00=0x005f, t01=0x00e2}
0x954c…955e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005f, t01=0x00fe}
0x955e…9576 Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBCD7,P «, t00=0x005f, t01=0x0110}
0x9576…9596 Head {h00=0x001c, h01=0x0050, text=» CBG P,=D'800000',YYMM90«, t00=0x005f, t01=0x0128}
0x9596…95ae Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBCD6,P «, t00=0x005f, t01=0x0148}
0x95ae…95de Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4«, t00=0x005f, t01=0x0160}
0x95de…960e Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6«, t00=0x005f, t01=0x0190}
0x960e…961c Head {h00=0x000a, h01=0x0050, text=»YYMM90«, t00=0x0060, t01=0x0030}
0x961c…9628 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x003e}
0x9628…9636 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0060, t01=0x004a}
0x9636…963e Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x0058}
0x963e…9652 Head {h00=0x0010, h01=0x0050, text=»CHDATO PROC «, t00=0x0060, t01=0x0060}
0x9652…9664 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0074}
0x9664…968e Head {h00=0x0026, h01=0x0050, text=»* CHANGES GSWBCD6 (DDMMYY) TO«, t00=0x0060, t01=0x0086}
0x968e…96ae Head {h00=0x001c, h01=0x0050, text=»* GSWBCD7 (YYMMDD) «, t00=0x0060, t01=0x00b0}
0x96ae…96c0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x00d0}
0x96c0…96de Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD7,GSWBCD6 «, t00=0x0060, t01=0x00e2}
0x96de…970e Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN6,CBIN1,GSWBCD6,CBIN4«, t00=0x0060, t01=0x0100}
0x970e…973e Head {h00=0x002c, h01=0x0050, text=» XCOPY GSWBCD7,CBIN4,CBIN1,GSWBCD6,CBIN6«, t00=0x0060, t01=0x0130}
0x973e…974a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0060, t01=0x0160}
0x974a…9758 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0060, t01=0x016c}
0x9758…9762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x017a}
0x9762…9792 Head {h00=0x002c, h01=0x0050, text=»XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT «, t00=0x0060, t01=0x0184}
0x9792…97a6 Head {h00=0x0010, h01=0x0050, text=» PLIT $TOPNT«, t00=0x0061, t01=0x0024}
0x97a6…97ba Head {h00=0x0010, h01=0x0050, text=» PLIT $SIZE «, t00=0x0061, t01=0x0038}
0x97ba…97d0 Head {h00=0x0012, h01=0x0050, text=» PLIT $FROMPNT«, t00=0x0061, t01=0x004c}
0x97d0…9806 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD «, t00=0x0061, t01=0x0062}
0x9806…9828 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN4,$SIZE LENGTH«, t00=0x0061, t01=0x0098}
0x9828…985e Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD «, t00=0x0061, t01=0x00ba}
0x985e…988c Head {h00=0x002a, h01=0x0050, text=» XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5«, t00=0x0061, t01=0x00f0}
0x988c…9898 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0061, t01=0x011e}
0x9898…98a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0061, t01=0x012a}
0x98a6…98b2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0061, t01=0x0138}
0x98b2…98b6 Head {h00=0x4004, h01=0x0000}
0x98b6…98ba 00 61 01 44 ┆ a D┆
0x98ba…98c2 (98, 1, 8) 20 04 00 00 00 62 00 04 ┆ b ┆
0x98c2…9912 (99, 0, 400) a4 00 83 a4 01 b0 83 41 a7 80 0b 83 54 8b 03 ca 7a 01 ef 17 8e 01 ef 1d 8e 01 ef 1e 8e 01 ef 23 8e 01 ef 24 8e 01 ef 20 8e 01 ef 26 8e 01 ef 14 8e 01 ef 16 8e 01 ef 11 8e 01 ef 12 83 21 ef 27 8e 0d 40 a7 80 1b 83 54 50 00 83 ef 27 5f 48 01 ┆ A T z # $ & ! ' @ TP '_H ┆
0x9912…9962 b0 83 80 07 54 43 00 ef 27 a4 40 a7 80 1b 83 54 38 02 df 1b ca 00 a4 82 80 08 54 2d 00 b0 c9 80 07 54 26 01 df 1a 8e 01 df 1b 8e 01 df 1c 8e 01 df 1d 8e 01 df 1e 8e 01 df 20 8e 00 a4 10 80 08 54 07 40 3a 06 10 10 57 05 40 3a 06 10 11 34 00 ┆ TC ' @ T8 T- T& T @: W @: 4 ┆
0x9962…99b2 01 b0 83 80 01 00 83 11 01 ef 22 8e 80 0b 83 50 02 57 bf 29 8b 7d b4 57 37 80 0b 83 50 32 21 8b 83 02 57 77 00 83 ef 22 41 a7 80 0b 83 54 a3 01 ef 27 8e 80 1b 83 54 9a 01 b0 83 80 07 54 93 00 a4 11 00 df 1b 83 00 df 1c 83 80 08 54 84 57 7b ┆ " P W ) } W7 P2! Ww "A T ' T T T W{┆
0x99b2…9a02 00 8c 83 80 06 1a 13 01 ef 12 83 01 ef 17 8e 01 ef 1d 8e 01 ef 1e 8e 01 ef 23 8e 01 ef 24 8e 01 ef 20 8e 01 ef 26 7c 01 ef 14 8e 01 ef 16 8e 01 ef 11 8e 00 ef 27 83 03 ef 27 7a 40 a7 80 1b 83 54 40 00 ef 22 83 02 83 11 5f 82 02 83 11 80 0b ┆ # $ &| ' 'z@ T@ " _ ┆
0x9a02…9a52 83 50 06 11 8b 83 83 5f 0e 00 ef 21 83 00 83 ef 22 80 0b 83 50 05 04 83 11 5f 0a 00 ef 27 ef 21 80 1b 83 5c 0f 00 83 ef 21 5f b2 80 01 06 10 10 57 05 80 01 06 10 11 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ P _ ! " P _ ' ! !_ W 4 ┆
0x9a52…9aa2 (100, 0, 400) 00 00 ef 27 a4 00 a4 00 80 1b 00 54 13 80 1c 29 b0 83 04 03 df 1b 7a 80 08 54 05 06 10 10 57 03 06 11 10 34 01 80 1a 5f 01 b0 83 80 07 54 0d 80 1d 10 00 54 07 40 5f 06 10 10 57 05 40 5f 06 10 11 34 01 80 1e 80 1f 25 84 cf 00 54 05 06 10 10 ┆ ' T ) z T W 4 _ T T @_ W @_ 4 % T ┆
0x9aa2…9af2 57 03 06 10 11 34 01 01 a0 31 01 cf 8b 80 20 25 84 cf a0 00 54 07 80 21 06 10 10 57 03 06 10 11 34 01 00 a2 ef 27 20 82 10 15 41 a7 00 83 82 80 0b 83 54 1a 00 ef 27 a2 80 1b 83 54 11 57 0a 00 a4 ef 27 80 08 54 07 57 00 06 10 10 57 03 06 10 ┆W 4 1 % T ! W 4 ' A T ' T W ' T W W ┆
0x9af2…9b42 11 34 00 41 a7 20 00 10 19 80 0b 00 54 47 00 83 ef 27 00 01 ef 27 80 0b 83 54 3a 80 1b 00 54 35 57 2e 00 83 a4 00 01 a4 80 0b 83 54 28 00 a4 ef 27 29 b0 83 17 05 df 1b 7a 23 df 1b 91 0e 01 8c 84 00 93 26 01 8b 91 01 ae 8d 80 22 80 08 54 05 ┆ 4 A TG ' ' T: T5W. T( ') z# & " T ┆
0x9b42…9b92 06 10 10 57 03 06 10 11 34 02 49 a7 ee 80 23 a0 10 12 cf 2f 00 ef 25 a0 01 8a 7a 6a 8a 12 15 cf 10 00 ef 12 8a 01 8a 7a 6a 8a 14 13 cf 15 00 ef 17 8a 6a a0 10 12 cf 23 00 ef 20 a0 00 a0 10 6a a0 11 11 cf 25 00 ef 26 a0 6a 8a 10 17 cf 26 00 ┆ W 4 I # / % zj zj j # j % & j & ┆
0x9b92…9be2 ef 14 8a 01 8a 7a 80 23 8a 16 11 cf 2a 00 ef 16 8a 01 8a 7a 80 23 8a 12 15 cf 2b 00 ef 11 8a 01 ef 1d 8e 01 ef 1e 8e 01 ef 23 8e 01 ef 24 8e 01 8a 7a 00 a0 ef 26 00 b7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ z # * z # + # $ z & ┆