View previous topic :: View next topic
|
Author |
Message |
anvitpjha
New User
Joined: 26 Nov 2009 Posts: 4 Location: Pune
|
|
|
|
Hi all,
I am currently facing an issue in a job:-
Consider the following scenario:-
//*********************************************************************
//* PS010: DELETES AN EMPTY PDS IF NO COMPONENTS IDENTIFIED
//*********************************************************************
//PS010 EXEC PGM=IEFBR14
//*
//DELETSRL DD DSN=C03030.TWS.DUMM.NEW, [b]==> File being referred here. [/b]
// DISP=SHR
//*
//* PS020: CREATES AN EMPTY PDS IF NO COMPONENTS IDENTIFIED
//*********************************************************************
//PS020 EXEC PGM=IEFBR14
//*
//FIXEDTWS DD DSN=C03030.TWS.DUMM.NEW, [b]===> File being created here. [/b]
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FBA,LRECL=80),
// SPACE=(CYL,(100,50),RLSE)
//*
But seems that the issue is coming as its giving JCLerr in the second step when its trying to create the file.
I remember this issue was being handled by the OS/EM “Operating System Environment Manager”, but we have now migrated to another system which is not having it.
We tried to minimize the problem by adding the IBM/TWS tool EQQDELDS, but it also fails in this scenario.
Also while browsing IBM site, I came across a PARM {PARM='NOABEND,NOCONDO,PASS,Y,Y,Y,2'}, please can anybody help me in understanding this parm while using EQQDELDS.
Thanks in advance,
Anvit |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
//DELETSRL DD DSN=C03030.TWS.DUMM.NEW, ==> File being referred here.
// DISP=SHR
I dont see anything here to delete the data set, like DISP=(MOD,DELETE)
or DISP=(OLD,DELETE) or an IDCAMS delete.
CREATES AN EMPTY PDS IF NO COMPONENTS IDENTIFIED
In the space parameter i dont see allocation for a directory. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Perhaps if you posted the output from the failing run we might actually see what is happening, which is a better option than us taking wild guesses.
Have a think about it. How are we supposed to know what is happening if you do not post the output ? |
|
Back to top |
|
|
anvitpjha
New User
Joined: 26 Nov 2009 Posts: 4 Location: Pune
|
|
|
|
Hi,
Please see the output:-
ICH70001I C03030 LAST ACCESS AT 19:53:39 ON THURSDAY, NOVEMBER 26, 2009
IEF142I C03030A EQQDELDS - STEP WAS EXECUTED - COND CODE 0000
IEF373I STEP/EQQDELDS/START 2009330.1955
IEF374I STEP/EQQDELDS/STOP 2009330.1955 CPU 0MIN 00.01SEC SRB 0MIN 00.00S
IEF236I ALLOC. FOR C03030A PS010
IGD103I SMS ALLOCATED TO DDNAME DELETSRL
IEF142I C03030A PS010 - STEP WAS EXECUTED - COND CODE 0000
IGD104I C03030.TWS.DUMM.NEW RETAINED, DDNAME=DELETSRL
IEF373I STEP/PS010 /START 2009330.1955
IEF374I STEP/PS010 /STOP 2009330.1955 CPU 0MIN 00.00SEC SRB 0MIN 00.00S
IEF344I C03030A PS020 FIXEDTWS - ALLOCATION FAILED DUE TO DATA FACILITY SYSTEM E
IGD17101I DATA SET C03030.TWS.DUMM.NEW
NOT DEFINED BECAUSE DUPLICATE NAME EXISTS IN CATALOG
RETURN CODE IS 8 REASON CODE IS 38 IGG0CLEH
IEF272I C03030A PS020 - STEP WAS NOT EXECUTED.
IEF373I STEP/PS020 /START 2009330.1955
IEF374I STEP/PS020 /STOP 2009330.1955 CPU 0MIN 00.00SEC SRB 0MIN 00.00S
IEF375I JOB/C03030A /START 2009330.1955
Well I know that having MOD,DEL will resolve the issues but again, when we are using EQQDELDS, I feel that the issues must not have been encountered. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
When you change packages, you often have to adjust JCL to meet the new requirements. Standard JCL requires a DELETE specification for DISP to delete a file -- you probably will need to change the first step to delete the file, rather than just reference it. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
And (if this is a pds as mentioned in the jcl - the "subject" notwithstandng), you need to change ps020 to specify directory blocks if the file being created is to be a pds. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
As far as i know EQQDELDS will only work if OPC is installed and if it is in the link list.
If OPC is installed and EQQDELDS does not work then you have to contact the OPC systems programmer so he or she can tell you which load library to use in a STEPLIB DD card. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
Back to top |
|
|
|