Filter
Top Products
Chapter 10 Configuring PSF for MVS to Print IPDS Files
142
Figure 19. Sample PSFPROC procedure
//PSFPROC PROC
//**************** IBM NETWORK PRINTERS WRITER PROCEDURE ****************
//*
//*01* MODULE-NAME = PSFPROC
//*
//*01* DESCRIPTIVE-NAME = START PROCEDURE FOR PSF:
//* TCP/IP ATTACHED IBM NETWORK PRINTERS
//*
//*01* NOTES = THE FULL NAME OF THE DEFAULT PAGEDEF IS
//* P1A06462.
//* THE FULL NAME OF THE DEFAULT FORMDEF IS
//* F1A10110.
//* THE FULL NAMES OF THE DEFAULT FONTS ARE
//* X0GF10, X0GS10, X0TU10, AND X0GU10.
//* THE FULL NAME OF THE SEPARATOR PAGE PAGEDEF IS
//* P1V06483.
//* THE FULL NAME OF THE SEPARATOR PAGE FONT IS
//* X0GT15.
//*
//*
//*01* CHANGE-ACTIVITY:
//*
//**** END OF SPECIFICATIONS ***/
//STEP01 EXEC PGM=APSPPIEP,REGION=4096K
//JOBHDR OUTPUT PAGEDEF=V06483, /* JOB SEPARATOR PAGEDEF */
// FORMDEF=A10110,CHARS=GT15 /* JOB SEPARATOR FORMDEF */
//JOBLTR OUTPUT PAGEDEF=V06483, /* JOB SEPARATOR PAGEDEF */
// FORMDEF=A10110,CHARS=GT15 /* JOB SEPARATOR FORMDEF */
//DSHDR OUTPUT PAGEDEF=V06483, /* DS SEPARATOR PAGEDEF */
// FORMDEF=A10110,CHARS=GT15 /* DS SEPARATOR FORMDEF */
//MSGDS OUTPUT PAGEDEF=A06462, /* MESSAGE DATASET PAGEDEF */
// FORMDEF=A10110 /* MESSAGE DATASET FORMDEF */
//FONT300 DD DSN=SYS1.FONT300, /* SYSTEM FONTS - 300 PEL */
// DISP=SHR
//PSEG01 DD DSN=SYS1.PSEGLIB, /* SYSTEM PAGE SEGMENTS */
// DISP=SHR
//OLAY01 DD DSN=SYS1.OVERLIB, /* SYSTEM MEDIUM OVERLAYS */
// DISP=SHR /*
//PDEF01 DD DSN=SYS1.PDEFLIB, /* SYSTEM PAGEDEFS */
// DISP=SHR
//FDEF01 DD DSN=SYS1.FDEFLIB, /* SYSTEM FORMDEFS */
// DISP=SHR
//* ***************************************************************************************** */
//* PRINTDEV