|
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: 26994 (0x6972)
Notes: pts_type(SC)
Names: »DNTRF.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/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
CBE RDPRTTYP,=D'3',DN705
CBG RDPRTTYP,=D'1',DN999
DN705
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=» CBE RDPRTTYP,=D'3',DN705 «, t00=0x0017, t01=0x001c}
0x242a…244c Head {h00=0x001e, h01=0x0050, text=» CBG RDPRTTYP,=D'1',DN999 «, t00=0x0017, t01=0x003e}
0x244c…245a Head {h00=0x000a, h01=0x0050, text=»DN705 «, t00=0x0017, t01=0x0060}
0x245a…2476 Head {h00=0x0018, h01=0x0050, text=» TBT SBCHQACT,DN710 «, t00=0x0017, t01=0x006e}
0x2476…24b6 Head {h00=0x003c, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK «, t00=0x0017, t01=0x008a}
0x24b6…24d2 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,DN999 «, t00=0x0017, t01=0x00ca}
0x24d2…24e6 Head {h00=0x0010, h01=0x0050, text=» PERF PBBOOK«, t00=0x0017, t01=0x00e6}
0x24e6…24f6 Head {h00=0x000c, h01=0x0050, text=» B DN999«, t00=0x0017, t01=0x00fa}
0x24f6…2504 Head {h00=0x000a, h01=0x0050, text=»DN710 «, t00=0x0017, t01=0x010a}
0x2504…251e Head {h00=0x0016, h01=0x0050, text=» PERF PCVCH,=W'2' «, t00=0x0017, t01=0x0118}
0x251e…256e Head {h00=0x004c, h01=0x0050, text=»DN999 «, t00=0x0017, t01=0x0132}
0x256e…25be Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0017, t01=0x0182}
0x25be…260e Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0042}
0x260e…265e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x0092}
0x265e…26ae Head {h00=0x004c, h01=0x0050, text=»SPAP19 PROC XWRET «, t00=0x0018, t01=0x00e2}
0x26ae…26c2 Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x0018, t01=0x0132}
0x26c2…2712 Head {h00=0x004c, h01=0x0050, text=»S19000 «, t00=0x0018, t01=0x0146}
0x2712…271c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x271c…2744 Head {h00=0x0024, h01=0x0050, text=»* RELEASE EXCLUSIVE ACCES FIRST «, t00=0x0019, t01=0x0012}
0x2744…274e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003a}
0x274e…2762 Head {h00=0x0010, h01=0x0050, text=» PERF ZGREA «, t00=0x0019, t01=0x0044}
0x2762…276c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0058}
0x276c…27a8 Head {h00=0x0038, h01=0x0050, text=»* THE VALUES OF SPBINW2 AND SPINPUT ARE DESTROYED BY«, t00=0x0019, t01=0x0062}
0x27a8…27e8 Head {h00=0x003c, h01=0x0050, text=»* THE KI-INSTRUCTIONS IN PBBOOK OR DKDSTM, SO SAVE THEM «, t00=0x0019, t01=0x009e}
0x27e8…280e Head {h00=0x0022, h01=0x0050, text=»* SPBINW2 IS SAVED IN IWINDEX1«, t00=0x0019, t01=0x00de}
0x280e…283c Head {h00=0x002a, h01=0x0050, text=»* SPINPUT IS ALREADY SAVED IN IDACTNR1«, t00=0x0019, t01=0x0104}
0x283c…2846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0132}
0x2846…2864 Head {h00=0x001a, h01=0x0050, text=» MOVE IWINDEX1,SPBINW2«, t00=0x0019, t01=0x013c}
0x2864…28b4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x015a}
0x28b4…2904 Head {h00=0x004c, h01=0x0050, text=»* ACCOUNTRECORD IN RANGE ? *«, t00=0x001a, t01=0x001a}
0x2904…2954 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x006a}
0x2954…29a4 Head {h00=0x004c, h01=0x0050, text=» CBL IDACTNR1,=D'168000',S19100 «, t00=0x001a, t01=0x00ba}
0x29a4…29f4 Head {h00=0x004c, h01=0x0050, text=» CBG IDACTNR1,=D'168999',S19100 «, t00=0x001a, t01=0x010a}
0x29f4…2a44 Head {h00=0x004c, h01=0x0050, text=» B S19300 «, t00=0x001a, t01=0x015a}
0x2a44…2a94 Head {h00=0x004c, h01=0x0050, text=»S19100 «, t00=0x001b, t01=0x001a}
0x2a94…2ae4 Head {h00=0x004c, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x001b, t01=0x006a}
0x2ae4…2b34 Head {h00=0x004c, h01=0x0050, text=» MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE' «, t00=0x001b, t01=0x00ba}
0x2b34…2b84 Head {h00=0x004c, h01=0x0050, text=» B S19999 «, t00=0x001b, t01=0x010a}
0x2b84…2b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015a}
0x2b8e…2bc4 Head {h00=0x0032, h01=0x0050, text=»* READ ACCOUNT(FROM)-RECORD VIA INDEXFILE01 «, t00=0x001b, t01=0x0164}
0x2bc4…2bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000a}
0x2bce…2bdc Head {h00=0x000a, h01=0x0050, text=»S19300«, t00=0x001c, t01=0x0014}
0x2bdc…2be0 Head {h00=0x0054, h01=0x0050}
0x2be0…2be4 Head {h00=0x5c4d, h01=0x4f56}
0x2be4…2c10 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 ┆E ADACTRNR,IDACTNR1 ┆
0x2c10…2c60 00 00 00 00 00 00 00 00 00 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 22 00 54 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 ┆ " T P MUL ADACTRNR,KDSHIFT ┆
0x2c60…2cb0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 7a 00 24 00 50 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 ┆ z $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 ┆
0x2cb0…2d00 00 1c 00 d2 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 00 00 00 00 00 00 00 00 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 TBT SBCANCEL,S19999 ┆
0x2d00…2d4e 00 00 00 00 00 00 00 00 00 1c 00 fa 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 52 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 ┆ P TBF SBRECAVB,S19950 R L P* ┆
0x2d4e…2d9e (29, 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 2a 00 1c 01 6e 00 4c 00 50 2a 20 20 20 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 ┆ * n L P* ACCOUNTRECORD NOT CLOSED ? ┆
0x2d9e…2dee 00 00 00 00 00 00 00 00 00 00 00 00 00 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 2e 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 ┆ * . L P* ┆
0x2dee…2e3e 00 00 00 00 00 00 00 00 00 00 00 00 00 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 7e 00 4c 00 50 5c 43 42 45 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 ┆ * ~ L P CBE ADSTATUS,=D'2',S19950 ┆
0x2e3e…2e8e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ce 00 4c 00 50 5c 43 42 45 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 ┆ L P CBE ADSTATUS,=D'3',S19950 ┆
0x2e8e…2ede 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1e 00 4c 00 50 53 31 39 34 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 ┆ L PS19400 ┆
0x2ede…2f2e (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 1d 01 6e 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 ┆ n L P* ┆
0x2f2e…2f7e 00 00 00 00 00 00 00 00 00 00 00 00 00 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 2e 00 4c 00 50 2a 20 20 20 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 ┆ * . L P* STATUS DEBLOCKED ? ┆
0x2f7e…2fce 00 00 00 00 00 00 00 00 00 00 00 00 00 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 7e 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 ┆ * ~ L P* ┆
0x2fce…301e 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ce 00 4c 00 50 5c 43 42 45 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 ┆ * L P CBE ADSTATUS,=D'0',S19900 ┆
0x301e…306e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1e 00 4c 00 50 5c 4d 4f 56 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 ┆ L P MOVE XWRET,=W'1' ┆
0x306e…30be (31, 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 1e 01 6e 00 4c 00 50 5c 4d 4f 56 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 ┆ n L P MOVE SPBINW4,=W'28' 'ACCOUNT BLOC┆
0x30be…310e 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 1f 00 2e 00 4c 00 50 5c 42 5c 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 00 00 00 00 00 ┆KED' . L P B S19999 ┆
0x310e…315e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 7e 00 4c 00 50 53 31 39 39 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 ┆ ~ L PS19900 ┆
0x315e…31ae 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ce 00 1a 00 50 5c 50 45 52 46 5c 51 47 41 54 59 50 2c 49 44 41 43 54 4e 52 31 20 00 1f 01 1e 00 4c 00 50 2a 00 00 00 ┆ P PERF QGATYP,IDACTNR1 L P* ┆
0x31ae…31fe 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 1f 01 3c 00 4c 00 50 2a 20 20 20 ┆ * < L P* ┆
0x31fe…324e (32, 0, 400) 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 1f 01 8c 00 4c 00 50 2a 00 00 00 ┆SPACE FOR TRANSACTIONRECORD? * L P* ┆
0x324e…329e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 00 4c 00 54 00 50 5c 4d 4f 56 ┆ * L T P MOV┆
0x329e…32ee 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 00 00 00 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 9c ┆E WDEC1,ADLASTRS ┆
0x32ee…333e 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 00 00 00 00 00 00 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 PERF QENTRS,WDEC1 ┆
0x333e…338e 00 00 00 00 00 20 00 f4 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 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 ┆ T P CBNE ADSTMTRS,WDEC1,S19910 SPACE AVAILABLE ┆
0x338e…33de (33, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 20 01 4c 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 ┆ L L P* ┆
0x33de…342e 00 00 00 00 00 00 00 00 00 00 00 2a 00 21 00 14 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 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 ┆ * ! L P* NO SPACE AVAILABLE FOR TRANSACTIONRECORDS ┆
0x342e…347e 00 00 00 00 00 00 00 00 00 00 00 2a 00 21 00 64 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 ┆ * ! d L P* ┆
0x347e…34ce 00 00 00 00 00 00 00 00 00 00 00 2a 00 21 00 b4 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 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 ┆ * ! T P CBE RDPRTTYP,=D'2',S19940 NO SUITABLE PRINTER ┆
0x34ce…351e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 01 04 00 1e 00 50 5c 43 42 45 5c 52 44 50 52 54 54 59 50 2c 3d 44 27 34 27 2c 53 31 39 39 30 35 00 21 01 5c 00 54 00 50 5c 54 42 54 5c 53 42 43 48 51 41 43 54 2c 53 31 39 39 ┆ ! P CBE RDPRTTYP,=D'4',S19905 ! T P TBT SBCHQACT,S199┆
0x351e…356e (34, 0, 400) 30 35 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 21 01 7e 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 ┆05 ! ~ L P* ┆
0x356e…35be 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 46 00 4c 00 50 2a 20 20 53 41 56 49 4e 47 53 ┆ * " F L P* SAVINGS┆
0x35be…360e 20 41 43 43 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 96 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 ┆ ACCOUNT, PRINT UNSTATEMENTED TRANSACTIONS * " L P* ┆
0x360e…365e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 e6 00 10 00 50 5c 50 45 52 46 5c 50 42 42 4f ┆ * " P PERF PBBO┆
0x365e…36ae 4f 4b 00 22 01 36 00 0e 00 50 5c 42 5c 53 31 39 39 30 38 20 00 22 01 4a 00 0a 00 50 53 31 39 39 30 35 00 22 01 5c 00 10 00 50 5c 50 45 52 46 5c 44 4b 44 53 54 4d 00 22 01 6a 00 0a 00 50 53 31 39 39 30 38 00 22 01 7e 00 18 00 50 5c 54 42 54 ┆OK " 6 P B S19908 " J PS19905 " P PERF DKDSTM " j PS19908 " ~ P TBT┆
0x36ae…36fe (35, 0, 398) 5c 53 42 43 41 4e 43 45 4c 2c 53 31 39 39 39 39 00 22 01 8c 00 06 00 50 2a 20 00 23 00 18 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 ┆ SBCANCEL,S19999 " P* # @ P* THE ACCOUNT RECORD HAS BEEN REWRITTEN BY PBB┆
0x36fe…374e 4f 4f 4b 20 4f 52 20 44 4b 44 53 54 4d 20 00 23 00 22 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 66 00 06 00 50 2a 20 00 23 00 98 00 24 ┆OOK OR DKDSTM # " . P* SO READ IT AGAIN TO GET EXCLUSIVE ACCESS # f P* # $┆
0x374e…379e 00 50 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 23 00 a2 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 ca 00 54 00 50 53 31 39 39 31 30 5c 5c 5c 5c ┆ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 # P TBT SBCANCEL,S19999 # T PS19910 ┆
0x379e…37ee 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 00 23 00 e6 00 1e 00 50 5c 43 ┆ # P C┆
0x37ee…383c 42 4c 5c 52 44 53 43 52 4c 4e 53 2c 3d 44 27 34 27 2c 53 31 39 39 33 30 00 23 01 3e 00 14 00 50 5c 45 52 41 53 45 5c 30 2c 4b 57 32 2c 4b 57 32 00 23 01 60 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 78 ┆BL RDSCRLNS,=D'4',S19930 # > P ERASE 0,KW2,KW2 # ` P DISPLAY 4,KW2,KW2 # x┆
0x383c…388c (36, 0, 400) 00 18 00 50 5c 4d 4f 56 45 5c 54 44 4e 45 57 42 41 4c 2c 3d 44 27 30 27 00 24 00 04 00 14 00 50 5c 45 52 41 53 45 5c 30 2c 4b 57 34 2c 4b 57 34 00 24 00 20 00 16 00 50 5c 44 49 53 50 4c 41 59 5c 34 2c 4b 57 34 2c 4b 57 34 00 24 00 38 00 18 ┆ P MOVE TDNEWBAL,=D'0' $ P ERASE 0,KW4,KW4 $ P DISPLAY 4,KW4,KW4 $ 8 ┆
0x388c…38dc 00 50 5c 54 42 54 5c 53 42 43 48 51 41 43 54 2c 53 31 39 39 32 30 00 24 00 52 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 ┆ P TBT SBCHQACT,S19920 $ R L P* SAVINGS-ACCOUNT ┆
0x38dc…392c 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 6e 00 14 00 50 5c 45 52 41 53 45 5c 32 2c 4b 57 32 2c 4b 57 35 00 24 00 be 00 0e 00 50 5c 42 5c 53 31 39 39 33 30 20 00 24 00 d6 00 4c 00 50 2a 20 43 48 45 51 55 45 ┆ * $ n P ERASE 2,KW2,KW5 $ P B S19930 $ L P* CHEQUE┆
0x392c…397c 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 24 00 e8 00 0a 00 50 53 31 39 39 32 30 00 24 ┆-ACCOUNT * $ PS19920 $┆
0x397c…39cc 01 38 00 14 00 50 5c 45 52 41 53 45 5c 32 2c 4b 57 32 2c 4b 57 33 00 24 01 46 00 0a 00 50 53 31 39 39 33 30 00 24 01 5e 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 6c 00 0e 00 50 5c 42 5c 53 31 39 39 39 39 20 ┆ 8 P ERASE 2,KW2,KW3 $ F PS19930 $ ^ P MOVE XWRET,=W'0' $ l P B S19999 ┆
0x39cc…3a1c (37, 0, 400) 00 24 01 86 00 54 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 ┆ $ T PS19940 ┆
0x3a1c…3a6c 00 00 00 00 00 00 00 00 00 25 00 08 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 60 00 54 00 50 5c 4d 4f 56 45 5c 58 57 ┆ % 4 P MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' % ` T P MOVE XW┆
0x3a6c…3abc 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 00 00 00 00 00 00 00 00 25 00 98 00 54 00 50 ┆RET,=W'1' % T P┆
0x3abc…3b0c 5c 42 5c 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 S19999 ┆
0x3b0c…3b5c 00 25 00 f0 00 0a 00 50 53 31 39 39 35 30 00 25 01 48 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 56 00 16 00 50 5c 4d 4f 56 45 5c 58 57 ┆ % PS19950 % H . P MOVE SPBINW4,=W'29' 'RECORD KEY INVALID' % V P MOVE XW┆
0x3b5c…3b60 (38, 0, 400) 52 45 54 2c ┆RET,┆
0x3b60…3bb0 3d 57 27 31 27 20 00 25 01 88 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 ┆=W'1' % L PS19999 ┆
0x3bb0…3be4 00 00 00 00 00 00 00 26 00 12 00 06 00 50 2a 20 00 26 00 62 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 ┆ & P* & b " P* RESTORE SPBINW2 AND SPINPU┆
0x3be4…5972 […elided…]
0x5972…59b0 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 ┆ L P FMEL 'ZZZZZZ',ADATRNR ┆
0x59b0…5a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 00 6a 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 ┆ 9 j L P FB F04520 ┆
0x5a00…5a50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 00 ba 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 ┆ 9 L PF04510 ┆
0x5a50…5a9c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 01 0a 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 ┆ 9 L P FMEL '999999',ADACTRNR ┆
0x5a9c…5aec (58, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 39 01 5a 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 ┆ 9 Z L PF04520 ┆
0x5aec…5b3c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 1a 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 ┆ : L P FNL ┆
0x5b3c…5b8c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 6a 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 ┆ : j L P FBT SBCHQACT,F04530 ┆
0x5b8c…5bdc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 ba 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 ┆ : L P FTEXT 'BOOK BALANCE: ' ┆
0x5bdc…5c2c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 01 0a 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 ┆ : L P FKI 15,MINL=1,MAXL=11,NUM,ME,APPL=10 ┆
0x5c2c…5c7c (59, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 01 5a 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 ┆ : Z L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 ┆
0x5c7c…5ccc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 00 1a 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 ┆ ; L P FTEXT ' LINE: ' ┆
0x5ccc…5d1c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 00 6a 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 ┆ ; j L P FKI 35,MINL=1,MAXL=2,NUM,ME,APPL=11 ┆
0x5d1c…5d6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 00 ba 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 ┆ ; L P FMEL 'ZZ',IDNR1 ┆
0x5d6c…5dbc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 01 0a 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 ┆ ; L P FB F04540 ┆
0x5dbc…5e0c (60, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3b 01 5a 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 ┆ ; Z L PF04530 ┆
0x5e0c…5e5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 1a 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 ┆ < L P FTEXT 'CREDIT LIMIT : ' ┆
0x5e5c…5eac 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 6a 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 ┆ < j L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK ┆
0x5eac…5efc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 ba 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 ┆ < L PF04540 ┆
0x5efc…5f4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 01 0a 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 ┆ < L P FNL ┆
0x5f4c…5f9c (61, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 01 5a 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 ┆ < Z L P FTEXT 'AMOUNT : ' ┆
0x5f9c…5fec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 00 1a 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 ┆ = L P FKI 24,MINL=1,MAXL=11,NUM,ME,APPL=14 ┆
0x5fec…603c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 00 6a 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 ┆ = j L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT ┆
0x603c…608c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 00 ba 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 ┆ = L P FNL ┆
0x608c…60dc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 01 0a 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 ┆ = L P FTEXT 'NEW BALANCE : ' ┆
0x60dc…612c (62, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3d 01 5a 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 ┆ = Z L P FMEL 'ZZZZZZZZZ,ZZ',TDNEWBAL ┆
0x612c…617c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 00 1a 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 ┆ > L P FNL ┆
0x617c…61cc 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 00 6a 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 ┆ > j L P FTEXT 'TRANSFER TO ACCOUNT : ' ┆
0x61cc…621c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 00 ba 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 ┆ > L P FKI 24,MINL=6,MAXL=6,NUM,ME,APPL=00 ┆
0x621c…626c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 01 0a 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 ┆ > L P FMEL 'ZZZZZZ',BDACTRNR ┆
0x626c…62bc (63, 2, 190) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3e 01 5a 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 ┆ > Z L P FMEND ┆
0x62bc…630c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3f 00 1a 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 ┆ ? L P END ┆
0x630c…632a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3f 00 6a 40 04 00 00 00 3f 00 ba ┆ ? j@ ? ┆
0x632a…6332 (64, 1, 8) 20 04 00 00 00 40 00 04 ┆ @ ┆
0x6332…6382 (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 ┆
0x6382…63d2 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┆
0x63d2…6422 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 ┆
0x6422…6472 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 * ┆
0x6472…64c2 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┆
0x64c2…6512 (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 ┆
0x6512…6562 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┆
0x6562…65b2 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 * ┆
0x65b2…6602 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 * ┆
0x6602…6652 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┆
0x6652…66a2 (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 ┆
0x66a2…66f2 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┆
0x66f2…6742 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 ┆
0x6742…6792 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 ┆
0x6792…67e2 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┆
0x67e2…6832 (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 * ┆
0x6832…6882 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 (┆
0x6882…68d2 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 ┆
0x68d2…6922 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ┆
0x6922…6972 00 00 00 00 00 00 00 00 00 00 00 00 00 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┆