|
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: 26912 (0x6920)
Notes: pts_type(SC)
Names: »DNTRF.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DNTRF.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DNTRF.SC«
IDENT DNTRF TRANSFER
DDUM DEMODD
PDIV
ENTRY DNTRF
ENTRY SPAP19
ENTRY SPAP20
EXPROC DKDSTM
EXPROC PAJRN
EXPROC PBBOOK
EXPROC PCVCH
EXPROC QENTRS
EXPROC QGATYP
EXPROC XBFMT
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZHWRID
EXPROC ZGREA
************************************************************************
* PROCEDURE NAME:*
* DNTRF TRANSFER*
* FUNCTIONAL DESCRIPTION:*
* THE PROCEDURE TRANSFERS AN AMOUNT FROM ONE ACCOUNT-*
* RECORD TO ANOTHER.*
* THE ACCOUNT-RECORD(FROM) IS READ INTO UA1-WORKBLOCK.*
* THE ACCOUNT-RECORD (TO) IS READ INTO UA2-WORKBLOCK.*
* THE TWO ACOUNT-RECORDS ARE UPDATED.*
* UT1-WORKBLOCK, TRANSACTION-RECORD FOR THE *
* ACCOUNT-RECORD(FROM), IS FILLED WITH THE USUAL DATA.*
* UT2-WORKBLOCK, SAME FOR ACCOUNT-RECORD(TO).*
**
* BOTH TRANSACTION AND BOTH ACCOUNT-RECORDS ARE*
* REWRITTEN TO THE DATABASE.*
**
* THE OPERATOR-BALANCE IS UPDATED.*
**
* IN CASE OF A TERMINAL-PRINTER AND A SAVINGS-ACCOUNT,*
* MODULE PBBOOK IS PERFORMED FOR ACCOUNT-RECORD(FROM).*
**
* IN CASE OF A TERMINAL-PRINTER AND A CHEQUE-ACCOUNT,*
* MODULE PCVCH IS PERFORMED FOR ACOOUNT-RECORD(FROM).*
**
* PROCEDURES USED:*
**
* PAJRN PRINT JOURNAL-ROLL*
* PBBOOK PRINT BOOK*
* PCVCH PRINT VOUCHER*
* XBFMT SCREEN-CONTROL*
* ZCRDD READ DATABASE
* ZDRWRD WRITE DATABASE*
* ZGREA RELEASE EXCLUSIVE ACCESS *
* ZHWRID REWRITE OR INSERT RECORD ON DATABASE*
**
************************************************************************
DNTRF PROC
DN000
MOVE IDACTNR1,=D'0'
*
* THE INPUTFIELDS IN LINE 2 OF THE TRANSFERSCREEN ARE CLEARED
* IF THE ACCOUNTNR. KEYED-IN IS A CHEQUE-ACCOUNT, LINE 2
* IS REDISPLAYED IN ANOTHER FORMAT
*
*
* DISPLAY SCREEN: DEFAULT FOR SAVINGS-ACCOUNT
*
TBF SBFT80,DN010
PERF XBFMT,=W'71'
B DN020
DN010
PERF XBFMT,=W'45'
DN020
TBF SBCANCEL,DN050
PERF PAJRN,=W'2'
B DN999
* *
* UA1-WORKBLOCK CONTAINS ACCOUNT-RECORD(FROM); ADNEWBAL IS UPDATED*
* UA2-WORKBLOCK CONTAINS ACCOUNT-RECORD(TO); TDAMOUNT CONTAINS*
* THE AMOUNT OF THE TRANSFER*
**
DN050
**
* PRINT JOURNAL-ROLL*
**
MOVE IDACTNR1,ADACTRNR
DIV IDACTNR1,KDSHIFT
MOVE TDTRSCDE,=D'12'
PERF PAJRN,=W'2'
MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY
PERF PAJRN,=W'4'
MOVE UDTRSCDE,=D'11'
PERF PAJRN,=W'8'
DN100
**
* UPDATE ACCOUNT-RECORD(FROM)*
**
PERF QENTRS,ADLASTRS UPDATE LAST TRANSACTION
*
* TDAMOUNT CONTAINS AMOUNT KEYED IN BY THE OPERATOR
*
TBF SBRVS,DN110
MUL TDAMOUNT,=D'-1'
DN110
SUB ADBAL,TDAMOUNT
ADD ADWDRCUM,TDAMOUNT
ADD YDLASSEQ,=D'1'
MOVE ADLASSEQ,YDLASSEQ
DN200
**
* UPDATE ACCOUNT-RECORD(TO)*
**
ADD BDBAL,TDAMOUNT
PERF QENTRS,BDLASTRS UPDATE LAST TRANS.
DN210
ADD BDDEPCUM,TDAMOUNT
MOVE BDLASSEQ,ADLASSEQ
DN300
**
* UPDATE TRANSACTION-RECORD(FROM)*
**
MOVE TDTRSRNR,ADACTRNR
ADD TDTRSRNR,ADLASTRS
MOVE TDTRSSEQ,ADLASSEQ
MOVE TDNEWBAL,ADBAL
DN400
*
* UPDATE TRANSACTION-RECORD(TO)
*
MOVE UDTRSRNR,BDACTRNR
ADD UDTRSRNR,BDLASTRS
MOVE UDTRSSEQ,BDLASSEQ
MOVE UDAMOUNT,TDAMOUNT
MOVE UDNEWBAL,BDBAL
MOVE UDACTFRM,IDACTNR1
DN500
**
* (RE)WRITE ACCOUNT- AND TRANSACTIONRECORDS*
**
PERF ZHWRID,TDTRSRNR,NDLRN3
TBT SBCANCEL,DN999
PERF ZHWRID,UDTRSRNR,NDLRN3
TBT SBCANCEL,DN999
PERF ZDRWRD,ADACTRNR,NDLRN1
TBT SBCANCEL,DN999
PERF ZDRWRD,BDACTRNR,NDLRN2
TBT SBCANCEL,DN999
*
* UPDATE OPERATOR BALANCES
*
ADD ODCASH(KW2,KW2),TDAMOUNT
*
* PRINT PASSBOOK OR VOUCHER
*
DN700
CBG RDPRTTYP,=D'1',DN999
TBT SBCHQACT,DN710
PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK
TBT SBCANCEL,DN999
PERF PBBOOK
B DN999
DN710
PERF PCVCH,=W'2'
DN999
RET
PEND
************************************************************************
SPAP19 PROC XWRET
PBIN XWRET
S19000
*
* RELEASE EXCLUSIVE ACCES FIRST
*
PERF ZGREA
*
* THE VALUES OF SPBINW2 AND SPINPUT ARE DESTROYED BY
* THE KI-INSTRUCTIONS IN PBBOOK OR DKDSTM, SO SAVE THEM
* SPBINW2 IS SAVED IN IWINDEX1
* SPINPUT IS ALREADY SAVED IN IDACTNR1
*
MOVE IWINDEX1,SPBINW2
**
* ACCOUNTRECORD IN RANGE ?*
**
CBL IDACTNR1,=D'168000',S19100
CBG IDACTNR1,=D'168999',S19100
B S19300
S19100
MOVE XWRET,=W'1'
MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE'
B S19999
*
* READ ACCOUNT(FROM)-RECORD VIA INDEXFILE01
*
S19300
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DNTRF TRANSFER «, t00=0x0000, t01=0x0004}
0x0034…0084 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0038}
0x0084…00d4 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0088}
0x00d4…0124 Head {h00=0x004c, h01=0x0050, text=» ENTRY DNTRF «, t00=0x0000, t01=0x00d8}
0x0124…013a Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP19 «, t00=0x0000, t01=0x0128}
0x013a…0150 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP20 «, t00=0x0000, t01=0x013e}
0x0150…0166 Head {h00=0x0012, h01=0x0050, text=» EXPROC DKDSTM«, t00=0x0000, t01=0x0154}
0x0166…01ba Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x016a}
0x01ba…020e Head {h00=0x0050, h01=0x0050, text=» EXPROC PBBOOK «, t00=0x0001, t01=0x002e}
0x020e…0262 Head {h00=0x0050, h01=0x0050, text=» EXPROC PCVCH «, t00=0x0001, t01=0x0082}
0x0262…0278 Head {h00=0x0012, h01=0x0050, text=» EXPROC QENTRS«, t00=0x0001, t01=0x00d6}
0x0278…028e Head {h00=0x0012, h01=0x0050, text=» EXPROC QGATYP«, t00=0x0001, t01=0x00ec}
0x028e…02e2 Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0001, t01=0x0102}
0x02e2…02f8 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0001, t01=0x0156}
0x02f8…034c Head {h00=0x0050, h01=0x0050, text=» EXPROC ZDRWRD «, t00=0x0001, t01=0x016c}
0x034c…03a0 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZHWRID «, t00=0x0002, t01=0x0030}
0x03a0…03b6 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZGREA «, t00=0x0002, t01=0x0084}
0x03b6…0406 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x009a}
0x0406…0456 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE NAME: *«, t00=0x0002, t01=0x00ea}
0x0456…04a6 Head {h00=0x004c, h01=0x0050, text=»* DNTRF TRANSFER *«, t00=0x0002, t01=0x013a}
0x04a6…04f6 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0002, t01=0x018a}
0x04f6…0546 Head {h00=0x004c, h01=0x0050, text=»* THE PROCEDURE TRANSFERS AN AMOUNT FROM ONE ACCOUNT- *«, t00=0x0003, t01=0x004a}
0x0546…0596 Head {h00=0x004c, h01=0x0050, text=»* RECORD TO ANOTHER. *«, t00=0x0003, t01=0x009a}
0x0596…05e6 Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT-RECORD(FROM) IS READ INTO UA1-WORKBLOCK. *«, t00=0x0003, t01=0x00ea}
0x05e6…0636 Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT-RECORD (TO) IS READ INTO UA2-WORKBLOCK. *«, t00=0x0003, t01=0x013a}
0x0636…0686 Head {h00=0x004c, h01=0x0050, text=»* THE TWO ACOUNT-RECORDS ARE UPDATED. *«, t00=0x0003, t01=0x018a}
0x0686…06d6 Head {h00=0x004c, h01=0x0050, text=»* UT1-WORKBLOCK, TRANSACTION-RECORD FOR THE *«, t00=0x0004, t01=0x004a}
0x06d6…0726 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT-RECORD(FROM), IS FILLED WITH THE USUAL DATA. *«, t00=0x0004, t01=0x009a}
0x0726…0776 Head {h00=0x004c, h01=0x0050, text=»* UT2-WORKBLOCK, SAME FOR ACCOUNT-RECORD(TO). *«, t00=0x0004, t01=0x00ea}
0x0776…07c6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x013a}
0x07c6…0816 Head {h00=0x004c, h01=0x0050, text=»* BOTH TRANSACTION AND BOTH ACCOUNT-RECORDS ARE *«, t00=0x0004, t01=0x018a}
0x0816…0866 Head {h00=0x004c, h01=0x0050, text=»* REWRITTEN TO THE DATABASE. *«, t00=0x0005, t01=0x004a}
0x0866…08b6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x009a}
0x08b6…0906 Head {h00=0x004c, h01=0x0050, text=»* THE OPERATOR-BALANCE IS UPDATED. *«, t00=0x0005, t01=0x00ea}
0x0906…0956 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x013a}
0x0956…09a6 Head {h00=0x004c, h01=0x0050, text=»* IN CASE OF A TERMINAL-PRINTER AND A SAVINGS-ACCOUNT, *«, t00=0x0005, t01=0x018a}
0x09a6…09f6 Head {h00=0x004c, h01=0x0050, text=»* MODULE PBBOOK IS PERFORMED FOR ACCOUNT-RECORD(FROM). *«, t00=0x0006, t01=0x004a}
0x09f6…0a46 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x009a}
0x0a46…0a96 Head {h00=0x004c, h01=0x0050, text=»* IN CASE OF A TERMINAL-PRINTER AND A CHEQUE-ACCOUNT, *«, t00=0x0006, t01=0x00ea}
0x0a96…0ae6 Head {h00=0x004c, h01=0x0050, text=»* MODULE PCVCH IS PERFORMED FOR ACOOUNT-RECORD(FROM). *«, t00=0x0006, t01=0x013a}
0x0ae6…0b36 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x018a}
0x0b36…0b86 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURES USED: *«, t00=0x0007, t01=0x004a}
0x0b86…0bd6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x009a}
0x0bd6…0c26 Head {h00=0x004c, h01=0x0050, text=»* PAJRN PRINT JOURNAL-ROLL *«, t00=0x0007, t01=0x00ea}
0x0c26…0c76 Head {h00=0x004c, h01=0x0050, text=»* PBBOOK PRINT BOOK *«, t00=0x0007, t01=0x013a}
0x0c76…0cc6 Head {h00=0x004c, h01=0x0050, text=»* PCVCH PRINT VOUCHER *«, t00=0x0007, t01=0x018a}
0x0cc6…0d16 Head {h00=0x004c, h01=0x0050, text=»* XBFMT SCREEN-CONTROL *«, t00=0x0008, t01=0x004a}
0x0d16…0d48 Head {h00=0x002e, h01=0x0050, text=»* ZCRDD READ DATABASE «, t00=0x0008, t01=0x009a}
0x0d48…0d98 Head {h00=0x004c, h01=0x0050, text=»* ZDRWRD WRITE DATABASE *«, t00=0x0008, t01=0x00cc}
0x0d98…0de8 Head {h00=0x004c, h01=0x0050, text=»* ZGREA RELEASE EXCLUSIVE ACCESS *«, t00=0x0008, t01=0x011c}
0x0de8…0e38 Head {h00=0x004c, h01=0x0050, text=»* ZHWRID REWRITE OR INSERT RECORD ON DATABASE *«, t00=0x0008, t01=0x016c}
0x0e38…0e88 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x002c}
0x0e88…0ed8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0009, t01=0x007c}
0x0ed8…0f28 Head {h00=0x004c, h01=0x0050, text=»DNTRF PROC «, t00=0x0009, t01=0x00cc}
0x0f28…0f78 Head {h00=0x004c, h01=0x0050, text=»DN000 «, t00=0x0009, t01=0x011c}
0x0f78…0fc8 Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR1,=D'0' «, t00=0x0009, t01=0x016c}
0x0fc8…0fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fd2…101a Head {h00=0x0044, h01=0x0050, text=»* THE INPUTFIELDS IN LINE 2 OF THE TRANSFERSCREEN ARE CLEARED «, t00=0x000a, t01=0x0036}
0x101a…105c Head {h00=0x003e, h01=0x0050, text=»* IF THE ACCOUNTNR. KEYED-IN IS A CHEQUE-ACCOUNT, LINE 2«, t00=0x000a, t01=0x007e}
0x105c…108a Head {h00=0x002a, h01=0x0050, text=»* IS REDISPLAYED IN ANOTHER FORMAT«, t00=0x000a, t01=0x00c0}
0x108a…1094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ee}
0x1094…109e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f8}
0x109e…10d4 Head {h00=0x0032, h01=0x0050, text=»* DISPLAY SCREEN: DEFAULT FOR SAVINGS-ACCOUNT«, t00=0x000a, t01=0x0102}
0x10d4…10de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0138}
0x10de…10f8 Head {h00=0x0016, h01=0x0050, text=» TBF SBFT80,DN010 «, t00=0x000a, t01=0x0142}
0x10f8…1112 Head {h00=0x0016, h01=0x0050, text=» PERF XBFMT,=W'71'«, t00=0x000a, t01=0x015c}
0x1112…1122 Head {h00=0x000c, h01=0x0050, text=» B DN020«, t00=0x000a, t01=0x0176}
0x1122…1130 Head {h00=0x000a, h01=0x0050, text=»DN010 «, t00=0x000a, t01=0x0186}
0x1130…1180 (11, 0, 400) Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'45' «, t00=0x000b, t01=0x0004}
0x1180…118e Head {h00=0x000a, h01=0x0050, text=»DN020 «, t00=0x000b, t01=0x0054}
0x118e…11de Head {h00=0x004c, h01=0x0050, text=» TBF SBCANCEL,DN050 «, t00=0x000b, t01=0x0062}
0x11de…122e Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x000b, t01=0x00b2}
0x122e…127e Head {h00=0x004c, h01=0x0050, text=» B DN999 «, t00=0x000b, t01=0x0102}
0x127e…12ce Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0152}
0x12ce…131e Head {h00=0x004c, h01=0x0050, text=»* UA1-WORKBLOCK CONTAINS ACCOUNT-RECORD(FROM); ADNEWBAL IS UPDATED *«, t00=0x000c, t01=0x0012}
0x131e…136e Head {h00=0x004c, h01=0x0050, text=»* UA2-WORKBLOCK CONTAINS ACCOUNT-RECORD(TO); TDAMOUNT CONTAINS *«, t00=0x000c, t01=0x0062}
0x136e…13be Head {h00=0x004c, h01=0x0050, text=»* THE AMOUNT OF THE TRANSFER *«, t00=0x000c, t01=0x00b2}
0x13be…140e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0102}
0x140e…145e Head {h00=0x004c, h01=0x0050, text=»DN050 «, t00=0x000c, t01=0x0152}
0x145e…14ae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0012}
0x14ae…14fe Head {h00=0x004c, h01=0x0050, text=»* PRINT JOURNAL-ROLL *«, t00=0x000d, t01=0x0062}
0x14fe…154e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00b2}
0x154e…159e Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR1,ADACTRNR «, t00=0x000d, t01=0x0102}
0x159e…15ee Head {h00=0x004c, h01=0x0050, text=» DIV IDACTNR1,KDSHIFT «, t00=0x000d, t01=0x0152}
0x15ee…163e Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'12' «, t00=0x000e, t01=0x0012}
0x163e…168e Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x000e, t01=0x0062}
0x168e…16cc Head {h00=0x003a, h01=0x0050, text=» MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY«, t00=0x000e, t01=0x00b2}
0x16cc…171c Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'4' «, t00=0x000e, t01=0x00f0}
0x171c…176c Head {h00=0x004c, h01=0x0050, text=» MOVE UDTRSCDE,=D'11' «, t00=0x000e, t01=0x0140}
0x176c…17bc Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'8' «, t00=0x000e, t01=0x0190}
0x17bc…180c Head {h00=0x004c, h01=0x0050, text=»DN100 «, t00=0x000f, t01=0x0050}
0x180c…185c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00a0}
0x185c…18ac Head {h00=0x004c, h01=0x0050, text=»* UPDATE ACCOUNT-RECORD(FROM) *«, t00=0x000f, t01=0x00f0}
0x18ac…18fc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0140}
0x18fc…1932 Head {h00=0x0032, h01=0x0050, text=» PERF QENTRS,ADLASTRS UPDATE LAST TRANSACTION «, t00=0x000f, t01=0x0190}
0x1932…193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x193c…197a Head {h00=0x003a, h01=0x0050, text=»* TDAMOUNT CONTAINS AMOUNT KEYED IN BY THE OPERATOR «, t00=0x0010, t01=0x0040}
0x197a…1984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007e}
0x1984…199c Head {h00=0x0014, h01=0x0050, text=» TBF SBRVS,DN110«, t00=0x0010, t01=0x0088}
0x199c…19b8 Head {h00=0x0018, h01=0x0050, text=» MUL TDAMOUNT,=D'-1'«, t00=0x0010, t01=0x00a0}
0x19b8…19c6 Head {h00=0x000a, h01=0x0050, text=»DN110 «, t00=0x0010, t01=0x00bc}
0x19c6…19e2 Head {h00=0x0018, h01=0x0050, text=» SUB ADBAL,TDAMOUNT «, t00=0x0010, t01=0x00ca}
0x19e2…19ea Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00e6}
0x19ea…1a3a Head {h00=0x004c, h01=0x0050, text=» ADD ADWDRCUM,TDAMOUNT «, t00=0x0010, t01=0x00ee}
0x1a3a…1a8a Head {h00=0x004c, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0010, t01=0x013e}
0x1a8a…1ada Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,YDLASSEQ «, t00=0x0010, t01=0x018e}
0x1ada…1b2a Head {h00=0x004c, h01=0x0050, text=»DN200 «, t00=0x0011, t01=0x004e}
0x1b2a…1b7a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x009e}
0x1b7a…1bca Head {h00=0x004c, h01=0x0050, text=»* UPDATE ACCOUNT-RECORD(TO) *«, t00=0x0011, t01=0x00ee}
0x1bca…1c1a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x013e}
0x1c1a…1c6a Head {h00=0x004c, h01=0x0050, text=» ADD BDBAL,TDAMOUNT «, t00=0x0011, t01=0x018e}
0x1c6a…1c9a Head {h00=0x002c, h01=0x0050, text=» PERF QENTRS,BDLASTRS UPDATE LAST TRANS.«, t00=0x0012, t01=0x004e}
0x1c9a…1cea Head {h00=0x004c, h01=0x0050, text=»DN210 «, t00=0x0012, t01=0x007e}
0x1cea…1d3a Head {h00=0x004c, h01=0x0050, text=» ADD BDDEPCUM,TDAMOUNT «, t00=0x0012, t01=0x00ce}
0x1d3a…1d8a Head {h00=0x004c, h01=0x0050, text=» MOVE BDLASSEQ,ADLASSEQ «, t00=0x0012, t01=0x011e}
0x1d8a…1dda Head {h00=0x004c, h01=0x0050, text=»DN300 «, t00=0x0012, t01=0x016e}
0x1dda…1e2a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x002e}
0x1e2a…1e7a Head {h00=0x004c, h01=0x0050, text=»* UPDATE TRANSACTION-RECORD(FROM) *«, t00=0x0013, t01=0x007e}
0x1e7a…1eca Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x00ce}
0x1eca…1f1a Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSRNR,ADACTRNR «, t00=0x0013, t01=0x011e}
0x1f1a…1f6a Head {h00=0x004c, h01=0x0050, text=» ADD TDTRSRNR,ADLASTRS «, t00=0x0013, t01=0x016e}
0x1f6a…1fba Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,ADLASSEQ «, t00=0x0014, t01=0x002e}
0x1fba…200a Head {h00=0x004c, h01=0x0050, text=» MOVE TDNEWBAL,ADBAL «, t00=0x0014, t01=0x007e}
0x200a…2018 Head {h00=0x000a, h01=0x0050, text=»DN400 «, t00=0x0014, t01=0x00ce}
0x2018…2022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00dc}
0x2022…204c Head {h00=0x0026, h01=0x0050, text=»* UPDATE TRANSACTION-RECORD(TO) «, t00=0x0014, t01=0x00e6}
0x204c…2056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0110}
0x2056…2076 Head {h00=0x001c, h01=0x0050, text=» MOVE UDTRSRNR,BDACTRNR «, t00=0x0014, t01=0x011a}
0x2076…2094 Head {h00=0x001a, h01=0x0050, text=» ADD UDTRSRNR,BDLASTRS«, t00=0x0014, t01=0x013a}
0x2094…20b4 Head {h00=0x001c, h01=0x0050, text=» MOVE UDTRSSEQ,BDLASSEQ «, t00=0x0014, t01=0x0158}
0x20b4…20d4 Head {h00=0x001c, h01=0x0050, text=» MOVE UDAMOUNT,TDAMOUNT «, t00=0x0014, t01=0x0178}
0x20d4…20f0 Head {h00=0x0018, h01=0x0050, text=» MOVE UDNEWBAL,BDBAL«, t00=0x0015, t01=0x0008}
0x20f0…2110 Head {h00=0x001c, h01=0x0050, text=» MOVE UDACTFRM,IDACTNR1 «, t00=0x0015, t01=0x0024}
0x2110…211e Head {h00=0x000a, h01=0x0050, text=»DN500 «, t00=0x0015, t01=0x0044}
0x211e…216e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0052}
0x216e…21be Head {h00=0x004c, h01=0x0050, text=»* (RE)WRITE ACCOUNT- AND TRANSACTIONRECORDS *«, t00=0x0015, t01=0x00a2}
0x21be…220e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x00f2}
0x220e…2232 Head {h00=0x0020, h01=0x0050, text=» PERF ZHWRID,TDTRSRNR,NDLRN3«, t00=0x0015, t01=0x0142}
0x2232…224e Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DN999 «, t00=0x0015, t01=0x0166}
0x224e…2272 Head {h00=0x0020, h01=0x0050, text=» PERF ZHWRID,UDTRSRNR,NDLRN3«, t00=0x0015, t01=0x0182}
0x2272…228e Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DN999 «, t00=0x0016, t01=0x0016}
0x228e…22de Head {h00=0x004c, h01=0x0050, text=» PERF ZDRWRD,ADACTRNR,NDLRN1 «, t00=0x0016, t01=0x0032}
0x22de…22fa Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DN999 «, t00=0x0016, t01=0x0082}
0x22fa…234a Head {h00=0x004c, h01=0x0050, text=» PERF ZDRWRD,BDACTRNR,NDLRN2 «, t00=0x0016, t01=0x009e}
0x234a…2366 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DN999 «, t00=0x0016, t01=0x00ee}
0x2366…2370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010a}
0x2370…2392 Head {h00=0x001e, h01=0x0050, text=»* UPDATE OPERATOR BALANCES«, t00=0x0016, t01=0x0114}
0x2392…239c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0136}
0x239c…23c2 Head {h00=0x0022, h01=0x0050, text=» ADD ODCASH(KW2,KW2),TDAMOUNT «, t00=0x0016, t01=0x0140}
0x23c2…23cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0166}
0x23cc…23f0 Head {h00=0x0020, h01=0x0050, text=»* PRINT PASSBOOK OR VOUCHER «, t00=0x0016, t01=0x0170}
0x23f0…23fa (23, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0004}
0x23fa…2408 Head {h00=0x000a, h01=0x0050, text=»DN700 «, t00=0x0017, t01=0x000e}
0x2408…242a Head {h00=0x001e, h01=0x0050, text=» CBG RDPRTTYP,=D'1',DN999 «, t00=0x0017, t01=0x001c}
0x242a…2446 Head {h00=0x0018, h01=0x0050, text=» TBT SBCHQACT,DN710 «, t00=0x0017, t01=0x003e}
0x2446…2486 Head {h00=0x003c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK «, t00=0x0017, t01=0x005a}
0x2486…24a2 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DN999 «, t00=0x0017, t01=0x009a}
0x24a2…24b6 Head {h00=0x0010, h01=0x0050, text=» PERF PBBOOK«, t00=0x0017, t01=0x00b6}
0x24b6…24c6 Head {h00=0x000c, h01=0x0050, text=» B DN999«, t00=0x0017, t01=0x00ca}
0x24c6…24d4 Head {h00=0x000a, h01=0x0050, text=»DN710 «, t00=0x0017, t01=0x00da}
0x24d4…24ee Head {h00=0x0016, h01=0x0050, text=» PERF PCVCH,=W'2' «, t00=0x0017, t01=0x00e8}
0x24ee…253e Head {h00=0x004c, h01=0x0050, text=»DN999 «, t00=0x0017, t01=0x0102}
0x253e…258e Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0017, t01=0x0152}
0x258e…25de Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0012}
0x25de…262e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x0062}
0x262e…267e Head {h00=0x004c, h01=0x0050, text=»SPAP19 PROC XWRET «, t00=0x0018, t01=0x00b2}
0x267e…2692 Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0018, t01=0x0102}
0x2692…26e2 Head {h00=0x004c, h01=0x0050, text=»S19000 «, t00=0x0018, t01=0x0116}
0x26e2…26ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26ec…2714 Head {h00=0x0024, h01=0x0050, text=»* RELEASE EXCLUSIVE ACCES FIRST «, t00=0x0018, t01=0x0170}
0x2714…271e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x271e…2732 Head {h00=0x0010, h01=0x0050, text=» PERF ZGREA «, t00=0x0019, t01=0x0012}
0x2732…273c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0026}
0x273c…2778 Head {h00=0x0038, h01=0x0050, text=»* THE VALUES OF SPBINW2 AND SPINPUT ARE DESTROYED BY«, t00=0x0019, t01=0x0030}
0x2778…27b8 Head {h00=0x003c, h01=0x0050, text=»* THE KI-INSTRUCTIONS IN PBBOOK OR DKDSTM, SO SAVE THEM «, t00=0x0019, t01=0x006c}
0x27b8…27de Head {h00=0x0022, h01=0x0050, text=»* SPBINW2 IS SAVED IN IWINDEX1«, t00=0x0019, t01=0x00ac}
0x27de…280c Head {h00=0x002a, h01=0x0050, text=»* SPINPUT IS ALREADY SAVED IN IDACTNR1«, t00=0x0019, t01=0x00d2}
0x280c…2816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0100}
0x2816…2834 Head {h00=0x001a, h01=0x0050, text=» MOVE IWINDEX1,SPBINW2«, t00=0x0019, t01=0x010a}
0x2834…2884 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0128}
0x2884…28d4 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNTRECORD IN RANGE ? *«, t00=0x0019, t01=0x0178}
0x28d4…2924 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x0038}
0x2924…2974 Head {h00=0x004c, h01=0x0050, text=» CBL IDACTNR1,=D'168000',S19100 «, t00=0x001a, t01=0x0088}
0x2974…29c4 Head {h00=0x004c, h01=0x0050, text=» CBG IDACTNR1,=D'168999',S19100 «, t00=0x001a, t01=0x00d8}
0x29c4…2a14 Head {h00=0x004c, h01=0x0050, text=» B S19300 «, t00=0x001a, t01=0x0128}
0x2a14…2a64 Head {h00=0x004c, h01=0x0050, text=»S19100 «, t00=0x001a, t01=0x0178}
0x2a64…2ab4 Head {h00=0x004c, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x001b, t01=0x0038}
0x2ab4…2b04 Head {h00=0x004c, h01=0x0050, text=» MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE' «, t00=0x001b, t01=0x0088}
0x2b04…2b54 Head {h00=0x004c, h01=0x0050, text=» B S19999 «, t00=0x001b, t01=0x00d8}
0x2b54…2b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0128}
0x2b5e…2b94 Head {h00=0x0032, h01=0x0050, text=»* READ ACCOUNT(FROM)-RECORD VIA INDEXFILE01 «, t00=0x001b, t01=0x0132}
0x2b94…2b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0168}
0x2b9e…2bac Head {h00=0x000a, h01=0x0050, text=»S19300«, t00=0x001b, t01=0x0172}
0x2bac…2bb0 Head {h00=0x0054, h01=0x0050}
0x2bb0…2bb4 Head {h00=0x5c4d, h01=0x4f56}
0x2bb4…2bc0 45 5c 41 44 41 43 54 52 4e 52 2c 49 ┆E ADACTRNR,I┆
0x2bc0…2c10 (28, 0, 400) 44 41 43 54 4e 52 31 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 00 1b 01 80 00 54 00 50 5c 4d 55 4c 5c 41 44 41 ┆DACTNR1 T P MUL ADA┆
0x2c10…2c60 43 54 52 4e 52 2c 4b 44 53 48 49 46 54 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 00 00 00 1c 00 48 00 24 00 50 ┆CTRNR,KDSHIFT H $ P┆
0x2c60…2cb0 5c 50 45 52 46 5c 5a 43 52 44 44 2c 41 44 41 43 54 52 4e 52 2c 4e 44 4c 52 4e 31 2c 4b 57 31 20 00 1c 00 a0 00 54 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 53 31 39 39 39 39 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PERF ZCRDD,ADACTRNR,NDLRN1,KW1 T P TBT SBCANCEL,S19999 ┆
0x2cb0…2d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1c 00 c8 00 18 00 50 5c 54 42 46 5c 53 42 52 45 43 41 56 42 2c 53 31 39 39 35 30 00 1c 01 20 00 4c 00 50 2a 00 00 00 ┆ P TBF SBRECAVB,S19950 L P* ┆
0x2d00…2d50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1c 01 3c 00 4c 00 50 2a 20 20 20 ┆ * < L P* ┆
0x2d50…2da0 (29, 0, 400) 41 43 43 4f 55 4e 54 52 45 43 4f 52 44 20 4e 4f 54 20 43 4c 4f 53 45 44 20 3f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1c 01 8c 00 4c 00 50 2a 00 00 00 ┆ACCOUNTRECORD NOT CLOSED ? * L P* ┆
0x2da0…2df0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1d 00 4c 00 4c 00 50 5c 43 42 45 ┆ * L L P CBE┆
0x2df0…2e40 5c 41 44 53 54 41 54 55 53 2c 3d 44 27 32 27 2c 53 31 39 39 35 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 1d 00 9c 00 4c 00 50 5c 43 42 45 ┆ ADSTATUS,=D'2',S19950 L P CBE┆
0x2e40…2e90 5c 41 44 53 54 41 54 55 53 2c 3d 44 27 33 27 2c 53 31 39 39 35 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 1d 00 ec 00 4c 00 50 53 31 39 34 ┆ ADSTATUS,=D'3',S19950 L PS194┆
0x2e90…2ee0 30 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 00 00 00 00 00 00 00 00 00 00 1d 01 3c 00 4c 00 50 2a 00 00 00 ┆00 < L P* ┆
0x2ee0…2f30 (30, 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 1d 01 8c 00 4c 00 50 2a 20 20 20 ┆ * L P* ┆
0x2f30…2f80 53 54 41 54 55 53 20 44 45 42 4c 4f 43 4b 45 44 20 3f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1e 00 4c 00 4c 00 50 2a 00 00 00 ┆STATUS DEBLOCKED ? * L L P* ┆
0x2f80…2fd0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1e 00 9c 00 4c 00 50 5c 43 42 45 ┆ * L P CBE┆
0x2fd0…3020 5c 41 44 53 54 41 54 55 53 2c 3d 44 27 30 27 2c 53 31 39 39 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 1e 00 ec 00 4c 00 50 5c 4d 4f 56 ┆ ADSTATUS,=D'0',S19900 L P MOV┆
0x3020…3070 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 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 1e 01 3c 00 4c 00 50 5c 4d 4f 56 ┆E XWRET,=W'1' < L P MOV┆
0x3070…30c0 (31, 0, 400) 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 32 38 27 5c 27 41 43 43 4f 55 4e 54 20 42 4c 4f 43 4b 45 44 27 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 1e 01 8c 00 4c 00 50 5c 42 5c 53 ┆E SPBINW4,=W'28' 'ACCOUNT BLOCKED' L P B S┆
0x30c0…3110 31 39 39 39 39 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 00 00 00 00 00 00 00 1f 00 4c 00 4c 00 50 53 31 39 39 ┆19999 L L PS199┆
0x3110…3160 30 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 00 00 00 00 00 00 00 00 00 00 1f 00 9c 00 1a 00 50 5c 50 45 52 ┆00 P PER┆
0x3160…31b0 46 5c 51 47 41 54 59 50 2c 49 44 41 43 54 4e 52 31 20 00 1f 00 ec 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 ┆F QGATYP,IDACTNR1 L P* ┆
0x31b0…3200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 1f 01 0a 00 4c 00 50 2a 20 20 20 53 50 41 43 45 20 46 4f 52 20 54 52 41 4e 53 41 43 54 49 4f 4e 52 45 43 4f 52 44 3f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P* SPACE FOR TRANSACTIONRECORD? ┆
0x3200…3250 (32, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 1f 01 5a 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 ┆ * Z L P* ┆
0x3250…32a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 20 00 1a 00 54 00 50 5c 4d 4f 56 45 20 20 20 5c 57 44 45 43 31 2c 41 44 4c 41 53 54 52 53 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 ┆ * T P MOVE WDEC1,ADLASTRS ┆
0x32a0…32f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 6a 00 54 00 50 5c 50 45 52 46 5c 51 45 4e 54 52 53 2c 57 44 45 43 31 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 ┆ j T P PERF QENTRS,WDEC1 ┆
0x32f0…3340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 c2 00 54 00 50 5c 43 42 4e 45 5c 41 44 53 54 4d 54 52 53 2c 57 44 45 43 31 2c 53 31 39 39 31 30 5c 20 20 20 53 50 41 43 45 20 41 ┆ T P CBNE ADSTMTRS,WDEC1,S19910 SPACE A┆
0x3340…3390 56 41 49 4c 41 42 4c 45 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 20 01 1a 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 ┆VAILABLE L P* ┆
0x3390…33e0 (33, 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 2a 00 20 01 72 00 4c 00 50 2a 20 20 4e 4f 20 53 50 41 43 45 20 41 56 41 49 4c 41 42 4c 45 20 46 4f 52 20 54 52 41 4e ┆ * r L P* NO SPACE AVAILABLE FOR TRAN┆
0x33e0…3430 53 41 43 54 49 4f 4e 52 45 43 4f 52 44 53 00 00 00 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 21 00 32 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 ┆SACTIONRECORDS * ! 2 L P* ┆
0x3430…3480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 21 00 82 00 54 00 50 5c 43 42 45 5c 52 44 50 52 54 54 59 50 2c 3d 44 27 32 27 2c 53 31 39 39 34 30 5c 20 20 4e ┆ * ! T P CBE RDPRTTYP,=D'2',S19940 N┆
0x3480…34d0 4f 20 53 55 49 54 41 42 4c 45 20 50 52 49 4e 54 45 52 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 21 00 d2 00 54 00 50 5c 54 42 54 5c 53 42 43 48 51 41 43 54 2c 53 31 39 39 30 35 5c 5c ┆O SUITABLE PRINTER ! T P TBT SBCHQACT,S19905 ┆
0x34d0…3520 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 00 00 00 00 21 01 2a 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ! * L P* ┆
0x3520…3570 (34, 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 00 00 00 00 2a 00 21 01 82 00 4c 00 50 2a 20 20 53 41 56 49 4e 47 53 20 41 43 43 ┆ * ! L P* SAVINGS ACC┆
0x3570…35c0 4f 55 4e 54 2c 20 50 52 49 4e 54 20 55 4e 53 54 41 54 45 4d 45 4e 54 45 44 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 22 00 42 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆OUNT, PRINT UNSTATEMENTED TRANSACTIONS * " B L P* ┆
0x35c0…3610 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 22 00 92 00 10 00 50 5c 50 45 52 46 5c 50 42 42 4f 4f 4b 00 22 ┆ * " P PERF PBBOOK "┆
0x3610…3660 00 e2 00 0e 00 50 5c 42 5c 53 31 39 39 30 38 20 00 22 00 f6 00 0a 00 50 53 31 39 39 30 35 00 22 01 08 00 10 00 50 5c 50 45 52 46 5c 44 4b 44 53 54 4d 00 22 01 16 00 0a 00 50 53 31 39 39 30 38 00 22 01 2a 00 18 00 50 5c 54 42 54 5c 53 42 43 ┆ P B S19908 " PS19905 " P PERF DKDSTM " PS19908 " * P TBT SBC┆
0x3660…36b0 41 4e 43 45 4c 2c 53 31 39 39 39 39 00 22 01 38 00 06 00 50 2a 20 00 22 01 54 00 40 00 50 2a 20 54 48 45 20 41 43 43 4f 55 4e 54 20 52 45 43 4f 52 44 20 48 41 53 20 42 45 45 4e 20 52 45 57 52 49 54 54 45 4e 20 42 59 20 50 42 42 4f 4f 4b 20 ┆ANCEL,S19999 " 8 P* " T @ P* THE ACCOUNT RECORD HAS BEEN REWRITTEN BY PBBOOK ┆
0x36b0…3700 (35, 0, 400) 4f 52 20 44 4b 44 53 54 4d 20 00 22 01 5e 00 2e 00 50 2a 20 53 4f 20 52 45 41 44 20 49 54 20 41 47 41 49 4e 20 54 4f 20 47 45 54 20 45 58 43 4c 55 53 49 56 45 20 41 43 43 45 53 53 00 23 00 12 00 06 00 50 2a 20 00 23 00 44 00 24 00 50 5c 50 ┆OR DKDSTM " ^ . P* SO READ IT AGAIN TO GET EXCLUSIVE ACCESS # P* # D $ P P┆
0x3700…3750 45 52 46 5c 5a 43 52 44 44 2c 41 44 41 43 54 52 4e 52 2c 4e 44 4c 52 4e 31 2c 4b 57 31 20 00 23 00 4e 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 53 31 39 39 39 39 00 23 00 76 00 54 00 50 53 31 39 39 31 30 5c 5c 5c 5c 5c 00 00 00 ┆ERF ZCRDD,ADACTRNR,NDLRN1,KW1 # N P TBT SBCANCEL,S19999 # v T PS19910 ┆
0x3750…37a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 00 92 00 1e 00 50 5c 43 42 4c 5c 52 ┆ # P CBL R┆
0x37a0…37f0 44 53 43 52 4c 4e 53 2c 3d 44 27 34 27 2c 53 31 39 39 33 30 00 23 00 ea 00 14 00 50 5c 45 52 41 53 45 5c 30 2c 4b 57 32 2c 4b 57 32 00 23 01 0c 00 16 00 50 5c 44 49 53 50 4c 41 59 5c 34 2c 4b 57 32 2c 4b 57 32 00 23 01 24 00 18 00 50 5c 4d ┆DSCRLNS,=D'4',S19930 # P ERASE 0,KW2,KW2 # P DISPLAY 4,KW2,KW2 # $ P M┆
0x37f0…3840 4f 56 45 5c 54 44 4e 45 57 42 41 4c 2c 3d 44 27 30 27 00 23 01 3e 00 14 00 50 5c 45 52 41 53 45 5c 30 2c 4b 57 34 2c 4b 57 34 00 23 01 5a 00 16 00 50 5c 44 49 53 50 4c 41 59 5c 34 2c 4b 57 34 2c 4b 57 34 00 23 01 72 00 18 00 50 5c 54 42 54 ┆OVE TDNEWBAL,=D'0' # > P ERASE 0,KW4,KW4 # Z P DISPLAY 4,KW4,KW4 # r P TBT┆
0x3840…3890 (36, 0, 400) 5c 53 42 43 48 51 41 43 54 2c 53 31 39 39 32 30 00 23 01 8c 00 4c 00 50 2a 20 53 41 56 49 4e 47 53 2d 41 43 43 4f 55 4e 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SBCHQACT,S19920 # L P* SAVINGS-ACCOUNT ┆
0x3890…38e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 24 00 18 00 14 00 50 5c 45 52 41 53 45 5c 32 2c 4b 57 32 2c 4b 57 35 00 24 00 68 00 0e 00 50 5c 42 5c 53 31 39 39 33 30 20 00 24 00 80 00 4c 00 50 2a 20 43 48 45 51 55 45 2d 41 43 43 4f 55 ┆ * $ P ERASE 2,KW2,KW5 $ h P B S19930 $ L P* CHEQUE-ACCOU┆
0x38e0…3930 4e 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 24 00 92 00 0a 00 50 53 31 39 39 32 30 00 24 00 e2 00 14 00 50 ┆NT * $ PS19920 $ P┆
0x3930…3980 5c 45 52 41 53 45 5c 32 2c 4b 57 32 2c 4b 57 33 00 24 00 f0 00 0a 00 50 53 31 39 39 33 30 00 24 01 08 00 16 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 30 27 20 00 24 01 16 00 0e 00 50 5c 42 5c 53 31 39 39 39 39 20 00 24 01 30 00 54 ┆ ERASE 2,KW2,KW3 $ PS19930 $ P MOVE XWRET,=W'0' $ P B S19999 $ 0 T┆
0x3980…39d0 00 50 53 31 39 39 34 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PS19940 ┆
0x39d0…3a20 (37, 0, 400) 00 00 00 24 01 42 00 34 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 35 36 27 5c 27 4e 4f 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 50 4f 53 53 49 42 4c 45 27 20 00 25 00 0a 00 54 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 ┆ $ B 4 P MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' % T P MOVE XWRET,=W┆
0x3a20…3a70 27 31 27 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 00 00 00 00 00 00 00 25 00 42 00 54 00 50 5c 42 5c 53 31 39 ┆'1' % B T P B S19┆
0x3a70…3ac0 39 39 39 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 25 00 9a 00 0a ┆999 % ┆
0x3ac0…3b10 00 50 53 31 39 39 35 30 00 25 00 f2 00 2e 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 32 39 27 5c 27 52 45 43 4f 52 44 20 4b 45 59 20 49 4e 56 41 4c 49 44 27 20 00 25 01 00 00 16 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 ┆ PS19950 % . P MOVE SPBINW4,=W'29' 'RECORD KEY INVALID' % P MOVE XWRET,=W┆
0x3b10…3b60 27 31 27 20 00 25 01 32 00 4c 00 50 53 31 39 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 00 00 00 00 00 ┆'1' % 2 L PS19999 ┆
0x3b60…3bb0 (38, 0, 400) 00 00 00 00 00 25 01 4c 00 06 00 50 2a 20 00 26 00 0c 00 22 00 50 2a 20 52 45 53 54 4f 52 45 20 53 50 42 49 4e 57 32 20 41 4e 44 20 53 50 49 4e 50 55 54 20 00 26 00 16 00 06 00 50 2a 20 00 26 00 3c 00 1a 00 50 5c 4d 4f 56 45 5c 53 50 42 49 ┆ % L P* & " P* RESTORE SPBINW2 AND SPINPUT & P* & < P MOVE SPBI┆
0x3bb0…3bb4 4e 57 32 2c ┆NW2,┆
0x3bb4…5920 […elided…]
0x5920…5960 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 27 2c 41 44 41 54 52 4e 52 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 ┆ L P FMEL 'ZZZZZZ',ADATRNR ┆
0x5960…59b0 00 00 00 00 00 00 00 00 00 00 00 00 00 39 00 16 00 4c 00 50 5c 46 42 5c 46 30 34 35 32 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 ┆ 9 L P FB F04520 ┆
0x59b0…5a00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 00 66 00 4c 00 50 46 30 34 35 31 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 ┆ 9 f L PF04510 ┆
0x5a00…5a50 00 00 00 00 00 00 00 00 00 00 00 00 00 39 00 b6 00 4c 00 50 5c 46 4d 45 4c 5c 27 39 39 39 39 39 39 27 2c 41 44 41 43 54 52 4e 52 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 ┆ 9 L P FMEL '999999',ADACTRNR ┆
0x5a50…5a9e 00 00 00 00 00 00 00 00 00 00 00 00 00 39 01 06 00 4c 00 50 46 30 34 35 32 30 5c 20 20 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 ┆ 9 L PF04520 ┆
0x5a9e…5aee (58, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 01 56 00 4c 00 50 5c 46 4e 4c 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 ┆ 9 V L P FNL ┆
0x5aee…5b3e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 16 00 4c 00 50 5c 46 42 54 5c 53 42 43 48 51 41 43 54 2c 46 30 34 35 33 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 ┆ : L P FBT SBCHQACT,F04530 ┆
0x5b3e…5b8e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 66 00 4c 00 50 5c 46 54 45 58 54 5c 27 42 4f 4f 4b 20 42 41 4c 41 4e 43 45 3a 20 27 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 ┆ : f L P FTEXT 'BOOK BALANCE: ' ┆
0x5b8e…5bde 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 b6 00 4c 00 50 5c 46 4b 49 5c 31 35 2c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 31 31 2c 4e 55 4d 2c 4d 45 2c 41 50 50 4c 3d 31 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ : L P FKI 15,MINL=1,MAXL=11,NUM,ME,APPL=10 ┆
0x5bde…5c2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 01 06 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 2c 5a 5a 27 2c 49 44 41 4d 54 31 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 ┆ : L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 ┆
0x5c2e…5c7e (59, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 01 56 00 4c 00 50 5c 46 54 45 58 54 5c 27 20 4c 49 4e 45 3a 20 20 27 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 ┆ : V L P FTEXT ' LINE: ' ┆
0x5c7e…5cce 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 00 16 00 4c 00 50 5c 46 4b 49 5c 33 35 2c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 32 2c 4e 55 4d 2c 4d 45 2c 41 50 50 4c 3d 31 31 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ; L P FKI 35,MINL=1,MAXL=2,NUM,ME,APPL=11 ┆
0x5cce…5d1e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 00 66 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 27 2c 49 44 4e 52 31 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 ┆ ; f L P FMEL 'ZZ',IDNR1 ┆
0x5d1e…5d6e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 00 b6 00 4c 00 50 5c 46 42 5c 46 30 34 35 34 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 ┆ ; L P FB F04540 ┆
0x5d6e…5dbe 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 01 06 00 4c 00 50 46 30 34 35 33 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 ┆ ; L PF04530 ┆
0x5dbe…5e0e (60, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 01 56 00 4c 00 50 5c 46 54 45 58 54 5c 27 43 52 45 44 49 54 20 4c 49 4d 49 54 20 3a 20 20 20 20 20 20 20 20 20 27 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 ┆ ; V L P FTEXT 'CREDIT LIMIT : ' ┆
0x5e0e…5e5e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 16 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 5a 5a 39 2c 39 39 27 2c 41 44 4c 49 4d 42 4f 4b 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 ┆ < L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK ┆
0x5e5e…5eae 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 66 00 4c 00 50 46 30 34 35 34 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 ┆ < f L PF04540 ┆
0x5eae…5efe 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 b6 00 4c 00 50 5c 46 4e 4c 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 ┆ < L P FNL ┆
0x5efe…5f4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 01 06 00 4c 00 50 5c 46 54 45 58 54 5c 27 41 4d 4f 55 4e 54 20 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 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 ┆ < L P FTEXT 'AMOUNT : ' ┆
0x5f4e…5f9e (61, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 01 56 00 4c 00 50 5c 46 4b 49 5c 32 34 2c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 31 31 2c 4e 55 4d 2c 4d 45 2c 41 50 50 4c 3d 31 34 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ < V L P FKI 24,MINL=1,MAXL=11,NUM,ME,APPL=14 ┆
0x5f9e…5fee 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 00 16 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 2c 5a 5a 27 2c 54 44 41 4d 4f 55 4e 54 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 ┆ = L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT ┆
0x5fee…603e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 00 66 00 4c 00 50 5c 46 4e 4c 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 ┆ = f L P FNL ┆
0x603e…608e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 00 b6 00 4c 00 50 5c 46 54 45 58 54 5c 27 4e 45 57 20 42 41 4c 41 4e 43 45 20 3a 20 20 20 20 20 20 20 20 20 20 27 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 ┆ = L P FTEXT 'NEW BALANCE : ' ┆
0x608e…60de 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 01 06 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 5a 5a 5a 2c 5a 5a 27 2c 54 44 4e 45 57 42 41 4c 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 ┆ = L P FMEL 'ZZZZZZZZZ,ZZ',TDNEWBAL ┆
0x60de…612e (62, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 01 56 00 4c 00 50 5c 46 4e 4c 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 ┆ = V L P FNL ┆
0x612e…617e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 00 16 00 4c 00 50 5c 46 54 45 58 54 5c 27 54 52 41 4e 53 46 45 52 20 54 4f 20 41 43 43 4f 55 4e 54 20 3a 20 20 27 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 ┆ > L P FTEXT 'TRANSFER TO ACCOUNT : ' ┆
0x617e…61ce 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 00 66 00 4c 00 50 5c 46 4b 49 5c 32 34 2c 4d 49 4e 4c 3d 36 2c 4d 41 58 4c 3d 36 2c 4e 55 4d 2c 4d 45 2c 41 50 50 4c 3d 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ > f L P FKI 24,MINL=6,MAXL=6,NUM,ME,APPL=00 ┆
0x61ce…621e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 00 b6 00 4c 00 50 5c 46 4d 45 4c 5c 27 5a 5a 5a 5a 5a 5a 27 2c 42 44 41 43 54 52 4e 52 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 ┆ > L P FMEL 'ZZZZZZ',BDACTRNR ┆
0x621e…626e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 01 06 00 4c 00 50 5c 46 4d 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 ┆ > L P FMEND ┆
0x626e…62be (63, 2, 106) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 01 56 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ > V L P END ┆
0x62be…62d8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3f 00 16 40 04 00 00 00 3f 00 66 ┆ ? @ ? f┆
0x62d8…62e0 (64, 1, 8) 20 04 00 00 00 40 00 04 ┆ @ ┆
0x62e0…6330 (65, 0, 400) 00 4c 00 50 44 45 34 36 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 00 00 00 00 00 00 00 00 00 00 00 11 00 04 ┆ L PDE460 ┆
0x6330…6380 00 4c 00 50 5c 43 42 45 5c 49 44 4e 52 31 2c 3d 44 27 32 27 2c 44 45 31 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 11 00 54 ┆ L P CBE IDNR1,=D'2',DE100 T┆
0x6380…63d0 00 4c 00 50 5c 41 44 44 5c 49 44 41 43 54 4e 52 31 2c 49 44 4e 52 31 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 11 00 a4 ┆ L P ADD IDACTNR1,IDNR1 ┆
0x63d0…6420 00 4c 00 50 2a 20 44 4f 4e 27 54 20 54 52 59 20 54 48 49 53 20 41 43 43 4f 55 4e 54 20 54 59 50 45 20 41 47 41 49 4e 00 00 00 00 00 00 00 00 00 00 00 00 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 11 00 f4 ┆ L P* DON'T TRY THIS ACCOUNT TYPE AGAIN * ┆
0x6420…6470 00 4c 00 50 5c 4d 4f 56 45 5c 49 44 4e 52 31 2c 3d 44 27 32 27 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 11 01 44 ┆ L P MOVE IDNR1,=D'2' D┆
0x6470…64c0 (66, 0, 400) 00 4c 00 50 5c 42 5c 44 45 34 34 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 00 00 00 00 00 00 00 00 00 00 00 12 00 04 ┆ L P B DE440 ┆
0x64c0…6510 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 00 00 00 00 00 00 00 00 00 2a 00 12 00 54 ┆ L P* * T┆
0x6510…6560 00 4c 00 50 2a 20 54 48 45 20 41 43 43 4f 55 4e 54 20 4e 55 4d 42 45 52 20 49 53 20 41 20 56 41 4c 49 44 20 4f 4e 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 2a 00 12 00 a4 ┆ L P* THE ACCOUNT NUMBER IS A VALID ONE * ┆
0x6560…65b0 00 4c 00 50 2a 20 4e 4f 57 20 52 45 41 44 20 54 48 45 20 41 43 43 4f 55 4e 54 20 52 45 43 4f 52 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 12 00 f4 ┆ L P* NOW READ THE ACCOUNT RECORD * ┆
0x65b0…6600 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 00 00 00 00 00 00 00 00 00 2a 00 12 01 44 ┆ L P* * D┆
0x6600…6650 (67, 0, 400) 00 4c 00 50 44 45 36 30 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 00 00 00 00 00 00 00 00 00 00 00 13 00 04 ┆ L PDE600 ┆
0x6650…66a0 00 4c 00 50 5c 4d 4f 56 45 5c 41 44 41 43 54 52 4e 52 2c 49 44 41 43 54 4e 52 31 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 13 00 54 ┆ L P MOVE ADACTRNR,IDACTNR1 T┆
0x66a0…66f0 00 4c 00 50 5c 4d 55 4c 5c 41 44 41 43 54 52 4e 52 2c 4b 44 53 48 49 46 54 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 13 00 a4 ┆ L P MUL ADACTRNR,KDSHIFT ┆
0x66f0…6740 00 4c 00 50 5c 4d 4f 56 45 5c 57 57 31 2c 3d 57 27 31 33 32 27 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 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 13 00 f4 ┆ L P MOVE WW1,=W'132' RECORD LENGTH ┆
0x6740…6790 00 4c 00 50 5c 4d 4f 56 45 5c 57 57 32 2c 3d 57 27 36 27 5c 58 43 4f 50 59 20 53 49 5a 45 20 50 41 52 41 4d 45 54 45 52 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 13 01 44 ┆ L P MOVE WW2,=W'6' XCOPY SIZE PARAMETER D┆
0x6790…67e0 (68, 0, 400) 00 4c 00 50 2a 20 47 45 54 20 53 59 4d 42 4f 4c 49 43 20 4b 45 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 14 00 04 ┆ L P* GET SYMBOLIC KEY * ┆
0x67e0…6830 00 4a 00 50 5c 58 43 4f 50 59 5c 57 44 45 43 31 2c 4b 57 30 2c 57 57 32 2c 41 44 41 43 54 52 4e 52 2c 4b 57 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 14 00 54 00 28 ┆ J P XCOPY WDEC1,KW0,WW2,ADACTRNR,KW0 T (┆
0x6830…6880 00 50 5c 52 45 41 44 5c 2e 49 58 44 49 52 2c 44 53 44 42 53 2c 46 43 42 55 46 46 45 52 2c 57 57 31 2c 4b 57 31 20 00 14 00 a2 00 4c 00 50 5c 42 4e 4f 4b 5c 44 45 38 30 30 5c 52 45 41 44 20 46 41 49 4c 45 44 2c 20 4e 45 58 54 5c 5c 00 00 00 ┆ P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW1 L P BNOK DE800 READ FAILED, NEXT ┆
0x6880…68d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 ce 00 4c 00 50 2a 20 4d 4f 56 45 20 52 45 43 4f 52 44 20 54 4f 20 55 57 42 3a 20 55 41 31 00 00 00 00 00 00 00 00 00 ┆ L P* MOVE RECORD TO UWB: UA1 ┆
0x68d0…6920 00 00 00 00 00 00 00 00 00 00 00 00 00 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 14 01 1e 00 4c 00 50 5c 50 45 52 46 5c 5a 59 52 4c 4e 47 2c 41 44 41 43 54 52 4e 52 5c 41 43 54 2e 20 52 45 43 2e 20 4c 45 ┆ * L P PERF ZYRLNG,ADACTRNR ACT. REC. LE┆