Re: Parameters passed to RPG

[Pete Hall <peteh@xxxxxxxxxx>]

At 13:33 12/30/1998 -0800, Rajeev Asthana wrote:
>@PCOMP 3   (CHAR)
>@PGRP  50  (NUMERIC)
>@PCENT 20  (NUMERIC)
>@PDATE 60  (NUMERIC)
>
>I have to call this program with following values:
>@PCOMP '020'
>@PGRP  65
>@PCENT 19
>@PDATE 981024
>
>I'm passing parameters as follows:
>CALL PGM(DELGRP) PARM('020' X'00065F' X'19' X'981024')

If your numeric values are all packed, try:

PARM('020' X'00065F' X'019F X'98102F')

If they were all zoned, you would need:

PARM('020' '00065' '19' '981024')

Search the bottom of the compile listing to locate the storage usage map.
It will show you what the storage format is. Generally, numeric RPG
variables are packed unless specifically coded as something else, or
contained in a data structure, which defaults to zoned format.


Pete Hall
peteh@inwave.com
http://www.inwave.com/~peteh
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---