Fwd: CLIST Example [1 Attachment]

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