|
'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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.