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

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