Re: Fwd: CLIST Example

On 8/7/2010 6:04 PM, Mike Stramba wrote:
> Gerhard,
>
> Your attachment didn't work

The attachment was just some garbage from Outlook with 
forwarding and source info. The CLIST is in the text - edit a 
new member in RPF, do an I12 (or more) line command, and cut and 
paste the text from PROC 0 to END


>>
>> 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
>>

Gerhard Postpischil
Bradford, VT