|
View previous topic :: View next topic
|
| Author |
Message |
madhana
New User
Joined: 30 May 2007
Posts: 1
Location: chennai
|
|
|
|
if i try to execute this code,
**************
ADDRESS TSO "ALLOC DA('"SERMAH.REXX.PDS(DATEPGM)"') F(FNAME) SHR REUSE"
'EXECIO * DISKR FNAME (STEM LINES. FINIS'
***************
i am receiving an error like
******************
3 +++ ADDRESS TSO "ALLOC DA('"SERMAH.REXX.PDS(DATEPGM)"') F(FNAME) SHR REU
SE"
IRX0043I Error running FILES, line 3: Routine not found
******************** |
|
| Back to top |
|
 |
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
Use the below code if your requirement is to read the contents of a PDS member into a stem variable
| Code: |
FILENME = 'HLQ.XYZ.CNTL(ABCD)'
ADDRESS TSO "ALLOC DA('"FILENME"') F(FNAME) SHR REUSE"
"EXECIO * DISKR FNAME (STEM LINES. FINIS"
|
|
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
The number of quotes on the TSO command doesn't look right.
Doesn't it work better thus:
ADDRESS TSO "ALLOC DA('SERMAH.REXX.PDS(DATEPGM)') F(FNAME) SHR REUSE" |
|
| Back to top |
|
|
|
|
