U@GETERRORMSG

The U@GETERRORMSG routine retrieves a standard error message and builds the variable portion of it with program-supplied information (which may be null). Before returning to the caller, the variable area (E@ERRORVARS) and the application system code (E@ERRORCAT) are re-initialized to spaces.

Module DATABASE
Input

E@PGMCODE

E@ERRORCAT

E@ERRORNBR

E@ERRORVARS

Output

E@ERRORMSG (expanded message)

E@ERRORCAT (reset)

E@ERRORVARS (reset)

Programming Example

*       Set error message for program error display.
     IF        DAIVOLDACT = *BLANKS                     
               AND DAIVACTVTY = *BLANKS               
     EVAL      E@ERRORCAT     = 'GLCHN'    
     EVAL      E@ERRVAR1      = D@OLDACT      
     EVAL      E@ERRVAR2      = DAREACTVTY     
     EVAL      E@ERRORNBR     = 131                    
     CALLP     U@GETERRORMSG                    Get Error Msg