JCL example

//EQQPROC EXEC PGM=EQQPURGE,PARM=
//**********************************************************************
//*  THIS PROCEDURE IS STARTED FROM OPC TO INITIATE PURGE
//*  PROCESSING OF DLF OBJECTS USED BY OPC JOBS.
//*  EQQPROC INVOKES PROGRAM EQQPURGE.
//*  PROGRAM EQQPURGE READS JCL FROM data set WITH DDNAME
//*  JCLIN AND UPDATES IT WITH THE NAME OF THE DLF OBJECT TO BE
//*  PURGED. WHEN THE JCL IS UPDATED EQQPURGE WRITES THE JCL TO
//*  JES INTERNAL READER.
//*  SAMPLE EQQJCLIN CONTAINS SAMPLE JCL FOR FILE JCLIN
//*
//*  JCLIN ORGANIZATION : PS (OR A PDS MEMBER)
//*        RECORD LENGTH: 80
//*
//*  TO GET THIS PROCEDURE TO WORK, YOU SHOULD DO THE FOLLOWING:
//*  1. CHANGE STEPLIB DSN TO THE HCL Workload Automation for Z 
//*     LOAD LIBRARY NAME
//*  2. CHANGE JCLIN DSN TO data set NAME CONTAINING JCL
//*  3. EQQPROC MUST BE DEFINED AS A STARTED TASK ACCORDING TO
//*   DOCUMENTATION FOR THE SECURITY PRODUCT USED.
//*
//*  WHEN THE INPUT TO PROGRAM EQQPURGE IS INVALID, ONE OF THE FOLLOWING
//*  WTO'S IS WRITTEN TO THE OPERATOR CONSOLE:
//*    EQQPURGE : PARAMETER CARD SPECIFIES AN INVALID NAME
//*    EQQPURGE : ERROR OPENING FILE WITH DDNAME JCLIN
//*    EQQPURGE : INVALID JCLIN RECORD LENGTH, MUST BE 80
//*    EQQPURGE : ERROR OPENING INTERNAL READER
//*
//**********************************************************************
//STEPLIB   DD DISP=SHR,DSN=HCL Workload Automation for Z 
//*  LOAD LIBRARY NAME
//JCLIN     DD DISP=SHR,DSN=INPUT JCL data set NAME
//JCLOUT    DD SYSOUT=(A,INTRDR)
//SYSPRINT  DD SYSOUT=*

EQQPURGE returns one of the following codes upon completion:

CC = 00:: Retained object found and deleted.
Explanation:: The DLF object has been purged from Hiperspace™.
Action:: EQQPURGE terminates.
User response:: None.

CC = 02:: The object did not exist in DLF.
Explanation:: This is a return code from COFSDONO.
Action:: EQQPURGE terminates; no object is purged.
User response:: None.

CC = 04:: The data set name could not be located in catalog
Explanation:: The catalog locate for this data set name was unsuccessful.
Action:: EQQPURGE terminates; no object is purged.
User response:: data sets that are to be handled by HCL Workload Automation for Z Hiperbatch support must be cataloged, because the JCL invoking EQQPURGE is distributed to all systems where DLF is running, according to routing information in the JCL. Expect this return code when EQQPURGE executes on a system where the DLF object does not exist.

CC = 08:: The data set name passed has an invalid length.
Explanation:: The data set name passed to EQQPURGE is either of length 0 or longer than 44 characters.
Action:: EQQPURGE terminates without further processing.
User response:: Verify that EQQPURGE was invoked with a valid HCL Workload Automation for Z resource name.

CC = 40:: DLF is not active.
Explanation:: EQQPURGE received return code 40 from the COFSDONO macro indicating that DLF is not active.
Action:: EQQPURGE terminates without further processing.
User response:: Start DLF if it should be active on this system, or update the file in EQQPROC with ddname JCLIN to avoid routing jobs to this system.

CC = 44:: Unexpected error in DLF.
Explanation:: EQQPURGE received return code 44 from the COFSDONO macro indicating that an unexpected error occurred in DLF when processing the purge request.
Action:: EQQPURGE terminates without further processing.
User response:: Contact your system programmer.

If EQQPURGE receives invalid input, one of the following WTOs is written to the operator console:

EQQPURGE:: Parameter card specifies an invalid name.
Explanation:: The object name passed to EQQPURGE is either of length 0 or longer than 44 characters.
Action:: The JCL from the JCLIN data set is neither substituted nor written to the internal reader.
User response:: Verify that EQQPROC has been started by HCL Workload Automation for Z.

EQQPURGE:: Error opening file with ddname JCLIN.
Explanation:: EQQPURGE could not open input file JCLIN.
Action:: EQQPURGE terminates.
User response:: Verify that the JCLIN statement is present in EQQPROC.

EQQPURGE:: Invalid JCLIN record length; must be 80.
Explanation:: The record length of the data set with ddname JCLIN is not 80.
Action:: EQQPURGE terminates; no JCL is processed.
User response:: Reallocate JCLIN with the correct record length.

EQQPURGE:: Error opening internal reader.
Explanation:: EQQPURGE could not open JES internal reader data set.
Action:: EQQPURGE terminates; no JCL is processed.
User response:: Verify that the JCLOUT statement is present and correctly specified in EQQPROC.