Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Provide me a working EXECIO command

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Raphael Bacay

New User


Joined: 04 May 2007
Posts: 58
Location: Manila, Philippines

PostPosted: Tue Sep 11, 2007 8:20 am    Post subject: Provide me a working EXECIO command
Reply with quote

Hello,

I have a REXX program which has the following commands:


ALTERDS = TST || USERID || '.' || DBNAME || '.ALTERS$#'

"ALLOC FILE(ISPFILE) DS('" || ALTERDS || "') MOD CATALOG ",
"DSORG(PS) RECFM(F,B) SPACE(1,1) TRACKS LRECL(80) BLKSIZE(27920)"

STRLINE = 'ALTER TABLESPACE ' DBNAME '.' TSNAME.I

I tried the following:
"EXECIO * DISKW ISPFILE (VAR STRLINE"
to write to the output file but it does not work.

Can someone provide me with a working EXECIO command to write
to the output file?


Regards.
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Sep 11, 2007 10:03 am    Post subject:
Reply with quote

Have you tried the fine manual?

O.
Back to top
View user's profile Send private message
saiprasadh

Active User


Joined: 20 Sep 2006
Posts: 154
Location: US

PostPosted: Tue Sep 11, 2007 10:16 am    Post subject:
Reply with quote

Hi,
Can you change the REXX code like this and try,

Code:
STRLINE.1 = 'ALTER TABLESPACE ' DBNAME '.' TSNAME.I
"EXECIO * DISKW ISPFILE (STEM STRLINE. FINIS"

 OR

STRLINE = 'ALTER TABLESPACE ' DBNAME '.' TSNAME.I
QUEUE STRLINE
"EXECIO 1 DISKW ISPFILE (FINIS"


Let me know if doesn't work's

Thanks
Sai
Back to top
View user's profile Send private message
Raphael Bacay

New User


Joined: 04 May 2007
Posts: 58
Location: Manila, Philippines

PostPosted: Tue Sep 11, 2007 3:39 pm    Post subject: Reply to: EXECIO QUESTION
Reply with quote

Thanks! I finally got it.

Regards.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need help with 002-030 ABEND in TSO R... Terry Tallian TSO/ISPF 0 Sat Mar 17, 2018 1:13 am
No new posts OUTREC with ALter Command scorp_rahul23 DFSORT/ICETOOL 1 Wed Nov 22, 2017 3:10 pm
No new posts REXX LISTDSI () SMSINFO is not working upendrasri CLIST & REXX 4 Fri Nov 17, 2017 11:33 am
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us