Example

The following is an example of how to code a call to DSNTIAR:

01 ERR-MSG.
    05 ERR-MSG-LTH  PIC S9(04) COMP VALUE +280.
    05 ERR-MSG-TBL  PIC X(70) OCCURS 4 TIMES.
01 ERR-LINE-LTH   PIC S9(09) COMP VALUE +70.
 ...
CALL 'DSNTIAR' USING SQLCA, ERR-MSG, ERR-LINE-LTH