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
            

 PC is an edit macro which works just like EC, and BC (edit compile and browse
 compile).  It captures the member name of the COBOL program you're editing, and
 creates a dataset name in the format of:
 youruserid.COMPILE.LISTING.programmemembername.  This dataset name is then
 passed to the PRINTIT print utility for printing.