 /* REXX */
 /*********************************************************************/
 /* Licensed Material - Property of IBM                               */
 /* 5639-B92 , 5648-A25 , 5688-197 , 5639-D65 , 5688-235              */
 /* (C) Copyright IBM Corp., 1997, 1998                               */
 /* All rights reserved.                                              */
 /* US Government Users Restricted Rights - Use, duplication or       */
 /* disclosure restricted by GSA ADP Schedule Contract with IBM Corp. */
 /*********************************************************************/
 trace off;
 signal on novalue;
 say '---------- Remote Edit/Compile/Debug ----------';
 parse upper source x x x x sigyclst rest;
 if sigyclst = '?' then
   do;
   say 'Cannot determine dataset name containing IGYFPROC';
   exit 16;
   end;
 parse arg theargs;
 ADDRESS TSO "EXEC '"sigyclst"(IGYFPROC)' '"theargs"'";
 tso_rc = rc;
 exit tso_rc;
