Return to Mainframe Utilities Page
Module
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
Documentation
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.