powerh-l Digest, Vol 164, Issue 4

[Ken Langendock]

IF you do anything in the input procedure that moves a value, FIELDTEXT gets reset.
What I have done in the past is store the fieldtext in a temporary item and them put it back once complete.

  TEMP T-HoldFieldtext ... RESET AT STARTUP

PROCEDURE INPUT Amount OF Transactions
BEGIN
  LET T-HoldFieldtext = FIELDTEXT
  LET something else
  LET FIELDTEXT = T-HoldFieldtext    ;last line of Input Procedure.
END

See if that helps....

Ken
-----Original Message-----
From: powerh-l [mailto:powerh-l-bounces at lists.sowder.com] On Behalf Of powerh-l-request at lists.sowder.com
Sent: October 27, 2022 1:00 PM
To: powerh-l at lists.sowder.com
Subject: powerh-l Digest, Vol 164, Issue 4

Send powerh-l mailing list submissions to
	powerh-l at lists.sowder.com

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sowder.com/mailman/listinfo/powerh-l
or, via email, send a message with subject or body 'help' to
	powerh-l-request at lists.sowder.com

You can reach the person managing the list at
	powerh-l-owner at lists.sowder.com

When replying, please edit your Subject line so it is more specific
than "Re: Contents of powerh-l digest..."


Today's Topics:

   1. Re:User SELECT ACTION processing. (James B. Byrne)


----------------------------------------------------------------------

Message: 1
Date: Thu, 27 Oct 2022 09:16:58 -0400
From: "James B. Byrne" <byrnejb at harte-lyne.ca>
To: powerh-l at lists.sowder.com
Subject: Re: User SELECT ACTION processing.
Message-ID:
	<5275888eefe77bbb93a761685b585329.squirrel at webmail.harte-lyne.ca>
Content-Type: text/plain;charset=iso-8859-1

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



------------------------------

Subject: Digest Footer

-- 
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l at lists.sowder.com
Subscribe: "subscribe" in message body to powerh-l-request at lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to powerh-l-request at lists.sowder.com
https://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.

------------------------------

End of powerh-l Digest, Vol 164, Issue 4
****************************************


-- 
This email has been checked for viruses by AVG antivirus software.
www.avg.com