RE: Data Decimal Error when going from interactive to batch in CL.

["Shannon Wolf" <Shannon.Wolf@xxxxxxxxx>]

&PPERD is numeric 5 0.

Thanks

Shannon

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Luis Rodriguez
Sent: Tuesday, September 28, 2010 9:51 AM
To: RPG programming on the IBM i / System i
Subject: Re: Data Decimal Error when going from interactive to batch in CL.

Shannon,

What is the definition spec for &PPERD (both, in the CL and in your RPG
program)?

Regards,

Luis Rodriguez
IBM Certified Systems Expert - eServer i5 iSeries
--



On Tue, Sep 28, 2010 at 8:43 AM, Shannon Wolf <Shannon.Wolf@xxxxxxxxx>wrote:

> Hello all,
>
>
>
> I am attempting to perform a call to an SQLRPGLE program from a CL in batch
> mode in order to speed up processing, or make it at least appear that way so
> the screen doesn't hang for the user.  When I perform the simple "CALL
> PGM(PROOBJ/UNVGRN) PARM(&PPERD)", the program works without error, however,
> keeps the screen up for the user while it processes which may take up to 2
> minutes, leaving the user unable to do anything except wait.  When I change
> the same statement to a SBMJOB  like the last line in the code below, I
> receive a data decimal error, however, I have a hard time finding the
> problem by looking at the dump.  Please help.  The problem line of code or
> so I think is marked with "à".
>
>
>
>             DCLF       FILE(PROOBJ/UNVGRNSCR)
>
>             ADDLIBLE   LIB(PROOBJ)
>
>             MONMSG     MSGID(CPF2103)
>
>             ADDLIBLE   LIB(PROLIB)
>
>             MONMSG     MSGID(CPF2103)
>
>             OVRPRTF    FILE(unvgrnp) OUTQ(QUSRSYS/COMPLEO) +
>
>                          HOLD(*NO) SECURE(*YES)
>
>  DISPLAY:    SNDRCVF    RCDFMT(F01)
>
> àààà             IF         COND(&PPERD *NE 0) THEN(SBMJOB CMD(CALL +
>
>                          PGM(PROOBJ/UNVGRN) PARM(&PPERD)))
>
>
>
>
>
> **********************************************************************
> This message, together with any attachments, may include proprietary and
> confidential information of Ormet and is intended only for the person or
> persons to whom it is addressed.  If you are not the intended recipient, you
> are hereby notified that any disclosure, copying, distribution, use, or any
> action or reliance on this communication is strictly prohibited.  This
> document is not intended to operate as an electronic signature and is not
> intended to form a binding contract unless it so expressly states.  If you
> have received this e-mail in error, please notify the sender immediately by
> return e-mail and delete the message, along with any attachments.
> --
> This is the RPG programming on the IBM i / System i (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.