//psfproc
PROC LIB=’JES2.........’
//**************** THE PSF SNA WRITER PROCEDURE ***************
//STEP01 EXEC
PGM=APSPPIEP,REGION=1750K
//STEPLIB DD
DSN=&LIB,DISP=SHR
//SYSUDUMP DD
SYSOUT=A
//JOBHDR OUTPUT
PAGEDEF=V06483, /*
JOB SEPARATOR PAGEDEF */
// FORMDEF=010110,CHARS=GT12
/*
JOB SEPARATOR FORMDEF @H3C
*/
//JOBTLR OUTPUT
PAGEDEF=V06483, /*
JOB SEPARATOR PAGEDEF */
// FORMDEF=010110,CHARS=GT12
/*
JOB SEPARATOR FORMDEF @H3C
*/
//DSHDR OUTPUT
PAGEDEF=V06483, /*
DS SEPARATOR
PAGEDEF */
// FORMDEF=010110,CHARS=GT12
/*
DS SEPARATOR
FORMDEF @H3C
*/
//MSGDS OUTPUT
PAGEDEF=V06483, /*
MESSAGE DATASET PAGEDEF */
// FORMDEF=010110,CHARS=GT12
/*
MESSAGE DATASET FORMDEF @H3C */
//*
//FONT01 DD
DSN=SYS1.FONT3820,DISP=SHR
/*
SYSTEM FONTS */
// DD
DSN=MVS.PSF.FONTLIB,DISP=SHR
/* EXTRA
FONTS */
//PSEG01 DD
DSN=SYS1.PSEGLIB,DISP=SHR
/*
SYSTEM PAGE SEG */
// DD
DSN=MVS.PSF.PSEGLIB,DISP=SHR
/* EXTRA
PAGE SEGMENTS */
//OLAY01 DD
DSN=SYS1.OVERLIB,DISP=SHR
/*
SYSTEM OVERLAYS */
// DD
DSN=MVS.PSF.OVERLIB,DISP=SHR
/* EXTRA
OVERLAYS */
//PDEF01 DD
DSN=SYS1.PDEFLIB,DISP=SHR
/*
SYSTEM PAGEDEFS */
// DD
DSN=MVS.PSF.PDEFLIB,DISP=SHR
/* EXTRA
PAGEDEFS */
//FDEF01 DD
DSN=SYS1.FDEFLIB,DISP=SHR
/*
SYSTEM FORMDEFS */
// DD
DSN=MVS.PSF.FDEFLIB,DISP=SHR
/* EXTRA
FORMDEFS */
//*
//PRTxx CNTL
//PRTxx PRINTDEV
FONTDD=*.FONT01. /*
FONT LIBRARY
DD */
// OVLYDD=*.OLAY01,
/*
OVERLAY LIBRARY
DD */
// PSEGDD=*.PSEG01,
/*
SEGMENT LIBRARY
DD */
// PDEFDD=*.PDEF01,
/*
PAGEDEF LIBRARY
DD */
// FDEFDD=*.FDEF01,
/*
FORMDEF LIBRARY
DD */
// JOBHDR=*.JOBHDR,
/*
JOB HEADER SEPARATOR OUTPUT */
// JOBTRLR=*.JOBTLR,
/*
JOB TRAILER SEPARATOR OUTPUT */
// DSHDR=*.DSHDR,
/*
DATA SET HEADER SEPARATOR */
// MESSAGE=*.MSGDS,
/*
MESSAGE DATA SET OUTPUT */
// PAGEDEF=V06483,
/*
DEVICE PAGEDEF DEFAULT */
// CHARS=(GT12),
/*
DEFAULT FONT SET */
// FORMDEF=010110,
/*
DEVICE FORMDEF DEFAULT */
// PIMSG=YES,
/*
ACCUMULATE DATA SET MESSAGES */
// DATACK=BLOCK,
/*
DO NOT NOTIFY PSF OF DATA ERRORS */
// TRACE=NO,
/*
CREATE INTERNAL TRACE ENTRIES */
// FAILURE=WCONNECT,
/*
PSF ACTION ON PRINTER FAILURE */
// MGMTMODE=OUTAVAIL,
/*
START WHEN OUTPUT IS AVAILABLE */
// TIMEOUT=REDRIVE,
/*
PSF ACTION ON TIMEOUT */
// DISCINTV=10,
/*
DISCONNECT INTERVAL IN SECONDS */ |