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) ActGrp(*Caller) DecEdit(*Jobrun) ALWNULL(*USRCTL)
  BndDir('JASTOOL');

dcl-f DISPLAYFM workstn infds(d_wsds);

/define FLD_LOC_pr
/include qProtosrc,jsFldLoc       

Fld_Loc($cRow:$cCol:'$CMP':'S1CONTROL':##wsFILE);