Progress
Language Reference


NOT ENTERED Function

Interfaces
OS
SpeedScript
All
All
No

Returns a TRUE value if a frame field was not modified during the last INSERT, PROMPT-FOR, SET, or UPDATE statement.

SYNTAX

[ FRAME frame ] field NOT ENTERED 

FRAME frame

The frame name that contains the field named by the field argument. If you do not name a frame, the NOT ENTERED function starts with the current frame and searches outward until it finds the field you name with the field argument.

field

The name of the field or variable you are checking.

EXAMPLE

This procedure displays the cust-num, name, and credit-limit for each customer. For each customer, the procedure prompts the user for a new credit-limit value. The NOT ENTERED function tests to see if you enter a value. If you enter a value and it is different from the present value of credit-limit, the procedure displays the old and new credit-limit values. If you enter the same value or no value, the procedure displays a message that the credit-limit has not been changed.

r-nenter.p
DEFINE VARIABLE new-max LIKE credit-limit.

FOR EACH CUSTOMER:
    DISPLAY cust-num name credit-limit LABEL "current max credit"
       WITH FRAME a 1 DOWN ROW 1.
    SET new-max LABEL "new max credit"
       WITH SIDE-LABELS NO-BOX ROW 10 FRAME b.
    IF new-max NOT ENTERED OR new-max = credit-limit THEN DO:
        DISPLAY "No Change In credit-limit" WITH FRAME d ROW 15.
        NEXT.
    END.
    DISPLAY "Changing Credit Limit of" name SKIP
            "from" credit-limit "to"
            new-max WITH FRAME c ROW 15 NO-LABELS.
    credit-limit = new-max.
END. 

NOTE

If you use a field or variable referenced with NOT ENTERED in more than one frame, then Progress uses the value in the frame most recently introduced in the procedure. To make sure you are using the appropriate frame, use the FRAME option with the NOT ENTERED function to reference a particular frame.

SEE ALSO

ENTERED Function


Copyright © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095