GO-PENDING function

GO-PENDING function

Returns a TRUE value if, within an EDITING phrase, an APPLY statement results in a GO action. The GO action is deferred until the end of the EDITING phrase.

This function is supported only for backward compatibility.

Note: Does not apply to SpeedScript programming.

Syntax
GO-PENDING 
Example

The r-gopend.p procedure lets you update some of the fields in each customer record. If you press GO when the value in the current balance field is greater than the balance in the credit-limit field, the UPDATE statement does not end. Instead, it continues prompting you for input until you correct the problem and then press GO.
r-gopend.p
REPEAT: 
  PROMPT-FOR Customer.CustNum. 
  FIND Customer USING Customer.CustNum. 
  UPDATE 
    Customer.Name Customer.Address Customer.City Customer.State SKIP 
    Customer.CreditLimit Customer.Balance WITH 1 COLUMN EDITING: 
    READKEY. 
    APPLY LASTKEY. 
    IF GO-PENDING AND INPUT Customer.Balance >  
      INPUT Customer.CreditLimit THEN DO: 
      MESSAGE "The current unpaid balance exceeds the credit limit.". 
      NEXT. 
    END. 
  END. /* EDITING */ 
END. 
See also

APPLY statement, EDITING phrase

GO-PENDING

r-gopend.p
REPEAT: PROMPT-FOR Customer.CustNum. FIND Customer USING Customer.CustNum. UPDATE Customer.Name Customer.Address Customer.City Customer.State SKIP Customer.CreditLimit Customer.Balance WITH 1 COLUMN EDITING: READKEY. APPLY LASTKEY. IF GO-PENDING AND INPUT Customer.Balance > INPUT Customer.CreditLimit THEN DO: MESSAGE "The current unpaid balance exceeds the credit limit.". NEXT. END. END. /* EDITING */ END.

OpenEdge Release 10.2B