User SELECT ACTION processing.

[James B. Byrne]

I have this code:


TEMPORARY QKT-SELECT-AMT FLOAT SIZE 8


FIELD AMOUNT OF TRANSACTIONS REQUIRED                              &
    PICTURE " ^^^^^^^^^^.^^ " OUTPUT SCALE 2 SIGNIFICANCE 5        &
    LEADING SIGN "(" TRAILING SIGN ")"                             &
    VALUES 0 TO 9999999999.99                                      &
    ID NEXT AT 12,46 LABEL "Journal Total" AT 12,49 DATA AT 12,63

PROCEDURE INPUT AMOUNT OF TRANSACTIONS
BEGIN
DO INTERNAL INPUT-FC
IF SELECTMODE
  THEN BEGIN
  LET QKT-SELECT-AMT = 0
  INFO = "SELECTMODE FIELDTEXT " + FIELDTEXT NOW RESPONSE
  LET QKT-SELECT-AMT = ROUND((NCONVERT(FIELDTEXT) *                &
                            EXCHANGE-RATE OF TRANSACTIONS),2,NEAR)
  IF QKT-SELECT-AMT NE 0
    THEN INFO  = "SELECTMODE QKT-SELECT-AMT NE 0"
    ELSE INFO  = "SELECTMODE QKT-SELECT-AMT EQ 0"
  END
END

Which gives this result:

SELECTMODE FIELDTEXT 5079.89
SELECTMODE QKT-SELECT-AMT EQ 0

A similar outcome is observed when I move the QKT-SELECT-AMT assignment to the
INTERNAL procedure INPUT-FC.

The implication being that one cannot touch items other than
FIELDTEXT/FIELDVALUE inside INPUT procedure processing.  Is this the case as
the documentation seems to suggest?  And is there any way around this
limitation?


-- 
***          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