<
Can anyone share the FSS proc for this type of printer?
>
I installed the IBM 6400 Line Printer so it may be similar.
Here's the FSS Proc, the JES2 parms follow
//FSSPSF PROC 00010010
//STEP01 EXEC PGM=APSPPIEP,REGION=4M,TIME=NOLIMIT, 00020000
// PARM=(,FULL,,,TCP390&SYSCLONE,UNICODE) 00030014
//JOBHDR OUTPUT PAGEDEF=L08584, /* JOB HEADER PAGE */
00040016
// FORMDEF=A00010,CHARS=GT12 00050016
//JOBTLR OUTPUT PAGEDEF=L08584, /* JOB TRAILER PAGE */
00060011
// FORMDEF=A00010,CHARS=GT12 00070011
//DSHDR OUTPUT PAGEDEF=L06464, /* DATA SET SEPARATOR */
00080011
// FORMDEF=A00010,CHARS=GT10 00090010
//MSGDS OUTPUT PAGEDEF=L06464, /* MESSAGE DATA SET */
00100011
// FORMDEF=A00010,CHARS=GT10, 00110017
// CLASS=H,DEST=PRT129,DATACK=BLOCK,FORMS=STD,PIMSG=NO
00120017
//FONT01 DD DSN=SYS1.PSF.FONTLIBB,DISP=SHR 240 PEL FONTS 00130009
// DD DSN=SYS1.PSF.FONTLIB,DISP=SHR 00140009
//FONT02 DD DSN=SYS1.PSF.FONT300,DISP=SHR 300 PEL FONTS 00150009
// DD DSN=SYS1.PSF.FONTLIB,DISP=SHR 00160009
//PSEG01 DD DISP=SHR,DSN=SYS1.HPRF340.PSEGLIB 00170011
//OLAY01 DD DISP=SHR,DSN=SYS1.HPRF340.OVERLIB /* OVERLAY */
00180011
//PDEF01 DD DISP=SHR,DSN=SYS1.HPRF340.PDEFLIB /* PAGE DEF,AKA FCB */
00190021
//FDEF01 DD DISP=SHR,DSN=SYS1.HPRF340.FDEFLIB /* FORM DEFINITION */
00200011
//AFPSTATS DD DISP=SHR,DSN=SYS3.PSF.AFPSTATS /* STATS PDSE */
00210011
//PRTINFO DD DISP=SHR,DSN=SYS3.PSF.AFPSTATS /* PRT INFO/STATUS */
00220012
//PRT5 DD DISP=SHR,DSN=SYS3.PSF.TRACE /* TRACE */
00230013
//PRT5 CNTL 00240000
//PRT5 PRINTDEV OVLYDD=*.OLAY01, /* OVERLAY LIBRARY DD 00250002
// OVLY240=*.OLAY01, /* 240 PEL OVERLAY LIBRARY D 00260002
// FONTDD=*.FONT01, /* FONT LIBRARY DD 00270006
// FONT240=*.FONT01, /* 240 PEL FONT LIBRARY DD 00280008
// FONT300=*.FONT02, /* 300 PEL FONT LIBRARY DD 00290009
// PSEGDD=*.PSEG01, /* SEGMENT LIBRARY DD 00300000
// PSEG240=*.PSEG01, /* 240 PEL SEGMENT LIBRARY D 00310000
// PDEFDD=*.PDEF01, /* PAGEDEF LIBRARY DD - FCB 00320021
// FDEFDD=*.FDEF01, /* FORMDEF LIBRARY DD 00330000
// JOBHDR=*.JOBHDR, /* JOB HEADER SEPARATOR OUTP 00340000
// JOBTRLR=*.JOBTLR, /* JOB TRAILER SEPARATOR OUT 00350000
// MESSAGE=*.MSGDS, /* MESSAGE DATA SET OUTPUT 00360000
// PAGEDEF=L08584, /* DEVICE PAGEDEF DEFAULT 00370015
// FORMDEF=A00010, /* DEVICE FORMDEF DEFAULT 00380015
// CHARS=GT10, /* DEFAULT FONT - 10 CPI 00390020
// PIMSG=(YES,16), /* ACCUMULATE DATA SET MESSA 00400000
// DATACK=BLOCK, /* BLOCK DATA CHECKS 00410000
// TRACE=YES, /* BUILD INTERNAL TRACE 00420021
// PRTINFO=YES, /* PRT STATUS TO PRTINFO DD 00430012
// SETUP=FORMS, /* HAVE JES ISSUE SETUP MSG 00440012
// FAILURE=WCONNECT, /* ATTEMPT RECONNECT 00450000
// CONNINTV=600, /* 10 MIN TO GET SESSION STARTED
00460020
// DISCINTV=0, /* NO TIME OUT IF NO O/P FM JES
00470020
// MGMTMODE=IMMED, /* MAINTAIN SESSION 00480000
// IPADDR='111.111.1.111' /* IP ADDRESS OF PRINTER 00490003
//PRT5 ENDCNTL 00500000
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,
SEP=YES,SEPDS=NO,MARK=YES,
CKPTPAGE=100,
TRKCELL=YES,
CLASS=A
HTH
Jack Kelly
202-502-2390 (Office)
----------------------------------------------------------------------
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
