Back To LeighWeb Mainframe Utilities Page
View the documentation associated with this module
PROC 1 DATASET_NAME_TO_PRINT DEBUG HELP BATCH B
/**********************************************************************
/* CLIST: $PRINTIT *
/* AUTHOR: DAVID LEIGH *
/* FUNCTION: THIS CLIST IS DESIGNED SPECIFICALLY TO BE USED WITH A *
/* "DSLIST" (ISPF 3.4-TYPE) SCREEN. IT MAY BE USED *
/* OTHERWISE AS WELL THOUGH. IT PASSES THE DATASET NAME TO *
/* THE "PRINTIT" CLIST FOR PROCESSING. *
/**********************************************************************
/**********************************************************************
/* STRIP OFF SINGLE QUOTES IF PRESENT. *
/**********************************************************************
SET X = &LENGTH(&STR(&DATASET_NAME_TO_PRINT))
IF &SYSINDEX(&STR('),&STR(&DATASET_NAME_TO_PRINT)) = 1 AND +
&SUBSTR(&X:&X,&STR(&DATASET_NAME_TO_PRINT)) = &STR(') THEN +
SET DATASET_NAME_TO_PRINT = &SUBSTR(2:&X-1,+
&STR(&DATASET_NAME_TO_PRINT)
/**********************************************************************
/* CALL THE PRINTIT CLIST. *
/**********************************************************************
IF &B = B THEN SET BATCH = BATCH
%PRINTIT PDSN(&DATASET_NAME_TO_PRINT) &DEBUG &HELP &BATCH
EXIT
|
