MVS delete JCL

The following topics contain the delete JCL that is generated when the delete process contains only MVS files. When Db2 and MVS objects are included, the JCL will also include the JCL for the Db2 delete option as described earlier. You can code and submit the JCL on the following topics to execute the delete process without invoking the interactive phase of the Delete function. The required parameter information and DD statements for File-AID/RDX-specific steps are described following the JCL.

MVS Delete JCL (continues on next topic)

//*                                                             XFRJDLT1
//*SQLID TSOID01 IS AUTHORIZED FOR ALL THE DELETE STEPS
//*                                                             XFRJSTRD
//*-------------------------------------------------------------------
//* CLEAN1ST: - THIS STEP WILL ENSURE THAT ALL TEMPORARY FILES
//*             USED IN THIS JOB ARE DELETED.
//*           - THIS ALLOWS FOR KEEPING AND RERUNNING THE JOB EVEN IF
//*             SUBSEQUENT STEPS FAIL.
//*           - THIS JCL IS ALSO RESTARTABLE AT ANY STEP BY CODING
//*             RESTART=XXXXXXXX ON THE JOBCARD. (XXXXXXXX = STEPNAME)
//*-------------------------------------------------------------------
//CLEAN1ST EXEC PGM=IDCAMS,COND=(4,LT),DYNAMNBR=2048
//SYSPRINT DD SYSOUT=*
//SYSIN     DD *        IDCAMS DELETE STATEMENTS FOLLOW
  DELETE File-AID-sort-file

  DELETE File-AID-split-file

  DELETE File-AID-MVS-info-file

  DELETE File-AID-discard-file

