QRCVDTAQ - CPF0819

[Mike.Crump@xxxxxxxxxxxxxxxx]

I'm doing some simple things with DTAQ's and the QRCVDTAQ API.....

I'm getting an error (after the program has been working for months) of
CPF0819.


CPF0819   Escape                  40   02/02/04  15:07:16.407896  QCLCNVNC
QSYS        0049
                     Message . . . . :   Variable or substring of variable
too small to hold  result.
                     Cause . . . . . :   Result of conversion too large for
receiver variable or  %SUBSTRING.
                     Recovery  . . . :   Increase size of variable or
length on %SUBSTRING.

Effectively, I'm creating a DTAQ on the fly with a length of 200...

 CRTDTAQ    DTAQ(&LIBRARY/&DTAQ) MAXLEN(200)

Attaching it to an outq and then calling the API so that I can retrieve
spool file information....

              CALL       PGM(QRCVDTAQ) PARM(&DTAQ &LIBRARY &DQLEN +
                           &DQDATA &DQWAIT)

Where &DQLEN = 200, &DQDTA = 200, and &DQWAIT = 5.


 DCL        VAR(&DQLEN) TYPE(*DEC) LEN(5 0) VALUE(200)
 DCL        VAR(&DQDATA) TYPE(*CHAR) LEN(200)
 DCL        VAR(&DQWAIT) TYPE(*DEC) LEN(5 0) VALUE(5)

I get the error on the call pgm(qrcvdtaq) line.  Is there something I'm not
doing right?