RE: Fwd: FW: Fwd: CLIST Example

I give up!! Hayoo groups is stuffed!!

-----Original Message-----
From: [email protected] [mailto:[email protected]] On
Behalf Of au1john
Sent: Tuesday, 10 August 2010 19:03
To: [email protected]
Subject: RE: Fwd: FW: [turnkey-mvs] Fwd: CLIST Example

Nah, still wrong when it came back. 

Manual entry now... 

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

-----Original Message-----
From: [email protected] [mailto:[email protected]] On
Behalf Of au1john
Sent: Tuesday, 10 August 2010 18:56
To: [email protected]
Subject: RE: Fwd: FW: [turnkey-mvs] Fwd: CLIST Example

Hmm, I was going to do a manual reformat of Greg's post, but when I hit
reply, the message was formatted as I would expect it. 

Let's see how this looks when it comes back to me. 


-----Original Message-----
From: [email protected] [mailto:[email protected]] On
Behalf Of Greg Price
Sent: Tuesday, 10 August 2010 18:30
To: [email protected]
Subject: Re: Fwd: FW: [turnkey-mvs] 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





------------------------------------

Yahoo! Groups Links






------------------------------------

Yahoo! Groups Links






------------------------------------

Yahoo! Groups Links