PAN/SQL Install Issues With ESD Tape Restore reading only the first file

Products

• Easytrieve Report Generator
• PAN/SQL

Issue/Introduction

Attempting to install CA Pan/SQL product, problem with extracting the 240203ESH02.ESD file to a scratch tape.

The CAESDR utility seems to run okay.

04.43.42 J0092359  IEF403I CAESDR - STARTED - TIME=04.43.42
04.43.42 J0092359  IEC501A M 92FE,SCRTCH,BLP,COMP,CAESDR,RESTORE
Output tape written in IDRC mode (DCB=TRTCH=COMP)
37   Logical Files Processed
04.43.45 J0092359  IEC205I TAPE,CAESDR,RESTORE,FILESEQ=1, COMPLETE VOLUME LIST,DSN=CAI.RESERVED.S001,VOLS=B05528
04.43.45 J0092359  IEF404I CAESDR - ENDED - TIME=04.43.45

But listing the tape shows shows one dataset.  What JCL/procedure can get the rest of the datasets to the tape?

Volume = B08857   VOL1  =          Rack  = 
Number of data sets = 1

 

Environment

CA Pan/SQL 2.4C, release 2.4C

Resolution

First, execute the CAESDR utility with sample such as:

 //RESTORE  EXEC PGM=CAESDR,REGION=4M,PARM='NOVOL'
 //SYSPRINT DD  SYSOUT=*
 //DISK     DD  DSN=your.pansql.esd.file,DISP=SHR
 //TAPE     DD  UNIT=(3490,,DEFER),
 //     LABEL=(1,SL,RETPD=99),
 //     DISP=(NEW,KEEP,DELETE),DSN=your.pansql.esd1
//SYSUT1   DD DSN=CAI.SAMPJCL,UNIT=3490,VOL=SER=B08857,
//        LABEL=(9,SL,EXPDT=98000),
//        DISP=OLD

For the above JCL to tell RMM to allow reading beyond file 1, please note:
The CAESDR utility opens file 1 for output and then uses EXCP to write out all the files. That is, it is writing HDR1/HDR2 records, tape marks, EOF1/EOF2 records just like OPEN/CLOSE would have. HSM only saw the file 1 open so it "thinks" that's all there is.   The EXPDT=98000 tells RMM to allow the open to proceed.                                  

For CAESDR, using EXPDT=98000 should cause RMM to bypass tracking the tape, unless the exit has disabled that function.

In that case, please define the file manually; 
      RMM CD CAI.SAMPJCL VOLUME(B08857) JOBNAME(PANSQL) LABELNUMBER(9) CRDATE(2021/144) STEP(PANSQL) 

Another option is to create an OPENRULE in the parmlib such as 
      OPENRULE VOLUME(B08857) TYPE(ALL) ANYUSE(IGNORE)

Once that EDGRMMxx member has been updated to include the OPENRULE, it can be activated by simply issuing "F DFRMM,M=xx" with xx being the suffix of the updated EDGRMMxx member. That will tell RMM to ignore this specific volume.

Please use the IEBCOPY JCL (see below), modifying your dataset name for //SYSUT2.  
The following JCL loads the sample JCL from the product tape:  FILE 9 CA Pan/SQL Sample Install JCL Library PDS.
It is the ninth dataset (DSN=CAI.SAMPJCL) on the tape and is in IEBCOPY unloaded format.
Use the following JCL as a model to load the sample JCL library DASD.

//IEBCOPY  EXEC PGM=IEBCOPY
 //SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=CAI.SAMPJCL,UNIT=3490,VOL=SER=B08857,
 //        LABEL=(9,SL),
 //        DISP=OLD
//SYSUT2   DD DSN=your.pansql.SAMPJCL,
 //        DISP=(NEW,CATLG,DELETE),
 //        DCB=(LRECL=80,DSORG=PO,BLKSIZE=0,RECFM=FB),
 //        UNIT=3390,SPACE=(CYL,(3,3,50))
 //SYSUT3   DD SPACE=(CYL,(2,2)),UNIT=SYSDA
 //SYSUT4   DD SPACE=(CYL,(2,2)),UNIT=SYSDA
 //SYSIN    DD DUMMY