700-GET-TRANSACTION

700-GET-TRANSACTION gets the transaction waiting at the form that caused the calling program to be scheduled. As the transaction data is passed to the program, many of the common control fields are also reset to point to the current user. Immediately following receipt of the transaction data, the routine gets the current time and date.

Library CRTRTNS
Input No input required.
Output

CRT-TRANSACTION (always set) CRTWS (system variables set or reset)

WS-DATE-TIME (always set)
Note: If a transaction is not available, or if a system error occurs, the END-OF-PROGRAM switch in CRTWS is turned on.

Programming Example

*       Get the next transaction.
        PERFORM 700-GET-TRANSACTION.