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

Flat files deletion issues.


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

New User


Joined: 26 Nov 2009
Posts: 4
Location: Pune

PostPosted: Thu Nov 26, 2009 6:28 pm
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Nov 26, 2009 6:38 pm
Reply with quote

//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
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Thu Nov 26, 2009 6:42 pm
Reply with quote

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
View user's profile Send private message
anvitpjha

New User


Joined: 26 Nov 2009
Posts: 4
Location: Pune

PostPosted: Thu Nov 26, 2009 7:18 pm
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Nov 26, 2009 7:31 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Nov 27, 2009 2:46 am
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Nov 27, 2009 1:08 pm
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Nov 27, 2009 2:02 pm
Reply with quote

You will find information about EQQDELDS in TWS Customization and Tuning SH19-4544.

The following link is also very interesting :

www-01.ibm.com/support/docview.wss?uid=swg1PK00051
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 Write line by line from two files DFSORT/ICETOOL 7
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Merge two VSAM KSDS files into third ... JCL & VSAM 6
No new posts Joinkeys - 5 output files DFSORT/ICETOOL 7
No new posts How to append a PS file into multiple... JCL & VSAM 3
Search our Forums:

Back to Top