JTEC001513 : CA-Librarian R4.4でユーザー提供ルーチンのサンプルは、どこに格納されていますか？

Products

• Librarian

Issue/Introduction

Question
CA-Librarian R4.4でユーザー提供ルーチンのサンプルは、どこに格納されていますか？

Environment

Release:ALL

Resolution

Answer

R4.2やR4.3では、Prefix.CLJ4nUCRに格納されていましたが、R4.4ではPrefix.CALJSAMPに格納されています。

BROWSE                      Prefix.LIBR.R44.CALJSAMP                         ROW 00001 OF

COMMAND ===>                                                                               SCROLL ===>

                   Name        Prompt            Size           Created            Changed

_________ ARCINDEX

_________ AUXINC

_________ AUXINCLE

_________ DATSTAMP

_________ FAIRCBL

_________ FAIRPLI

_________ FAIRSCAN

_________    :

_________    :

              **End**

以下は、ユーザー提供ルーチンをインストールするためのサンプルJCL（INSTUCR）です。

詳細は、Using - Using Comparator II(z/OS and OS/390)をご参照ください。

Sample

//     JOB

//*******************************************************************

//*           MEMBER = INSTUCR FROM THE UCR SYSTEM FILE             *

//*******************************************************************

//*    DESC : PROC TO INSTALL A UCR FROM THE SMP TARGET DSN         *

//*    STEP1: ASSEMBLE THE MODULE                                   *

//*    STEP2: LINK EDIT THE MODULE                                  *

//*                                                                 *

//*       SUPPLY THE FOLLOWING INFORMATION FOR THE PROC:            *

//*  (A)  TARGET = THE UCR SMP TARGET FILE  (CAI.CLJ41UCR)          *

//*  (B)  MAC1 = THE SYSTEM'S MACRO LIBRARY  (SYS1.MACLIB)          *

//*  (C)  MAC2 = THE CA-LIBRARIAN TARGET MACRO LIBRARY (CAI.CAIMAC) *

//*  (D)  MAC3 = THE SYSTEM'S MACRO LIBRARY  (SYS1.AMODGEN)         *

//*  (E)  LOAD1= THE CA-LIBRARIAN TARGET LOAD LIBRARY  (CAI.CAILIB) *

//*  (F)  LOAD2= YOUR EXECUTION LIBRARY  (YOUR.EXEC.LIB)            *

//*******************************************************************

//UCRI    PROC LPARM=,MEM=, 

//             TARGET='your.Librarian.CALJSAMP',         (A)

//             MAC1='SYS1.MACLIB',                       (B)

//             MAC2='your.Librarian.CALJMAC',            (C)

//             MAC3='SYS1.AMODGEN',                      (D)

//             LOAD1='your.Librarian.CALJLINK',          (E)

//             LOAD2='your.Librarian.CALJLINK'           (F)

//STEP1     EXEC PGM=ASMA90,PARM='OBJECT,NODECK'

//SYSPRINT   DD  SYSOUT=*

//SYSLIB     DD  DSN=&MAC1,DISP=SHR

//                DD  DSN=&MAC2,DISP=SHR

//                DD  DSN=&MAC3,DISP=SHR

//SYSUT1     DD  UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT2     DD  UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT3     DD  UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSLIN     DD  DSN=&&OBJECT,DISP=(,PASS),UNIT=SYSDA,

//           SPACE=(TRK,(12,12)) 

//SYSIN      DD  DSN=&TARGET(&MEM),DISP=SHR

//*

//STEP2     EXEC PGM=IEWL,PARM='&LPARM',COND=(0,NE)

//SYSPRINT   DD  SYSOUT=*

//SYSUT1     DD  UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSLIB     DD  DSN=&LOAD1,DISP=SHR

//SYSLIN     DD  DSN=&&OBJECT,DISP=(OLD,DELETE)

//SYSLMOD    DD  DSN=&LOAD2(&MEM),DISP=SHR

//  PEND

//*******************************************************************

//*               DESC:  EXECUTE THE UCRIL PROC                     *

//*     SUPPLY THE FOLLOWING INFORMATION FOR THE PROC EXECUTION:    *

//*    (G)  LPARM = THE LINK EDIT ATTRIBUTES FOR THE UCR            *

//*    (H)  MEM   = THE NAME OF UCR LOAD MODULE WHEN LINKED         *

//*******************************************************************

//UCR       EXEC UCRI,LPARM='XREF,LIST,NORENT',         (G)

//          MEM=ucr member                              (H)

//

Additional Information

Old Japanese Knowledge Document ID : JTEC001513