Re: Entry Parameters

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

M
Hello Barbara,

Negative values aren't a problem either.

   CALL PGM(JIMCONEX/CHGAPOPEN) PARM('5J' '99011}' '5J' '00012}')

will pass all the values as negative numbers.

Homework: "Why is it so?"

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> Date: Wed, 19 Jan 2000 16:52:32 -0500
> From: bmorris@ca.ibm.com
> To: RPG400-L@midrange.com
> Reply-To: RPG400-L@midrange.com
> Subject: Entry Parameters

> >Date: Wed, 19 Jan 2000 15:42:03 -0500
> >From: Buck Calabro <buck.calabro@aptissoftware.com>
> >
> > ... snip some correct information
> >
> >
> >If you call this from the command line (for
> >testing reasons) you can specify the parameters in hex mode:
> >CALL PGM(JIMCONEX/CHGAPOPEN) PARM(x'5f1f' x'9f9f0f1f1f0f' x'5f1f'
> >x'0f0f0f1f2f0f')
> >
> 
> Oops.  Zoned numbers have the hex form x'f5f1' etc., not x'5f5f'.
> 
> Anyway, with zoned parameters, it's easy to call from the command
> line as long as they aren't negative.  Just pass character literals
> since characters '0' - '9' have the same hex value x'Fn' as zoned
> digits.
> 
>   CALL PGM(JIMCONEX/CHGAPOPEN) PARM('51' '990110' '51' '000120')
> 
> Barbara Morris

+---
| 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
+---