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 problem

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

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Wed Mar 29, 2006 10:55 pm    Post subject: EXECIO DISKW problem
Reply with quote

Hi All,
I faced a very silly problem. I tried to write the stem RECD to a PDS though EXECIO DISKW. But there I found the following error -
I am also attaching my code to help you analyzing -
Please help me, I am seriously in real need.
Code:

"alloc da('"copymem"') f(cpydd) shr reuse"
"execio * diskw cpydd  (finis stem recd.)"
queue ''                                   
"free file(cpydd)"                         


Code:

IRX0250E System abend code B14, reason code 00000016.                   
IRX0255E Abend in host command execio or address environment routine TSO.
IEA995I SYMPTOM DUMP OUTPUT                                             
SYSTEM COMPLETION CODE=B14  REASON CODE=00000010                         
 TIME=12.20.17  SEQ=07593  CPU=0000  ASID=02D9                           
 PSW AT TIME OF ERROR  475C1000   80E5DCBE  ILC 2  INTC 0D               
   NO ACTIVE MODULE FOUND                                               
   NAME=UNKNOWN                                                         
   DATA AT PSW  00E5DCB8 - 41003846  0A0DB20A  00509808                 
   GR 0: 00000001_00E5DEC8   1: 00000000_A4B14000                       
      2: 00000000_0000E2D0   3: 00000000_00E5D682                       
      4: 00000000_00848178   5: 00000000_00E73000                       
      6: 00000000_008484B4   7: 00000000_0084850C                       
      8: 00000000_008484D4   9: 00000000_0084AC10                       
      A: 00000000_00828F68   B: 00000000_0000E340
      C: 00000000_0084AC10   D: 00000000_00000080
      E: 00000000_00E5DAE4   F: 00000000_00000010
 END OF SYMPTOM DUMP                             
IRX0671E EXECIO error while trying to close a DD.
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Wed Mar 29, 2006 11:22 pm    Post subject: Re: EXECIO DISKW problem
Reply with quote

The B14 error with reason code 10 indicates:

Quote:

10 An I/O error occurred trying to update the directory of a
partitioned data set.
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Wed Mar 29, 2006 11:24 pm    Post subject: Re: EXECIO DISKW problem
Reply with quote

I'd like to see your TRACE output.

And that "queue" statement is unnecessary, so you can remove it.
Back to top
View user's profile Send private message
amitrath

New User


Joined: 30 Apr 2004
Posts: 28
Location: Carmel, USA.

PostPosted: Thu Mar 30, 2006 12:01 am    Post subject: Re: EXECIO DISKW problem
Reply with quote

MVS QUICKREF explains:

A likely cause of this error is attempting to close a file that was opened
by a higher-level task. You may have specified the EXECIO "FINIS" option
or the "linenum" positional parameter for a file (ddname) that was opened
under another task. However, you should specify only a file that has not
yet been opened, or that was opened at the current task level when using
the "FINIS" option or the "linenum" parameter.

Note: Both "FINIS" and "linenum" cause EXECIO to attempt to close the
specified file. However, EXECIO can only close files that were
opened at the same task level as that of the currently executing
exec.
Back to top
View user's profile Send private message
jon_s_rice

Active User


Joined: 24 Mar 2005
Posts: 102
Location: Douglasville, GA USA

PostPosted: Thu Mar 30, 2006 4:21 am    Post subject:
Reply with quote

This EXECIO will only work if copymem is equal to a member in the data set. For example copymem = "HLQ.TYPE.LIBRARY(PDSMEM)"
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Thu Mar 30, 2006 6:28 am    Post subject: Re: EXECIO DISKW problem
Reply with quote

That's why I'd like to see the TRACE output.
Back to top
View user's profile Send private message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Thu Mar 30, 2006 9:43 am    Post subject:
Reply with quote

Nop sorry for such a silly mistake. Actually when I used EXECIO, I used it with SHR option. If I used it with the MOD option, then there will be no problem. But take a scenario for example, my PDS library is - AAAA.BBBB.PDS(MYMEM). If the MYMEM already exists, that EXECIO with MOD option just appends the data. So therefore, now I am keep track whether the member is present or not. If yes, raise an error otherwise write it down.
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 SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm
No new posts Problem with GETMAIN command amitc23 CICS 6 Thu Sep 01, 2016 1:01 pm


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