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
 

 

Flat files deletion issues.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: Flat files deletion issues.
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: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu Nov 26, 2009 6:38 pm    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Nov 26, 2009 6:42 pm    Post subject:
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    Post subject:
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: 7931
Location: Bellevue, IA

PostPosted: Thu Nov 26, 2009 7:31 pm    Post subject:
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

Site Director


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

PostPosted: Fri Nov 27, 2009 2:46 am    Post subject: Reply to: Flat files deletion issues.
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: 2422
Location: Netherlands, Amstelveen

PostPosted: Fri Nov 27, 2009 1:08 pm    Post subject:
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: 2422
Location: Netherlands, Amstelveen

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

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

The following link is also very interesting :

http://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    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 High CPU consumption Job using IAM fi... aswinir JCL & VSAM 15 Thu Dec 01, 2016 8:28 pm
No new posts ODPP(Optim Data privacy Provider) Iss... Rama kishore IBM Tools 1 Mon Nov 07, 2016 5:46 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
This topic is locked: you cannot edit posts or make replies. How to use 2 input files in control c... Gunapala CN DFSORT/ICETOOL 23 Thu Oct 13, 2016 3:42 pm


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