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
 

 

IEHPROGM return code 16

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: IEHPROGM return code 16
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: 1703
Location: Australia

PostPosted: Fri Oct 24, 2008 2:58 am    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Fri Oct 24, 2008 7:24 am    Post subject:
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: 1703
Location: Australia

PostPosted: Fri Oct 24, 2008 7:57 am    Post subject:
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

Site Director


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

PostPosted: Fri Oct 24, 2008 8:14 am    Post subject: Reply to: IEHPROGM return code 16
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: 1703
Location: Australia

PostPosted: Fri Oct 24, 2008 8:24 am    Post subject:
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

Site Director


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

PostPosted: Fri Oct 24, 2008 8:53 am    Post subject: Reply to: IEHPROGM return code 16
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    Post subject:
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: 1703
Location: Australia

PostPosted: Tue Oct 28, 2008 2:37 am    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Tue Oct 28, 2008 12:17 pm    Post subject:
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    Post subject: Reply to: IEHPROGM return code 16
Reply with quote

ok my mistyping error -- sorry // disp=(mod,delete,delete)
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 Oct 28, 2008 7:56 pm    Post subject: Reply to: IEHPROGM return code 16
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts QUESTION: RETURN CHANNEL pahiker CA Products 21 Thu Apr 20, 2017 12:31 am
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm


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