On Fri, 18 Sep 2009 09:52:30 -0500, David Waldman wrote:
>>
>>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,
>
>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***
>
Thanks, but has it any advantage over the POSIX shell script I'm
already using (not posted here)?  It looks like the same thing,
just in a different language.

-- gil

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

Reply via email to