Wednesday, June 07, 2006

DSNTIAR in PL/I

Syntax: CALL DSNTIAR ( sqlca, message, lrecl );

Ex:
DCL DATA_LEN FIXED BIN(31) INIT(132);
DCL DATA_DIM FIXED BIN(31) INIT(10);
DCL 1 ERROR_MESSAGE AUTOMATIC,
3 ERROR_LEN FIXED BIN(15) UNAL INIT((DATA_LEN*DATA_DIM)),
3 ERROR_TEXT(DATA_DIM) CHAR(DATA_LEN);
···
CALL DSNTIAR ( SQLCA, ERROR_MESSAGE, DATA_LEN );


where ERROR_MESSAGE is the name of the message output area, DATA_DIM is the number of lines in the message output area, and DATA_LEN is the length of each line.

Because DSNTIAR is an assembler language program, you must include the following directives in your PL/I application:

DCL DSNTIAR ENTRY OPTIONS (ASM,INTER,RETCODE);

No comments: