Re: Parameter passing from CLP to COBOL/400 program

[Dan <dbcerpg@xxxxxxxxx>]

I am certain there are better ways to accomplish your goal than I am
going to suggest you try, but in case you need a solution now and
better responses are slow in coming...

Idea #1:
Call the Cobol program with the parameter specified in hexadecimal. 
For example, if you wanted to use 123456 as the parameter value, you
would use this:
       CALL   COBOLPGM  PARM( X'F1F2F3F4F5F6' )
Of course, if you are dealing with a variable, you might have to build
the above command string and invoke it via QCMDEXC.  I.e.:
       CHGVAR  &CMD VALUE('CALL   COBOLPGM  PARM( X''' *CAT
                   &HEXZONED *CAT ''' )' )
       CALL    QCMDEXC  PARM( &CMD  100 )
You would have to figure a way to build the value for &HEXZONED.  BTW,
I'm not really sure the hex idea would work.  Before you go coding to
build the value for &HEXZONED, I would suggest you try a hard-coded
call (the example call with the PARM( X'F1F2F3F4F5F6' ))

Idea #2:
If you have the RPG compiler, create an RPG program that takes the CL
packed variable as an *Entry parameter, move that variable to a data
structure subfield defined as zoned.  (Question:  Can you use a DS
subfield as a parameter to call another program?)  Non-ILE RPG may be
the best to try as I think ILE-RPG defaults zoned definitions to packed
internally.  Maybe you can do a similar trick in Cobol?

HTH, Dan

--- Senkathiravan Athiappan <senkathiravan.athiappan@wipro.com> wrote:
> Hallo -
> 
> We need to pass a parameter from CLP to COBOL.
> 
> The entry parameter in COBOL is of attribute- length 6 and type
> Zoned.
> 
> I have the limitation of not doing any change to the Cobol program.
> 
> How should, I pass the Zoned field of length 6 from the CLP when I
> call
> the cobol program???
> 
> Pls., explain.
> 
> Regards,
> 
> Kathir



__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com