CSLURLFL procedure

Use the CSLURJL0 sample job to invoke the CSLURLFL procedure to load the repository server from IMS log records.

Parameters

You can specify the following parameters as execution parameters on the EXEC statement in the CSLURLFL startup procedure.

HLQ=dsn_prefix: Required. Specifies the high level qualifier for the distribution libraries used to install IMS. Specify the dataset name fully qualified without quotes. For example:; HLQ=MY.IMS (for libraries like 'MY.IMS.SDFSISRC')
IMSRESL=dsn: Required. Specifies the fully qualified dataset name of the IMS SDFSRESL to use for the job which is normally &HLQ..SDFSRESL. Specify the dataset name fully qualified without quotes. For example:; IMSRESL=&HLQ..SDFSRESL
OLDSDS1=dsn: Required. Defines the first IMS log dataset to use as input to the DFSURCL0 utility. Multiple log datasets can be concatenated using OLDSDSn variables. There should be one OLDSDSn variable for each log data set that is used by the target IMS system. Specify the dataset name fully qualified without quotes. For example:; OLDSDS1=MY.OLDS1
OLDSDS2-8=dsn: Optional. OLDSDS2 defines the second IMS log dataset to concatenate, if one exists. Similarly, OLDSDS3 would define the third dataset and so on. For example:; OLDSDS2=MY.OLDS2

Parameters specified by DFSURCL0.CONTROL:

IMSID=ims_id: Required. Specifies the IMSID of the target IMS system. For example:; IMSID=IMS1

Parameters specified by CSLURP10.SYSIN:

IMSPLEX(NAME=plex IMSID(imsid)): Required. Specifies the IMS plex name and IMSID of the target IMS system. For example:; IMSPLEX(NAME=PLEX1 IMSID(IMS1))

Sample CSLURJL0 JCL

//         JOB
//         SET HLQ=
//         SET IMSRESL=
//         SET OLDSDS1=
//         SET OLDSDS2=
//*        SET OLDSDS3=
//*        SET OLDSDS4=
//*        SET OLDSDS5=
//*        SET OLDSDS6=
//*        SET OLDSDS7=
//*        SET OLDSDS8=
//*
//         JCLLIB ORDER=(&HLQ..SDFSISRC)
//JOBLIB   DD DISP=SHR,DSN=&IMSRESL
//*
//STEP1    EXEC CSLURLFL
//DFSURCL0.SYSUT1 DD DISP=SHR,DSN=&OLDSDS1
//         DD DISP=SHR,DSN=&OLDSDS2
//*        DD DISP=SHR,DSN=&OLDSDS3
//*        DD DISP=SHR,DSN=&OLDSDS4
//*        DD DISP=SHR,DSN=&OLDSDS5
//*        DD DISP=SHR,DSN=&OLDSDS6
//*        DD DISP=SHR,DSN=&OLDSDS7
//*        DD DISP=SHR,DSN=&OLDSDS8
//DFSURCL0.CONTROL DD *
  IMSID=imsid
/*
//CSLURP10.SYSIN DD *
  IMSPLEX(NAME=plex IMSID(imsid))
/*
//

Sample CSLURLFL procedure

//*
//CSLURLFL PROC
//*
//************************************************************
//* * *                     DFSURCL0                     * * *
//************************************************************
//DFSURCL0 EXEC PGM=DFSURCL0
//SYSUT1   DD DUMMY
//CONTROL  DD DUMMY
//REPORT   DD SYSOUT=*
//WORKFILE DD SYSOUT=*,
//            DCB=(LRECL=133,BLKSIZE=6118,RECFM=FBA)
//RDDSDSN  DD DISP=(,PASS),
//            DSN=&&RDDSDSN,
//            UNIT=SYSDA,
//            SPACE=(CYL,(100,50),RLSE),
//            DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760)
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//************************************************************
//* * *                     CSLURP10                     * * *
//************************************************************
//CSLURP10 EXEC PGM=CSLURP10,MEMLIMIT=4G
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//RDDSDSN  DD DISP=(OLD,PASS),
//            DSN=&&RDDSDSN,
//            UNIT=SYSDA
//SYSIN    DD DUMMY
//         PEND