|
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: 16844 (0x41cc)
Notes: pts_type(SC)
Names: »CEGACT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/CEGACT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/CEGACT.SC«
IDENT CEGACT GET ACCOUNT
DDUM DEMODD
PDIV
EXPROC DKDSTM
EXPROC PBBOOK
EXPROC QENTRS
EXPROC QGATYP
EXPROC XBFMT
EXPROC XEERR
EXPROC XGBCR
EXPROC ZCRDD
EXPROC ZGREA
ENTRY CEGACT
************************************************************************
**
* GET ACCOUNT
**
************************************************************************
CEGACT PROC
CE000
CBNE NWKTBIX,=W'11',CE100 NOT 'TRANSFER'
TBT SBCARD,CE100 'TRANSFER' AND 'CARD'
B CE999 'TRANSFER' AND NOT 'CARD'
**
* GET ADDITIONAL INPUT*
**
CE100
TBF SBCARD,CE120
**
* BADGE CARD READER INPUT*
**
CE110
PERF XBFMT,=W'27' 'DRAW CARD THROUGH BCR'
TBF SBCANCEL,CE115
B CE999
CE115
TBF SBMSU,CE116
MOVE WWINDEX1,KW2 TRACK NUMBER
CE116
PERF XGBCR GET ACCOUNT NUMBER
TBT SBMSU,CE140
CBNE SPBINW2,KW2,CE140 NO READ ERROR
PERF XEERR,=W'32',KW2
B CE110
CE120
TBF SBCHEQUE,CE130
**
* OPTICAL DOCUMENT READER INPUT*
**
B CE970 READ ACCOUNT RECORD
*
* KEYBOARD INPUT*
**
CE130
PERF XBFMT,=W'27' GET ACCOUNT NUMBER
TBF SBCANCEL,CE140
B CE999 CANCEL
***********************************************************************
**
* PERFORM CHECKS ON NUMBER ENTERED*
**
***********************************************************************
CE140
CBNE NWKTBIX,=W'8',CE150 NEXT CHECK
CBNE IDACTNR1,=D'0',CE150
**
* NUMBER ENTERED = 0 AND 'D-S'*
* A GTP OR LP MUST BE AVAILABLE*
**
CBE RDPRTTYP,=D'2',CE149 GTP AVAILABLE
CBE YDMLPINT,=D'1',CE149 LINE PRINTER AVAILABLE
B CE990
CE149
B CE999 LONGBRANCH
CE150
CBL IDACTNR1,=D'1001',CE920 ERROR
CBL IDACTNR1,=D'10000',CE200 READ ACCOUNT RECORD
CBL IDACTNR1,=D'10001',CE920 NOT IN RANGE
CBL IDACTNR1,=D'20000',CE180 POSSIBLE OPR. CLOSE
CBL IDACTNR1,=D'168000',CE920 ERROR
CBL IDACTNR1,=D'169000',CE210 READ ACCOUNT RECORD
B CE920 ERROR
*
* POSSIBLE OPERATOR CLOSE
*
CE180
CBNE NWKTBIX,=W'4',CE920 NO CLOSE
CBNE IDACTNR1,RDOPRNR,CE990 INVALID KEY
*
* NUMBER ENTERED IS THE CURRENT OPERATOR NUMBER AND
* CLOSE HAS BEEN REQUESTED
*
SET SBOPRCLS SET OPR. CLOSE SWITCH
B CE999 RETURN
**
* RECORD NUMBER IS IN THE RIGHT RANGE*
**
CE200
*
* READ VIA INDEX 2
*
MOVE ADACTRNR,IDACTNR1
PERF ZCRDD,ADACTRNR,NDLRN1,KW2
B CE250
*
* READ VIA INDEX 1
*
CE210
MOVE ADACTRNR,IDACTNR1
MUL ADACTRNR,KDSHIFT
PERF ZCRDD,ADACTRNR,NDLRN1,KW1
CE250
TBT SBCANCEL,CE999
TBF SBRECAVB,CE990 RECORD NOT AVAILABLE
***********************************************************************
**
* ACCOUNT RECORD AVAILABLE*
* PERFORM CHECKS ON THE RECORD READ
**
***********************************************************************
CE300
MOVE IDACTNR1,ADACTRNR
DIV IDACTNR1,KDSHIFT SAVE ACCOUNT NUMBER
*
* SET SBCHQACT ACCORDING TO THE ACCOUNT TYPE
*
PERF QGATYP,IDACTNR1
CBL ADSTATUS,=D'2',CE400 ACCOUNT NOT CLOSED
**
* ACCOUNT CLOSED*
* IF MASTER KEY UPDATE, CONTINUE
**
TBF SBKEY2,CE340
CBE NWKTBIX,=W'6',CE400 'UPDATE'
CE340
CBE ADSTATUS,=D'3',CE990 CLOSED WITH STATEMENT
**
* ACCOUNT CLOSED WITHOUT STATEMENT*
* IF FUNCTION CHOISE IS DAILY STATEMENTS, CONTINUE
* PERFORM DAILY STATEMENTS OR PRINT PASSBOOK*
* IF A TELLER TERMINAL PRINTER IS AVAILABLE*
* *
CBE NWKTBIX,=W'8',CE400 SKIP IF 'D-S'
CBE RDPRTTYP,=D'2',CE990 'RECORD KEY INVALID
TBT SBCHQACT,CE360
**
* SAVINGS ACCOUNT, PRINT PASSBOOK*
* PRINT ALL UNSTATEMENTED TRANSACTIONS AND A CLOSE LINE
**
TBT SBNOBOOK,CE990
PERF PBBOOK
B CE370
* *
* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS*
**
CE360
PERF DKDSTM
CE370
TBT SBCANCEL,CE999
B CE990
CE400
CBE ADSTATUS,=D'0',CE500 DEBLOCKED
**
* ACCOUNT BLOCKED*
**
CBE NWKTBIX,=W'7',CE500 'INQUIRY' ALLOWED
CBE NWKTBIX,=W'8',CE500 'D-S' ALLOWED
TBF SBKEY2,CE980 ELSE KEY 2 MUST BE ON
CBE NWKTBIX,=W'6',CE500 AND 'UPDATE'
CBE NWKTBIX,=W'5',CE500 OR 'BLOCK'
B CE980 ERROR, ACCOUNT BLOCKED
***********************************************************************
*
* ADDITONAL CHECKS
**
***********************************************************************
*
* CHECK CLOSE
**
CE500
CBNE NWKTBIX,=W'4',CE505
CBNE ADBAL,=D'0',CE950 ERROR
*
* CHECK D-S
*
CE505
CBNE NWKTBIX,=W'8',CE510
CBG RDPRTTYP,=D'1',CE910 NO TTP OR TEP
*
* CHECK OUT
*
CE510
CBNE NWKTBIX,=W'10',CE520 NOT 'OUT'
TBF SBCHEQUE,CE520 NOT 'CHEQUE'
*
* CHEQUE/OUT
*
TBF SBCHQACT,CE940 MUST BE CHEQUE ACCOUNT
*
* CHECK IF THERE IS ENOUGH SPACE FOR ONE MORE
* TRANSACTION RECORD
* IN CASE OF DEPOSIT, WITHDRAWAL OR TRANSFER
*
CE520
CBE NWKTBIX,=W'9',CE525 'IN'
CBE NWKTBIX,=W'10',CE525 'OUT'
CBE NWKTBIX,=W'11',CE525 'TRANSFER'
B CE600
CE525
MOVE WDEC1,ADLASTRS
PERF QENTRS,WDEC1 NEXT TRANSACTION NR.
CBNE ADSTMTRS,WDEC1,CE600 OKE
*
* NO MORE FREE RECORDS AVAILABLE, PRINT UNST. TRANSACTIONS
*
CBE RDPRTTYP,=D'2',CE930 NO SUITABLE PRINTER
TBT SBCHQACT,CE550
*
* SAVINGS ACCOUNT, PRINT UNSTATEMENTED TRANSACTIONS
*
TBT SBNOBOOK,CE930 'NOBOOK' IS ON
PERF PBBOOK
B CE560
*
* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS
*
CE550
PERF DKDSTM DAILY-STATEMENTS
CE560
TBT SBCANCEL,CE999
*
* THE ACCOUNT RECORD HAS BEEN REWRITTEN BY PBBOOK OR DKDSTM,
* SO READ IT AGAIN TO GET EXCLUSIVE ACCES
*
PERF ZCRDD,ADACTRNR,NDLRN1,KW1
TBT SBCANCEL,CE999
CE600
B CE999
************************************************************************
*
* DISPLAY ERROR: REQUIRED DEVICE TYPE NOT SPECIFIED
*
************************************************************************
CE910
PERF XEERR,=W'33',KW2
B CE998
************************************************************************
*
* DISPLAY ERROR: VALUE NOT IN RANGE
*
************************************************************************
CE920
PERF XEERR,=W'1',KW2
B CE998
************************************************************************
*
* DISPLAY ERROR: NO TRANSACTIONS POSSIBLE
*
************************************************************************
CE930
PERF XEERR,=W'56',KW2
B CE998
************************************************************************
*
* DISPLAY ERROR: SAVINGS ACCOUNT
*
************************************************************************
CE940
PERF XEERR,=W'34',KW2
B CE998
************************************************************************
*
* DISPLAY ERROR: BALANCE NOT ZERO
*
************************************************************************
CE950
PERF XEERR,=W'37',KW2
B CE998
************************************************************************
*
* DISPLAY ERROR: UNSERVICEABEL REQUEST
*
************************************************************************
CE960
PERF XEERR,=W'20',KW2
B CE998
************************************************************************
*
* DISPLAY ERROR: INPUT DEVICE FAILURE
*
************************************************************************
CE970
PERF XEERR,=W'32',KW2
B CE998
************************************************************************
**
* DISPLAY ERROR: ACCOUNT BLOCKED*
**
************************************************************************
CE980
PERF XEERR,=W'28',KW2
B CE998
************************************************************************
**
* DISPLAY ERROR: RECORD KEY INVALID*
**
************************************************************************
CE990
TBF SBMSU,CE992
TBF SBCARD,CE992
CBE WWINDEX1,KW3,CE992
MOVE WWINDEX1,KW3 TO READ TRACK 3
B CE116
CE992
PERF XEERR,=W'29',KW2
CE998
TBT SBCANCEL,CE999
PERF ZGREA RELEASE EXCLUSIVE ACCES
B CE100 RESTART INPUT
CE999
RET
PEND
************************************************************************
END
0x0000…003c (0, 0, 400) Head {h00=0x0038, h01=0x0050, text=» IDENT CEGACT GET ACCOUNT «, t00=0x0000, t01=0x0004}
0x003c…008c Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0040}
0x008c…00dc Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0090}
0x00dc…00f2 Head {h00=0x0012, h01=0x0050, text=» EXPROC DKDSTM«, t00=0x0000, t01=0x00e0}
0x00f2…0108 Head {h00=0x0012, h01=0x0050, text=» EXPROC PBBOOK«, t00=0x0000, t01=0x00f6}
0x0108…011e Head {h00=0x0012, h01=0x0050, text=» EXPROC QENTRS«, t00=0x0000, t01=0x010c}
0x011e…0134 Head {h00=0x0012, h01=0x0050, text=» EXPROC QGATYP«, t00=0x0000, t01=0x0122}
0x0134…0188 Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x0138}
0x0188…019e Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0000, t01=0x018c}
0x019e…01b4 Head {h00=0x0012, h01=0x0050, text=» EXPROC XGBCR «, t00=0x0001, t01=0x0012}
0x01b4…0208 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0001, t01=0x0028}
0x0208…021e Head {h00=0x0012, h01=0x0050, text=» EXPROC ZGREA «, t00=0x0001, t01=0x007c}
0x021e…026e Head {h00=0x004c, h01=0x0050, text=» ENTRY CEGACT «, t00=0x0001, t01=0x0092}
0x026e…02be Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x00e2}
0x02be…030e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0132}
0x030e…0324 Head {h00=0x0012, h01=0x0050, text=»* GET ACCOUNT «, t00=0x0001, t01=0x0182}
0x0324…0374 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0008}
0x0374…03c4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0058}
0x03c4…0414 Head {h00=0x004c, h01=0x0050, text=»CEGACT PROC «, t00=0x0002, t01=0x00a8}
0x0414…0464 Head {h00=0x004c, h01=0x0050, text=»CE000 «, t00=0x0002, t01=0x00f8}
0x0464…0496 Head {h00=0x002e, h01=0x0050, text=» CBNE NWKTBIX,=W'11',CE100 NOT 'TRANSFER' «, t00=0x0002, t01=0x0148}
0x0496…04c6 Head {h00=0x002c, h01=0x0050, text=» TBT SBCARD,CE100 'TRANSFER' AND 'CARD' «, t00=0x0002, t01=0x017a}
0x04c6…04f0 Head {h00=0x0026, h01=0x0050, text=» B CE999 'TRANSFER' AND NOT 'CARD'«, t00=0x0003, t01=0x001a}
0x04f0…0540 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0044}
0x0540…0590 Head {h00=0x004c, h01=0x0050, text=»* GET ADDITIONAL INPUT *«, t00=0x0003, t01=0x0094}
0x0590…05e0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x00e4}
0x05e0…0630 Head {h00=0x004c, h01=0x0050, text=»CE100 «, t00=0x0003, t01=0x0134}
0x0630…0680 Head {h00=0x004c, h01=0x0050, text=» TBF SBCARD,CE120 «, t00=0x0003, t01=0x0184}
0x0680…06d0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0044}
0x06d0…0720 Head {h00=0x004c, h01=0x0050, text=»* BADGE CARD READER INPUT *«, t00=0x0004, t01=0x0094}
0x0720…0770 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00e4}
0x0770…07c0 Head {h00=0x004c, h01=0x0050, text=»CE110 «, t00=0x0004, t01=0x0134}
0x07c0…0810 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'27' 'DRAW CARD THROUGH BCR' «, t00=0x0004, t01=0x0184}
0x0810…082c Head {h00=0x0018, h01=0x0050, text=» TBF SBCANCEL,CE115 «, t00=0x0005, t01=0x0044}
0x082c…083c Head {h00=0x000c, h01=0x0050, text=» B CE999«, t00=0x0005, t01=0x0060}
0x083c…084a Head {h00=0x000a, h01=0x0050, text=»CE115 «, t00=0x0005, t01=0x0070}
0x084a…0862 Head {h00=0x0014, h01=0x0050, text=» TBF SBMSU,CE116«, t00=0x0005, t01=0x007e}
0x0862…088a Head {h00=0x0024, h01=0x0050, text=» MOVE WWINDEX1,KW2 TRACK NUMBER «, t00=0x0005, t01=0x0096}
0x088a…0898 Head {h00=0x000a, h01=0x0050, text=»CE116 «, t00=0x0005, t01=0x00be}
0x0898…08e8 Head {h00=0x004c, h01=0x0050, text=» PERF XGBCR GET ACCOUNT NUMBER «, t00=0x0005, t01=0x00cc}
0x08e8…0900 Head {h00=0x0014, h01=0x0050, text=» TBT SBMSU,CE140«, t00=0x0005, t01=0x011c}
0x0900…092e Head {h00=0x002a, h01=0x0050, text=» CBNE SPBINW2,KW2,CE140 NO READ ERROR «, t00=0x0005, t01=0x0134}
0x092e…094c Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'32',KW2«, t00=0x0005, t01=0x0162}
0x094c…095c Head {h00=0x000c, h01=0x0050, text=» B CE110«, t00=0x0005, t01=0x0180}
0x095c…09ac Head {h00=0x004c, h01=0x0050, text=»CE120 «, t00=0x0005, t01=0x0190}
0x09ac…09fc Head {h00=0x004c, h01=0x0050, text=» TBF SBCHEQUE,CE130 «, t00=0x0006, t01=0x0050}
0x09fc…0a4c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x00a0}
0x0a4c…0a9c Head {h00=0x004c, h01=0x0050, text=»* OPTICAL DOCUMENT READER INPUT *«, t00=0x0006, t01=0x00f0}
0x0a9c…0aec Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0140}
0x0aec…0b3c Head {h00=0x004c, h01=0x0050, text=» B CE970 READ ACCOUNT RECORD «, t00=0x0006, t01=0x0190}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b46…0b96 Head {h00=0x004c, h01=0x0050, text=»* KEYBOARD INPUT *«, t00=0x0007, t01=0x005a}
0x0b96…0be6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00aa}
0x0be6…0c36 Head {h00=0x004c, h01=0x0050, text=»CE130 «, t00=0x0007, t01=0x00fa}
0x0c36…0c86 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'27' GET ACCOUNT NUMBER «, t00=0x0007, t01=0x014a}
0x0c86…0ca2 Head {h00=0x0018, h01=0x0050, text=» TBF SBCANCEL,CE140 «, t00=0x0008, t01=0x000a}
0x0ca2…0cba Head {h00=0x0014, h01=0x0050, text=» B CE999 CANCEL «, t00=0x0008, t01=0x0026}
0x0cba…0d0a Head {h00=0x004c, h01=0x0050, text=»********************************************************************** *«, t00=0x0008, t01=0x003e}
0x0d0a…0d5a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x008e}
0x0d5a…0daa Head {h00=0x004c, h01=0x0050, text=»* PERFORM CHECKS ON NUMBER ENTERED *«, t00=0x0008, t01=0x00de}
0x0daa…0dfa Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x012e}
0x0dfa…0e4a Head {h00=0x004c, h01=0x0050, text=»********************************************************************** *«, t00=0x0008, t01=0x017e}
0x0e4a…0e58 Head {h00=0x000a, h01=0x0050, text=»CE140 «, t00=0x0009, t01=0x003e}
0x0e58…0e84 Head {h00=0x0028, h01=0x0050, text=» CBNE NWKTBIX,=W'8',CE150 NEXT CHECK«, t00=0x0009, t01=0x004c}
0x0e84…0ea6 Head {h00=0x001e, h01=0x0050, text=» CBNE IDACTNR1,=D'0',CE150«, t00=0x0009, t01=0x0078}
0x0ea6…0ef6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x009a}
0x0ef6…0f46 Head {h00=0x004c, h01=0x0050, text=»* NUMBER ENTERED = 0 AND 'D-S' *«, t00=0x0009, t01=0x00ea}
0x0f46…0f96 Head {h00=0x004c, h01=0x0050, text=»* A GTP OR LP MUST BE AVAILABLE *«, t00=0x0009, t01=0x013a}
0x0f96…0fe6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x018a}
0x0fe6…1036 Head {h00=0x004c, h01=0x0050, text=» CBE RDPRTTYP,=D'2',CE149 GTP AVAILABLE «, t00=0x000a, t01=0x004a}
0x1036…1086 Head {h00=0x004c, h01=0x0050, text=» CBE YDMLPINT,=D'1',CE149 LINE PRINTER AVAILABLE «, t00=0x000a, t01=0x009a}
0x1086…1096 Head {h00=0x000c, h01=0x0050, text=» B CE990«, t00=0x000a, t01=0x00ea}
0x1096…10a4 Head {h00=0x000a, h01=0x0050, text=»CE149 «, t00=0x000a, t01=0x00fa}
0x10a4…10c0 Head {h00=0x0018, h01=0x0050, text=» B CE999 LONGBRANCH «, t00=0x000a, t01=0x0108}
0x10c0…1110 Head {h00=0x004c, h01=0x0050, text=»CE150 «, t00=0x000a, t01=0x0124}
0x1110…1160 Head {h00=0x004c, h01=0x0050, text=» CBL IDACTNR1,=D'1001',CE920 ERROR «, t00=0x000a, t01=0x0174}
0x1160…11b2 Head {h00=0x004e, h01=0x0050, text=» CBL IDACTNR1,=D'10000',CE200 READ ACCOUNT RECORD «, t00=0x000b, t01=0x0034}
0x11b2…11e4 Head {h00=0x002e, h01=0x0050, text=» CBL IDACTNR1,=D'10001',CE920 NOT IN RANGE«, t00=0x000b, t01=0x0086}
0x11e4…121e Head {h00=0x0036, h01=0x0050, text=» CBL IDACTNR1,=D'20000',CE180 POSSIBLE OPR. CLOSE «, t00=0x000b, t01=0x00b8}
0x121e…126e Head {h00=0x004c, h01=0x0050, text=» CBL IDACTNR1,=D'168000',CE920 ERROR «, t00=0x000b, t01=0x00f2}
0x126e…12ba Head {h00=0x0048, h01=0x0050, text=» CBL IDACTNR1,=D'169000',CE210 READ ACCOUNT RECORD «, t00=0x000b, t01=0x0142}
0x12ba…130a Head {h00=0x004c, h01=0x0050, text=» B CE920 ERROR «, t00=0x000b, t01=0x018e}
0x130a…1314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1314…1336 Head {h00=0x001e, h01=0x0050, text=»* POSSIBLE OPERATOR CLOSE «, t00=0x000c, t01=0x0058}
0x1336…1340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x1340…134e Head {h00=0x000a, h01=0x0050, text=»CE180 «, t00=0x000c, t01=0x0084}
0x134e…1378 Head {h00=0x0026, h01=0x0050, text=» CBNE NWKTBIX,=W'4',CE920 NO CLOSE«, t00=0x000c, t01=0x0092}
0x1378…13a8 Head {h00=0x002c, h01=0x0050, text=» CBNE IDACTNR1,RDOPRNR,CE990 INVALID KEY«, t00=0x000c, t01=0x00bc}
0x13a8…13b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13b2…13ee Head {h00=0x0038, h01=0x0050, text=»* NUMBER ENTERED IS THE CURRENT OPERATOR NUMBER AND «, t00=0x000c, t01=0x00f6}
0x13ee…1410 Head {h00=0x001e, h01=0x0050, text=»* CLOSE HAS BEEN REQUESTED«, t00=0x000c, t01=0x0132}
0x1410…141a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0154}
0x141a…1446 Head {h00=0x0028, h01=0x0050, text=» SET SBOPRCLS SET OPR. CLOSE SWITCH «, t00=0x000c, t01=0x015e}
0x1446…145e Head {h00=0x0014, h01=0x0050, text=» B CE999 RETURN «, t00=0x000c, t01=0x018a}
0x145e…14ae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0012}
0x14ae…14fe Head {h00=0x004c, h01=0x0050, text=»* RECORD NUMBER IS IN THE RIGHT RANGE *«, t00=0x000d, t01=0x0062}
0x14fe…154e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00b2}
0x154e…159e Head {h00=0x004c, h01=0x0050, text=»CE200 «, t00=0x000d, t01=0x0102}
0x159e…15a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0152}
0x15a8…15c2 Head {h00=0x0016, h01=0x0050, text=»* READ VIA INDEX 2«, t00=0x000d, t01=0x015c}
0x15c2…15cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15cc…15ec Head {h00=0x001c, h01=0x0050, text=» MOVE ADACTRNR,IDACTNR1 «, t00=0x000d, t01=0x0180}
0x15ec…1614 Head {h00=0x0024, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW2 «, t00=0x000e, t01=0x0010}
0x1614…1624 Head {h00=0x000c, h01=0x0050, text=» B CE250«, t00=0x000e, t01=0x0038}
0x1624…162e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x162e…1648 Head {h00=0x0016, h01=0x0050, text=»* READ VIA INDEX 1«, t00=0x000e, t01=0x0052}
0x1648…1652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006c}
0x1652…1660 Head {h00=0x000a, h01=0x0050, text=»CE210 «, t00=0x000e, t01=0x0076}
0x1660…16b0 Head {h00=0x004c, h01=0x0050, text=» MOVE ADACTRNR,IDACTNR1 «, t00=0x000e, t01=0x0084}
0x16b0…1700 Head {h00=0x004c, h01=0x0050, text=» MUL ADACTRNR,KDSHIFT «, t00=0x000e, t01=0x00d4}
0x1700…1754 Head {h00=0x0050, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 «, t00=0x000e, t01=0x0124}
0x1754…1762 Head {h00=0x000a, h01=0x0050, text=»CE250 «, t00=0x000e, t01=0x0178}
0x1762…17b2 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,CE999 «, t00=0x000e, t01=0x0186}
0x17b2…1802 Head {h00=0x004c, h01=0x0050, text=» TBF SBRECAVB,CE990 RECORD NOT AVAILABLE «, t00=0x000f, t01=0x0046}
0x1802…1852 Head {h00=0x004c, h01=0x0050, text=»********************************************************************** *«, t00=0x000f, t01=0x0096}
0x1852…18a2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00e6}
0x18a2…18f2 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT RECORD AVAILABLE *«, t00=0x000f, t01=0x0136}
0x18f2…191e Head {h00=0x0028, h01=0x0050, text=»* PERFORM CHECKS ON THE RECORD READ «, t00=0x000f, t01=0x0186}
0x191e…196e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0022}
0x196e…19be Head {h00=0x004c, h01=0x0050, text=»********************************************************************** *«, t00=0x0010, t01=0x0072}
0x19be…1a0e Head {h00=0x004c, h01=0x0050, text=»CE300 «, t00=0x0010, t01=0x00c2}
0x1a0e…1a2e Head {h00=0x001c, h01=0x0050, text=» MOVE IDACTNR1,ADACTRNR «, t00=0x0010, t01=0x0112}
0x1a2e…1a60 Head {h00=0x002e, h01=0x0050, text=» DIV IDACTNR1,KDSHIFT SAVE ACCOUNT NUMBER «, t00=0x0010, t01=0x0132}
0x1a60…1a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0164}
0x1a6a…1a9e Head {h00=0x0030, h01=0x0050, text=»* SET SBCHQACT ACCORDING TO THE ACCOUNT TYPE«, t00=0x0010, t01=0x016e}
0x1a9e…1aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa8…1ac6 Head {h00=0x001a, h01=0x0050, text=» PERF QGATYP,IDACTNR1 «, t00=0x0011, t01=0x001c}
0x1ac6…1b16 Head {h00=0x004c, h01=0x0050, text=» CBL ADSTATUS,=D'2',CE400 ACCOUNT NOT CLOSED «, t00=0x0011, t01=0x003a}
0x1b16…1b66 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x008a}
0x1b66…1bb6 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT CLOSED *«, t00=0x0011, t01=0x00da}
0x1bb6…1bde Head {h00=0x0024, h01=0x0050, text=»* IF MASTER KEY UPDATE, CONTINUE«, t00=0x0011, t01=0x012a}
0x1bde…1c2e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0152}
0x1c2e…1c7e Head {h00=0x004c, h01=0x0050, text=» TBF SBKEY2,CE340 «, t00=0x0012, t01=0x0012}
0x1c7e…1ca8 Head {h00=0x0026, h01=0x0050, text=» CBE NWKTBIX,=W'6',CE400 'UPDATE' «, t00=0x0012, t01=0x0062}
0x1ca8…1cb6 Head {h00=0x000a, h01=0x0050, text=»CE340 «, t00=0x0012, t01=0x008c}
0x1cb6…1cee Head {h00=0x0034, h01=0x0050, text=» CBE ADSTATUS,=D'3',CE990 CLOSED WITH STATEMENT «, t00=0x0012, t01=0x009a}
0x1cee…1d3e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00d2}
0x1d3e…1d8e Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT CLOSED WITHOUT STATEMENT *«, t00=0x0012, t01=0x0122}
0x1d8e…1dc8 Head {h00=0x0036, h01=0x0050, text=»* IF FUNCTION CHOISE IS DAILY STATEMENTS, CONTINUE«, t00=0x0012, t01=0x0172}
0x1dc8…1e18 Head {h00=0x004c, h01=0x0050, text=»* PERFORM DAILY STATEMENTS OR PRINT PASSBOOK *«, t00=0x0013, t01=0x001c}
0x1e18…1e68 Head {h00=0x004c, h01=0x0050, text=»* IF A TELLER TERMINAL PRINTER IS AVAILABLE *«, t00=0x0013, t01=0x006c}
0x1e68…1eb8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x00bc}
0x1eb8…1ee6 Head {h00=0x002a, h01=0x0050, text=» CBE NWKTBIX,=W'8',CE400 SKIP IF 'D-S'«, t00=0x0013, t01=0x010c}
0x1ee6…1f1c Head {h00=0x0032, h01=0x0050, text=» CBE RDPRTTYP,=D'2',CE990 'RECORD KEY INVALID «, t00=0x0013, t01=0x013a}
0x1f1c…1f6c Head {h00=0x004c, h01=0x0050, text=» TBT SBCHQACT,CE360 «, t00=0x0013, t01=0x0170}
0x1f6c…1fbc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0030}
0x1fbc…200c Head {h00=0x004c, h01=0x0050, text=»* SAVINGS ACCOUNT, PRINT PASSBOOK *«, t00=0x0014, t01=0x0080}
0x200c…204c Head {h00=0x003c, h01=0x0050, text=»* PRINT ALL UNSTATEMENTED TRANSACTIONS AND A CLOSE LINE «, t00=0x0014, t01=0x00d0}
0x204c…209c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0110}
0x209c…20b8 Head {h00=0x0018, h01=0x0050, text=» TBT SBNOBOOK,CE990 «, t00=0x0014, t01=0x0160}
0x20b8…20cc Head {h00=0x0010, h01=0x0050, text=» PERF PBBOOK«, t00=0x0014, t01=0x017c}
0x20cc…20dc Head {h00=0x000c, h01=0x0050, text=» B CE370«, t00=0x0014, t01=0x0190}
0x20dc…212c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0010}
0x212c…217c Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS *«, t00=0x0015, t01=0x0060}
0x217c…21cc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x00b0}
0x21cc…221c Head {h00=0x004c, h01=0x0050, text=»CE360 «, t00=0x0015, t01=0x0100}
0x221c…2230 Head {h00=0x0010, h01=0x0050, text=» PERF DKDSTM«, t00=0x0015, t01=0x0150}
0x2230…223e Head {h00=0x000a, h01=0x0050, text=»CE370 «, t00=0x0015, t01=0x0164}
0x223e…225a Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CE999 «, t00=0x0015, t01=0x0172}
0x225a…22aa Head {h00=0x004c, h01=0x0050, text=» B CE990 «, t00=0x0015, t01=0x018e}
0x22aa…22fa Head {h00=0x004c, h01=0x0050, text=»CE400 «, t00=0x0016, t01=0x004e}
0x22fa…234a Head {h00=0x004c, h01=0x0050, text=» CBE ADSTATUS,=D'0',CE500 DEBLOCKED «, t00=0x0016, t01=0x009e}
0x234a…239a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x00ee}
0x239a…23ea Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT BLOCKED *«, t00=0x0016, t01=0x013e}
0x23ea…243a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x018e}
0x243a…248a Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'7',CE500 'INQUIRY' ALLOWED «, t00=0x0017, t01=0x004e}
0x248a…24b8 Head {h00=0x002a, h01=0x0050, text=» CBE NWKTBIX,=W'8',CE500 'D-S' ALLOWED«, t00=0x0017, t01=0x009e}
0x24b8…2508 Head {h00=0x004c, h01=0x0050, text=» TBF SBKEY2,CE980 ELSE KEY 2 MUST BE ON «, t00=0x0017, t01=0x00cc}
0x2508…2558 Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'6',CE500 AND 'UPDATE' «, t00=0x0017, t01=0x011c}
0x2558…25a8 Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'5',CE500 OR 'BLOCK' «, t00=0x0017, t01=0x016c}
0x25a8…25f8 Head {h00=0x004c, h01=0x0050, text=» B CE980 ERROR, ACCOUNT BLOCKED «, t00=0x0018, t01=0x002c}
0x25f8…2648 Head {h00=0x004c, h01=0x0050, text=»********************************************************************** *«, t00=0x0018, t01=0x007c}
0x2648…2652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00cc}
0x2652…266e Head {h00=0x0018, h01=0x0050, text=»* ADDITONAL CHECKS«, t00=0x0018, t01=0x00d6}
0x266e…26be Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x00f2}
0x26be…270e Head {h00=0x004c, h01=0x0050, text=»********************************************************************** *«, t00=0x0018, t01=0x0142}
0x270e…2718 (25, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x2718…272e Head {h00=0x0012, h01=0x0050, text=»* CHECK CLOSE «, t00=0x0019, t01=0x000e}
0x272e…277e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0024}
0x277e…27ce Head {h00=0x004c, h01=0x0050, text=»CE500 «, t00=0x0019, t01=0x0074}
0x27ce…27f0 Head {h00=0x001e, h01=0x0050, text=» CBNE NWKTBIX,=W'4',CE505 «, t00=0x0019, t01=0x00c4}
0x27f0…2816 Head {h00=0x0022, h01=0x0050, text=» CBNE ADBAL,=D'0',CE950 ERROR «, t00=0x0019, t01=0x00e6}
0x2816…2820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010c}
0x2820…2834 Head {h00=0x0010, h01=0x0050, text=»* CHECK D-S «, t00=0x0019, t01=0x0116}
0x2834…283e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012a}
0x283e…284c Head {h00=0x000a, h01=0x0050, text=»CE505 «, t00=0x0019, t01=0x0134}
0x284c…286e Head {h00=0x001e, h01=0x0050, text=» CBNE NWKTBIX,=W'8',CE510 «, t00=0x0019, t01=0x0142}
0x286e…289e Head {h00=0x002c, h01=0x0050, text=» CBG RDPRTTYP,=D'1',CE910 NO TTP OR TEP «, t00=0x0019, t01=0x0164}
0x289e…28a8 (26, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0004}
0x28a8…28bc Head {h00=0x0010, h01=0x0050, text=»* CHECK OUT «, t00=0x001a, t01=0x000e}
0x28bc…28c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0022}
0x28c6…28d4 Head {h00=0x000a, h01=0x0050, text=»CE510 «, t00=0x001a, t01=0x002c}
0x28d4…2900 Head {h00=0x0028, h01=0x0050, text=» CBNE NWKTBIX,=W'10',CE520 NOT 'OUT'«, t00=0x001a, t01=0x003a}
0x2900…2928 Head {h00=0x0024, h01=0x0050, text=» TBF SBCHEQUE,CE520 NOT 'CHEQUE'«, t00=0x001a, t01=0x0066}
0x2928…2932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008e}
0x2932…2946 Head {h00=0x0010, h01=0x0050, text=»* CHEQUE/OUT«, t00=0x001a, t01=0x0098}
0x2946…2950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ac}
0x2950…2982 Head {h00=0x002e, h01=0x0050, text=» TBF SBCHQACT,CE940 MUST BE CHEQUE ACCOUNT«, t00=0x001a, t01=0x00b6}
0x2982…298c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e8}
0x298c…29c2 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF THERE IS ENOUGH SPACE FOR ONE MORE «, t00=0x001a, t01=0x00f2}
0x29c2…29de Head {h00=0x0018, h01=0x0050, text=»* TRANSACTION RECORD«, t00=0x001a, t01=0x0128}
0x29de…2a12 Head {h00=0x0030, h01=0x0050, text=»* IN CASE OF DEPOSIT, WITHDRAWAL OR TRANSFER«, t00=0x001a, t01=0x0144}
0x2a12…2a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0178}
0x2a1c…2a2a Head {h00=0x000a, h01=0x0050, text=»CE520 «, t00=0x001a, t01=0x0182}
0x2a2a…2a50 Head {h00=0x0022, h01=0x0050, text=» CBE NWKTBIX,=W'9',CE525 'IN' «, t00=0x001a, t01=0x0190}
0x2a50…2a78 Head {h00=0x0024, h01=0x0050, text=» CBE NWKTBIX,=W'10',CE525 'OUT' «, t00=0x001b, t01=0x0026}
0x2a78…2aa4 Head {h00=0x0028, h01=0x0050, text=» CBE NWKTBIX,=W'11',CE525 'TRANSFER'«, t00=0x001b, t01=0x004e}
0x2aa4…2ab4 Head {h00=0x000c, h01=0x0050, text=» B CE600«, t00=0x001b, t01=0x007a}
0x2ab4…2ac2 Head {h00=0x000a, h01=0x0050, text=»CE525 «, t00=0x001b, t01=0x008a}
0x2ac2…2ade Head {h00=0x0018, h01=0x0050, text=» MOVE WDEC1,ADLASTRS«, t00=0x001b, t01=0x0098}
0x2ade…2b0e Head {h00=0x002c, h01=0x0050, text=» PERF QENTRS,WDEC1 NEXT TRANSACTION NR. «, t00=0x001b, t01=0x00b4}
0x2b0e…2b34 Head {h00=0x0022, h01=0x0050, text=» CBNE ADSTMTRS,WDEC1,CE600 OKE«, t00=0x001b, t01=0x00e4}
0x2b34…2b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x010a}
0x2b3e…2b82 Head {h00=0x0040, h01=0x0050, text=»* NO MORE FREE RECORDS AVAILABLE, PRINT UNST. TRANSACTIONS «, t00=0x001b, t01=0x0114}
0x2b82…2b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0158}
0x2b8c…2bc2 Head {h00=0x0032, h01=0x0050, text=» CBE RDPRTTYP,=D'2',CE930 NO SUITABLE PRINTER «, t00=0x001b, t01=0x0162}
0x2bc2…2bde Head {h00=0x0018, h01=0x0050, text=» TBT SBCHQACT,CE550 «, t00=0x001c, t01=0x0008}
0x2bde…2be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0024}
0x2be8…2c24 Head {h00=0x0038, h01=0x0050, text=»* SAVINGS ACCOUNT, PRINT UNSTATEMENTED TRANSACTIONS «, t00=0x001c, t01=0x002e}
0x2c24…2c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x006a}
0x2c2e…2c58 Head {h00=0x0026, h01=0x0050, text=» TBT SBNOBOOK,CE930 'NOBOOK' IS ON«, t00=0x001c, t01=0x0074}
0x2c58…2c6c Head {h00=0x0010, h01=0x0050, text=» PERF PBBOOK«, t00=0x001c, t01=0x009e}
0x2c6c…2c7c Head {h00=0x000c, h01=0x0050, text=» B CE560«, t00=0x001c, t01=0x00b2}
0x2c7c…2c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c2}
0x2c86…2cb6 Head {h00=0x002c, h01=0x0050, text=»* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS«, t00=0x001c, t01=0x00cc}
0x2cb6…2cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fc}
0x2cc0…2cce Head {h00=0x000a, h01=0x0050, text=»CE550 «, t00=0x001c, t01=0x0106}
0x2cce…2cf4 Head {h00=0x0022, h01=0x0050, text=» PERF DKDSTM DAILY-STATEMENTS «, t00=0x001c, t01=0x0114}
0x2cf4…2d02 Head {h00=0x000a, h01=0x0050, text=»CE560 «, t00=0x001c, t01=0x013a}
0x2d02…2d1e Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CE999 «, t00=0x001c, t01=0x0148}
0x2d1e…2d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0164}
0x2d28…2d6c Head {h00=0x0040, h01=0x0050, text=»* THE ACCOUNT RECORD HAS BEEN REWRITTEN BY PBBOOK OR DKDSTM,«, t00=0x001c, t01=0x016e}
0x2d6c…2d9e Head {h00=0x002e, h01=0x0050, text=»* SO READ IT AGAIN TO GET EXCLUSIVE ACCES «, t00=0x001d, t01=0x0022}
0x2d9e…2da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0054}
0x2da8…2dd0 Head {h00=0x0024, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 «, t00=0x001d, t01=0x005e}
0x2dd0…2dec Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CE999 «, t00=0x001d, t01=0x0086}
0x2dec…2dfa Head {h00=0x000a, h01=0x0050, text=»CE600 «, t00=0x001d, t01=0x00a2}
0x2dfa…2e4a Head {h00=0x004c, h01=0x0050, text=» B CE999 «, t00=0x001d, t01=0x00b0}
0x2e4a…2e9a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x0100}
0x2e9a…2ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0150}
0x2ea4…2ee0 Head {h00=0x0038, h01=0x0050, text=»* DISPLAY ERROR: REQUIRED DEVICE TYPE NOT SPECIFIED «, t00=0x001d, t01=0x015a}
0x2ee0…2eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0008}
0x2eea…2f3a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001e, t01=0x0012}
0x2f3a…2f48 Head {h00=0x000a, h01=0x0050, text=»CE910 «, t00=0x001e, t01=0x0062}
0x2f48…2f66 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'33',KW2«, t00=0x001e, t01=0x0070}
0x2f66…2f76 Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x001e, t01=0x008e}
0x2f76…2fc6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001e, t01=0x009e}
0x2fc6…2fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ee}
0x2fd0…2ffc Head {h00=0x0028, h01=0x0050, text=»* DISPLAY ERROR: VALUE NOT IN RANGE «, t00=0x001e, t01=0x00f8}
0x2ffc…3006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0124}
0x3006…3056 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001e, t01=0x012e}
0x3056…3064 Head {h00=0x000a, h01=0x0050, text=»CE920 «, t00=0x001e, t01=0x017e}
0x3064…3082 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'1',KW2 «, t00=0x001e, t01=0x018c}
0x3082…3092 Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x001f, t01=0x001a}
0x3092…30e2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001f, t01=0x002a}
0x30e2…30ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007a}
0x30ec…311e Head {h00=0x002e, h01=0x0050, text=»* DISPLAY ERROR: NO TRANSACTIONS POSSIBLE «, t00=0x001f, t01=0x0084}
0x311e…3128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b6}
0x3128…3178 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001f, t01=0x00c0}
0x3178…3186 Head {h00=0x000a, h01=0x0050, text=»CE930 «, t00=0x001f, t01=0x0110}
0x3186…31a4 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'56',KW2«, t00=0x001f, t01=0x011e}
0x31a4…31b4 Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x001f, t01=0x013c}
0x31b4…3204 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001f, t01=0x014c}
0x3204…320e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x000c}
0x320e…3236 Head {h00=0x0024, h01=0x0050, text=»* DISPLAY ERROR: SAVINGS ACCOUNT«, t00=0x0020, t01=0x0016}
0x3236…3240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003e}
0x3240…3290 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x0048}
0x3290…329e Head {h00=0x000a, h01=0x0050, text=»CE940 «, t00=0x0020, t01=0x0098}
0x329e…32bc Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'34',KW2«, t00=0x0020, t01=0x00a6}
0x32bc…32cc Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x0020, t01=0x00c4}
0x32cc…331c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x00d4}
0x331c…3326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0124}
0x3326…3350 Head {h00=0x0026, h01=0x0050, text=»* DISPLAY ERROR: BALANCE NOT ZERO «, t00=0x0020, t01=0x012e}
0x3350…335a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0158}
0x335a…33aa Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x0162}
0x33aa…33b8 Head {h00=0x000a, h01=0x0050, text=»CE950 «, t00=0x0021, t01=0x0022}
0x33b8…33d6 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'37',KW2«, t00=0x0021, t01=0x0030}
0x33d6…33e6 Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x0021, t01=0x004e}
0x33e6…3436 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x005e}
0x3436…3440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ae}
0x3440…346e Head {h00=0x002a, h01=0x0050, text=»* DISPLAY ERROR: UNSERVICEABEL REQUEST«, t00=0x0021, t01=0x00b8}
0x346e…3478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e6}
0x3478…34c8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x00f0}
0x34c8…34d6 Head {h00=0x000a, h01=0x0050, text=»CE960 «, t00=0x0021, t01=0x0140}
0x34d6…34f4 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'20',KW2«, t00=0x0021, t01=0x014e}
0x34f4…3504 Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x0021, t01=0x016c}
0x3504…3554 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x017c}
0x3554…355e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003c}
0x355e…358c Head {h00=0x002a, h01=0x0050, text=»* DISPLAY ERROR: INPUT DEVICE FAILURE «, t00=0x0022, t01=0x0046}
0x358c…3596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0074}
0x3596…35e6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0022, t01=0x007e}
0x35e6…35f4 Head {h00=0x000a, h01=0x0050, text=»CE970 «, t00=0x0022, t01=0x00ce}
0x35f4…3612 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'32',KW2«, t00=0x0022, t01=0x00dc}
0x3612…3622 Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x0022, t01=0x00fa}
0x3622…3672 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0022, t01=0x010a}
0x3672…36c2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0022, t01=0x015a}
0x36c2…3712 Head {h00=0x004c, h01=0x0050, text=»* DISPLAY ERROR: ACCOUNT BLOCKED *«, t00=0x0023, t01=0x001a}
0x3712…3762 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0023, t01=0x006a}
0x3762…37b2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0023, t01=0x00ba}
0x37b2…3802 Head {h00=0x004c, h01=0x0050, text=»CE980 «, t00=0x0023, t01=0x010a}
0x3802…3820 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'28',KW2«, t00=0x0023, t01=0x015a}
0x3820…3830 Head {h00=0x000c, h01=0x0050, text=» B CE998«, t00=0x0023, t01=0x0178}
0x3830…3880 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0023, t01=0x0188}
0x3880…38d0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0048}
0x38d0…3920 Head {h00=0x004c, h01=0x0050, text=»* DISPLAY ERROR: RECORD KEY INVALID *«, t00=0x0024, t01=0x0098}
0x3920…3970 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0024, t01=0x00e8}
0x3970…39c0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0024, t01=0x0138}
0x39c0…39ce Head {h00=0x000a, h01=0x0050, text=»CE990 «, t00=0x0024, t01=0x0188}
0x39ce…39e6 Head {h00=0x0014, h01=0x0050, text=» TBF SBMSU,CE992«, t00=0x0025, t01=0x0008}
0x39e6…3a00 Head {h00=0x0016, h01=0x0050, text=» TBF SBCARD,CE992 «, t00=0x0025, t01=0x0020}
0x3a00…3a20 Head {h00=0x001c, h01=0x0050, text=» CBE WWINDEX1,KW3,CE992 «, t00=0x0025, t01=0x003a}
0x3a20…3a4a Head {h00=0x0026, h01=0x0050, text=» MOVE WWINDEX1,KW3 TO READ TRACK 3«, t00=0x0025, t01=0x005a}
0x3a4a…3a5a Head {h00=0x000c, h01=0x0050, text=» B CE116«, t00=0x0025, t01=0x0084}
0x3a5a…3a68 Head {h00=0x000a, h01=0x0050, text=»CE992 «, t00=0x0025, t01=0x0094}
0x3a68…3a86 Head {h00=0x001a, h01=0x0050, text=» PERF XEERR,=W'29',KW2«, t00=0x0025, t01=0x00a2}
0x3a86…3a94 Head {h00=0x000a, h01=0x0050, text=»CE998 «, t00=0x0025, t01=0x00c0}
0x3a94…3ab0 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CE999 «, t00=0x0025, t01=0x00ce}
0x3ab0…3adc Head {h00=0x0028, h01=0x0050, text=» PERF ZGREA RELEASE EXCLUSIVE ACCES «, t00=0x0025, t01=0x00ea}
0x3adc…3afa Head {h00=0x001a, h01=0x0050, text=» B CE100 RESTART INPUT«, t00=0x0025, t01=0x0116}
0x3afa…3b4a Head {h00=0x004c, h01=0x0050, text=»CE999 «, t00=0x0025, t01=0x0134}
0x3b4a…3b9a Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0025, t01=0x0184}
0x3b9a…3bea Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0044}
0x3bea…3c3a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0094}
0x3c3a…3c8a Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x0026, t01=0x00e4}
0x3c8a…3c8e Head {h00=0x4004, h01=0x0000}
0x3c8e…3c92 00 26 01 34 ┆ & 4┆
0x3c92…3c9a (39, 1, 8) 20 04 00 00 00 27 00 04 ┆ ' ┆
0x3c9a…3cea (40, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 27 01 68 00 34 00 50 5c 43 42 45 5c 4e 57 4b 54 42 49 58 2c 3d 57 27 31 27 2c 42 45 39 31 30 5c 4e 4f 54 20 46 4f 52 20 44 45 4d 4f 2d 46 55 ┆ ' h 4 P CBE NWKTBIX,=W'1',BE910 NOT FOR DEMO-FU┆
0x3cea…3d3a 4e 43 54 49 4f 4e 53 20 00 28 00 28 00 06 00 50 2a 20 00 28 00 60 00 2c 00 50 2a 20 50 52 49 4e 54 20 4c 49 4e 45 20 54 59 50 45 20 33 3a 20 43 4c 4f 53 49 4e 47 20 4f 46 20 46 55 4e 43 54 49 4f 4e 00 28 00 6a 00 06 00 50 2a 20 00 28 00 9a ┆NCTIONS ( ( P* ( ` , P* PRINT LINE TYPE 3: CLOSING OF FUNCTION ( j P* ( ┆
0x3d3a…3d8a 00 16 00 50 5c 50 45 52 46 5c 50 41 4a 52 4e 2c 3d 57 27 33 27 20 00 28 00 a4 00 06 00 50 2a 20 00 28 00 be 00 12 00 50 2a 20 43 48 45 43 4b 20 53 54 41 54 55 53 00 28 00 c8 00 06 00 50 2a 20 00 28 00 de 00 0a 00 50 42 45 39 31 30 20 00 28 ┆ P PERF PAJRN,=W'3' ( P* ( P* CHECK STATUS ( P* ( PBE910 (┆
0x3d8a…3dda 00 e8 00 34 00 50 5c 43 42 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 33 27 2c 42 45 39 39 39 5c 53 59 53 54 45 4d 20 48 41 53 20 42 45 45 4e 20 43 4c 4f 53 45 44 00 28 00 f6 00 4c 00 50 5c 43 42 4e 45 5c 4f 44 53 54 41 54 55 53 2c 3d 44 27 ┆ 4 P CBE YDSTATUS,=D'3',BE999 SYSTEM HAS BEEN CLOSED ( L P CBNE ODSTATUS,=D'┆
0x3dda…3e2a 32 27 2c 42 45 39 39 39 5c 4f 50 45 52 41 54 4f 52 20 43 4c 4f 53 45 20 48 41 53 20 53 55 43 43 45 45 44 45 44 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 28 01 2e 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆2',BE999 OPERATOR CLOSE HAS SUCCEEDED ( . L P* ┆
0x3e2a…3e7a (41, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 28 01 7e 00 20 00 50 2a 20 52 45 2d 45 58 45 43 55 54 45 20 46 55 4e 43 54 ┆ * ( ~ P* RE-EXECUTE FUNCT┆
0x3e7a…3eca 49 4f 4e 20 43 48 4f 49 53 45 00 29 00 3e 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ION CHOISE ) > L P* ┆
0x3eca…3f1a 00 00 00 00 00 00 00 00 00 2a 00 29 00 62 00 4c 00 50 42 45 39 39 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * ) b L PBE990 ┆
0x3f1a…3f6a 00 00 00 00 00 00 00 00 00 00 00 29 00 b2 00 4c 00 50 5c 42 5c 42 45 30 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ) L P B BE000 ┆
0x3f6a…3fba 00 00 00 00 00 00 00 00 00 00 00 29 01 02 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ) L P* ┆
0x3fba…400a (42, 0, 400) 00 00 00 00 00 00 00 00 00 2a 00 29 01 52 00 4c 00 50 2a 20 52 45 54 55 52 4e 20 54 4f 20 43 41 4c 4c 49 4e 47 20 4d 4f 44 55 4c 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * ) R L P* RETURN TO CALLING MODULE ┆
0x400a…405a 00 00 00 00 00 00 00 00 00 2a 00 2a 00 12 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * * L P* ┆
0x405a…40aa 00 00 00 00 00 00 00 00 00 2a 00 2a 00 62 00 4c 00 50 42 45 39 39 39 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * * b L PBE999 ┆
0x40aa…40fa 00 00 00 00 00 00 00 00 00 00 00 2a 00 b2 00 4c 00 50 5c 52 45 54 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P RET ┆
0x40fa…414a 00 00 00 00 00 00 00 00 00 00 00 2a 01 02 00 4c 00 50 5c 50 45 4e 44 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P PEND ┆
0x414a…419a (43, 2, 122) 00 00 00 00 00 00 00 00 00 00 00 2a 01 52 00 06 00 50 2a 20 00 2b 00 12 00 06 00 50 2a 20 00 2b 00 1c 00 4c 00 50 5c 45 4e 44 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * R P* + P* + L P END ┆
0x419a…41c4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2b 00 26 40 04 00 00 00 2b 00 76 ┆ + &@ + v┆
0x41c4…41cc (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