This was just answered today on the RPG400 list: 1) One method, if you are absolutely sure that the parameter coming in is numeric you can define the parameter as zoned and the same size and you shouldn't have a problem. Otherwise, I've copied the email below: >Am I trying to do something that isn't do-able in free-format RPG? > >I have a four character year parameter (being passed from an old PL/I >program) into my new RPGLE program. I want to move it to a four numeric >field for manipulation. What is the best way to do this? Try using the C Procedure "atoi". I don't know C but found it very easy to use anyway. H BndDir( 'QC2LE' ) D atoi pr 10i 0 ExtProc('atoi') D atoichar * value options(*string) D year_4a s 4a D year_4p0 s 4p 0 /free year_4p0 = atoi(year_4a); /end-free Kind regards, Seth Shields Julius Blum Inc. Rob Berendt ================== "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin "Alan Novick" <email@example.com To: "MidRange-L" <MidRange-L@MidRange.Com> om> cc: Sent by: Fax to: midrange-l-admin@mi Subject: /free & char to numeric drange.com 12/14/2001 01:30 PM Please respond to midrange-l Is there a way to move from character to numeric in the new /free format? Thanks, Alan Novick Pressman Toy Corporation New Brunswick, NJ _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l or email: MIDRANGE-Lfirstname.lastname@example.org Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.