Re: Passing a file as a parameter to a second Program

[Carel <coteijgeler@xxxxxxxxx>]

You pass an external described DS. thus you should also define an 
external described DS in the called programme.

Regards,
Carel Teijgeler.

On 4-2-2013 19:32, RPGLIST wrote:
> I am attempting to pass a file as a parm to a second pgm, but it will not
> compile.  Any suggestions or pointers would  be greatly appreciated.
>
>
> Here is what I have so far:
>
> Program A - The Caller
>
> 0001.00 FTrctCont  if   e           k disk    block(*no)
> 0005.00
> 0005.01 DMytest1          pr                  extpgm('MyTest1')
> 0005.02 D Parm1                               LikeFile(TrctCont)
> 0005.03 D
> 0006.00  /Free
> 0006.01      Callp MYTEST1(TrctCont);
> 0006.02      *Inlr = *On;
> 0007.00  /End-Free
>
> Program B - The Called Program
>
> FTrctCont  if   e           k disk    template block(*No)
> F                                     Qualified
> DMyTest1          pr                  ExtPgm('MYTEST1')
> D parm1                               LikeFile(TrctCont)
>
> DMyTest1          pi
> D Parm1                               LikeFile(TrctCont)
>
> DMyVal1           s              1n
>
>
>   /Free
>      If Parm1.emlrdt = 0;
>         MyVal1 = *On;
>      Endif;
>      *Inlr = *On;
>   /End-Free