|
View previous topic :: View next topic
|
| Author |
Message |
koli
New User
Joined: 17 Oct 2008
Posts: 3
Location: USA
|
|
|
|
| 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 |
|
 |
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
what you are saying is not correct, show your code and output.
Gerry |
|
| Back to top |
|
|
koli
New User
Joined: 17 Oct 2008
Posts: 3
Location: USA
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
| 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 
d |
|
| Back to top |
|
|
ridgewalker58
New User
Joined: 26 Sep 2008
Posts: 51
Location: New York
|
|
|
|
//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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
I bet it doesn't work with // DISP=MOD,DELETE,DELTE),
Gerry |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
| Why do people still use IEHPROGM when IDCAMS is soooooooooooo much cleaner and easier to use ? |
|
| Back to top |
|
|
ridgewalker58
New User
Joined: 26 Sep 2008
Posts: 51
Location: New York
|
|
|
|
| ok my mistyping error -- sorry // disp=(mod,delete,delete) |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hi Expat,
| Quote: |
| Why do people still use IEHPROGM when. . . |
I frequently meet people who believe they should only use idcams for vsam files. . . 
d |
|
| Back to top |
|
|
|
|
