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 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
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm

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