Re: Varable initialized with more data then defined for

[Bruce Vining <bvining@xxxxxxxxxxxxxxx>]

I interpret the error as saying the SNDDST command, being passed in the CMD
parameter of the SWPUSRPRF command, is exceeding 5000 bytes rather than
just &M.


On Thu, May 2, 2013 at 8:36 AM, Steinmetz, Paul <PSteinmetz@xxxxxxxxxx>wrote:

> We ran into an issue where a  variable, defined as *CHAR with a length of
> 5000, but either  initialized or data moved to this field exceeded 5000
> characters, caused a subsequent command to fail because of length
> limitation issue, CPD0183. How can this happen? Is this a bug? How can a
> field have more data than it was defined for.
> We saw the same results if the data was defined in an RPGLE program,
> passed it the CL.
>
> DCL        VAR(&M) TYPE(*CHAR) LEN(5000)
>
> SWPUSRPRF  USRPRF(CPATEXT) CMD(SNDDST TYPE(*LMSG) +
>              TOINTNET((psteinmetz@xxxxxxxxxx)) +
>              DSTD(TEST) LONGMSG(&M))
>
> Message ID . . . . . . :   CPD0183       Severity . . . . . . . :   30
> Message type . . . . . :   Diagnostic
> Date sent  . . . . . . :   05/02/13      Time sent  . . . . . . :
> 09:22:03
>
> Message . . . . :   Embedded command SNDDST too long.
> Cause . . . . . :   The length specified for the embedded command exceeds
> the
>   defined length.  Command length is 5001, but the maximum length for the
>   embedded command string is 5000.
>
> Thank You
> _____
> Paul Steinmetz
> IBM i Systems Administrator
>
> Pencor Services, Inc.
> 471 Delaware Ave
> Palmerton Pa 18071
>
> 610-826-9117 work
> 610-826-9188 fax
> 610-349-0913 cell
> 610-377-6012 home
>
> psteinmetz@xxxxxxxxxx<mailto:psteinmetz@xxxxxxxxxx>
> http://www.pencor.com/
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.