|
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: 20524 (0x502c)
Notes: pts_type(SC)
Names: »DPECCY.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DPECCY.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DPECCY.SC«
IDENT DPECCY EXCHANGE CURRENCY DDUM DEMODD PDIV EXPROC PAJRN EXPROC PCVCH EXPROC XBFMT ENTRY DPECCY ENTRY SPAP26 ************************************************************************ * * * PROCEDURE: DPECCY* * FUNCTIONAL DESCRIPTION:* * EXCHANGE CURRENCY (BUYING OR SELLING)* * - IF THE FUNCTON-CHOISE INPUT-FIELD IS EMPTY A CURRENCY RECORD* * READ INTO THE CURRENCY BUFFER,* * OTHERWISE THE CURRENCY BUFFER HAS BEEN INITIALISED AND* * CCCCYCDE CONTAINS THE CURRENCY CODE FROM THE INPUT-FIELD.* * - IN THE LAST CASE THE CURRENCY BUFFER IS FURTHER INITIALISED* * BY DISPLAYING THE CURRENCY UPDATE SCREEN.* * - THEN THE CURRENCY EXCHANGE SCREEN IS DISPLAYED* * (THE COUNTER VALUE OF THE AMOUNT QUOTED IS CALCULATED* * IN SPAP26).* * - THE AMOUNT QUOTED AND THE AMOUNT CALCULATED ARE PRINTED* * AND THE OPERATOR BALANCES ARE UPDATED.* * USE OF VARIABLES:* * NWKTBIX: INDEX IN THE FUNCTION KEYTABLE (SET IN BESELF)* * SBFLDEMP: INPUT-FIELD EMPTY ? (SET IN BESELF)* * IDNR1: RATE 1 (BUYING OR SELLING)* * IDNR2: RATE 2 (BUYING OR SELLING)* * IDNR3: THE RATE ACTUALLY USED FOR THE EXCHANGE* * IDAMT1: AMOUNT QUOTED* * IDAMT2: AMOUNT CALCULATED (COUNTER VALUE OF IDAMT1)* * ICTEXT1: CURRENCY CODE FOR IDAMT1* * ICTEXT2: CURRENCY CODE FOR IDAMT2* * * ************************************************************************ DPECCY PROC DP000 SET SBECCY PERF PAJRN,=W'1' IDENTIFICATION PRINT * * * IF THE INPUT-FIELD CONTAINS A CURRENCY CODE THEN THE CURRENCY* * UPDATE SCREEN MUST BE DISPLAYED TO CREATE A NON-STANDARD* * CURRENCY RECORD IN THE CURRENCY BUFFER* * * TBT SBFLDEMP,DP100 FIELD EMPTY PERF XBFMT,=W'15' CURRENCY UPDATE TBT SBCANCEL,DP980 DP100 CBE NWKTBIX,=W'9',DP200 'IN', BUYING ** * 'OUT': CURRENCY SELLING* * * MOVE TDTRSCDE,=D'91' MOVE IDNR1,CDSEL1 RATE 1 MOVE IDNR2,CDSEL2 RATE 2 B DP300 * * * 'IN': CURRENCY BUYING* * * DP200 SET SBCCYIN TO CONTROL CCY EXCHANGE FORMAT MOVE TDTRSCDE,=D'92' MOVE IDNR1,CDBUY1 RATE 1 MOVE IDNR2,CDBUY2 RATE 2 * * * DISPLAY THE CURRENCY EXCHANGE SCREEN* * * DP300 MOVE IDNR4,=D'1' INIT CONTINUATION FIELD MOVE ICTEXT1,=C' ' INIT CURRENCY CODE 1 MOVE ICTEXT2,=C' ' INIT CURRENCY CODE 2 MOVE IDAMT2,=D'0' INIT COUNTER VALUE SET SBCCYKTB USE KTAB WITH CURRENCY KEYS PERF XBFMT,=W'58' CURRENCY EXCH. SCREEN TBT SBCANCEL,DP980 CBE IDNR4,=D'0',DP300 RESTART * NORMAT EXIT FROM CCY EXCHANGE* ADD YDLASSEQ,=D'1' MOVE TDTRSSEQ,YDLASSEQ TRANSACTION SEQUENCE NR. * * * PRINT AMOUNT QUOTED AND AMOUNT CALCULATED* * * MOVE ICTEXT3,ICTEXT1 CURRENCY CODE MOVE TDAMOUNT,IDAMT1 PERF PAJRN,=W'4' AMOUNT QUOTED MOVE ICTEXT3,ICTEXT2 CURRENCY CODE MOVE TDAMOUNT,IDAMT2 PERF PAJRN,=W'7' AMOUNT CALCULATED * * * IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY (I.E. AMOUNT IS CLOSED* * WITH A CURRENCY KEY), THEN SWAP IDAMT1 AND IDAMT2.* * THEN IDAMT1 CONTAINS THE AMOUNT IN THE SYSTEM CURRENCY* * AND IDAMT2 CONTAINS THE AMOUNT IN THE FOREIGN CURRENCY* * * TBT SBEOI,DP700 * SWAP IDAMT1 AND IDAMT2* MOVE WDEC1,IDAMT1 MOVE IDAMT1,IDAMT2 MOVE IDAMT2,WDEC1 * * * UPDATE THE OPERATOR BALANCES, IF THE INPUT-FIELD IS EMPTY* * * DP700 TBF SBFLDEMP,DP800 TBT SBCCYIN,DP750 * * * 'OUT': CURRENCY SELLING* * * ADD ODCASH(KW1,KW4),IDAMT1 CASH BALANCE SUB ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> ADD ODCASH(KW3,KW4),IDAMT1 ACCUM. CCY. SOLD - LOCAL VALUE ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD B DP800 * * * 'IN': CURRENCY BUYING* * * DP750 SUB ODCASH(KW1,KW4),IDAMT1 CASH BALANCE ADD ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> ADD ODCASH(KW3,KW5),IDAMT1 ACCUM. CCY. BOUGHT - LOC. VAL. ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD * * * PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE* * * DP800 CBE RDPRTTYP,=D'2',DP999 PERF PCVCH,=W'3' CURRENCY EXCH. VOUCHER DP980 DP999 CLEAR SBECCY CLEAR SBCCYIN RET PEND ************************************************************************ * * * PROCEDURE: SPAP26* * PARAMETERS:* * XWRET: RETURN CODE FOR SPAPPL* * FUNCTIONAL DESCRIPTION:* * CALCULATE CURRENCY EXCHANGE COUNTER VALUE (DPECCY (FMTO58)),* * DISPLAY THE COUNTER VALUE ON THE SCREEN AND* * FILL THE CURRENCY CODES ON THE SCREEN.* * IF RATE 2 IS NOT ZERO AND THE VALUE OF THE EXCHANGE * IN THE SYSTEM CURRENCY IS LARGER THAN CDLIMIT, * THEN RATE 2 MUST BE USED FOR THE EXCHANGE. * USE OF VARIABLES:* * IDNR1: RATE 1 (BUYING OR SELLING)* * IDNR2: RATE 2 (BUYING OR SELLING)* * IDNR3: WILL CONTAIN THE RATE ACTUALLY USED* * IDAMT1: AMOUNT QUOTED* * IDAMT2: WILL CONTAIN AMOUNT CALCULATED* * CCCCYCDE: CONTAINS THE CURRENCY CODE OF THE FOREIGN CCY USED* * SBEOI: WILL INDICATE WHETHER THE AMOUNT QUOTED IS CLOSED WITH * AN EOI OR NOT ** ************************************************************************ SPAP26 PROC XWRET PBIN XWRET S26000 MOVE IDNR3,IDNR1 INITIALISE AT RATE 1 CLEAR SBEOI * * KWSPCONT IS THE LAST NON APPLICATION FUNCTION KEY * KEYS WITH A HIGHER INDEX ARE CURRENCY KEYS * CBNG SPBINW2,KWSPCONT,S26400 * * * AMOUNT IS CLOSED WITH A CURRENCY KEY,* * THEN THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY* * * * TO PREVENT EXIT FROM SCREEN MANAGEMENT, ADAPT SPBINW2 * MOVE SPBINW2,KWSPEOI ADAPT KEYTABLE INDEX MOVE ICTEXT1,CCCCYCDE FOREIGN CURRENCY MOVE ICTEXT2,YCCCY(KW4) SYSTEM CURRENCY * * * COUNTER VALUE = IDAMT1 * 0.01 * RATE / CDRELAT * IF THE COUNTER VALUE USING RATE 1 IS LARGER THEN CDLIMIT* * AND RATE 2 IS NOT ZERO, USE RATE 2 FOR THE EXCHANGE* * * * START THE CALCULATION WITH RATE 1* ** MOVE IDAMT2,IDAMT1 MUL IDAMT2,IDNR1 DVR IDAMT2,CDRELAT DVR IDAMT2,=D'100' CBE IDNR2,=D'0',S26800 RATE 2 = 0 CBNG IDAMT2,CDLIMIT,S26800 VALUE =< CDLIMIT * USE RATE 2 FOR THE EXCHANGE* MOVE IDNR3,IDNR2 SAVE RATE 2 MOVE IDAMT2,IDAMT1 MUL IDAMT2,IDNR2 DVR IDAMT2,CDRELAT DVR IDAMT2,=D'100' B S26800 * * * AMOUNT IS CLOSED WITH EOI,* * THEN THE AMOUNT QUOTED IS IN THE SYSTEM CURRENCY* * * S26400 SET SBEOI INDICATE EOI MOVE ICTEXT1,YCCCY(KW4) SYSTEM CURRENCY MOVE ICTEXT2,CCCCYCDE FOREIGN CURRENCY * * * COUNTER VALUE = IDAMT1 * CDRELAT / (0.01 * RATE) * * MOVE IDAMT2,IDAMT1 MUL IDAMT2,CDRELAT MUL IDAMT2,=D'100' * * * IF RATE 2 = 0 OR IDAMT1 =< CDLIMIT THEN RATE 1 MUST BE USED* * ELSE USE RATE 2* * * CBE IDNR2,=D'0',S26600 RATE 2 = 0 CBNG IDAMT1,CDLIMIT,S26600 IDAMT1 =< CDLIMIT * USE RATE 2* MOVE IDNR3,IDNR2 SAVE RATE 2 DVR IDAMT2,IDNR2 B S26800 * USE RATE 1* S26600 DVR IDAMT2,IDNR1 * * * REDISPLAY THE CURRENT LINE AND THE NEXT ONE* * * S26800 ERASE 0,KW3,KW4 DISPLAY 4,KW3,KW4 S26999 RET PEND ************************************************************************ END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DPECCY EXCHANGE CURRENCY «, 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…017c Head {h00=0x0050, h01=0x0050, text=» EXPROC PCVCH «, t00=0x0000, t01=0x012c}
0x017c…01d0 Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x0180}
0x01d0…0220 Head {h00=0x004c, h01=0x0050, text=» ENTRY DPECCY «, t00=0x0001, t01=0x0044}
0x0220…0270 Head {h00=0x004c, h01=0x0050, text=» ENTRY SPAP26 «, t00=0x0001, t01=0x0094}
0x0270…02c0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x00e4}
0x02c0…0310 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0134}
0x0310…0360 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: DPECCY *«, t00=0x0001, t01=0x0184}
0x0360…03b0 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0002, t01=0x0044}
0x03b0…0400 Head {h00=0x004c, h01=0x0050, text=»* EXCHANGE CURRENCY (BUYING OR SELLING) *«, t00=0x0002, t01=0x0094}
0x0400…0450 Head {h00=0x004c, h01=0x0050, text=»* - IF THE FUNCTON-CHOISE INPUT-FIELD IS EMPTY A CURRENCY RECORD *«, t00=0x0002, t01=0x00e4}
0x0450…04a0 Head {h00=0x004c, h01=0x0050, text=»* READ INTO THE CURRENCY BUFFER, *«, t00=0x0002, t01=0x0134}
0x04a0…04f0 Head {h00=0x004c, h01=0x0050, text=»* OTHERWISE THE CURRENCY BUFFER HAS BEEN INITIALISED AND *«, t00=0x0002, t01=0x0184}
0x04f0…0540 Head {h00=0x004c, h01=0x0050, text=»* CCCCYCDE CONTAINS THE CURRENCY CODE FROM THE INPUT-FIELD. *«, t00=0x0003, t01=0x0044}
0x0540…0590 Head {h00=0x004c, h01=0x0050, text=»* - IN THE LAST CASE THE CURRENCY BUFFER IS FURTHER INITIALISED *«, t00=0x0003, t01=0x0094}
0x0590…05e0 Head {h00=0x004c, h01=0x0050, text=»* BY DISPLAYING THE CURRENCY UPDATE SCREEN. *«, t00=0x0003, t01=0x00e4}
0x05e0…0630 Head {h00=0x004c, h01=0x0050, text=»* - THEN THE CURRENCY EXCHANGE SCREEN IS DISPLAYED *«, t00=0x0003, t01=0x0134}
0x0630…0680 Head {h00=0x004c, h01=0x0050, text=»* (THE COUNTER VALUE OF THE AMOUNT QUOTED IS CALCULATED *«, t00=0x0003, t01=0x0184}
0x0680…06d0 Head {h00=0x004c, h01=0x0050, text=»* IN SPAP26). *«, t00=0x0004, t01=0x0044}
0x06d0…0720 Head {h00=0x004c, h01=0x0050, text=»* - THE AMOUNT QUOTED AND THE AMOUNT CALCULATED ARE PRINTED *«, t00=0x0004, t01=0x0094}
0x0720…0770 Head {h00=0x004c, h01=0x0050, text=»* AND THE OPERATOR BALANCES ARE UPDATED. * «, t00=0x0004, t01=0x00e4}
0x0770…07c0 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x0004, t01=0x0134}
0x07c0…0810 Head {h00=0x004c, h01=0x0050, text=»* NWKTBIX: INDEX IN THE FUNCTION KEYTABLE (SET IN BESELF) *«, t00=0x0004, t01=0x0184}
0x0810…0860 Head {h00=0x004c, h01=0x0050, text=»* SBFLDEMP: INPUT-FIELD EMPTY ? (SET IN BESELF) *«, t00=0x0005, t01=0x0044}
0x0860…08b0 Head {h00=0x004c, h01=0x0050, text=»* IDNR1: RATE 1 (BUYING OR SELLING) *«, t00=0x0005, t01=0x0094}
0x08b0…0900 Head {h00=0x004c, h01=0x0050, text=»* IDNR2: RATE 2 (BUYING OR SELLING) *«, t00=0x0005, t01=0x00e4}
0x0900…0950 Head {h00=0x004c, h01=0x0050, text=»* IDNR3: THE RATE ACTUALLY USED FOR THE EXCHANGE *«, t00=0x0005, t01=0x0134}
0x0950…09a0 Head {h00=0x004c, h01=0x0050, text=»* IDAMT1: AMOUNT QUOTED *«, t00=0x0005, t01=0x0184}
0x09a0…09f0 Head {h00=0x004c, h01=0x0050, text=»* IDAMT2: AMOUNT CALCULATED (COUNTER VALUE OF IDAMT1) *«, t00=0x0006, t01=0x0044}
0x09f0…0a40 Head {h00=0x004c, h01=0x0050, text=»* ICTEXT1: CURRENCY CODE FOR IDAMT1 *«, t00=0x0006, t01=0x0094}
0x0a40…0a90 Head {h00=0x004c, h01=0x0050, text=»* ICTEXT2: CURRENCY CODE FOR IDAMT2 *«, t00=0x0006, t01=0x00e4}
0x0a90…0ae0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0134}
0x0ae0…0b30 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x0184}
0x0b30…0b80 Head {h00=0x004c, h01=0x0050, text=»DPECCY PROC «, t00=0x0007, t01=0x0044}
0x0b80…0bd0 Head {h00=0x004c, h01=0x0050, text=»DP000 «, t00=0x0007, t01=0x0094}
0x0bd0…0c20 Head {h00=0x004c, h01=0x0050, text=» SET SBECCY «, t00=0x0007, t01=0x00e4}
0x0c20…0c70 Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'1' IDENTIFICATION PRINT «, t00=0x0007, t01=0x0134}
0x0c70…0cc0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0184}
0x0cc0…0d10 Head {h00=0x004c, h01=0x0050, text=»* IF THE INPUT-FIELD CONTAINS A CURRENCY CODE THEN THE CURRENCY *«, t00=0x0008, t01=0x0044}
0x0d10…0d60 Head {h00=0x004c, h01=0x0050, text=»* UPDATE SCREEN MUST BE DISPLAYED TO CREATE A NON-STANDARD *«, t00=0x0008, t01=0x0094}
0x0d60…0db0 Head {h00=0x004c, h01=0x0050, text=»* CURRENCY RECORD IN THE CURRENCY BUFFER *«, t00=0x0008, t01=0x00e4}
0x0db0…0e00 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0134}
0x0e00…0e50 Head {h00=0x004c, h01=0x0050, text=» TBT SBFLDEMP,DP100 FIELD EMPTY «, t00=0x0008, t01=0x0184}
0x0e50…0ea0 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=W'15' CURRENCY UPDATE «, t00=0x0009, t01=0x0044}
0x0ea0…0ef0 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DP980 «, t00=0x0009, t01=0x0094}
0x0ef0…0efe Head {h00=0x000a, h01=0x0050, text=»DP100 «, t00=0x0009, t01=0x00e4}
0x0efe…0f4e Head {h00=0x004c, h01=0x0050, text=» CBE NWKTBIX,=W'9',DP200 'IN', BUYING «, t00=0x0009, t01=0x00f2}
0x0f4e…0f9e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0142}
0x0f9e…0fee (10, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* 'OUT': CURRENCY SELLING *«, t00=0x000a, t01=0x0004}
0x0fee…103e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0054}
0x103e…108e Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'91' «, t00=0x000a, t01=0x00a4}
0x108e…10de Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR1,CDSEL1 RATE 1 «, t00=0x000a, t01=0x00f4}
0x10de…112e Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR2,CDSEL2 RATE 2 «, t00=0x000a, t01=0x0144}
0x112e…117e (11, 0, 400) Head {h00=0x004c, h01=0x0050, text=» B DP300 «, t00=0x000b, t01=0x0004}
0x117e…11ce Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0054}
0x11ce…121e Head {h00=0x004c, h01=0x0050, text=»* 'IN': CURRENCY BUYING *«, t00=0x000b, t01=0x00a4}
0x121e…126e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00f4}
0x126e…127c Head {h00=0x000a, h01=0x0050, text=»DP200 «, t00=0x000b, t01=0x0144}
0x127c…12cc Head {h00=0x004c, h01=0x0050, text=» SET SBCCYIN TO CONTROL CCY EXCHANGE FORMAT «, t00=0x000b, t01=0x0152}
0x12cc…131c Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'92' «, t00=0x000c, t01=0x0012}
0x131c…136c Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR1,CDBUY1 RATE 1 «, t00=0x000c, t01=0x0062}
0x136c…13bc Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR2,CDBUY2 RATE 2 «, t00=0x000c, t01=0x00b2}
0x13bc…140c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0102}
0x140c…145c Head {h00=0x004c, h01=0x0050, text=»* DISPLAY THE CURRENCY EXCHANGE SCREEN *«, t00=0x000c, t01=0x0152}
0x145c…14ac Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0012}
0x14ac…14fc Head {h00=0x004c, h01=0x0050, text=»DP300 «, t00=0x000d, t01=0x0062}
0x14fc…154c Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR4,=D'1' INIT CONTINUATION FIELD «, t00=0x000d, t01=0x00b2}
0x154c…159c Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT1,=C' ' INIT CURRENCY CODE 1 «, t00=0x000d, t01=0x0102}
0x159c…15ec Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,=C' ' INIT CURRENCY CODE 2 «, t00=0x000d, t01=0x0152}
0x15ec…163c Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,=D'0' INIT COUNTER VALUE «, t00=0x000e, t01=0x0012}
0x163c…166e Head {h00=0x002e, h01=0x0050, text=» SET SBCCYKTB USE KTAB WITH CURRENCY KEYS «, t00=0x000e, t01=0x0062}
0x166e…169e Head {h00=0x002c, h01=0x0050, text=» PERF XBFMT,=W'58' CURRENCY EXCH. SCREEN«, t00=0x000e, t01=0x0094}
0x169e…16ee Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DP980 «, t00=0x000e, t01=0x00c4}
0x16ee…173e Head {h00=0x004c, h01=0x0050, text=» CBE IDNR4,=D'0',DP300 RESTART «, t00=0x000e, t01=0x0114}
0x173e…178e Head {h00=0x004c, h01=0x0050, text=»* NORMAT EXIT FROM CCY EXCHANGE *«, t00=0x000e, t01=0x0164}
0x178e…17de Head {h00=0x004c, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x000f, t01=0x0024}
0x17de…182e Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,YDLASSEQ TRANSACTION SEQUENCE NR. «, t00=0x000f, t01=0x0074}
0x182e…187e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00c4}
0x187e…18ce Head {h00=0x004c, h01=0x0050, text=»* PRINT AMOUNT QUOTED AND AMOUNT CALCULATED *«, t00=0x000f, t01=0x0114}
0x18ce…191e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0164}
0x191e…196e Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT3,ICTEXT1 CURRENCY CODE «, t00=0x0010, t01=0x0024}
0x196e…19be Head {h00=0x004c, h01=0x0050, text=» MOVE TDAMOUNT,IDAMT1 «, t00=0x0010, t01=0x0074}
0x19be…1a0e Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'4' AMOUNT QUOTED «, t00=0x0010, t01=0x00c4}
0x1a0e…1a5e Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT3,ICTEXT2 CURRENCY CODE «, t00=0x0010, t01=0x0114}
0x1a5e…1aae Head {h00=0x004c, h01=0x0050, text=» MOVE TDAMOUNT,IDAMT2 «, t00=0x0010, t01=0x0164}
0x1aae…1afe Head {h00=0x004c, h01=0x0050, text=» PERF PAJRN,=W'7' AMOUNT CALCULATED «, t00=0x0011, t01=0x0024}
0x1afe…1b4e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0074}
0x1b4e…1b9e Head {h00=0x004c, h01=0x0050, text=»* IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY (I.E. AMOUNT IS CLOSED *«, t00=0x0011, t01=0x00c4}
0x1b9e…1bee Head {h00=0x004c, h01=0x0050, text=»* WITH A CURRENCY KEY), THEN SWAP IDAMT1 AND IDAMT2. *«, t00=0x0011, t01=0x0114}
0x1bee…1c3e Head {h00=0x004c, h01=0x0050, text=»* THEN IDAMT1 CONTAINS THE AMOUNT IN THE SYSTEM CURRENCY *«, t00=0x0011, t01=0x0164}
0x1c3e…1c8e Head {h00=0x004c, h01=0x0050, text=»* AND IDAMT2 CONTAINS THE AMOUNT IN THE FOREIGN CURRENCY *«, t00=0x0012, t01=0x0024}
0x1c8e…1cde Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0074}
0x1cde…1d2e Head {h00=0x004c, h01=0x0050, text=» TBT SBEOI,DP700 «, t00=0x0012, t01=0x00c4}
0x1d2e…1d7e Head {h00=0x004c, h01=0x0050, text=»* SWAP IDAMT1 AND IDAMT2 *«, t00=0x0012, t01=0x0114}
0x1d7e…1dce Head {h00=0x004c, h01=0x0050, text=» MOVE WDEC1,IDAMT1 «, t00=0x0012, t01=0x0164}
0x1dce…1e1e Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT1,IDAMT2 «, t00=0x0013, t01=0x0024}
0x1e1e…1e6e Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,WDEC1 «, t00=0x0013, t01=0x0074}
0x1e6e…1ebe Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x00c4}
0x1ebe…1f0e Head {h00=0x004c, h01=0x0050, text=»* UPDATE THE OPERATOR BALANCES, IF THE INPUT-FIELD IS EMPTY *«, t00=0x0013, t01=0x0114}
0x1f0e…1f5e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0164}
0x1f5e…1fae Head {h00=0x004c, h01=0x0050, text=»DP700 «, t00=0x0014, t01=0x0024}
0x1fae…1ffe Head {h00=0x004c, h01=0x0050, text=» TBF SBFLDEMP,DP800 «, t00=0x0014, t01=0x0074}
0x1ffe…204e Head {h00=0x004c, h01=0x0050, text=» TBT SBCCYIN,DP750 «, t00=0x0014, t01=0x00c4}
0x204e…209e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x0114}
0x209e…20ee Head {h00=0x004c, h01=0x0050, text=»* 'OUT': CURRENCY SELLING *«, t00=0x0014, t01=0x0164}
0x20ee…213e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0024}
0x213e…218e Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW1,KW4),IDAMT1 CASH BALANCE «, t00=0x0015, t01=0x0074}
0x218e…21de Head {h00=0x004c, h01=0x0050, text=» SUB ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> «, t00=0x0015, t01=0x00c4}
0x21de…222e Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW3,KW4),IDAMT1 ACCUM. CCY. SOLD - LOCAL VALUE «, t00=0x0015, t01=0x0114}
0x222e…226a Head {h00=0x0038, h01=0x0050, text=» ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD «, t00=0x0015, t01=0x0164}
0x226a…22ba Head {h00=0x004c, h01=0x0050, text=» B DP800 «, t00=0x0016, t01=0x0010}
0x22ba…230a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0060}
0x230a…235a Head {h00=0x004c, h01=0x0050, text=»* 'IN': CURRENCY BUYING *«, t00=0x0016, t01=0x00b0}
0x235a…23aa Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0100}
0x23aa…23fa Head {h00=0x004c, h01=0x0050, text=»DP750 «, t00=0x0016, t01=0x0150}
0x23fa…244a Head {h00=0x004c, h01=0x0050, text=» SUB ODCASH(KW1,KW4),IDAMT1 CASH BALANCE «, t00=0x0017, t01=0x0010}
0x244a…249a Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> «, t00=0x0017, t01=0x0060}
0x249a…24ea Head {h00=0x004c, h01=0x0050, text=» ADD ODCASH(KW3,KW5),IDAMT1 ACCUM. CCY. BOUGHT - LOC. VAL. «, t00=0x0017, t01=0x00b0}
0x24ea…2526 Head {h00=0x0038, h01=0x0050, text=» ADD ODCASH(KW3,SWCCY),IDAMT2 ACC.CCY BOUGHT & SOLD «, t00=0x0017, t01=0x0100}
0x2526…2576 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x013c}
0x2576…25c6 Head {h00=0x004c, h01=0x0050, text=»* PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE *«, t00=0x0017, t01=0x018c}
0x25c6…2616 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x004c}
0x2616…2666 Head {h00=0x004c, h01=0x0050, text=»DP800 «, t00=0x0018, t01=0x009c}
0x2666…26b6 Head {h00=0x004c, h01=0x0050, text=» CBE RDPRTTYP,=D'2',DP999 «, t00=0x0018, t01=0x00ec}
0x26b6…2706 Head {h00=0x004c, h01=0x0050, text=» PERF PCVCH,=W'3' CURRENCY EXCH. VOUCHER «, t00=0x0018, t01=0x013c}
0x2706…2756 Head {h00=0x004c, h01=0x0050, text=»DP980 «, t00=0x0018, t01=0x018c}
0x2756…27a6 Head {h00=0x004c, h01=0x0050, text=»DP999 «, t00=0x0019, t01=0x004c}
0x27a6…27f6 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBECCY «, t00=0x0019, t01=0x009c}
0x27f6…2846 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBCCYIN «, t00=0x0019, t01=0x00ec}
0x2846…2896 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0019, t01=0x013c}
0x2896…28e6 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x018c}
0x28e6…2936 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x004c}
0x2936…2986 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001a, t01=0x009c}
0x2986…29d6 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: SPAP26 *«, t00=0x001a, t01=0x00ec}
0x29d6…2a26 Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS: *«, t00=0x001a, t01=0x013c}
0x2a26…2a76 Head {h00=0x004c, h01=0x0050, text=»* XWRET: RETURN CODE FOR SPAPPL *«, t00=0x001a, t01=0x018c}
0x2a76…2ac6 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x001b, t01=0x004c}
0x2ac6…2b16 Head {h00=0x004c, h01=0x0050, text=»* CALCULATE CURRENCY EXCHANGE COUNTER VALUE (DPECCY (FMTO58)), *«, t00=0x001b, t01=0x009c}
0x2b16…2b66 Head {h00=0x004c, h01=0x0050, text=»* DISPLAY THE COUNTER VALUE ON THE SCREEN AND *«, t00=0x001b, t01=0x00ec}
0x2b66…2bb6 Head {h00=0x004c, h01=0x0050, text=»* FILL THE CURRENCY CODES ON THE SCREEN. *«, t00=0x001b, t01=0x013c}
0x2bb6…2bf8 Head {h00=0x003e, h01=0x0050, text=»* IF RATE 2 IS NOT ZERO AND THE VALUE OF THE EXCHANGE«, t00=0x001b, t01=0x018c}
0x2bf8…2c36 Head {h00=0x003a, h01=0x0050, text=»* IN THE SYSTEM CURRENCY IS LARGER THAN CDLIMIT, «, t00=0x001c, t01=0x003e}
0x2c36…2c70 Head {h00=0x0036, h01=0x0050, text=»* THEN RATE 2 MUST BE USED FOR THE EXCHANGE. «, t00=0x001c, t01=0x007c}
0x2c70…2cc0 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x001c, t01=0x00b6}
0x2cc0…2d10 Head {h00=0x004c, h01=0x0050, text=»* IDNR1: RATE 1 (BUYING OR SELLING) *«, t00=0x001c, t01=0x0106}
0x2d10…2d60 Head {h00=0x004c, h01=0x0050, text=»* IDNR2: RATE 2 (BUYING OR SELLING) *«, t00=0x001c, t01=0x0156}
0x2d60…2db0 Head {h00=0x004c, h01=0x0050, text=»* IDNR3: WILL CONTAIN THE RATE ACTUALLY USED *«, t00=0x001d, t01=0x0016}
0x2db0…2e00 Head {h00=0x004c, h01=0x0050, text=»* IDAMT1: AMOUNT QUOTED *«, t00=0x001d, t01=0x0066}
0x2e00…2e50 Head {h00=0x004c, h01=0x0050, text=»* IDAMT2: WILL CONTAIN AMOUNT CALCULATED *«, t00=0x001d, t01=0x00b6}
0x2e50…2ea0 Head {h00=0x004c, h01=0x0050, text=»* CCCCYCDE: CONTAINS THE CURRENCY CODE OF THE FOREIGN CCY USED *«, t00=0x001d, t01=0x0106}
0x2ea0…2ef0 Head {h00=0x004c, h01=0x0050, text=»* SBEOI: WILL INDICATE WHETHER THE AMOUNT QUOTED IS CLOSED WITH«, t00=0x001d, t01=0x0156}
0x2ef0…2f18 Head {h00=0x0024, h01=0x0050, text=»* AN EOI OR NOT «, t00=0x001e, t01=0x0016}
0x2f18…2f68 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001e, t01=0x003e}
0x2f68…2fb8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001e, t01=0x008e}
0x2fb8…3008 Head {h00=0x004c, h01=0x0050, text=»SPAP26 PROC XWRET «, t00=0x001e, t01=0x00de}
0x3008…301c Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x001e, t01=0x012e}
0x301c…306c Head {h00=0x004c, h01=0x0050, text=»S26000 «, t00=0x001e, t01=0x0142}
0x306c…30bc (31, 0, 400) Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR3,IDNR1 INITIALISE AT RATE 1 «, t00=0x001f, t01=0x0004}
0x30bc…30d0 Head {h00=0x0010, h01=0x0050, text=» CLEAR SBEOI«, t00=0x001f, t01=0x0054}
0x30d0…30da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0068}
0x30da…3116 Head {h00=0x0038, h01=0x0050, text=»* KWSPCONT IS THE LAST NON APPLICATION FUNCTION KEY «, t00=0x001f, t01=0x0072}
0x3116…314a Head {h00=0x0030, h01=0x0050, text=»* KEYS WITH A HIGHER INDEX ARE CURRENCY KEYS«, t00=0x001f, t01=0x00ae}
0x314a…3154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e2}
0x3154…317a Head {h00=0x0022, h01=0x0050, text=» CBNG SPBINW2,KWSPCONT,S26400 «, t00=0x001f, t01=0x00ec}
0x317a…31ca Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0112}
0x31ca…321a Head {h00=0x004c, h01=0x0050, text=»* AMOUNT IS CLOSED WITH A CURRENCY KEY, *«, t00=0x001f, t01=0x0162}
0x321a…326a Head {h00=0x004c, h01=0x0050, text=»* THEN THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY *«, t00=0x0020, t01=0x0022}
0x326a…32ba Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0072}
0x32ba…32fa Head {h00=0x003c, h01=0x0050, text=»* TO PREVENT EXIT FROM SCREEN MANAGEMENT, ADAPT SPBINW2 «, t00=0x0020, t01=0x00c2}
0x32fa…3304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0102}
0x3304…3336 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,KWSPEOI ADAPT KEYTABLE INDEX«, t00=0x0020, t01=0x010c}
0x3336…3386 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT1,CCCCYCDE FOREIGN CURRENCY «, t00=0x0020, t01=0x013e}
0x3386…33d6 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,YCCCY(KW4) SYSTEM CURRENCY «, t00=0x0020, t01=0x018e}
0x33d6…3426 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x004e}
0x3426…345e Head {h00=0x0034, h01=0x0050, text=»* COUNTER VALUE = IDAMT1 * 0.01 * RATE / CDRELAT«, t00=0x0021, t01=0x009e}
0x345e…34ae Head {h00=0x004c, h01=0x0050, text=»* IF THE COUNTER VALUE USING RATE 1 IS LARGER THEN CDLIMIT *«, t00=0x0021, t01=0x00d6}
0x34ae…34fe Head {h00=0x004c, h01=0x0050, text=»* AND RATE 2 IS NOT ZERO, USE RATE 2 FOR THE EXCHANGE *«, t00=0x0021, t01=0x0126}
0x34fe…354e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0176}
0x354e…359e Head {h00=0x004c, h01=0x0050, text=»* START THE CALCULATION WITH RATE 1 *«, t00=0x0022, t01=0x0036}
0x359e…35ee Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0022, t01=0x0086}
0x35ee…363e Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,IDAMT1 «, t00=0x0022, t01=0x00d6}
0x363e…368e Head {h00=0x004c, h01=0x0050, text=» MUL IDAMT2,IDNR1 «, t00=0x0022, t01=0x0126}
0x368e…36de Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,CDRELAT «, t00=0x0022, t01=0x0176}
0x36de…36fa Head {h00=0x0018, h01=0x0050, text=» DVR IDAMT2,=D'100' «, t00=0x0023, t01=0x0036}
0x36fa…374a Head {h00=0x004c, h01=0x0050, text=» CBE IDNR2,=D'0',S26800 RATE 2 = 0 «, t00=0x0023, t01=0x0052}
0x374a…379a Head {h00=0x004c, h01=0x0050, text=» CBNG IDAMT2,CDLIMIT,S26800 VALUE =< CDLIMIT «, t00=0x0023, t01=0x00a2}
0x379a…37ea Head {h00=0x004c, h01=0x0050, text=»* USE RATE 2 FOR THE EXCHANGE *«, t00=0x0023, t01=0x00f2}
0x37ea…383a Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR3,IDNR2 SAVE RATE 2 «, t00=0x0023, t01=0x0142}
0x383a…388a (36, 0, 400) Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,IDAMT1 «, t00=0x0024, t01=0x0004}
0x388a…38da Head {h00=0x004c, h01=0x0050, text=» MUL IDAMT2,IDNR2 «, t00=0x0024, t01=0x0054}
0x38da…392a Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,CDRELAT «, t00=0x0024, t01=0x00a4}
0x392a…3946 Head {h00=0x0018, h01=0x0050, text=» DVR IDAMT2,=D'100' «, t00=0x0024, t01=0x00f4}
0x3946…3996 Head {h00=0x004c, h01=0x0050, text=» B S26800 «, t00=0x0024, t01=0x0110}
0x3996…39e6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0160}
0x39e6…3a36 Head {h00=0x004c, h01=0x0050, text=»* AMOUNT IS CLOSED WITH EOI, *«, t00=0x0025, t01=0x0020}
0x3a36…3a86 Head {h00=0x004c, h01=0x0050, text=»* THEN THE AMOUNT QUOTED IS IN THE SYSTEM CURRENCY *«, t00=0x0025, t01=0x0070}
0x3a86…3ad6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0025, t01=0x00c0}
0x3ad6…3b26 Head {h00=0x004c, h01=0x0050, text=»S26400 «, t00=0x0025, t01=0x0110}
0x3b26…3b76 Head {h00=0x004c, h01=0x0050, text=» SET SBEOI INDICATE EOI «, t00=0x0025, t01=0x0160}
0x3b76…3bc6 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT1,YCCCY(KW4) SYSTEM CURRENCY «, t00=0x0026, t01=0x0020}
0x3bc6…3c16 Head {h00=0x004c, h01=0x0050, text=» MOVE ICTEXT2,CCCCYCDE FOREIGN CURRENCY «, t00=0x0026, t01=0x0070}
0x3c16…3c66 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0026, t01=0x00c0}
0x3c66…3ca0 Head {h00=0x0036, h01=0x0050, text=»* COUNTER VALUE = IDAMT1 * CDRELAT / (0.01 * RATE)«, t00=0x0026, t01=0x0110}
0x3ca0…3cf0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0026, t01=0x014a}
0x3cf0…3d40 Head {h00=0x004c, h01=0x0050, text=» MOVE IDAMT2,IDAMT1 «, t00=0x0027, t01=0x000a}
0x3d40…3d90 Head {h00=0x004c, h01=0x0050, text=» MUL IDAMT2,CDRELAT «, t00=0x0027, t01=0x005a}
0x3d90…3dac Head {h00=0x0018, h01=0x0050, text=» MUL IDAMT2,=D'100' «, t00=0x0027, t01=0x00aa}
0x3dac…3dfc Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0027, t01=0x00c6}
0x3dfc…3e4c Head {h00=0x004c, h01=0x0050, text=»* IF RATE 2 = 0 OR IDAMT1 =< CDLIMIT THEN RATE 1 MUST BE USED *«, t00=0x0027, t01=0x0116}
0x3e4c…3e9c Head {h00=0x004c, h01=0x0050, text=»* ELSE USE RATE 2 *«, t00=0x0027, t01=0x0166}
0x3e9c…3eec Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0028, t01=0x0026}
0x3eec…3f3c Head {h00=0x004c, h01=0x0050, text=» CBE IDNR2,=D'0',S26600 RATE 2 = 0 «, t00=0x0028, t01=0x0076}
0x3f3c…3f8c Head {h00=0x004c, h01=0x0050, text=» CBNG IDAMT1,CDLIMIT,S26600 IDAMT1 =< CDLIMIT «, t00=0x0028, t01=0x00c6}
0x3f8c…3fdc Head {h00=0x004c, h01=0x0050, text=»* USE RATE 2 *«, t00=0x0028, t01=0x0116}
0x3fdc…402c Head {h00=0x004c, h01=0x0050, text=» MOVE IDNR3,IDNR2 SAVE RATE 2 «, t00=0x0028, t01=0x0166}
0x402c…407c Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,IDNR2 «, t00=0x0029, t01=0x0026}
0x407c…40cc Head {h00=0x004c, h01=0x0050, text=» B S26800 «, t00=0x0029, t01=0x0076}
0x40cc…411c Head {h00=0x004c, h01=0x0050, text=»* USE RATE 1 *«, t00=0x0029, t01=0x00c6}
0x411c…416c Head {h00=0x004c, h01=0x0050, text=»S26600 «, t00=0x0029, t01=0x0116}
0x416c…41bc Head {h00=0x004c, h01=0x0050, text=» DVR IDAMT2,IDNR1 «, t00=0x0029, t01=0x0166}
0x41bc…420c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0026}
0x420c…425c Head {h00=0x004c, h01=0x0050, text=»* REDISPLAY THE CURRENT LINE AND THE NEXT ONE *«, t00=0x002a, t01=0x0076}
0x425c…42ac Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002a, t01=0x00c6}
0x42ac…42fc Head {h00=0x004c, h01=0x0050, text=»S26800 «, t00=0x002a, t01=0x0116}
0x42fc…434c Head {h00=0x004c, h01=0x0050, text=» ERASE 0,KW3,KW4 «, t00=0x002a, t01=0x0166}
0x434c…439c Head {h00=0x004c, h01=0x0050, text=» DISPLAY 4,KW3,KW4 «, t00=0x002b, t01=0x0026}
0x439c…43ec Head {h00=0x004c, h01=0x0050, text=»S26999 «, t00=0x002b, t01=0x0076}
0x43ec…443c Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x002b, t01=0x00c6}
0x443c…448c Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0116}
0x448c…44dc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002b, t01=0x0166}
0x44dc…452c Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x002c, t01=0x0026}
0x452c…4530 Head {h00=0x4004, h01=0x0000}
0x4530…4534 00 2c 00 76 ┆ , v┆
0x4534…453c (45, 1, 8) 20 04 00 00 00 2d 00 04 ┆ - ┆
0x453c…458c (46, 0, 400) 31 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 0d 01 7e 00 4c 00 50 5c 50 45 52 46 5c 50 41 4a 52 4e 2c 3d 57 27 32 27 5c ┆12' ~ L P PERF PAJRN,=W'2' ┆
0x458c…45dc 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 0e 00 3e 00 3a 00 50 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 49 ┆ > : P MOVE I┆
0x45dc…462c 43 54 45 58 54 33 2c 59 43 43 43 59 28 4b 57 34 29 20 20 20 20 53 59 53 54 45 4d 20 43 55 52 52 45 4e 43 59 00 0e 00 8e 00 4c 00 50 5c 50 45 52 46 5c 50 41 4a 52 4e 2c 3d 57 27 34 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆CTEXT3,YCCCY(KW4) SYSTEM CURRENCY L P PERF PAJRN,=W'4' ┆
0x462c…467c 00 00 00 00 00 00 00 00 00 00 00 00 00 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 cc 00 4c 00 50 5c 4d 4f 56 45 5c 55 44 54 52 53 43 44 45 2c 3d 44 27 31 31 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P MOVE UDTRSCDE,=D'11' ┆
0x467c…46cc 00 00 00 00 00 00 00 00 00 00 00 00 00 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 01 1c 00 4c 00 50 5c 50 45 52 46 5c 50 41 4a 52 4e 2c 3d 57 27 38 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P PERF PAJRN,=W'8' ┆
0x46cc…471c (47, 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 0e 01 6c 00 4c 00 50 44 4e 31 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 ┆ l L PDN100 ┆
0x471c…476c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 00 2c 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 ┆ , L P* ┆
0x476c…47bc 00 00 00 00 00 00 00 00 00 00 00 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 0f 00 7c 00 4c 00 50 2a 20 20 20 55 50 44 41 54 45 20 41 43 43 4f 55 4e 54 2d 52 45 43 4f 52 44 28 46 52 4f 4d 29 00 00 00 00 00 ┆ * | L P* UPDATE ACCOUNT-RECORD(FROM) ┆
0x47bc…480c 00 00 00 00 00 00 00 00 00 00 00 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 0f 00 cc 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 ┆ * L P* ┆
0x480c…485c 00 00 00 00 00 00 00 00 00 00 00 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 0f 01 1c 00 32 00 50 5c 50 45 52 46 5c 51 45 4e 54 52 53 2c 41 44 4c 41 53 54 52 53 5c 55 50 44 41 54 45 20 4c 41 53 54 20 54 52 ┆ * 2 P PERF QENTRS,ADLASTRS UPDATE LAST TR┆
0x485c…48ac (48, 0, 400) 41 4e 53 41 43 54 49 4f 4e 20 00 0f 01 6c 00 06 00 50 2a 20 00 10 00 12 00 3a 00 50 2a 20 20 20 54 44 41 4d 4f 55 4e 54 20 43 4f 4e 54 41 49 4e 53 20 41 4d 4f 55 4e 54 20 4b 45 59 45 44 20 49 4e 20 42 59 20 54 48 45 20 4f 50 45 52 41 54 4f ┆ANSACTION l P* : P* TDAMOUNT CONTAINS AMOUNT KEYED IN BY THE OPERATO┆
0x48ac…48fc 52 20 00 10 00 1c 00 06 00 50 2a 20 00 10 00 5a 00 14 00 50 5c 54 42 46 5c 53 42 52 56 53 2c 44 4e 31 31 30 00 10 00 64 00 18 00 50 5c 4d 55 4c 5c 54 44 41 4d 4f 55 4e 54 2c 3d 44 27 2d 31 27 00 10 00 7c 00 0a 00 50 44 4e 31 31 30 20 00 10 ┆R P* Z P TBF SBRVS,DN110 d P MUL TDAMOUNT,=D'-1' | PDN110 ┆
0x48fc…494c 00 98 00 18 00 50 5c 53 55 42 5c 41 44 42 41 4c 2c 54 44 41 4d 4f 55 4e 54 20 00 10 00 a6 00 04 00 50 00 10 00 c2 00 4c 00 50 5c 41 44 44 5c 41 44 57 44 52 43 55 4d 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 ┆ P SUB ADBAL,TDAMOUNT P L P ADD ADWDRCUM,TDAMOUNT ┆
0x494c…499c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 00 ca 00 4c 00 50 5c 41 44 44 5c 59 44 4c 41 53 53 45 51 2c 3d 44 27 31 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P ADD YDLASSEQ,=D'1' ┆
0x499c…49ec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 01 1a 00 4c 00 50 5c 4d 4f 56 45 5c 41 44 4c 41 53 53 45 51 2c 59 44 4c 41 53 53 45 51 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P MOVE ADLASSEQ,YDLASSEQ ┆
0x49ec…4a3c (49, 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 10 01 6a 00 4c 00 50 44 4e 32 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 ┆ j L PDN200 ┆
0x4a3c…4a8c 00 00 00 00 00 00 00 00 00 00 00 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 2a 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 ┆ * L P* ┆
0x4a8c…4adc 00 00 00 00 00 00 00 00 00 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 7a 00 4c 00 50 2a 20 20 20 55 50 44 41 54 45 20 41 43 43 4f 55 4e 54 2d 52 45 43 4f 52 44 28 54 4f 29 00 00 00 00 00 00 00 00 00 ┆ * z L P* UPDATE ACCOUNT-RECORD(TO) ┆
0x4adc…4b2c 00 00 00 00 00 00 00 00 00 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 ca 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 ┆ * L P* ┆
0x4b2c…4b7c 00 00 00 00 00 00 00 00 00 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 01 1a 00 4c 00 50 5c 41 44 44 5c 42 44 42 41 4c 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 ┆ * L P ADD BDBAL,TDAMOUNT ┆
0x4b7c…4bcc (50, 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 11 01 6a 00 2c 00 50 5c 50 45 52 46 5c 51 45 4e 54 52 53 2c 42 44 4c 41 53 54 52 53 5c 55 50 44 41 54 45 20 4c 41 53 54 20 54 52 41 4e ┆ j , P PERF QENTRS,BDLASTRS UPDATE LAST TRAN┆
0x4bcc…4c1c 53 2e 00 12 00 2a 00 4c 00 50 44 4e 32 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 00 00 00 00 00 00 00 00 00 00 00 ┆S. * L PDN210 ┆
0x4c1c…4c6c 00 00 00 12 00 5a 00 4c 00 50 5c 41 44 44 5c 42 44 44 45 50 43 55 4d 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Z L P ADD BDDEPCUM,TDAMOUNT ┆
0x4c6c…4cbc 00 00 00 12 00 aa 00 4c 00 50 5c 4d 4f 56 45 5c 42 44 4c 41 53 53 45 51 2c 41 44 4c 41 53 53 45 51 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 ┆ L P MOVE BDLASSEQ,ADLASSEQ ┆
0x4cbc…4d0c 00 00 00 12 00 fa 00 4c 00 50 44 4e 33 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 ┆ L PDN300 ┆
0x4d0c…4d5c (51, 0, 400) 00 00 00 12 01 4a 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 ┆ J L P* ┆
0x4d5c…4dac 00 2a 00 13 00 0a 00 4c 00 50 2a 20 20 20 55 50 44 41 54 45 20 54 52 41 4e 53 41 43 54 49 4f 4e 2d 52 45 43 4f 52 44 28 46 52 4f 4d 29 00 00 00 00 00 00 00 00 00 00 00 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* UPDATE TRANSACTION-RECORD(FROM) ┆
0x4dac…4dfc 00 2a 00 13 00 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * Z L P* ┆
0x4dfc…4e4c 00 2a 00 13 00 aa 00 4c 00 50 5c 4d 4f 56 45 5c 54 44 54 52 53 52 4e 52 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 00 00 00 00 00 00 00 00 00 00 ┆ * L P MOVE TDTRSRNR,ADACTRNR ┆
0x4e4c…4e9c 00 00 00 13 00 fa 00 4c 00 50 5c 41 44 44 5c 54 44 54 52 53 52 4e 52 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 ┆ L P ADD TDTRSRNR,ADLASTRS ┆
0x4e9c…4eec (52, 0, 400) 00 00 00 13 01 4a 00 4c 00 50 5c 4d 4f 56 45 5c 54 44 54 52 53 53 45 51 2c 41 44 4c 41 53 53 45 51 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 ┆ J L P MOVE TDTRSSEQ,ADLASSEQ ┆
0x4eec…4f3c 00 00 00 14 00 0a 00 4c 00 50 5c 4d 4f 56 45 5c 54 44 4e 45 57 42 41 4c 2c 41 44 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P MOVE TDNEWBAL,ADBAL ┆
0x4f3c…4f8c 00 00 00 14 00 5a 00 0a 00 50 44 4e 34 30 30 20 00 14 00 aa 00 06 00 50 2a 20 00 14 00 b8 00 26 00 50 2a 20 20 20 55 50 44 41 54 45 20 54 52 41 4e 53 41 43 54 49 4f 4e 2d 52 45 43 4f 52 44 28 54 4f 29 20 00 14 00 c2 00 06 00 50 2a 20 00 14 ┆ Z PDN400 P* & P* UPDATE TRANSACTION-RECORD(TO) P* ┆
0x4f8c…4fdc 00 ec 00 1c 00 50 5c 4d 4f 56 45 5c 55 44 54 52 53 52 4e 52 2c 42 44 41 43 54 52 4e 52 20 00 14 00 f6 00 1a 00 50 5c 41 44 44 5c 55 44 54 52 53 52 4e 52 2c 42 44 4c 41 53 54 52 53 00 14 01 16 00 1c 00 50 5c 4d 4f 56 45 5c 55 44 54 52 53 53 ┆ P MOVE UDTRSRNR,BDACTRNR P ADD UDTRSRNR,BDLASTRS P MOVE UDTRSS┆
0x4fdc…502c 45 51 2c 42 44 4c 41 53 53 45 51 20 00 14 01 34 00 1c 00 50 5c 4d 4f 56 45 5c 55 44 41 4d 4f 55 4e 54 2c 54 44 41 4d 4f 55 4e 54 20 00 14 01 54 00 18 00 50 5c 4d 4f 56 45 5c 55 44 4e 45 57 42 41 4c 2c 42 44 42 41 4c 00 14 01 74 00 1c 00 50 ┆EQ,BDLASSEQ 4 P MOVE UDAMOUNT,TDAMOUNT T P MOVE UDNEWBAL,BDBAL t P┆