You must be logged in to use the copy button.

        
**Free
Ctl-Opt
  Copyright('Copyright JAS, Inc.')
  Option(*SrcStmt :*NoDebugIO)  CCSID(*CHAR:*JOBRUN)
  DftActGrp(*No) DecEdit(*Jobrun) ALWNULL(*USRCTL)
  ActGrp('TEST')
  BNDDIR('JASTOOL');

/define Obj_Exists_PR
/copy qProtosrc,JSOBJEXIST

if Obj_Exists('JSTEST1':'*PGM');
  Dsply 'Object found';
else;
  Dsply 'Not found';
endIf;

*Inlr = *on;