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
 
Regarding EXECIO * DISKW

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

Active User


Joined: 31 Jan 2008
Posts: 148
Location: Chennai, India

PostPosted: Fri Jan 16, 2009 11:17 pm    Post subject: Regarding EXECIO * DISKW
Reply with quote

Hi,

I'm writing the string murugan in a PS three times. Pelase find the below code. The code is sucessful while running, but when I open that PS, it is empty.

Please let me know where I'm wrong. Initially, ALLOC of that PS is given correctly.
Code:

.
.
.
DO J = 1 TO 3                                                           
   OUTREC = 'MURUGAN'                           
   SAY OUTREC                                           
 "EXECIO * DISKW MYOUTD (STEM OUTREC"                   
END     
.
.
.
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2086
Location: Silicon Valley

PostPosted: Fri Jan 16, 2009 11:28 pm    Post subject: Reply to: Regarding EXECIO * DISKW
Reply with quote

You did not use a stem variable.
Back to top
View user's profile Send private message
murugan_mf

Active User


Joined: 31 Jan 2008
Posts: 148
Location: Chennai, India

PostPosted: Fri Jan 16, 2009 11:41 pm    Post subject:
Reply with quote

Thanks for your reply.

That's not a STEM variable.

When I use
Code:
"EXECIO * DISKW MYOUTD (OUTREC"

I'm getting this error.
Code:
IRX0617E EXECIO error. Unrecognized or ambiguous keyword option found.

Please let me know how to correct it.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Sat Jan 17, 2009 1:25 am    Post subject: Reply to: Regarding EXECIO * DISKW
Reply with quote

First, a link to the documentation for the EXECIO command.

There are a bunch of methods you could use to obtain your desired results. Here are a few:

Code:

/* REXX */
...
Do j = 1 To 3
  Interpret outrec||j "=" 'MURUGAN'
End
"EXECIO * DISKW myoutd (STEM outrec FINIS"
...

Do j = 1 To 3
  outrec.j = 'MURUGAN'
End
"EXECIO * DISKW myoutd (STEM outrec. FINIS"
...

outrec = 'MURUGAN'
Do j = 1 To 3
  Queue outrec
End
"EXECIO * DISKW myoutd (FINIS"
...

outrec = 'MURUGAN'
Do j = 1 To 3
  Queue outrec
End
"EXECIO "Queued()" DISKW myoutd (FINIS"
...

Do j = 1 To 3
  outrec = 'MURUGAN'
  Queue outrec
  "EXECIO 1 DISKW myoutd"
End
"EXECIO 0 DISKW myoutd (FINIS"
...

outrec = 'MURUGAN'
Do j = 1 To 3
  Push outrec
End
"EXECIO 3 DISKW myoutd (FINIS"
...
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2086
Location: Silicon Valley

PostPosted: Sun Jan 18, 2009 10:05 pm    Post subject: Reply to: Regarding EXECIO * DISKW
Reply with quote

I prefer the stem approach:
Code:

Do j = 1 To 3
  outrec.j = 'MURUGAN'
End
"EXECIO * DISKW myoutd (STEM outrec. FINIS"



For the queue examples, I think you should use a new stack
Code:

NEWSTACK
outrec = 'MURUGAN'
Do j = 1 To 3
  Queue outrec
End
"EXECIO * DISKW myoutd (FINIS"
DELSTACK
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 why i need hit enter after EXECIO * D... jackzhang75 CLIST & REXX 10 Fri May 20, 2016 9:16 pm
No new posts EXECIO DISKW "successful", ... dick scherrer CLIST & REXX 6 Thu Jan 02, 2014 8:06 pm
No new posts ISPF Length error while running REXX ... sshakya2 TSO/ISPF 10 Wed Jul 17, 2013 6:38 pm
No new posts Problem in EDIT Dataset after EXECIO enrico-sorichetti CLIST & REXX 11 Fri Jan 25, 2013 1:17 pm
No new posts How to handle system abend codes occu... kiraj CA Products 18 Tue Oct 16, 2012 5:03 pm

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