search cancel

Having issues compile/linking the Calendar Routine programs with CICS/TS application programs. Require updated install JCL for this process.

book

Article ID: 256042

calendar_today

Updated On:

Products

Calendar Routines

Issue/Introduction

Installing Calendar Routines and working on the CICS interface. Having problem linking the programs to function. User Manual and Install Reference Guide provide no adequate samples to perform the tasks required.

Environment

TCCR: Calendar Routines R6.0  - currently the only supported release Genlevel 1999. - Stabilized July 2012

Cause

Lack of functional documentation

Resolution

Here is a sample JCL that can be utilized to link the Calendar Routines libraries with the CICS/TS applications. Please make all applicable changes to fit your environment.

// jobcard                                                            
//*                                                                   
//* JOBPARM SYSAFF=*                                                  
//*                                                                   
// SET CICS=your.CICS.system.HLQ                                      
// SET COBIN=your.COBOL.source.library    Full library name           
// SET TCCR=your.TCCR.installed.HLQ                                   
// SET COBOL=your.COBOL.compiler.HLQ                                  
// SET CEE=your.CEE.system.HLQ                                        
//*                                                                   
//********************************************************************
//*  CICS PRE-COMPILE                                                 
//********************************************************************
//PS1PREC EXEC PGM=DFHECP1$,REGION=0M,                                
// PARM=(CICS,FLAGI,NOSPIE,NONUM,APOST,NOSEQ,XREF,NOCBLCARD)          
//STEPLIB  DD DISP=SHR,DSN=&CICS..SDFHLOAD                            
//SYSIN    DD DISP=SHR,DSN=&COBIN(TRCENGNC)                           
//SYSPUNCH DD DSN=&&SYSCIN,DISP=(NEW,PASS),                           
//            UNIT=SYSDA,SPACE=(400,(400,400)),                       
//            DCB=BLKSIZE=400                                         
//SYSPRINT DD SYSOUT=*                                                
//SYSTERM  DD SYSOUT=*                                                
//********************************************************************
//COMP     EXEC PGM=IGYCRCTL,REGION=0M,                               
//  PARM='QUOTE,MAP,XREF,LINECOUNT(0),NOADV'                          
//STEPLIB  DD DISP=SHR,DSN=&COBOL..SIGYCOMP  COBOL                    
//SYSLIB   DD DISP=SHR,DSN=&TCCR..COPYLIB    TCCR                     
//         DD DISP=SHR,DSN=&CICS..SDFHCOB    CICS                     
//         DD DISP=SHR,DSN=&CICS..SDFHMAC    CICS                     
//         DD DISP=SHR,DSN=&CICS..SDFHSAMP   CICS                     
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                            
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                            
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                            
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                            
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                            
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(3,1))                            
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                            
//SYSUT8   DD UNIT=SYSDA,SPACE=(CYL,(2,1))                            
//SYSUT9   DD UNIT=SYSDA,SPACE=(CYL,(2,1))              
//SYSUT10  DD UNIT=SYSDA,SPACE=(CYL,(2,1))                           
//SYSUT11  DD UNIT=SYSDA,SPACE=(CYL,(2,1))                           
//SYSUT12  DD UNIT=SYSDA,SPACE=(CYL,(2,1))                           
//SYSUT13  DD UNIT=SYSDA,SPACE=(CYL,(2,1))                           
//SYSUT14  DD UNIT=SYSDA,SPACE=(CYL,(2,1))                           
//SYSUT15  DD UNIT=SYSDA,SPACE=(CYL,(2,1))                           
//SYSLIN   DD DSN=&&OBJ,DISP=(MOD,PASS),           <OBJECT OUTPUT    
//            UNIT=SYSDA,                                            
//            SPACE=(TRK,(3,3))                                      
//SYSTERM  DD SYSOUT=*                                               
//SYSPUNCH DD DUMMY                                                  
//SYSMDECK DD SYSOUT=*                                               
//SYSIN    DD DSN=&&SYSCIN,DISP=(OLD,DELETE)   PRECOMPILED SOURCE    
//SYSPRINT DD SYSOUT=*                                               
//*******************************************************************
//LKED     EXEC PGM=IEWL,PARM='CALL,LET,LIST,XREF',REGION=0M         
//SYSPRINT DD SYSOUT=*,COPIES=1                                      
//SYSUT1  DD UNIT=SYSDA,SPACE=(CYL,(1,1))                            
//SYSLIB  DD DSN=&CEE.SCEELKED,DISP=SHR          LE library          
//        DD DSN=&TCCR..PDSE.LOADLIB,DISP=SHR    TCCR                
//        DD DSN=&CICS..SDFHLOAD,DISP=SHR        CICS                
//SYSLMOD DD DSN=&TCCR..PDSE.LOADLIB(TRSENGNC),  DEST LOADLIB        
//           DISP=SHR                                                
//SYSLIN  DD DSN=&&OBJ,DISP=(OLD,DELETE)         COMPILED CODE       
//                                                                   

 

IN ADDITION you must have a VALID RDO entry:

DEFINE PROGRAM(TRCENGNC) GROUP(xxxxx)           LANGUAGE(COBOL)        Be sure to update the GROUP with the appropriate group definition