View previous topic :: View next topic
|
Author |
Message |
shr_amar Warnings : 2 Active User
Joined: 02 May 2005 Posts: 128 Location: UK
|
|
|
|
Given below is Rexx code which is used to take SDSF output to PS dateset('IBM.TEMP.REP'). I want to replace this with a temp file.
Code: |
/*REXX*/
INREC4. = " "
INREC4.0 = '0'
RexxrepDSN = 'IBM.TEMP.REP'
"DROPBUF"
QUEUE 'JOBNAME' IBMAS324
QUEUE 'ST'
QUEUE 'PRE *'
QUEUE 'FILTER JOBID = ' JOB65278
QUEUE 'ARRANGE MAX-RC A C'
QUEUE 'END'
QUEUE 'EXIT'
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC FI(ISFOUT) DSN('"RexxrepDSN"') SHR REUSE"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */
"ISPEXEC SELECT PGM(SDSF) PARM('++32,255')"
"FREE FI(ISFIN ISFOUT)"
|
|
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
What does it say in the manual about ALLOCating temp files ?
A link to the TSO manuals can be found in the sticky at the top of this forum . |
|
Back to top |
|
|
|