Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 1738
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: 1529
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: 1715
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: 2019
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 Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm
No new posts ODPP(Optim Data privacy Provider) Iss... Rama kishore IBM Tools 1 Mon Nov 07, 2016 5:46 pm
No new posts Amount field is getting corrupted whe... thesumitk SYNCSORT 5 Tue Oct 18, 2016 8:20 pm
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us