Was this helpful?
MESSAGE Examples
1. Return debugging text to the application:
MESSAGE 'Inserting new row';
    INSERT INTO tab VALUES (:val);
    MESSAGE 'About to commit change';
    COMMIT;
    MESSAGE 'Deleting newly inserted row';
    DELETE FROM tab WHERE tabval = :val;
    MESSAGE 'Returning with pending change';
    RETURN;
2. Return a message number to the application. The application can extract the international message text out of a message file.
IF iierrornumber > 0 THEN
        MESSAGE 58001;
    ELSEIF iirowcount <> 1 THEN
        MESSAGE 58002;
    ENDIF;
3. Send a message to the error log file:
MESSAGE 'User attempting to update payroll table'
    WITH DESTINATION = (ERROR_LOG);
Last modified date: 04/26/2024