SELECT ACTION processing

[James B. Byrne]

On Mon, October 24, 2022 12:23, James B. Byrne wrote:
> We run PH-8.39C on MPE/iX-7.5pp5.
>
> I have a SCREEN that handles foreign currency (FC) transactions using the
> following code:
>
> . . .
> PROCEDURE INTERNAL INPUT-FC
> BEGIN
> IF   0 NE SIZE(FIELDTEXT)                                          &
> AND  EXCHANGE-RATE OF TRANSACTIONS NE 0                            &
> AND  EXCHANGE-RATE OF TRANSACTIONS NE 1
> THEN BEGIN
>   IF "$" NE FIELDTEXT[1:1]
>   THEN BEGIN
>     LET QKT-AMOUNT = ROUND((NCONVERT(FIELDTEXT) *                  &
>                             EXCHANGE-RATE OF TRANSACTIONS),2,NEAR)
>     LET FIELDTEXT = ASCII(QKT-AMOUNT) + "."                        &
>                   + ASCII(ROUND(MOD((QKT-AMOUNT * 100),100)        &
>                           ,0,NEAR),2)
>     END
>   ELSE BEGIN
>     LET FIELDTEXT = FIELDTEXT[2:(SIZE(FIELDTEXT))]
>     END
>   END
> END
>

The logic error is that when SElECTing I do not have an EXCHANGE-RATE to
determine the FC value.  Ah well.

Sorry to have bothered you.


-- 
***          e-Mail is NOT a SECURE channel          ***
        Do NOT transmit sensitive data via e-Mail
   Unencrypted messages have no legal claim to privacy
 Do NOT open attachments nor follow links sent by e-Mail

James B. Byrne                mailto:ByrneJB at Harte-Lyne.ca
Harte & Lyne Limited          http://www.harte-lyne.ca
9 Brockley Drive              vox: +1 905 561 1241
Hamilton, Ontario             fax: +1 905 561 0757
Canada  L8E 3C3