<snip>
We are considering using PSF over IP to run IBM 6500 printers
<snip>
The line mode migration exit makes the implementation verot much of a
printing shop, so there's not a lot of different/complicated stuff.
JES2 parms
/* DEFINE A FUNCTIONAL SUBSYSTEM FSS FOR PSF
FSS(FSSPSF) PROC=FSSPSF,
AUTOSTOP=NO,
HASPFSSM=HASPFSSM
PRT5 MODE=FSS,
FSS=FSSPSF,
PRMODE=(LINE,PAGE),
START=NO,
UCS=0,
WS=(W,R,Q,PMD,LIM/F,C,P),
SEP=YES,SEPDS=NO,MARK=YES,
CKPTPAGE=100,CKPTLINE=0,
TRKCELL=NO,
CLASS=UV
FSS Proc
//FSSPSF PROC
//STEP01 EXEC PGM=APSPPIEP,REGION=4M,TIME=NOLIMIT,
// PARM=(,FULL,,,TCP390&SYSCLONE,UNICODE)
//JOBHDR OUTPUT PAGEDEF=L08584, /* JOB HEADER PAGE */
// FORMDEF=A00010,CHARS=GT12
//JOBTLR OUTPUT PAGEDEF=L08584, /* JOB TRAILER PAGE */
// FORMDEF=A00010,CHARS=GT12
//DSHDR OUTPUT PAGEDEF=L06464, /* DATA SET SEPARATOR */
// FORMDEF=A00010,CHARS=GT10
//MSGDS OUTPUT PAGEDEF=L06464, /* MESSAGE DATA SET */
// FORMDEF=A00010,CHARS=GT10,
// CLASS=H,DEST=PRT129,DATACK=BLOCK,FORMS=STD,PIMSG=NO
//FONT01 DD DSN=SYS1.FONTLIBB,DISP=SHR 240 PEL FONTS
// DD DSN=SYS1.FONTLIB,DISP=SHR
//FONT02 DD DSN=SYS1.FONT300,DISP=SHR 300 PEL FONTS
// DD DSN=SYS1.FONTLIB,DISP=SHR
//PSEG01 DD DISP=SHR,DSN=SYS1.PSEGLIB
//OLAY01 DD DISP=SHR,DSN=SYS1.OVERLIB /* OVERLAY */
//PDEF01 DD DISP=SHR,DSN=SYS1.PDEFLIB /* PAGE DEF,AKA FCB */
//FDEF01 DD DISP=SHR,DSN=SYS1.FDEFLIB /* FORM DEFINITION */
//AFPSTATS DD DISP=SHR,DSN=SYS3.PSF.AFPSTATS /* STATS PDSE */
//PRTINFO DD DISP=SHR,DSN=SYS3.PSF.AFPSTATS /* PRT INFO/STATUS */
//PRT5 DD DISP=SHR,DSN=SYS3.PSF.TRACE /* TRACE */
//*RT5 DD DISP=(,CATLG),DSN=SYS3.PSF.TRACE.GDG(+1),
//* DCB=SYS3.PSF.TRACE,UNIT=SYSDA,
//* SPACE=(CYL,(10,100),RLSE)
//PRT5 CNTL
//PRT5 PRINTDEV OVLYDD=*.OLAY01, /* OVERLAY LIBRARY DD
// OVLY240=*.OLAY01, /* 240 PEL OVERLAY LIBRARY D
// FONTDD=*.FONT01, /* FONT LIBRARY DD
// FONT240=*.FONT01, /* 240 PEL FONT LIBRARY DD
// FONT300=*.FONT02, /* 300 PEL FONT LIBRARY DD
// PSEGDD=*.PSEG01, /* SEGMENT LIBRARY DD
// PSEG240=*.PSEG01, /* 240 PEL SEGMENT LIBRARY D
// PDEFDD=*.PDEF01, /* PAGEDEF LIBRARY DD - FCB
// FDEFDD=*.FDEF01, /* FORMDEF LIBRARY DD
// JOBHDR=*.JOBHDR, /* JOB HEADER SEPARATOR OUTP
// JOBTRLR=*.JOBTLR, /* JOB TRAILER SEPARATOR OUT
// MESSAGE=*.MSGDS, /* MESSAGE DATA SET OUTPUT
// PAGEDEF=L08584, /* DEVICE PAGEDEF DEFAULT
// FORMDEF=A00010, /* DEVICE FORMDEF DEFAULT
// CHARS=GT10, /* DEFAULT FONT - 10 CPI
// PIMSG=(YES,16), /* ACCUMULATE DATA SET MESSA
// DATACK=BLOCK, /* BLOCK DATA CHECKS
// TRACE=NO, /* BUILD INTERNAL TRACE
// PRTINFO=YES, /* PRT STATUS TO PRTINFO DD
// SETUP=FORMS, /* HAVE JES ISSUE SETUP MSG
// FAILURE=WCONNECT, /* ATTEMPT RECONNECT
// CONNINTV=300, /* 05 MIN TO GET SESSION STARTED
// DISCINTV=0, /* NO TIME OUT IF NO O/P FM JES
// MGMTMODE=IMMED, /* MAINTAIN SESSION
// IPADDR='192.168.0.101' /* IP ADDRESS OF PRINTER
//PRT5 ENDCNTL
Jack Kelly
LA Systems @ US Courts
x 202-502-2390
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
