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

IEHPROGM return code 16


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

New User


Joined: 17 Oct 2008
Posts: 3
Location: USA

PostPosted: Fri Oct 24, 2008 2:16 am
Reply with quote

I am getting retrun code 16 while IEHPROGM is trying to delete empty file. Is it normal? What should I use for in place of that.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Oct 24, 2008 2:58 am
Reply with quote

Hi,

what you are saying is not correct, show your code and output.


Gerry
Back to top
View user's profile Send private message
koli

New User


Joined: 17 Oct 2008
Posts: 3
Location: USA

PostPosted: Fri Oct 24, 2008 7:02 am
Reply with quote

My jcl step
Code:
//RFCAA30  EXEC PGM=IEHPROGM,COND=(9,NE,RFCAA10)                     
//DSKFYL   DD DSN=&PTR&TYP..EISIN814.PSQ00.&TYP&NUM.G&GRP..&YR..GRD5,
//            DISP=(MOD,DELETE)                                       
//SYSPRINT DD   SYSOUT=*,                                             
//             DCB=(LRECL=80,BLKSIZE=80,RECFM=F)                     
//SYSIN    DD   DUMMY                                                 
//*SYSIN    DD   DSN=&PTR&PRM..EIS.VSAMCNTL(&SYSIN4),         DELETE 
//*             DISP=SHR                                             
//SYSOUT   DD   SYSOUT=*                                             
//SYSLST   DD   SYSOUT=*                                             
//SYSUDUMP DD   SYSOUT=(&DMP,,&FMS)                                   
//PL1DUMP  DD   SYSOUT=(&DMP,,&FMS)   
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Oct 24, 2008 7:24 am
Reply with quote

Hello,

Where is the requested (diagnostic) output from the problem run? Your job won't work because you did not follow the "rules" of iehprogm - the 16 is probably because of the sysin dd dummy.

Rather than using the color fonts, you are better served if you use the "Code" tag - refer to your jcl post above..

To do what you want, change iehprogm to iefbr14.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Oct 24, 2008 7:57 am
Reply with quote

Hi,

the error is caused by the LRECL for SYSPRINT DD, this is usually 121 and not 80.


I agree with Dick, why use IEHPROGM in that form ?



Gerry
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Oct 24, 2008 8:14 am
Reply with quote

Hi Gerry,

Yup, the sysprint looks suspicious. . .

How might one use iehprogm with a sysin dd dummy? Didn't realize that was legal. . .

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

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Oct 24, 2008 8:24 am
Reply with quote

Hi Dick,

SYSIN DD DUMMY does work but not sure why you would want to do that.


Some utilities are quite happy with that, I suppose once EOF is reached the program stops.


Gerry
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Oct 24, 2008 8:53 am
Reply with quote

Quote:
Some utilities are quite happy with that, I suppose once EOF is reached the program stops.
Lots of times IEBGENER runs with a sysin of dd dummy to do a simple copy, but i don't believe i've ever tried others - never had an inclination to do so icon_neutral.gif

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

New User


Joined: 26 Sep 2008
Posts: 51
Location: New York

PostPosted: Tue Oct 28, 2008 12:35 am
Reply with quote

//STEP000 EXEC PGM=IEFBR14
//DD1 DD UNIT=SYSDA,SPACE=(TRK,0),
// DISP=MOD,DELETE,DELTE),
// DSN=&PTR&TYP..EISIN814.PSQ00.&TYP&NUM.G&GRP..&YR..GRD5

Works every time EXCEPT if the file has an EXPIRATION DATE associated with it (this is not a usual condition)
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Tue Oct 28, 2008 2:37 am
Reply with quote

Hi,

I bet it doesn't work with // DISP=MOD,DELETE,DELTE),


Gerry
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Oct 28, 2008 12:17 pm
Reply with quote

Why do people still use IEHPROGM when IDCAMS is soooooooooooo much cleaner and easier to use ?
Back to top
View user's profile Send private message
ridgewalker58

New User


Joined: 26 Sep 2008
Posts: 51
Location: New York

PostPosted: Tue Oct 28, 2008 6:47 pm
Reply with quote

ok my mistyping error -- sorry // disp=(mod,delete,delete)
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Tue Oct 28, 2008 7:56 pm
Reply with quote

Hi Expat,

Quote:
Why do people still use IEHPROGM when. . .
I frequently meet people who believe they should only use idcams for vsam files. . . icon_confused.gif

d
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 run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Return codes-Normal & Abnormal te... JCL & VSAM 7
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
Search our Forums:

Back to Top