Gerhard Postpischil
2010-08-07 21:39:52 UTC
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 <SCosel-zowzMcKzJCWxC8Nw+***@public.gmane.org>
To: Mike Stramba <mikestramba-***@public.gmane.org>
CC: gerhard-sTLh940vhFCsTnJN9+***@public.gmane.org <gerhard-sTLh940vhFCsTnJN9+***@public.gmane.org>
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.
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 <SCosel-zowzMcKzJCWxC8Nw+***@public.gmane.org>
To: Mike Stramba <mikestramba-***@public.gmane.org>
CC: gerhard-sTLh940vhFCsTnJN9+***@public.gmane.org <gerhard-sTLh940vhFCsTnJN9+***@public.gmane.org>
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
Gerhard Postpischil
Bradford, VT