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
 
EXECIO DISKW "successful", but no data written

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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jan 02, 2014 8:06 pm    Post subject: EXECIO DISKW "successful", but no data written
Reply with quote

Who wants to be my hero . . . ?

Over the last day or so, i have tried several different bits of code and almost all "work", but none actually write in the output datset. I have done something most simple incorrectly icon_confused.gif

I read many topics in our forum and have tried many of the "solutions". Here is one of the attempts - possibly the most simple:
Code:
/*REXX*/                                                             
TRACE I                                                               
                                                                     
" ALLOC DSN("MY.DSLSI.TEST.FILE2") FI(OREC) OLD REUSE "       
                                                                     
 PUSH " SOME DATA TO BE WRITTEN"                                     
  "EXECIO 1 DISKW OREC      (FINIS"                                   
  "FREE FI(OREC)"               


When executed (in batch with a pre-allocated dataset), i get this:
Code:
     4 *-* " ALLOC DSN("MY.DSLSI.TEST.FILE2") FI(OREC) OLD REUSE "     
       >L>   " ALLOC DSN("                                                     
       >L>   "MY.DSLSI.TEST.FILE2"                                     
       >O>   " ALLOC DSN(MY.DSLSI.TEST.FILE2"                           
       >L>   ") FI(OREC) OLD REUSE "                                           
       >O>   " ALLOC DSN(MY.DSLSI.TEST.FILE2) FI(OREC) OLD REUSE "     
     6 *-* PUSH " SOME DATA TO BE WRITTEN"                                     
       >L>   " SOME DATA TO BE WRITTEN"                                         
     7 *-* "EXECIO 1 DISKW OREC      (FINIS"                                   
       >L>   "EXECIO 1 DISKW OREC      (FINIS"                                 
     8 *-* "FREE FI(OREC)"                                                     
       >L>   "FREE FI(OREC)"                                                   
READY                                                                           
END


Attempts with a stem also get the same result.

Where have i gone astray?

Thanks,
d
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1782
Location: Bloomington, IL

PostPosted: Thu Jan 02, 2014 8:14 pm    Post subject:
Reply with quote

You seem not to be enclosing the DSN in single quotes. Is that correct?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jan 02, 2014 8:25 pm    Post subject:
Reply with quote

Must not have been correct . . . I added the single quotes and Voila - data.

Even though i'd done the allocation in JCL, it still allocated a different dataset with my uid as the first node. D'oh. I'm a bit surprised that the full dsn was not shown in the trace . . . icon_confused.gif

Thanks!

d
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Thu Jan 02, 2014 8:27 pm    Post subject:
Reply with quote

The code very well for me except for one thing I did

I just allocated as ('" "') but in your case the dataset didnt throw any error may be because your dataset exists...

weird icon_eek.gif
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1922
Location: UK

PostPosted: Thu Jan 02, 2014 11:03 pm    Post subject:
Reply with quote

I don't know but maybe the ALLOC in your exec overrides the JCL allocation? I never use ALLOC in a batch rexx - much simpler to to it via JCL.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Mon Jan 06, 2014 10:17 pm    Post subject: Reply to: EXECIO DISKW "successful", but no data w
Reply with quote

Quote:
I'm a bit surprised that the full dsn was not shown in the trace . . .

Adding the prefix is a TSO thing, not a rexx thing. It is all done within the processing of the ALLOC command, so there is nothing that will be captured in the trace.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jan 07, 2014 12:17 am    Post subject:
Reply with quote

Thanks everyone for the replies.

I'm sure i'll be back . . . icon_cool.gif

d
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 Extract Record using range of Data scorp_rahul23 DFSORT/ICETOOL 3 Wed Nov 15, 2017 11:54 pm
No new posts Updating data from one file to other!!! Vignesh Sid SYNCSORT 1 Mon Nov 06, 2017 2:42 pm
This topic is locked: you cannot edit posts or make replies. Can a alphanumeric data be moved to a... nico_neoz COBOL Programming 10 Mon Oct 30, 2017 8:28 am
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm

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