Re: Entry Parameters

'99011}" would be -990110

Like I said in another post, } is -0, J is -1 through R which is -9

The negative applies to the whole number.

Regards,

Jim Langston

boothm@earth.Goddard.edu wrote:

> What is the value of "99011}" Simon?
>
> _______________________
> Booth Martin
> boothm@earth.goddard.edu
> http://www.spy.net/~booth
> _______________________
>
> "Simon Coulter" <shc@flybynight.com.au>
> Sent by: owner-rpg400-l@midrange.com
> 01/20/2000 03:32 AM
> Please respond to RPG400-L
>
>
>         To:     RPG400-L@midrange.com
>         cc:
>         Subject:        Re: Entry Parameters
>
> 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
+---