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.