|
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: 13694 (0x357e)
Notes: pts_type(SC)
Names: »DELACT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DELACT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DELACT.SC«
IDENT DELACT LIST ACCOUNTS
DDUM DEMODD
PDIV
EXPROC PAJRN
EXPROC QAFNKY
EXPROC QGATYP
EXPROC XAKBIN
EXPROC XCLAMP
EXPROC XHERAS
EXPROC ZMRDF
EXPROC ZYRLNG
EXPROC QEMOVE
ENTRY DELACT
************************************************************************
* *
* LIST ACCOUNTS*
* *
************************************************************************
DELACT PROC
DE000
SET SBLACT
PERF XHERAS ERASE SCREEN
MOVE TDTRSCDE,=D'30'
PERF PAJRN,=W'1' PRINT FUNCTION IDENTIFICATION
**
* ISSUE AN INITIAL KEYBOARD INPUT (NOWAIT)*
* SPBINW2 WILL POINT INTO THE KEYTABLE*
* TO THE ANSWER GIVEN BY THE OPERATOR*
**
SET SBNOWAIT
PERF XAKBIN,=W'0'
**
* START LISTING AT FIRST ACCOUNT*
* IDACTNR1 WILL CONTAIN THE ACCOUNT TO BE LISTED*
* IDNR1 WILL CONTAIN THE INCREMENT USED TO GET THE*
* NEXT ACCOUNT NUMBER (INITIALLY 1)*
**
DE100
MOVE IDACTNR1,=D'167999'
MOVE IDNR1,=D'1'
MOVE WW1,=W'55'
PERF ZMRDF,WW1,KW0 READ FORMAT INTO FCFORMAT
EDWRT SPDSSCRN,FCFORMAT DISPLAY HEADING
**
* GET THE NEXT ACCOUNT TO BE DISPLAYED*
* *
DE200
**
* FIRST TEST FOR COMPLETION OF THE ISSUED KEYBOARD INPUT*
**
TESTIO SPDSDYKB
BNOK DE400
**
* KI IS COMPLETED, CHECK ANSWER *
* *
*
* IF I/O WAS UNSUCCESSFULL ISSUE A NEW KI-NOWAIT
*
WAIT SPDSDYKB
BNOK DE350
PERF QAFNKY,SPBINW2,KW0,KWAPLKTB
CBE SPBINW2,KWCANCEL,DE980 CANCEL
CBE SPBINW2,KWCONT,DE900 CONTINUE
CBNE SPBINW2,KWEND,DE350 INVALID ANSWER, GO ON
* STOP HAS BEEN DEPRESSED*
DE340
PERF XAKBIN,=W'0' ASK FOR NEW ANSWER
CBE SPBINW2,KWCANCEL,DE980 CANCEL
CBE SPBINW2,KWCONT,DE900 CONTINUE
CBNE SPBINW2,KWSTART,DE340 INVALID ANSWER, ASK AGAIN
* START HAS BEEN DEPRESSED*
DE350
SET SBNOWAIT
PERF XAKBIN,=W'0'
* *
* CALCULATE NEXT ACCOUNT NUMBER*
* *
DE400
ADD IDACTNR1,IDNR1
DE440
* SET SBCHQACT ACCORDING TO THE ACCOUNT TYPE*
PERF QGATYP,IDACTNR1
TBT SBCHQACT,DE450
* SAVINGS ACCOUNT*
CBNG IDACTNR1,YDLASSAV,DE600 VALID ACCOUNT NUMBER
B DE460
* CHEQUE ACCOUNT*
DE450
CBNG IDACTNR1,YDLASCHQ,DE600 VALID ACCOUNT NUMBER
**
* ACCOUNT NUMBER IS NOT VALID*
* IF INCREMENT IS ALREADY 2, THEN RESTART LISTING*
* OTHERWISE TRY THE OTHER TYPE OF ACCOUNT*
* *
DE460
CBE IDNR1,=D'2',DE100
ADD IDACTNR1,IDNR1
* DON'T TRY THIS ACCOUNT TYPE AGAIN*
MOVE IDNR1,=D'2'
B DE440
**
* THE ACCOUNT NUMBER IS A VALID ONE*
* NOW READ THE ACCOUNT RECORD*
**
DE600
MOVE ADACTRNR,IDACTNR1
MUL ADACTRNR,KDSHIFT
MOVE WW1,=W'132' RECORD LENGTH
MOVE WW2,=W'6' XCOPY SIZE PARAMETER
* GET SYMBOLIC KEY*
XCOPY FCBUFFER,KW0,WW2,ADACTRNR,KW0
READ .IXDIR,DSDBS,FCBUFFER,WW1,KW1
BNOK DE800 READ FAILED, NEXT
* MOVE RECORD TO UWB: UA1*
PERF ZYRLNG,ADACTRNR ACT. REC. LENGTH IN NWRECLNG
CALL QEMOVE,ADACTRNR,FCBUFFER,NWRECLNG
CBG ADSTATUS,=D'1',DE800 ACCOUNT CLOSED
**
* DISPLAY ACCOUNT*
**
DE700
EDWRT SPDSSCRN,FMTLACT ACCOUNT LINE
DE800
B DE200 NEXT ACCOUNT
DE900
ADD YDLASSEQ,=D'1'
MOVE TDTRSSEQ,YDLASSEQ
B DE999
*
* CANCEL EXIT
*
DE980
SET SBCANCEL
DE999
CLEAR SBLACT
RET
PEND
************************************************************************
* *
* LIST ACCOUNTS, ACCOUNT LINE (DELACT)*
* *
************************************************************************
FMTLACT FRMT
FNL
FMEL '999999',IDACTNR1
FTAB 8
FMEL '9999',ADCARDNR
FTAB 13
FCOPY ACNAME
FTAB 34
FMEL 'ZZZVZZZVZZ9,99',ADDEPCUM
FTAB 49
FMEL 'ZZZVZZZVZZ9,99',ADWDRCUM
FTAB 64
FMEL '9',ADSTATUS
FMEND
************************************************************************
END
0x0000…0034 (0, 0, 398) Head {h00=0x0030, h01=0x0050, text=» IDENT DELACT LIST ACCOUNTS «, 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…0128 Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x00d8}
0x0128…013e Head {h00=0x0012, h01=0x0050, text=» EXPROC QAFNKY«, t00=0x0000, t01=0x012c}
0x013e…0192 Head {h00=0x0050, h01=0x0050, text=» EXPROC QGATYP «, t00=0x0000, t01=0x0142}
0x0192…01e6 Head {h00=0x0050, h01=0x0050, text=» EXPROC XAKBIN «, t00=0x0001, t01=0x0008}
0x01e6…023a Head {h00=0x0050, h01=0x0050, text=» EXPROC XCLAMP «, t00=0x0001, t01=0x005c}
0x023a…025c Head {h00=0x001e, h01=0x0050, text=» EXPROC XHERAS«, t00=0x0001, t01=0x00b0}
0x025c…02b0 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZMRDF «, t00=0x0001, t01=0x00d2}
0x02b0…0304 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZYRLNG «, t00=0x0001, t01=0x0126}
0x0304…0358 Head {h00=0x0050, h01=0x0050, text=» EXPROC QEMOVE «, t00=0x0001, t01=0x017a}
0x0358…036e Head {h00=0x0012, h01=0x0050, text=» ENTRY DELACT «, t00=0x0002, t01=0x003e}
0x036e…03be Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0054}
0x03be…040e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x00a4}
0x040e…045e Head {h00=0x004c, h01=0x0050, text=»* LIST ACCOUNTS *«, t00=0x0002, t01=0x00f4}
0x045e…04ae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0144}
0x04ae…04fe (3, 0, 400) Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x0004}
0x04fe…054e Head {h00=0x004c, h01=0x0050, text=»DELACT PROC «, t00=0x0003, t01=0x0054}
0x054e…059e Head {h00=0x004c, h01=0x0050, text=»DE000 «, t00=0x0003, t01=0x00a4}
0x059e…05ee Head {h00=0x004c, h01=0x0050, text=» SET SBLACT «, t00=0x0003, t01=0x00f4}
0x05ee…062a Head {h00=0x0038, h01=0x0050, text=» PERF XHERAS ERASE SCREEN«, t00=0x0003, t01=0x0144}
0x062a…067a Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'30' «, t00=0x0003, t01=0x0180}
0x067a…06ca Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'1' PRINT FUNCTION IDENTIFICATION «, t00=0x0004, t01=0x0040}
0x06ca…071a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0090}
0x071a…076a Head {h00=0x004c, h01=0x0050, text=»* ISSUE AN INITIAL KEYBOARD INPUT (NOWAIT) *«, t00=0x0004, t01=0x00e0}
0x076a…07ba Head {h00=0x004c, h01=0x0050, text=»* SPBINW2 WILL POINT INTO THE KEYTABLE * «, t00=0x0004, t01=0x0130}
0x07ba…080a Head {h00=0x004c, h01=0x0050, text=»* TO THE ANSWER GIVEN BY THE OPERATOR *«, t00=0x0004, t01=0x0180}
0x080a…085a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0040}
0x085a…0870 Head {h00=0x0012, h01=0x0050, text=» SET SBNOWAIT «, t00=0x0005, t01=0x0090}
0x0870…088a Head {h00=0x0016, h01=0x0050, text=» PERF XAKBIN,=W'0'«, t00=0x0005, t01=0x00a6}
0x088a…08da Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00c0}
0x08da…092a Head {h00=0x004c, h01=0x0050, text=»* START LISTING AT FIRST ACCOUNT *«, t00=0x0005, t01=0x0110}
0x092a…097a Head {h00=0x004c, h01=0x0050, text=»* IDACTNR1 WILL CONTAIN THE ACCOUNT TO BE LISTED *«, t00=0x0005, t01=0x0160}
0x097a…09ca Head {h00=0x004c, h01=0x0050, text=»* IDNR1 WILL CONTAIN THE INCREMENT USED TO GET THE *«, t00=0x0006, t01=0x0020}
0x09ca…0a1a Head {h00=0x004c, h01=0x0050, text=»* NEXT ACCOUNT NUMBER (INITIALLY 1) *«, t00=0x0006, t01=0x0070}
0x0a1a…0a6a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x00c0}
0x0a6a…0aba Head {h00=0x004c, h01=0x0050, text=»DE100 «, t00=0x0006, t01=0x0110}
0x0aba…0b0a Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR1,=D'167999' «, t00=0x0006, t01=0x0160}
0x0b0a…0b5a Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR1,=D'1' «, t00=0x0007, t01=0x0020}
0x0b5a…0baa Head {h00=0x004c, h01=0x0050, text=» MOVE WW1,=W'55' «, t00=0x0007, t01=0x0070}
0x0baa…0bfa Head {h00=0x004c, h01=0x0050, text=» PERF ZMRDF,WW1,KW0 READ FORMAT INTO FCFORMAT «, t00=0x0007, t01=0x00c0}
0x0bfa…0c4a Head {h00=0x004c, h01=0x0050, text=» EDWRT SPDSSCRN,FCFORMAT DISPLAY HEADING «, t00=0x0007, t01=0x0110}
0x0c4a…0c9a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0160}
0x0c9a…0cea Head {h00=0x004c, h01=0x0050, text=»* GET THE NEXT ACCOUNT TO BE DISPLAYED *«, t00=0x0008, t01=0x0020}
0x0cea…0d3a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0070}
0x0d3a…0d8a Head {h00=0x004c, h01=0x0050, text=»DE200 «, t00=0x0008, t01=0x00c0}
0x0d8a…0dda Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0110}
0x0dda…0e2a Head {h00=0x004c, h01=0x0050, text=»* FIRST TEST FOR COMPLETION OF THE ISSUED KEYBOARD INPUT *«, t00=0x0008, t01=0x0160}
0x0e2a…0e7a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0020}
0x0e7a…0eca Head {h00=0x004c, h01=0x0050, text=» TESTIO SPDSDYKB «, t00=0x0009, t01=0x0070}
0x0eca…0f1a Head {h00=0x004c, h01=0x0050, text=» BNOK DE400 «, t00=0x0009, t01=0x00c0}
0x0f1a…0f6a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0110}
0x0f6a…0fba Head {h00=0x004c, h01=0x0050, text=»* KI IS COMPLETED, CHECK ANSWER *«, t00=0x0009, t01=0x0160}
0x0fba…100a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0020}
0x100a…1014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0070}
0x1014…104c Head {h00=0x0034, h01=0x0050, text=»* IF I/O WAS UNSUCCESSFULL ISSUE A NEW KI-NOWAIT«, t00=0x000a, t01=0x007a}
0x104c…1056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b2}
0x1056…106c Head {h00=0x0012, h01=0x0050, text=» WAIT SPDSDYKB«, t00=0x000a, t01=0x00bc}
0x106c…1080 Head {h00=0x0010, h01=0x0050, text=» BNOK DE350 «, t00=0x000a, t01=0x00d2}
0x1080…10aa Head {h00=0x0026, h01=0x0050, text=» PERF QAFNKY,SPBINW2,KW0,KWAPLKTB «, t00=0x000a, t01=0x00e6}
0x10aa…10fc Head {h00=0x004e, h01=0x0050, text=» CBE SPBINW2,KWCANCEL,DE980 CANCEL «, t00=0x000a, t01=0x0110}
0x10fc…114c Head {h00=0x004c, h01=0x0050, text=» CBE SPBINW2,KWCONT,DE900 CONTINUE «, t00=0x000a, t01=0x0162}
0x114c…119c Head {h00=0x004c, h01=0x0050, text=» CBNE SPBINW2,KWEND,DE350 INVALID ANSWER, GO ON «, t00=0x000b, t01=0x0022}
0x119c…11ec Head {h00=0x004c, h01=0x0050, text=»* STOP HAS BEEN DEPRESSED *«, t00=0x000b, t01=0x0072}
0x11ec…123c Head {h00=0x004c, h01=0x0050, text=»DE340 «, t00=0x000b, t01=0x00c2}
0x123c…128c Head {h00=0x004c, h01=0x0050, text=» PERF XAKBIN,=W'0' ASK FOR NEW ANSWER «, t00=0x000b, t01=0x0112}
0x128c…12de Head {h00=0x004e, h01=0x0050, text=» CBE SPBINW2,KWCANCEL,DE980 CANCEL «, t00=0x000b, t01=0x0162}
0x12de…132e Head {h00=0x004c, h01=0x0050, text=» CBE SPBINW2,KWCONT,DE900 CONTINUE «, t00=0x000c, t01=0x0024}
0x132e…137e Head {h00=0x004c, h01=0x0050, text=» CBNE SPBINW2,KWSTART,DE340 INVALID ANSWER, ASK AGAIN «, t00=0x000c, t01=0x0074}
0x137e…13ce Head {h00=0x004c, h01=0x0050, text=»* START HAS BEEN DEPRESSED *«, t00=0x000c, t01=0x00c4}
0x13ce…141e Head {h00=0x004c, h01=0x0050, text=»DE350 «, t00=0x000c, t01=0x0114}
0x141e…1434 Head {h00=0x0012, h01=0x0050, text=» SET SBNOWAIT «, t00=0x000c, t01=0x0164}
0x1434…144e Head {h00=0x0016, h01=0x0050, text=» PERF XAKBIN,=W'0'«, t00=0x000c, t01=0x017a}
0x144e…149e (13, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0004}
0x149e…14ee Head {h00=0x004c, h01=0x0050, text=»* CALCULATE NEXT ACCOUNT NUMBER *«, t00=0x000d, t01=0x0054}
0x14ee…153e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00a4}
0x153e…158e Head {h00=0x004c, h01=0x0050, text=»DE400 «, t00=0x000d, t01=0x00f4}
0x158e…15de Head {h00=0x004c, h01=0x0050, text=» ADD IDACTNR1,IDNR1 «, t00=0x000d, t01=0x0144}
0x15de…162e (14, 0, 400) Head {h00=0x004c, h01=0x0050, text=»DE440 «, t00=0x000e, t01=0x0004}
0x162e…167e Head {h00=0x004c, h01=0x0050, text=»* SET SBCHQACT ACCORDING TO THE ACCOUNT TYPE * «, t00=0x000e, t01=0x0054}
0x167e…16ce Head {h00=0x004c, h01=0x0050, text=» PERF QGATYP,IDACTNR1 «, t00=0x000e, t01=0x00a4}
0x16ce…171e Head {h00=0x004c, h01=0x0050, text=» TBT SBCHQACT,DE450 «, t00=0x000e, t01=0x00f4}
0x171e…176e Head {h00=0x004c, h01=0x0050, text=»* SAVINGS ACCOUNT *«, t00=0x000e, t01=0x0144}
0x176e…17be (15, 0, 400) Head {h00=0x004c, h01=0x0050, text=» CBNG IDACTNR1,YDLASSAV,DE600 VALID ACCOUNT NUMBER «, t00=0x000f, t01=0x0004}
0x17be…180e Head {h00=0x004c, h01=0x0050, text=» B DE460 «, t00=0x000f, t01=0x0054}
0x180e…185e Head {h00=0x004c, h01=0x0050, text=»* CHEQUE ACCOUNT *«, t00=0x000f, t01=0x00a4}
0x185e…18ae Head {h00=0x004c, h01=0x0050, text=»DE450 «, t00=0x000f, t01=0x00f4}
0x18ae…18fe Head {h00=0x004c, h01=0x0050, text=» CBNG IDACTNR1,YDLASCHQ,DE600 VALID ACCOUNT NUMBER «, t00=0x000f, t01=0x0144}
0x18fe…194e (16, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0004}
0x194e…199e Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT NUMBER IS NOT VALID *«, t00=0x0010, t01=0x0054}
0x199e…19ee Head {h00=0x004c, h01=0x0050, text=»* IF INCREMENT IS ALREADY 2, THEN RESTART LISTING *«, t00=0x0010, t01=0x00a4}
0x19ee…1a3e Head {h00=0x004c, h01=0x0050, text=»* OTHERWISE TRY THE OTHER TYPE OF ACCOUNT *«, t00=0x0010, t01=0x00f4}
0x1a3e…1a8e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0144}
0x1a8e…1ade (17, 0, 400) Head {h00=0x004c, h01=0x0050, text=»DE460 «, t00=0x0011, t01=0x0004}
0x1ade…1b2e Head {h00=0x004c, h01=0x0050, text=» CBE IDNR1,=D'2',DE100 «, t00=0x0011, t01=0x0054}
0x1b2e…1b7e Head {h00=0x004c, h01=0x0050, text=» ADD IDACTNR1,IDNR1 «, t00=0x0011, t01=0x00a4}
0x1b7e…1bce Head {h00=0x004c, h01=0x0050, text=»* DON'T TRY THIS ACCOUNT TYPE AGAIN *«, t00=0x0011, t01=0x00f4}
0x1bce…1c1e Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR1,=D'2' «, t00=0x0011, t01=0x0144}
0x1c1e…1c6e (18, 0, 400) Head {h00=0x004c, h01=0x0050, text=» B DE440 «, t00=0x0012, t01=0x0004}
0x1c6e…1cbe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0054}
0x1cbe…1d0e Head {h00=0x004c, h01=0x0050, text=»* THE ACCOUNT NUMBER IS A VALID ONE *«, t00=0x0012, t01=0x00a4}
0x1d0e…1d5e Head {h00=0x004c, h01=0x0050, text=»* NOW READ THE ACCOUNT RECORD *«, t00=0x0012, t01=0x00f4}
0x1d5e…1dae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0144}
0x1dae…1dfe (19, 0, 400) Head {h00=0x004c, h01=0x0050, text=»DE600 «, t00=0x0013, t01=0x0004}
0x1dfe…1e4e Head {h00=0x004c, h01=0x0050, text=» MOVE ADACTRNR,IDACTNR1 «, t00=0x0013, t01=0x0054}
0x1e4e…1e9e Head {h00=0x004c, h01=0x0050, text=» MUL ADACTRNR,KDSHIFT «, t00=0x0013, t01=0x00a4}
0x1e9e…1eee Head {h00=0x004c, h01=0x0050, text=» MOVE WW1,=W'132' RECORD LENGTH «, t00=0x0013, t01=0x00f4}
0x1eee…1f3e Head {h00=0x004c, h01=0x0050, text=» MOVE WW2,=W'6' XCOPY SIZE PARAMETER «, t00=0x0013, t01=0x0144}
0x1f3e…1f8e (20, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* GET SYMBOLIC KEY *«, t00=0x0014, t01=0x0004}
0x1f8e…1fe0 Head {h00=0x004e, h01=0x0050, text=» XCOPY FCBUFFER,KW0,WW2,ADACTRNR,KW0 «, t00=0x0014, t01=0x0054}
0x1fe0…200c Head {h00=0x0028, h01=0x0050, text=» READ .IXDIR,DSDBS,FCBUFFER,WW1,KW1 «, t00=0x0014, t01=0x00a6}
0x200c…205c Head {h00=0x004c, h01=0x0050, text=» BNOK DE800 READ FAILED, NEXT «, t00=0x0014, t01=0x00d2}
0x205c…20ac Head {h00=0x004c, h01=0x0050, text=»* MOVE RECORD TO UWB: UA1 *«, t00=0x0014, t01=0x0122}
0x20ac…20fc Head {h00=0x004c, h01=0x0050, text=» PERF ZYRLNG,ADACTRNR ACT. REC. LENGTH IN NWRECLNG «, t00=0x0014, t01=0x0172}
0x20fc…214c Head {h00=0x004c, h01=0x0050, text=» CALL QEMOVE,ADACTRNR,FCBUFFER,NWRECLNG «, t00=0x0015, t01=0x0032}
0x214c…219c Head {h00=0x004c, h01=0x0050, text=» CBG ADSTATUS,=D'1',DE800 ACCOUNT CLOSED «, t00=0x0015, t01=0x0082}
0x219c…21ec Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x00d2}
0x21ec…223c Head {h00=0x004c, h01=0x0050, text=»* DISPLAY ACCOUNT *«, t00=0x0015, t01=0x0122}
0x223c…228c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0172}
0x228c…22dc Head {h00=0x004c, h01=0x0050, text=»DE700 «, t00=0x0016, t01=0x0032}
0x22dc…232c Head {h00=0x004c, h01=0x0050, text=» EDWRT SPDSSCRN,FMTLACT ACCOUNT LINE «, t00=0x0016, t01=0x0082}
0x232c…237c Head {h00=0x004c, h01=0x0050, text=»DE800 «, t00=0x0016, t01=0x00d2}
0x237c…23cc Head {h00=0x004c, h01=0x0050, text=» B DE200 NEXT ACCOUNT «, t00=0x0016, t01=0x0122}
0x23cc…23da Head {h00=0x000a, h01=0x0050, text=»DE900 «, t00=0x0016, t01=0x0172}
0x23da…23f6 Head {h00=0x0018, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0016, t01=0x0180}
0x23f6…2416 Head {h00=0x001c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ «, t00=0x0017, t01=0x000c}
0x2416…2426 Head {h00=0x000c, h01=0x0050, text=» B DE999«, t00=0x0017, t01=0x002c}
0x2426…2430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003c}
0x2430…2448 Head {h00=0x0014, h01=0x0050, text=»* CANCEL EXIT «, t00=0x0017, t01=0x0046}
0x2448…2452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x005e}
0x2452…2460 Head {h00=0x000a, h01=0x0050, text=»DE980 «, t00=0x0017, t01=0x0068}
0x2460…2476 Head {h00=0x0012, h01=0x0050, text=» SET SBCANCEL «, t00=0x0017, t01=0x0076}
0x2476…2484 Head {h00=0x000a, h01=0x0050, text=»DE999 «, t00=0x0017, t01=0x008c}
0x2484…24d4 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBLACT «, t00=0x0017, t01=0x009a}
0x24d4…2524 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0017, t01=0x00ea}
0x2524…2574 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x013a}
0x2574…25c4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0017, t01=0x018a}
0x25c4…2614 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x004a}
0x2614…2664 Head {h00=0x004c, h01=0x0050, text=»* LIST ACCOUNTS, ACCOUNT LINE (DELACT) *«, t00=0x0018, t01=0x009a}
0x2664…26b4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x00ea}
0x26b4…2704 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x013a}
0x2704…2756 Head {h00=0x004e, h01=0x0050, text=»FMTLACT FRMT «, t00=0x0018, t01=0x018a}
0x2756…27a6 Head {h00=0x004c, h01=0x0050, text=» FNL «, t00=0x0019, t01=0x004c}
0x27a6…27f6 Head {h00=0x004c, h01=0x0050, text=» FMEL '999999',IDACTNR1 «, t00=0x0019, t01=0x009c}
0x27f6…2846 Head {h00=0x004c, h01=0x0050, text=» FTAB 8 «, t00=0x0019, t01=0x00ec}
0x2846…2896 Head {h00=0x004c, h01=0x0050, text=» FMEL '9999',ADCARDNR «, t00=0x0019, t01=0x013c}
0x2896…28e6 Head {h00=0x004c, h01=0x0050, text=» FTAB 13 «, t00=0x0019, t01=0x018c}
0x28e6…2936 Head {h00=0x004c, h01=0x0050, text=» FCOPY ACNAME «, t00=0x001a, t01=0x004c}
0x2936…2986 Head {h00=0x004c, h01=0x0050, text=» FTAB 34 «, t00=0x001a, t01=0x009c}
0x2986…29d6 Head {h00=0x004c, h01=0x0050, text=» FMEL 'ZZZVZZZVZZ9,99',ADDEPCUM «, t00=0x001a, t01=0x00ec}
0x29d6…2a26 Head {h00=0x004c, h01=0x0050, text=» FTAB 49 «, t00=0x001a, t01=0x013c}
0x2a26…2a76 Head {h00=0x004c, h01=0x0050, text=» FMEL 'ZZZVZZZVZZ9,99',ADWDRCUM «, t00=0x001a, t01=0x018c}
0x2a76…2ac6 Head {h00=0x004c, h01=0x0050, text=» FTAB 64 «, t00=0x001b, t01=0x004c}
0x2ac6…2b16 Head {h00=0x004c, h01=0x0050, text=» FMEL '9',ADSTATUS «, t00=0x001b, t01=0x009c}
0x2b16…2b66 Head {h00=0x004c, h01=0x0050, text=» FMEND «, t00=0x001b, t01=0x00ec}
0x2b66…2bb6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x013c}
0x2bb6…2c06 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x001b, t01=0x018c}
0x2c06…2c0a Head {h00=0x4004, h01=0x0000}
0x2c0a…2c0e 00 1c 00 4c ┆ L┆
0x2c0e…2c16 (29, 1, 8) 20 04 00 00 00 1d 00 04 ┆ ┆
0x2c16…2c66 (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 0d 01 76 00 54 00 50 5c 43 41 4c 4c 5c 4d 41 53 4b 2c 4e 57 58 53 54 41 54 ┆ v T P CALL MASK,NWXSTAT┆
0x2c66…2cb6 2c 57 57 31 5c 43 48 45 43 4b 20 44 49 53 4b 2d 45 52 52 4f 52 53 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 0e 00 3e 00 54 00 50 5c 42 4e 4f 4b 5c 51 49 30 35 ┆,WW1 CHECK DISK-ERRORS > T P BNOK QI05┆
0x2cb6…2d06 30 5c 44 49 53 4b 2d 45 52 52 4f 52 20 46 4f 55 4e 44 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 0e 00 96 00 4c 00 50 2a 00 ┆0 DISK-ERROR FOUND L P* ┆
0x2d06…2d56 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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 0e 00 ee 00 4c 00 50 2a 20 ┆ * L P* ┆
0x2d56…2da6 4e 4f 20 44 49 53 4b 2d 45 52 52 4f 52 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 00 00 00 00 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 0e 01 3e 00 4c 00 50 2a 20 ┆NO DISK-ERRORS * > L P* ┆
0x2da6…2dae (31, 0, 8) 06 e8 06 f0 06 f8 07 e8 ┆ ┆
0x2dae…2dfe (32, 0, 400) 00 3c 00 50 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 20 20 20 44 41 55 43 43 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 55 52 52 45 4e 43 59 20 55 50 44 41 54 45 20 00 00 00 04 00 10 00 0c 5c 44 44 55 4d 5c 44 45 4d 4f 44 44 ┆ < P IDENT DAUCCY CURRENCY UPDATE DDUM DEMODD┆
0x2dfe…2e4e 00 00 00 44 00 0a 00 05 5c 50 44 49 56 20 00 00 00 58 00 12 00 50 5c 45 58 50 52 4f 43 5c 45 43 49 43 43 59 00 00 00 66 00 18 00 50 20 20 20 20 20 20 20 20 20 45 58 54 20 20 20 50 41 4a 52 4e 00 00 00 7c 00 12 00 50 5c 45 58 50 52 4f 43 5c ┆ D PDIV X P EXPROC ECICCY f P EXT PAJRN | P EXPROC ┆
0x2e4e…2e9e 58 42 46 4d 54 20 00 00 00 98 00 0e 00 50 20 45 58 54 20 5a 43 52 44 44 00 00 00 ae 00 12 00 50 5c 45 58 50 52 4f 43 5c 5a 48 57 52 49 44 00 00 00 c0 00 12 00 0d 5c 45 4e 54 52 59 5c 44 41 55 43 43 59 20 00 00 00 d6 00 12 00 50 5c 45 4e 54 ┆XBFMT P EXT ZCRDD P EXPROC ZHWRID ENTRY DAUCCY P ENT┆
0x2e9e…2eee 52 59 5c 45 50 50 43 43 59 20 00 00 00 ec 00 1c 00 50 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 20 53 50 41 50 32 31 00 00 01 02 00 1c 00 50 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 20 53 50 41 50 32 33 00 00 01 22 00 1c ┆RY EPPCCY P ENTRY SPAP21 P ENTRY SPAP23 " ┆
0x2eee…2f3e 00 50 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 20 53 50 41 50 32 34 00 00 01 42 00 1c 00 50 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 20 53 50 41 50 32 35 00 00 01 62 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 41 50 32 38 20 ┆ P ENTRY SPAP24 B P ENTRY SPAP25 b P ENTRY SPAP28 ┆
0x2f3e…2f8e (33, 0, 400) 00 00 01 82 00 12 00 50 5c 45 4e 54 52 59 5c 53 50 41 50 32 39 20 00 01 00 08 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P ENTRY SPAP29 L P**************************************************┆
0x2f8e…2fde 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 01 00 1e 00 06 00 50 2a 20 00 01 00 6e 00 16 00 50 2a 20 55 50 44 41 54 45 20 43 55 52 52 45 4e 43 59 20 00 01 00 78 00 06 00 01 2a 20 00 01 00 92 00 4c 00 50 2a 2a 2a 2a ┆********************** P* n P* UPDATE CURRENCY x * L P****┆
0x2fde…302e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 01 00 9c 00 10 00 50 44 41 55 43 ┆******************************************************************** PDAUC┆
0x302e…307e 43 59 5c 50 52 4f 43 20 00 01 00 ec 00 0a 00 50 44 41 30 30 30 20 00 01 01 00 00 1e 00 50 5c 43 42 4e 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 31 27 2c 44 41 31 30 30 00 01 01 0e 00 16 00 50 5c 4d 4f 56 45 5c 53 57 43 43 59 2c 3d 57 27 31 ┆CY PROC PDA000 P CBNE YDSTATUS,=D'1',DA100 P MOVE SWCCY,=W'1┆
0x307e…30ce 27 20 00 01 01 30 00 0a 00 50 44 41 30 35 30 20 00 01 01 4a 00 18 00 50 20 4d 4f 56 45 20 43 44 43 43 59 52 4e 52 2c 53 57 43 43 59 00 01 01 58 00 18 00 50 20 41 44 44 20 43 44 43 43 59 52 4e 52 2c 3d 44 27 31 30 27 00 01 01 74 00 26 00 50 ┆' 0 PDA050 J P MOVE CDCCYRNR,SWCCY X P ADD CDCCYRNR,=D'10' t & P┆
0x30ce…311e (34, 0, 400) 20 4d 55 4c 20 43 44 43 43 59 52 4e 52 2c 4b 44 53 48 49 46 54 5c 53 48 49 46 54 20 4e 55 4d 42 45 52 00 01 01 90 00 38 00 50 20 50 45 52 46 20 5a 43 52 44 44 2c 43 44 43 43 59 52 4e 52 2c 4e 44 4c 52 4e 31 2c 4b 57 31 5c 52 45 41 44 20 43 ┆ MUL CDCCYRNR,KDSHIFT SHIFT NUMBER 8 P PERF ZCRDD,CDCCYRNR,NDLRN1,KW1 READ C┆
0x311e…316e 55 52 52 45 4e 43 59 20 52 45 43 4f 52 44 00 02 00 2a 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 44 41 39 39 39 20 00 02 00 66 00 20 00 50 5c 54 42 54 5c 53 42 52 45 43 41 56 42 2c 44 41 31 30 30 5c 43 4f 4e 54 49 4e 55 45 00 02 ┆URRENCY RECORD * P TBT SBCANCEL,DA999 f P TBT SBRECAVB,DA100 CONTINUE ┆
0x316e…31be 00 82 00 06 00 50 2a 20 00 02 00 a6 00 26 00 50 2a 20 49 4e 49 54 49 41 4c 49 53 45 20 41 20 4e 45 57 20 43 55 52 52 45 4e 43 59 20 52 45 43 4f 52 44 00 02 00 b0 00 06 00 50 2a 20 00 02 00 da 00 10 00 50 5c 50 45 52 46 5c 45 43 49 43 43 59 ┆ P* & P* INITIALISE A NEW CURRENCY RECORD P* P PERF ECICCY┆
0x31be…320e 00 02 00 e4 00 0a 00 50 44 41 31 30 30 20 00 02 00 f8 00 2a 00 50 20 20 20 20 20 20 20 20 20 43 42 45 20 20 20 20 20 20 59 44 53 54 41 54 55 53 2c 3d 44 27 31 27 2c 44 41 31 35 30 00 02 01 06 00 10 00 50 5c 53 45 54 5c 53 42 55 43 43 59 20 ┆ PDA100 * P CBE YDSTATUS,=D'1',DA150 P SET SBUCCY ┆
0x320e…325e 00 02 01 34 00 22 00 50 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 20 50 41 4a 52 4e 2c 3d 57 27 31 27 20 00 02 01 48 00 0a 00 50 44 41 31 35 30 20 00 02 01 6e 00 2a 00 50 20 50 45 52 46 20 58 42 46 4d 54 2c 3d 57 27 31 35 27 5c 49 ┆ 4 " P PERF PAJRN,=W'1' H PDA150 n * P PERF XBFMT,=W'15' I┆
0x325e…32ae (35, 0, 400) 4e 49 54 49 41 4c 49 53 45 20 43 55 52 52 45 4e 43 59 00 02 01 7c 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 44 41 39 39 39 20 00 03 00 1a 00 3a 00 50 20 4d 4f 56 45 20 59 43 43 43 59 28 53 57 43 43 59 29 2c 43 43 43 43 59 43 44 ┆NITIALISE CURRENCY | P TBT SBCANCEL,DA999 : P MOVE YCCCY(SWCCY),CCCCYCD┆
0x32ae…32fe 45 5c 4d 4f 56 45 20 43 55 52 52 45 4e 43 59 20 43 4f 44 45 20 54 4f 20 43 57 42 20 00 03 00 36 00 36 00 50 5c 50 45 52 46 5c 5a 48 57 52 49 44 2c 43 44 43 43 59 52 4e 52 2c 4e 44 4c 52 4e 31 5c 57 52 49 54 45 20 43 55 52 52 45 4e 43 59 20 ┆E MOVE CURRENCY CODE TO CWB 6 6 P PERF ZHWRID,CDCCYRNR,NDLRN1 WRITE CURRENCY ┆
0x32fe…334e 52 45 43 4f 52 44 00 03 00 74 00 1e 00 50 5c 43 42 4e 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 31 27 2c 44 41 32 30 30 00 03 00 ae 00 14 00 50 5c 41 44 44 5c 53 57 43 43 59 2c 3d 57 27 31 27 00 03 00 d0 00 1a 00 50 5c 43 42 4c 5c 53 57 43 ┆RECORD t P CBNE YDSTATUS,=D'1',DA200 P ADD SWCCY,=W'1' P CBL SWC┆
0x334e…339e 43 59 2c 3d 57 27 34 27 2c 44 41 30 35 30 00 03 00 e8 00 0c 00 50 5c 42 5c 44 41 39 39 39 00 03 01 06 00 0a 00 50 44 41 32 30 30 20 00 03 01 16 00 06 00 50 2a 20 00 03 01 24 00 22 00 50 2a 20 20 4c 4f 47 20 55 50 44 41 54 45 53 20 4f 4e 20 ┆CY,=W'4',DA050 P B DA999 PDA200 P* $ " P* LOG UPDATES ON ┆
0x339e…33ee 4a 4f 55 52 4e 41 4c 20 52 4f 4c 4c 00 03 01 2e 00 06 00 50 2a 20 00 03 01 54 00 10 00 50 5c 50 45 52 46 5c 45 50 50 43 43 59 00 03 01 5e 00 18 00 50 5c 41 44 44 5c 59 44 4c 41 53 53 45 51 2c 3d 44 27 31 27 20 00 03 01 72 00 1c 00 50 5c 4d ┆JOURNAL ROLL . P* T P PERF EPPCCY ^ P ADD YDLASSEQ,=D'1' r P M┆
0x33ee…343e (36, 0, 400) 4f 56 45 5c 54 44 54 52 53 53 45 51 2c 59 44 4c 41 53 53 45 51 20 00 03 01 8e 00 0a 00 50 44 41 39 39 39 20 00 04 00 1e 00 12 00 50 5c 43 4c 45 41 52 5c 53 42 55 43 43 59 20 00 04 00 2c 00 10 00 50 20 20 20 20 20 20 20 20 20 52 45 54 00 04 ┆OVE TDTRSSEQ,YDLASSEQ PDA999 P CLEAR SBUCCY , P RET ┆
0x343e…348e 00 42 00 0a 00 50 20 50 45 4e 44 20 00 04 00 56 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ B P PEND V J P************************************************************┆
0x348e…34de 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 04 00 64 00 06 00 50 2a 20 00 04 00 b2 00 36 00 50 2a 20 20 50 52 49 4e 54 20 43 55 52 52 45 4e 43 59 20 4c 49 4e 45 20 54 59 50 45 53 20 28 55 50 44 41 54 45 20 41 4e 44 20 49 4e 51 55 49 52 59 29 20 00 04 ┆********** d P* 6 P* PRINT CURRENCY LINE TYPES (UPDATE AND INQUIRY) ┆
0x34de…352e 00 bc 00 06 00 50 2a 20 00 04 00 f6 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* J P****************************************************************┆
0x352e…357e 2a 2a 2a 2a 2a 2a 00 04 01 00 00 20 00 50 45 50 50 43 43 59 5c 50 52 4f 43 5c 5c 50 52 49 4e 54 20 43 55 52 52 45 4e 43 59 20 00 04 01 4e 00 06 00 50 2a 20 00 04 01 72 00 0e 00 50 2a 20 20 4c 49 4e 45 20 35 20 00 04 01 7c 00 06 00 50 2a 20 ┆****** PEPPCCY PROC PRINT CURRENCY N P* r P* LINE 5 | P* ┆