IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IEBGENER step failed with S7F3 abend


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pravinj

New User


Joined: 10 Jun 2008
Posts: 24
Location: india

PostPosted: Wed Mar 07, 2012 8:05 pm
Reply with quote

Hello! I am trying to overwrite a TAPE file using IEBGENER with OLD disposition.

Code:
//STEP023  EXEC PGM=IEBGENER                                 
//SYSUT1     DD DSN=XXXX.CDROM.YTD,         
//           DISP=SHR                                         
//SYSUT2     DD DSN=TAPE.CDROM.YTD.G0013V00,DISP=OLD
//SYSIN      DD DUMMY                                         
//SYSPRINT   DD SYSOUT=*   


Both are FBA LRECL 133 RECFM files. IEBGENER step fails with the following message.

Code:
IEF233A M 0925,P65603,,S4669PJA,STEP023,  936                                   
TMS007  IEF233A M 0925,P65603(LENC;0009981),,S4669PJA,STEP023,TAPE.CDROM.YTD.G0013V00                                       
IECTMS3 0925,P65603,IS NOT SCRTCH (24)                                         
IEFTMS50 7XX- 04 S4669PJA,STEP023 ,SYSUT2  ,0925,P65603,000A8DROM.YTD.G0013V00X
IEFTMS50 ***** CA 1 ABEND,EX,04 *****                  **                       
+WER999A S4669PJA,STEP023 ,        -  UNSUCCESSFUL SORT 7F3 S REASON=00000004   
IEA995I SYMPTOM DUMP OUTPUT  001                     


What are the possible reasons for this issue?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Mar 07, 2012 8:28 pm
Reply with quote

the possible reasons for any abend are described in the manuals relative to the products being used,
with the action to be taken to prevent/circumvent it

no reason to the manual reading on Your behalf and cut and paste info that You could easily find Yourself
Back to top
View user's profile Send private message
bodatrinadh

Active User


Joined: 05 Jan 2007
Posts: 101
Location: chennai (India)

PostPosted: Wed Mar 07, 2012 9:20 pm
Reply with quote

pravinj,

Hope this may give you some idea about the error!

Code:

---------- V=CA TECHNOLOGIES P=CA 1 MESSAGES R=R12.6 I=IECTMS3 D=M -----------
 +----+------------------------------------+---------------------------------+
 |Code|Reason                              |Action                           |
 +----+------------------------------------+---------------------------------+
 |04  |The JCL specified LABEL=EXPDT=98000 |The tape is dismounted. The      |
 |    |or ACCODE=xCANORES and the operator |operator indicated that the tape |
 |    |replied M in response to the IECTMS2|is nonresident. Check with the   |
 |    |console message.                    |operator for further information.|
 +----+------------------------------------+---------------------------------+
 



Code:


----------- V=CA TECHNOLOGIES P=CA 1 MESSAGES R=R12.6 I=TMS007 D=M -----------
 TMS007                                                                       
                                                                             
  (modified mount message)                                                   
                                                                             
  Reason:                                                                     
  A specifically requested CA 1 controlled volume is marked out-of-area in the
  TMC. The out-of-area location and slot number is noted in the text of the   
  mount mess age.                                                             
                                                                                                                                                         
Action:                                                                       
The action taken depends on where the volume physically resides at the time   
of the request. Tapes under Vault Management System (VMS) control should be   
checked in before using them for input or they will not appear on the Vault   
Management System (VMS) picking list. Tapes marked out-of-area to a non-vault
location are automatically checked in when read for input. It is possible     
that the volume could be nonresident; however, there is not a way to         
distinguish that at this point in OPEN processing. Use JES                   
'/*SETUP' statements to assist operations for nonresident volumes that happen to
correspond to CA 1 controlled volume serial numbers.             



Thanks
-3nadh
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Mar 07, 2012 10:16 pm
Reply with quote

pravinj wrote:
Hello! I am trying to overwrite a TAPE file using IEBGENER with OLD disposition.

Code:
//STEP023  EXEC PGM=IEBGENER                                 
//SYSUT1     DD DSN=XXXX.CDROM.YTD,         
//           DISP=SHR                                         
//SYSUT2     DD DSN=TAPE.CDROM.YTD.G0013V00,DISP=OLD
//SYSIN      DD DUMMY                                         
//SYSPRINT   DD SYSOUT=*   


Both are FBA LRECL 133 RECFM files. IEBGENER step fails with the following message.

Code:
IEF233A M 0925,P65603,,S4669PJA,STEP023,  936                                   
TMS007  IEF233A M 0925,P65603(LENC;0009981),,S4669PJA,STEP023,TAPE.CDROM.YTD.G0013V00                                       
IECTMS3 0925,P65603,IS NOT SCRTCH (24)                                         
IEFTMS50 7XX- 04 S4669PJA,STEP023 ,SYSUT2  ,0925,P65603,000A8DROM.YTD.G0013V00X
IEFTMS50 ***** CA 1 ABEND,EX,04 *****                  **                       
+WER999A S4669PJA,STEP023 ,        -  UNSUCCESSFUL SORT 7F3 S REASON=00000004   
IEA995I SYMPTOM DUMP OUTPUT  001                     


What are the possible reasons for this issue?


Have to say, I've never tried that. Wouldn't expect it to "work". Fervently hope it wouldn't. It would be a "nightmare waiting to happen".
Back to top
View user's profile Send private message
pravinj

New User


Joined: 10 Jun 2008
Posts: 24
Location: india

PostPosted: Thu Mar 08, 2012 3:21 pm
Reply with quote

I checked with our tech support - storage management folks on this issue. I was informed, that the step failed as it's using a virtual tape and scratch wasn't possible due to live data on it.

Next steps on our analysis that actually worked was,
1) IEFBR14 step to delete the particular generation tape file

Code:
TAPE.CDROM.YTD.G0013V00,DISP=(MOD,DELETE,DELETE)


2) And then using the IEBGENER step to copy the overwrite content on the same generation file.

Code:
//STEP022  EXEC PGM=IEBGENER                               
//SYSUT1     DD DSN=WORK.CDROM.YTD,       
//           DISP=SHR                                       
//SYSUT2     DD DSN=TAPE.CDROM.YTD.G0013V00,     
//             DISP=(,CATLG,DELETE),                       
//             UNIT=CART,                                   
//             DCB=(MODEL,RECFM=FBA,LRECL=133,BLKSIZE=27930)
//SYSIN      DD DUMMY                                       
//SYSPRINT   DD SYSOUT=*       


Thanks for all your help on this!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts ISAM and abend S03B JCL & VSAM 9
No new posts Return codes-Normal & Abnormal te... JCL & VSAM 7
No new posts How to append a PS file into multiple... JCL & VSAM 3
No new posts DFHPI1008 JSON generation failed COBOL Programming 0
No new posts convert file from VB to FB and use tr... DFSORT/ICETOOL 8
Search our Forums:

Back to Top