Fwd: FW: Fwd: CLIST Example [1 Attachment]

<*>[Attachment(s) from Gerhard Postpischil included below]

And one more:

-------- Original Message --------
Subject: 	FW: [turnkey-mvs] Fwd: CLIST Example
Date: 	Sat, 7 Aug 2010 15:26:39 -0700
From: 	Scott Cosel <[email protected]>
To: 	[email protected] <[email protected]>
CC: 	Mike Stramba <[email protected]>, Ron Hudson
<[email protected]>



Evidently, REUSE wasn’t 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



<*>Attachment(s) from Gerhard Postpischil:


<*> 1 of 1 File(s) http://groups.yahoo.com/group/turnkey-mvs/attachments/folder/1803548189/item/list 
  <*> Attached Message Part

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

Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/turnkey-mvs/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/turnkey-mvs/join
    (Yahoo! ID required)

<*> To change settings via email:
    [email protected] 
    [email protected]

<*> To unsubscribe from this group, send an email to:
    [email protected]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/