SET MAXCC=0
SET LASTCC=0
/*
//*
//*
//*---------------------------------------------------------------------
//* DLDRV:- DELETE DRIVER
//*         THE FOLLOWING IS PERFORMED IN THIS STEP.
//*         - ENSURE TABLES EXIST.
//*         - SPLIT EXTRACT FILE INTO SEPARATE DELETE FILES.
//*---------------------------------------------------------------------
//DLDRV   EXEC PGM=XFREXEC,REGION=8192K,COND=(4,LT),
// PARM=(FR,9,B)
//*
//STEPLIB DD DSN=File-AID/RDX-load-libraries,DISP=SHR
//RDXMLIB DD DSN=File-AID-message-library,DISP=SHR
//EXTRACT DD DSN=File-AID-extract-file,
//            DISP=SHR
//*
//EXTPARMS DD DSN=TSOID01.prefix.PARMS.Dnnnnnn.Tnnnnnn.suffix,
//            DISP=SHR
//DISCARDS DD DSN=File-AID-discard-file,
//            DCB=(RECFM=VB,LRECL=309,BLKSIZE=27998,DSORG=PS),
//            SPACE=(27998,(2,2),RLSE),
//            UNIT=SYSDA,
//            DISP=(NEW,CATLG,DELETE)
//MVSINFO DD DSN=File-AID-MVS-info-file,
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,DSORG=PS),
//            SPACE=(TRK,(1,1),RLSE),
//            UNIT=SYSDA,
//            DISP=(NEW,CATLG,DELETE)
//DDnnn    DD DSN=MVS-file,
//            DISP=SHR
//*
//SPLITnnn DD DSN=File-AID-split-file,
//            DCB=(RECFM=VB,LRECL=309,BLKSIZE=27998,DSORG=PS),
//            SPACE=(27998,(2,2),RLSE),
//            UNIT=SYSDA,
//            DISP=(NEW,CATLG,DELETE)
//SYSOUT   DD SYSOUT=(*)
//RDXSQLCD DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)

//
TPTPRINT DD SYSOUT=(*)
//SYSTERM DD SYSOUT=(*)

MVS Delete JCL (continued from previous topic)

//*-XFRJDLT3----------------------------------------------------------
//* DELETE FROM MVS/KSDS
//*-------------------------------------------------------------------
//DLMVS   EXEC PGM=XFREXEC,COND=(4,LT),
// PARM=(FR,E,B)
//*
//STEPLIB DD DSN=File-AID/RDX-load-libraries,DISP=SHR
//RDXMLIB DD DSN=File-AID-message-library,DISP=SHR
//EXTPARMS DD DSN=TSOID01.prefix.PARMS.Dnnnnnn.Tnnnnnn.suffix,
//            DISP=SHR
//MVSIN    DD DSN=TSOID01.prefix.VBCNTL.Dnnnnnn.Tnnnnnn.suffix(MVSDCT),
//            DISP=SHR
//DELETEIN DD DSN=File-AID-splitnnn-file,
//            DISP=(OLD,KEEP,KEEP)
//DDnnn    DD DSN=MVS-file,
//            DISP=(MOD,KEEP,KEEP)
//XCPTNRPT DD SYSOUT=(*)
//TOTLSRPT DD SYSOUT=(*)
//COMMTRPT DD SYSOUT=(*)
//RDERRORS DD SYSOUT=(*)
//SYSOUT   DD SYSOUT=(*)
//DISCARDS DD DSN=File-AID-discard-file,
//            DISP=MOD
//SYSPRINT DD SYSOUT=(*)
//SYSTERM DD SYSOUT=(*)
//*
//*-------------------------------------------------------------------
//* CLEANLST: - THIS STEP WILL PERFORM A DELETE OF ALL TEMPORARY
//*             FILES USED IN THIS JOB.
//*           - KEEPING THE FILES UNTIL ALL STEPS RUN SUCCESSFULLY
//*             ALLOWS FOR THE RESTARTING OF THE JCL AT ANY STEP.
//*-------------------------------------------------------------------
//CLEAN1ST EXEC PGM=IDCAMS,COND=(4,LT),DYNAMNBR=2048
//SYSPRINT DD SYSOUT=*
//SYSIN     DD *        IDCAMS DELETE STATEMENTS FOLLOW
  DELETE File-AID-sort-file

  DELETE File-AID-split-file

  DELETE File-AID-MVS-info-file

  DELETE File-AID-discard-file

SET MAXCC=0
SET LASTCC=0
/*
//*
//*-------------------------------------------------------------------
//* CLEANCTL: - THIS STEP WILL PERFORM A DELETE OF THE TEMPORARY
//*             SYSIN CNTL PDSE DATASETS USED IN THIS JOB.
//*           - KEEPING THE DATASETS UNTIL ALL STEPS RUN SUCCESSFULLY
//*             ALLOWS FOR THE RESTARTING OF THE JCL AT ANY STEP.
//*     NOTE! - IF THIS JOB IS TO BE RESUBMITTED ON A REGULAR BASIS
//*             THIS STEP MUST BE DELETED IN ORDER TO KEEP THE
//*             ORIGINAL SYSIN DATA INTACT.
/*-------------------------------------------------------------------
//CLEANCTL EXEC PGM=IEFBR14,COND=(4,LT)
//*
//DFBPDSE DD DSN=DSN=TSOID01.prefix.FBCNTL.Dnnnnnn.Tnnnnnn.suffix,
//            DISP=(OLD,DELETE,DELETE)
//DVBPDSE DD DSN=DSN=TSOID01.prefix.VBCNTL.Dnnnnnn.Tnnnnnn.suffix,
//            DISP=(OLD,DELETE,DELETE)
//CLEANEXT EXEC PGM=IDCAMS,COND=(4,LT),DYNAMNBR=2048          XFRJCLXT
//SYSPRINT DD SYSOUT=*
//SYSIN     DD *        IDCAMS DELETE STATEMENTS FOLLOW
DELETE extract-parms-file,
SET MAXCC=0
SET LASTCC=0
//*
//*                                                   /*
XFRJCLXT*/

DLDRV Step Parameter List and DD Statements

XFREXEC is the File-AID/RDX program name.

The parameter information in the PARM field on the EXEC statement for the DLDRV step must have the following format:

EXEC Statement PARM Field—DLDRV Step

Parameter	Default Value	Length	Description
Product	FR	2	File-AID/RDX
Option	9	1	File-AID/RDX option number.
Operating Mode	B	1	B : Batch

The following DD statements are required for the DLDRV step:

DD Statements—LDDRV Step

