Re: Fwd: CLIST Example

Gerhard,

Your attachment didn't work

If you can send it to me direct at [email protected], that would
be great, or if you want to put it in the files section on yahoo
groups, whatever is easier.

Mike

On 8/7/10, Gerhard Postpischil <[email protected]> wrote:
> I think Mike was asking about the substitution process, as all
> those ampersands and apostrophes can get confusing. I lost my
> system Monday night (bad weather, blew two UPSs and my main
> system; backup system blew a fan; third backup has a short in
> the motherboard someplace and blew the monitor. Still working on
> getting another machine configured and backed up before
> installing stuff, otherwise I'd have a tested version)
>
> -------- Original Message --------
> Subject: 	CLIST Example
> Date: 	Sat, 7 Aug 2010 12:50:41 -0700
> From: 	Scott Cosel <[email protected]>
> To: 	Mike Stramba <[email protected]>
> CC: 	[email protected] <[email protected]>
>
>
>
> My posts on turnkey-mvs do not seem to be approved by the
> moderators on a timely basis, so here you go:
>
> PROC 0 DEBUG
> CONTROL MAIN NOPROMPT NOMSG
> IF &DEBUG = DEBUG THEN CONTROL MSG CONLIST SYMLIST
> ALLOCATE DD(SYSUT1) DA('HERC01.SEQDATA.DATA') SHR REUSE
> ALLOCATE DD(SYSUT2) DA('HERC01.JCL.CNTL(SEQDATA)') SHR REUSE
> ALLOCATE DD(SYSIN) DUMMY REUSE
> ALLOCATE DD(SYSPRINT) DA(*) REUSE
> CALL 'SYS1.LINKLIB(IEBGENER)'
> FREE DD(SYSUT1 SYSUT2 SYSIN SYSPRINT)
> EXIT
>
> Assume the above is stored in HERC01.PDS.CLIST(MIKE)
>
> Invoke at READY prompt with:
>
> EX 'HERC01.PDS.CLIST(MIKE)' 'DEBUG'
>
> the DEBUG part is optional.
> The above example assumes both datasets pre-exist.
>
> To allocate an output sequential dataset use this instead:
>
> ALLOCATE DD(SYSUT2) DA('HERC01.OUTSEQ.DATA') NEW REUSE +
> TRACK SPACE(10 5) DSORG(PS) RECFM(F B) +
> LRECL(80) BLKSIZE(6160) CATALOG
>
> So yes; The output can be a sequential dataset.
>
> ScottC
>
> P.S. Perhaps one of you can post this, as your posts are
> displayed without approval by the moderators.
>
>
> ----------------------------------------------------------------
> CONFIDENTIAL NOTICE: All information, data and attachments
> contained in this message are confidential and are the property
> of the sender. If you are not the intended recipient and have
> received this email in error delete it immediately and destroy
> all copies. Any redistribution, communication or actions taken
> on information contained in this message is strictly prohibited.
>
>
> --
>
>
>
> Gerhard Postpischil
> Bradford, VT
>