Parm Length restriction was Re: Using an InfoPrint 6500 with PSF

Wed, 23 Jan 2008 13:22:25 -0800

We have discussed on IBM-MAIN plenty of times about the restriction of 100 characters in the parm field. The PSF proc is an example what IBM had to go through in order to get around the 100 character max. I am *NOT* complaining but just showing those who have complained how IBM got around its own 100 character max length restriction. This is the interesting as it shows how far IBM had to go to get around the restriction. They basically had to add fields and change the convertor/interpreter to allow for the "options". I'll bet a beer that this cost IBM a fair amount of change in order to implement these "new" JCL fields. While I am not saying increasing the length would *NOT* have necessitated the changes (its probably a tossup) it would have made implementation, IMO a LOT easier. Yes I know it was re-written (and probably is for the best) but in any case it would have been less costly.
As a side issue are these new JCL parameters supported in dynamic allocation? If not has anyone tried putting in a Share requirement and if so what was the outcome? 


Ed


On Jan 23, 2008, at 9:57 AM, Jack Kelly wrote:


<
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


----------------------------------------------------------------------
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






















					Reply via email to