On Fri, 18 Sep 2009 08:51:54 -0500, Paul Gilmartin <paulgboul...@aim.com> wrote:
>On Thu, 17 Sep 2009 19:01:54 -0500, Rick Fochtman wrote: >> >>There are a number of RYO utilities that will take values from the PARM >>field to update SYSIN-type datasets. Even have one myself, if you'd like >>a copy. >> >I see: > > 3.5.2 "z/OS V1R10 DFSMS Using Data Sets" > __________________________________________________________ > >3.5.2 SYSIN Data Set > > You enter data into the system input stream by preceding it with > a DD * or a DD DATA JCL statement. This is called a SYSIN data > set. The DD name is not necessarily SYSIN. > >Do you mean it's possible to reach in somehow and modify the data >following DD * or DD DATA? > >There are a number of such utilities around, as you say. Their >prevalence is testament to the need for a more regular solution. >The drawbacks are: > >o Restriction by the 100-character PARM limit. > >o If several lines must be modified, it likely takes several job > steps with their outputs concatenated. In any case this is > cumbersome; in some cases it may encounter the JCL limit on the > number of steps in a job. > >o I'd not be comfortable distributing this sort of complexity to > a customer. > >It would be far more elegant to simply be able to use symbols directly >in SYSIN data sets. > >For personal use, I keep any JCL that needs such systematic modification >as a here-document in a shell script which edits it and submits it, >either to an internal reader or via FTP. Again, something I'd not >like to burden a naive customer with. > >And ISPF file tailoring would likely be an alternative. But having >an alternative, I remain naive to the ISPF technique. > >-- gil > This CLIST may be of some use: ***Start Paste*** PROC 0 PRMDBG(DEBUG) /* CHECK FOR DEBUG MODE */ IF &PRMDBG = DEBUG THEN CONTROL CONLIST LIST MSG NOFLUSH SYMLIST /* TMPJCL - JES3 CNTL CARD */ SET TMPJCL = &STR(//*) SET INPUT1 = &STR(FIRST LINE OF DATA) SET INPUT2 = &STR(SECOND LINE OF DATA) /* SUBMIT JOB */ SUBMIT * END($$) //&SYSUID JOB (001SASR6,R3DPW),'WALDMAN',MSGCLASS=1, // MSGLEVEL=(1,1) &TMPJCL.MAIN CLASS=OPER,LINES=(9999,W) //JOBSTEP EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD * &INPUT1 &INPUT2 /* //SYSUT2 DD SYSOUT=* /* $$ ***End Paste*** Dave Waldman ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html