Well, son of a bum.  I didn't think you could pass a character parm to
a program expecting a zoned-decimal parm.  I just tested this with CLP
program calling an RPG-IV program and it works.  

So, Kathir, you should try calling your Cobol program in a CL program
using a 6-character variable as your parameter.  Here is the code I
used to test this with:

        dcl    &Numeric  *Dec   6  Value( 123456 )
        dcl    &CharParm *Char  6                 
        Chgvar &CharParm  &Numeric             
        Call   TEST9R4 Parm( &CharParm )         

The RPG-IV program TEST9R4 defined a 6-digit zoned decimal field as the
entry parameter, and a dump shows that it worked.  I would have tried
it in Cobol myself if I were a little more familiar with numeric
formats in Cobol.

- Dan

--- "Weatherly, Howard (Contractor) (DLIS)"
<Howard.Weatherly@dlis.dla.mil> wrote:
> Dan, Kathir,
> I am not an RPG person but from what I remember, zoned is the same as
> zoned
> decimal in COBOL or in other words Display numeric so in COBOL FLD
> PIC 9(5)
> Value 12345 is F1F2F3F4F5 so simply passing the value to a PIC 9(n)
> field
> will work. The CL should define the value as *CHAR.

Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 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.