Back To LeighWeb Mainframe Utilities Page

PROC 1 DATA_SET_NAME_OR_GO
/*********************************************************************/
/*       COMPUWARE CORPORATION   FARMINGTON HILLS, MICHIGAN          */
/*            F2 - INVOKE FILE-AID EDIT (F.2) DIRECTLY               */
/*********************************************************************/
CONTROL MSG
SET &FUNCVAR = &STR(2)
SET &DSNVAR  = &STR(&DATA_SET_NAME_OR_GO)
IF &SUBSTR(1:1,&DSNVAR) = &STR(') -
  THEN SET "E = &STR(QUOTE)
  ELSE SET "E = &STR()
/*********************************************************************/
/* PASS PARMS TO FADYNALC TO SET LIBS AND INVOKE FILE-AID            */
/*********************************************************************/
ISPEXEC SELECT -
      CMD(%FADYNALC &FUNCVAR DSN(&DSNVAR) "E) NEWAPPL(FAXX)
END