Re: Passing Parms to an RPG Program

[Mike.Barton@xxxxxxxxxxxx]

> CALL PGM(ALIBARY/PROGRAMX) PARM(9)
>
>I need to pass a numeric variable to my RPG program
>that looks like this:


Hi
     this has been mentioned quite recently & should
be in the archives, however its pretty straightforward.

When passing numeric (specifically packed) you must format
your parameter to match what the program expects.

The rule is as follws (packed only - not zoned):

add 1 to the length of your input variable.
If the result is not even and another.
Then prefix your data with x'  adn suffix with F'.

eg If CUSTID is 5P0  .'. 5+1 = 6 + 0 (being even) = 6.

CALL PGM(LIBARY/PROGRAMX) PARM(X'00009F')

or if CUSTID is 6P0 .'. 6+1= 7 +1 (to make result even) = 8

CALL PGM(LIBARY/PROGRAMX) PARM(X'0000009F')

Esentially, make the number of digits within the quotes
an even number.

If you want to pass a -ve number, change the F to a D.


Mike


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---