RE: Parameter passing from CLP to COBOL/400 program

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:

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

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.
http://mailplus.yahoo.com