Hi
How can i call the another program in /FREE format using PARM
Thanx in advance
magesh
How can i call the another program in /FREE format using PARM
Thanx in advance
magesh
c PGMA plist c parm Parm1 c parm Parm2 c parm Parm3 c parm Parm4
d ProgramA pr extpgm('PGMA') d parm1 4 0 d parm2 6 0 d parm3 18 0 d parm4 3 0
/Free Callp ProgramA (parm1:parm2:parm3:parm4); /End-free
/Free ProgramA (parm1:parm2:parm3:parm4); /End-free
* calls program that performs RTVMBRD d getNbrRecords pr extPgm( 'EDMPRG02C' ) d file 10a d library 10a d nbrRecords 10p 0
getNbrRecords( file : library : nbrRecords ); if nbrRecords > 0; // records found, populate array : : endif;
Comment