DD Statement	Description
STEPLIB	File-AID/RDX load libraries (CXVJLOAD and SXVJLOAD).
RDXMLIB	Library containing File-AID/RDX messages.
EXTRACT	File-AID/RDX extract file name.
DISCARDS	File-AID/RDX discard file.
EXTPARMS	File containing the load parameters (see EXTPARMS File).
MVSINFO	File-AID/RDX information for MVS files from which to delete.
DDnnn	MVS files from which to delete.
SPLITnnn	Output file to which File-AID/RDX writes data for a single file from the extract file. One file for each object, where 001≤ nnn ≤ 099. The LRECL and BLKSIZE parameters must be large enough to hold the extracted records. The SPACE parameters must be large enough to hold all extracted records.
SYSOUT	Output class for error messages and reports.
RDXSQLCD	Output class for detailed error information.
SYSPRINT	Standard output stream.
TPTPRINT	Standard output stream for optional diagnostics.
SYSTERM	Output class for runtime errors.
MVSIN	File-AID/RDX’s Delete Control Table. Used to verify authorities.

MVS Delete Control Table

The MVS Delete Control Table (member MVSDCT in the control card PDSE) contains information about the objects from which to delete data. It is the input (MVSIN) for the DLMVS step.

MVS Delete Control Table (MVSDCT)

*FR.23.01.00 F=2-------- M V S D E L E T E   C O N T R O L   T A B L E --------
*
*CONTROL                                                 NUMBER OF ROWS
*NUMBER FILE NAME                                       TO BE DELETED   S
*------- ---------------------------------------------- -------------- -
   006   TSOID01.FRSAMP.CONTACTT                               18        N
   005   TSOID01.FRSAMP.CUSTOMER                               15        N
   004   TSOID01.FRSAMP.ORDERTAB                               33        N
   003   TSOID01.FRSAMP.ORDERLIN                               49        N
   002   TSOID01.FRSAMP.SUPPLIER                               32        N
   001   TSOID01.FRSAMP.PARTTABL                               28        N
/*

The table contains the following information:

MVS Delete Control Table

Field Name	Description
CONTROL NUMBER	Internal table control number.
FILE NAME	Contains a list of the MVS files from which data is to be deleted.
NUMBER OF ROWS TO BE DELETED	Contains the number of rows that were extracted from each file when the extract file was generated.
S	N or Y. Represents the D record supplement indicator (see also Product Record — 0).

DLMVS Step Parameter List and DD Statements

XFREXEC is the File-AID/RDX program name.

The parameter information in the PARM field on the EXEC statement for the DLMVS step must have the following format:

EXEC Statement PARM Field—DLMVS

Parameter	Default Value	Length	Description
Product	FR	2	File-AID/RDX
Option	E	1	File-AID/RDX option number.
Operating Mode	B	1	B : Batch

The following DD statements are required for the DLMVS step:

DD Statements—DLMVS Step

DD Statement	Description
STEPLIB	File-AID/RDX load libraries (CXVJLOAD and SXVJLOAD); Db2 load library.
RDXMLIB	Library containing File-AID/RDX messages.
EXTPARMS	File containing the load parameters (see EXTPARMS File).
MVSIN	File-AID/RDX’s MVS Delete Control Table (MVSDCT). Used to verify authorities.
DELETEIN	Input file(s) generated during split processing.
DDnnn	MVS files from which to delete.
XCPTNRPT	Output class for Insert Exception Report.
TOTLSRPT	Output class for Load Summary Report.
COMMTRPT	Output class for Commit Report.
RDERRORS	Output class for detailed error information and field mapping error information from File-AID/RDX.
SYSOUT	Output class for error messages and reports.
DISCARDS	File-AID/RDX discard file.
SYSPRINT	Standard output stream.
TPTPRINT	Standard output stream for optional diagnostics.
SYSTERM	Output class for runtime errors.

MVS Delete Return Codes

An execution return code (RC) appears in the output listing. For return codes other than 0, an error code and message indicating the specific problem also appear in the listing. In general, the return codes can be summarized as follows:

Return Code	Description
0	Job ran to completion without error.
4	Job ran to completion without error, warnings issued.
8	Job ran with error. Subsequent job steps stopped.
16	Severe error, job aborted.