Re: Basic question, sorry in advance

[Michael Schutte <mschutte369@xxxxxxxxx>]

These don't appear to be the *ENTRY PLIST for program WHSCHG.

How is the first parm of WHSCHG defined?  Is it 12,0?

If so then you would need to do this.

CALL PGM(MYLIB/WHSCHG) PARM(X'0000701108136F' '100)

12,0 is a packed field.  So you have to pass the hex value in packed form.

1. So you always start with X'

2.a If the length is even then you automatically start with a 0.
2.b If your length is odd, just continue to step three.

3. Follow it up with the number digits that match in the parm field. With
leading zeroes if needed.

4. Since you are wanting to pass a positive value, end it with F'



On Tue, Mar 8, 2016 at 11:38 AM, Hoteltravelfundotcom <
hoteltravelfun@xxxxxxxxx> wrote:

> housek        begsr
> parms         plist
> c                   parm                    ponum            1200
> c                   parm                    whs               3
>
>
> this is not working. I debug and the values here are 0000's and blanks,
>
> I have hard coded values so i can test but why would this not pass.
>
> here is the way i am calling for now.
>
> CALL PGM(MYLIB/WHSCHG) PARM(70118136 '100')
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.