Back To LeighWeb Mainframe Utilities Page

ISREDIT MACRO
ISPEXEC CONTROL ERRORS RETURN
/**** SET MESSAGE DISPLAY ON/OFF BASED ON THE DEBUG SWITCH ***/
ISPEXEC VGET (DBGSWTCH) PROFILE
IF &DBGSWTCH = &STR(ON) THEN CONTROL MSG LIST CONLIST SYMLIST NOFLUSH
ELSE CONTROL NOMSG NOLIST NOFLUSH NOPROMPT
/**********************************************************************
/* UTILITY : PC                                                       *
/* AUTHOR : DAVE LEIGH                                                *
/* FUNCTION : PRINT A COMPILE LISTING.                                *
/**********************************************************************

ISREDIT (MEMBER) = MEMBER

%PRINTIT PDSN(&SYSUID..COMPILE.LISTING.&MEMBER)

EXIT