Re: Fwd: FW: Fwd: CLIST Example

You can apply USERMOD ZP60026 from
http://www.prycroft6.com.au/vs2mods
to add REUSE to ALLOCATE.

Also, if you don't want to fiddle with SYSPRINT and SYSIN
files, you could have a CLIST like:

PROC 0 DEBUG
CONTROL MAIN NOPROMPT NOMSG
IF &DEBUG = DEBUG THEN CONTROL MSG CONLIST SYMLIST
FREE DD(INDD OUTDD)
ALLOCATE DD(INDD) DA('HERC01.SEQDATA.DATA') SHR
ALLOCATE DD(OUTDD) DA('HERC01.JCL.CNTL(SEQDATA)') SHR
REPRO INFILE(INDD) OUTFILE(OUTDD)
FREE DD(INDD OUTDD)
EXIT

Cheers,
Greg


On Sat, 07 Aug 2010 18:50:48 -0400, Gerhard Postpischil wrote:

>Evidently, REUSE wasnt invented yet under MVS 3.8j. So Mike
>should try this version:

>PROC 0 DEBUG
>CONTROL MAIN NOPROMPT NOMSG
>IF &DEBUG = DEBUG THEN CONTROL MSG CONLIST SYMLIST
>FREE DD(SYSUT1 SYSUT2 SYSIN SYSPRINT)
>ALLOCATE DD(SYSUT1) DA('HERC01.SEQDATA.DATA') SHR
>ALLOCATE DD(SYSUT2) DA('HERC01.JCL.CNTL(SEQDATA)') SHR
>ALLOCATE DD(SYSIN) DUMMY
>ALLOCATE DD(SYSPRINT) DA(*)
>CALL 'SYS1.LINKLIB(IEBGENER)'
>FREE DD(SYSUT1 SYSUT2 SYSIN SYSPRINT)
>EXIT