ARCHJCL - Clarification



IBM's hierarchical database management system with a Database Manager (IMS DB) and a Transaction Manager(IMS DC)

ARCHJCL - Clarification

Postby jaggz » 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.

 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
User avatar
jaggz
 
Posts: 356
Joined: Fri Jul 23, 2010 8:51 pm
Has thanked: 8 times
Been thanked: 5 times

Re: ARCHJCL - Clarification

Postby Akatsukami » 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:
//*     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?
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day
User avatar
Akatsukami
Global moderator
 
Posts: 1058
Joined: Sat Oct 16, 2010 2:31 am
Location: Bloomington, IL
Has thanked: 6 times
Been thanked: 51 times

Re: ARCHJCL - Clarification

Postby jaggz » 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
User avatar
jaggz
 
Posts: 356
Joined: Fri Jul 23, 2010 8:51 pm
Has thanked: 8 times
Been thanked: 5 times

Re: ARCHJCL - Clarification

Postby BillyBoyo » 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?
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: ARCHJCL - Clarification

Postby jaggz » 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.
User avatar
jaggz
 
Posts: 356
Joined: Fri Jul 23, 2010 8:51 pm
Has thanked: 8 times
Been thanked: 5 times


Return to IMS DB/DC