IBM Mainframe Forum

Posted: **Fri Apr 20, 2012 2:51 pm**

Hi,

I am trying to clear the IMS archives based on the IMS.PROCLIB(ARCHJCL) using the below JCL.

//* *
//* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR *
//* DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH *
//* IBM CORP. *
//* *
//************************************************************@ECPYRT**
//*
//AR%STPNO EXEC PGM=DFSUARC0,PARM='%SSID,DBRC=YES'
//*
//* THIS JCL ORIGINATES FROM THE USER'S 'JCLPDS' LIBRARY.
//* KEYWORDS ARE REPLACED BY THE GENJCL FUNCTION OF
//* THE IMS DATA BASE RECOVERY CONTROL FEATURE.
//*
//* JCL FOR ARCHIVE UTILITY
//*
//STEPLIB DD DISP=SHR,DSN=IMS910.SDFSRESL
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
%DELETE (%RCNDSN1 EQ '')
//ARCHJCL$ JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=B,
// REGION=0M,NOTIFY=&SYSUID
//*
//*********************************************************************
//* IVP IMS 9.1
//*
//* SKELETON: DFSIXS33
//*
//* FUNCTION: IVP SKELETAL JCL FOR DBRC GENJCL.ARCHIVE
//*********************************************************************
//*
//************************************************************@SCPYRT**
//* *
//* LICENSED MATERIALS - PROPERTY OF IBM *
//* *
//* 5655-J38 *
//* *
//* (C) COPYRIGHT IBM CORP. 1989,1998 ALL RIGHTS RESERVED *
//* *
//* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR *
//* DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH *
//* IBM CORP. *
//* *
//************************************************************@ECPYRT**
//*
//AR%STPNO EXEC PGM=DFSUARC0,PARM='%SSID,DBRC=YES'
//*
//* THIS JCL ORIGINATES FROM THE USER'S 'JCLPDS' LIBRARY.
//* KEYWORDS ARE REPLACED BY THE GENJCL FUNCTION OF
//* THE IMS DATA BASE RECOVERY CONTROL FEATURE.
//*
//* JCL FOR ARCHIVE UTILITY
//*
//STEPLIB DD DISP=SHR,DSN=IMS910.SDFSRESL
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
%DELETE (%RCNDSN1 EQ '')
//RECON1 DD DSN=%RCNDSN1,DISP=SHR
%ENDDEL
%DELETE (%RCNDSN2 EQ '')
//RECON2 DD DSN=%RCNDSN2,DISP=SHR
%ENDDEL
%DELETE (%RCNDSN3 EQ '')
//RECON3 DD DSN=%RCNDSN3,DISP=SHR
%ENDDEL
%SELECT OLDS(%SSID,(%DDNAMES))
//%OLDSDDN DD DSN=%OLDSDSN,DISP=SHR
%ENDSEL
//DFSSLOGP DD DSN=IMS910.SLDSP.%SSID.D%ARDATE.T%ARTIME.V%ARVERS,
// DISP=(NEW,CATLG),
// UNIT=3390,
// VOL=SER=BCIMMQ,
// SPACE=(CYL,(1,1))
//*DFSSLOGS DD DSN=IMS910.SLDSS.%SSID.D%ARDATE.T%ARTIME.V%ARVERS,
//* DISP=(NEW,CATLG),
//* UNIT=3390,
//* VOL=SER=BCIMMQ,
//* SPACE=(CYL,(1,1))
//RLDSDD1 DD DSN=IMS910.RLDSP.%SSID.D%ARDATE.T%ARTIME.V%ARVERS,
// DISP=(NEW,CATLG),
// UNIT=3390,
// VOL=SER=BCIMMQ,
// SPACE=(CYL,(1,1))
//*RLDSDD2 DD DSN=IMS910.RLDSS.%SSID.D%ARDATE.T%ARTIME.V%ARVERS,
//* DISP=(NEW,CATLG),
//* UNIT=3390,
//* VOL=SER=BCIMMQ,
//* SPACE=(CYL,(1,1))
//SYSIN DD *
COPY DDNOUT1(RLDSDD1) DBRECOV
//*

But I am ending up with below error message which means % symbol is not recognized but the IBM manual says % gets resolved.

Select all

2 IEFC662I INVALID LABEL
7 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
9 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
11 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
13 IEFC662I INVALID LABEL
13 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
15 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT
16 IEFC620I UNIDENTIFIABLE CHARACTER % ON THE DD STATEMENT

Is there anyone who has faced similar problem. Any Pointers or advise would be really helpful to proceed.

Jaggz

Posted: **Fri Apr 20, 2012 3:02 pm**

This is not, strictly speaking, JCL, but a JCL pattern that is used as in input to a processor that substitutes values for variables such as %STPNO and %SSID and executes directives such as %DELETE.

The comments explicitly state:

Select all

//* KEYWORDS ARE REPLACED BY THE GENJCL FUNCTION OF
//* THE IMS DATA BASE RECOVERY CONTROL FEATURE.

So, don't you think it would be a good idea to actually learn how to use the GENJCL function of the IMS data base recovery control feature?

Posted: **Fri Apr 20, 2012 3:20 pm**

Hi Akatusami,

We are not even able to get the Login into IMS due to ARCHIVE error message. So I am unable to put the command :

/RMG DBRC='ARCHIVE' to generate a Arch JCL.

Jaggz

Posted: **Fri Apr 20, 2012 3:49 pm**

Well, the JCL isn't going to work with all the % things in.

Perhaps you might try to "manually" replace the values?

Posted: **Tue Apr 24, 2012 10:15 am**

Hi All,

When IMS is stuck we can generate the ARCHJCL using DSPURX00 which would process IMS.PROCLIB(ARCHJCL). Once the JCL is generated and now you can submit it and clear the Archives.

IBM Mainframe Forum

ARCHJCL - Clarification

ARCHJCL - Clarification

Re: ARCHJCL - Clarification

Re: ARCHJCL - Clarification

Re: ARCHJCL - Clarification

Re: ARCHJCL - Clarification