Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VSAM DELETE/DEFINE

119 views
Skip to first unread message

Sturgess Tony

unread,
Jul 7, 2004, 7:14:12 AM7/7/04
to
Hello listers

We have a VSAM KSDS file that needs a DELETE & DEFINE run on it to resize
(tune) the file
But we cannot find the original DELETE/DEFINE IDCAMS deck

Anybody know of a way to build the delete/define params from the entry in
the catalog?

TIA

Michael Rosinger

unread,
Jul 7, 2004, 8:01:18 AM7/7/04
to
Tony,

Do you happen to have a backup product called MaxBack/VSE? If so, I know that
it is capable of storing the IDCAMS DEFINE necessary to recreate and restore
any VSAM dataset. You can back up the dataset and then execute a restore to
another catalog to get the IDCAMS statements.

Other backup products may do the same thing that MaxBack/VSE does.

Sturgess Tony wrote:

--
Michael Rosinger
Systems Programmer/DBA
Computer Credit, Inc.
640 W. 4th Street
Winston-Salem, NC 27101
voice : 336-761-1524
fax : 336-761-8852
email : mrosinger at cciws dot com


THU...@familydollar.com

unread,
Jul 7, 2004, 7:39:38 AM7/7/04
to
If you run a listcat, that should give you all the information you need to
build a define deck.

Tracey Hummel
IT Systems Engineer
Family Dollar Stores
thu...@familydollar.com
Learn from the mistakes of others. You can't live long enough to make them
all yourself.


-----Original Message-----
From: Sturgess Tony [mailto:Tony.S...@uk.fujitsu.com]
Sent: Wednesday, July 07, 2004 7:14 AM
To: VSE Discussion List
Subject: VSAM DELETE/DEFINE

Hello listers

We have a VSAM KSDS file that needs a DELETE & DEFINE run on it to resize
(tune) the file
But we cannot find the original DELETE/DEFINE IDCAMS deck

Anybody know of a way to build the delete/define params from the entry in
the catalog?

TIA

-----------------------------------------
************************************************************
NOTE:
This e-mail message contains PRIVILEGED and CONFIDENTIAL information and is intended only for the use of the specific individual or individuals to which it is addressed. If you are not an intended recipient of this e-mail, you are hereby notified that any unauthorized use, dissemination or copying of this e-mail or the information contained herein or attached hereto is strictly prohibited. If you receive this e-mail in error, notify the person named above by reply e-mail and please delete it. Thank you.

Max Singley

unread,
Jul 7, 2004, 7:41:17 AM7/7/04
to
If you have Doctor-D backup utility, this JCL will do it:

// JOB IDCMPUNC PUNCH IDCAMS DEFINITIONS
// UPSI 1010100
LIBDEF *,SEARCH=VENDOR.BIM,TEMP
// EXEC DRD,SIZE=200K
FUNCTION=PUNCH,SCAP=V04UCAT,PARTIAL=SELECT
IFH.OMI.OMSD530.MESGS.KSDS
/@
/*
/&

hope it helps,

Max E. Singley
Technical Services Project Leader
Alex Lee, Inc.
Email: max.s...@alexlee.com Tel: 828-485-4894

Hill, Fred

unread,
Jul 7, 2004, 11:01:38 AM7/7/04
to

Hi Michael,

Is there special syntax necessary to back up and restore the dataset using MaxBack?  We only use the "DUMP" and "RESTORE" commands.

Thanks,
Fred Hill
San Francisco Public Utilities Commission
(415) 551-4382

-----Original Message-----
From: Michael Rosinger [mailto:mros...@cciws.com]
Sent: Wednesday, July 07, 2004 5:01 AM
To: VSE Discussion List

Subject: Re: VSAM DELETE/DEFINE


Tony,

Do you happen to have a backup product called MaxBack/VSE? If so, I know that
it is capable of storing the IDCAMS DEFINE necessary to recreate and restore
any VSAM dataset. You can back up the dataset and then execute a restore to
another catalog to get the IDCAMS statements.

Other backup products may do the same thing that MaxBack/VSE does.

Sturgess Tony wrote:

> Hello listers
>
> We have a VSAM KSDS file that needs a DELETE & DEFINE run on it to resize
> (tune) the file
> But we cannot find the original DELETE/DEFINE IDCAMS deck
>
> Anybody know of a way to build the delete/define params from the entry in
> the catalog?
>
> TIA

--

Michael Rosinger

unread,
Jul 7, 2004, 11:47:09 AM7/7/04
to
Fred,

I just generate a backup using "DUMP catname (CAT)". Then, you execute a restore with the "RESTORE catname (CAT) REBUILD" command, you should see the IDCAMS statements generated and executed for each VSAM dataset. I think it is the REBUILD option that generates and executes the IDCAMS.

Here is an excerpt from a MaxBack/VSE restore:

*--(BEGIN INPUT PARAMETER LISTING)---------------------------------------------*
      SET LIST=ON;
      RESTORE FCAT (CAT) REBUILD
      CAT=CCI.FRONTEND.TRANS.USER.CATALOG
       LAST   EXCLUDE('DEFAULT.*') ;
*--(END INPUT PARAMETER LISTING)-----------------------------------------------*
DUSPI001 -00 SOFTWARE DIVERSIFIED SERVICES MAXBACK/VSE:  2.02.014
DUSPI002 -00 COPYRIGHT (C) 2002 SOFTWARE DIVERSIFIED SERVICES.
DUSPI003 -00 EXECUTION BEGINS AT:2003/10/20 14.02.59.
DUSPI023 -00 RESTORE FUNCTION BEGINS.
DUSPI212 -00    3- 64K TAPE BUFFERS &   1- 85K COMPRESS/SPAN BUFFER ALLOCATED.
DUSPI024 -00 RESTORING TAPE FILE CREATED:2003/10/20 13.31.36 BY  2.02.014
DUSPI025 -00 RESTORING FCAT     AS FCAT     (CAT).
 
IDCAMS  SYSTEM SERVICES                                           TIME: 14:03:42
 
 DEL (#080850.FB.FILE                                      ) PRG CL    -
  CAT(CCI.FRONTEND.TRANS.USER.CATALOG                       )
IDC3012I ENTRY #080850.FB.FILE NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLCG-6
IDC0551I **ENTRY #080850.FB.FILE NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8
 
IDCAMS  SYSTEM SERVICES                                           TIME: 14:03:43
 
  DEF CL    (NAME(#080850.FB.FILE                             ) -
    TO(03293) -
    NIXD -
 ) -
 DATA ( -
    RUS -
    SPEED -
    BUFSP(0036864) -
    SHR(1 3) -
    USCL(0 P) -
    VOL(DSKA14 ) -
    CISZ(18432) -
    RECFM(FIXBLK(00080)) -
    RECSZ(0000000080 0000018400) -
    TRACKS(0000040 0000005) -
 ) -
  CAT(CCI.FRONTEND.TRANS.USER.CATALOG                       )
IDC3033I VOLUME RECORD NOT FOUND IN CATALOG
IDC3009I ** VSAM CATALOG RETURN CODE IS 248 - REASON CODE IS IGG0CLBX-0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
 
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
DUSPI621 -00 CLUSTER NAME=#080850.FB.FILE
DUSPI627 -08 AMS ERROR R15=012 FUNCTION=DEF CL .

0 new messages