RE: Parm Passing (Numericals)

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

How are the parms in WH037R2 defined?  They need to be 15,5 if you are
passing numeric parms on the SBMJOB.

Scott Mildenberger

> -----Original Message-----
> From: Juan Robledo [mailto:Juan_Robledo@irco.com]
> Sent: Tuesday, October 23, 2001 8:37 AM
> To: rpg400-l@midrange.com
> Subject: Parm Passing (Numericals)
>
>
> hi
> This is what my QCMDEXc looks like:
>
> 0074.00 DSUBMIT           PR                  Extpgm('QCMDEXC')
> 0075.00 D Command                      200
> 0076.00 D CmdLen                        15P 5 Const
> 0077.00
> 0078.00 DCommand          S            200
> 0079.00 DCmdLen           S             15  5 inz(200)
>
> 0208.00 C                   Eval      Command =
> 0209.00 C                             'SBMJOB CMD(CALL
> PGM(WH037R2) PARM('
> +
> 0210.00 C                             %char(#PFrom) + ' ' +
> %CHAR(#PTO) +
> ')) +
> 0211.00 C                             JOB(AccDetail)'
> 0212.00 C                   CallP     SUBMIT(Command : Cmdlen)
>
>
> and this is what i get:
> CALL PGM(WH037R2) PARM(20011010 20011022)
> Decimal data error.
> Function check. MCH1202 unmonitored by WH037R2 at statement
> 0000000162,
>   instruction X'0000'.
> Decimal-data error occurred (C G D F).
>
> Juan Robledo
> Programmer Analyst
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>