How to copy CA Librarian members into a sequential file and separate them from each other.

Document ID : KB000024029
Last Modified Date : 14/02/2018
Show Technical Document Details

Question:

There is a sample in the CA Librarian User guide on how to copy all members into a PDS (See Copying Members to a PDS (OS/390 and z/OS Only) in Chapter 2: CA Librarian Recipes Using the Facilities). However, there are no samples provided for copying all members into a sequential file.

How can I copy CA Librarian members into a sequential file and separate them from each other.

 

Answer:  

For z/OS change the OSJOB output DDname to a sequential file.

For z/VSE change the JOBSTR DLBL to a sequential file.


To place separator lines between the members, use  -INS FIRST   or  -INS LAST statements or both.   

Note:  CA Librarian stores the members in a compress format. The extracted Librarian members will be uncompressed and require more DASD space. 

 

The samples below copies all members of a CA Librarian Master file into a sequential file and inserts at the beginning of each member 'header for member MEMBERNAME' and at the end of each member 'trailer for member'.

The EXEC option on the -SEL control card writes a copy of each module for which it is specified to the file.

The TEMP option prevents the Master file member from being updated permanently.

The VAR option makes CA Librarian's Audit Trail Variables available to this step, in this case the ¢MODNAME variable. The cent symbol is represented by a X'4A'. 

 

//*jobcard JOB
//*
//*-------------------------------------------------------------------*
//*---     STEP1: create OSJOB file with control cards             ---*
//*-------------------------------------------------------------------*
//STEP1    EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//SYSPRINT DD SYSOUT=*
//OSJOB    DD DSN=&&TEMP1,DISP=(,PASS),DCB=BLKSIZE=800,
//            UNIT=SYSDA,SPACE=(TRK,(1,1))
//MASTER   DD DSN=yourhlq.origin.master,DISP=SHR
//SYSIN    DD *
-OPT GPO
-SEL NAME=,EXEC,VAR,TEMP
-INS FIRST
header for member ¢MODNAME
-INS LAST
trailer for member
-END
/*
//*-------------------------------------------------------------------*
//*---     STEP2: perform unload to PS file (OSJOB)                ---*
//*-------------------------------------------------------------------*
//STEP2    EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//SYSPRINT DD SYSOUT=*
//LIST     DD SYSOUT=*
//OSJOB    DD DSN=yourhlq.psmaster.unload,DISP=(,CATLG,DELETE),
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=6640),
//         UNIT=3390,SPACE=(CYL,(5,5)),STORCLAS=storclas
//MASTER   DD DSN=yourhlq.origin.master,DISP=SHR
//SYSIN    DD DSN=*.STEP1.OSJOB,DISP=(OLD,DELETE)
/*
//


z/VSE -

* $$ JOB JNM=
* $$ LST CLASS=
* $$ PUN CLASS=
// JOB LIBR2SEQ
// OPTION LOG
// LIBDEF PHASE,SEARCH=(
// ASSGN SYS004,DISK,VOL=VOLSER,SHR
// DLBL MASTER,'LIBR.MASTER'
// EXTENT SYS004,VOLSER,1,0,RELTRK,NTRCKS
// ASSGN SYS008,DISK,VOL=VOLSER,SHR
// DLBL JOBSTR,'LIBR.WORK.FILE',0,SD
// EXTENT SYS008,VOLSER,1,0,RELTRK,NTRCKS
// EXEC LIBRPROG,SIZE=768K
-OPT GPO
-SEL NAME=,EXEC,VAR,TEMP
-INS FIRST
HEADER FOR MEMBER ¢MODNAME
-INS LAST
TRAILER FOR MEMBER
-END
/*
// ASSGN SYS008,IGN
// ASSGN SYS004,DISK,VOL=VOLSER,SHR
// DLBL MASTER,'LIBR.MASTER'
// EXTENT SYS004,VOLSER,1,0,RELTRK,NTRCKS
// ASSGN SYS008,DISK,VOL=VOLSER,SHR
// DLBL JOBSTR,'LIBR.SEQ.FILE',0,SD
// EXTENT SYS008,VOLSER,1,0,RELTRK,NTRCKS
// DLBL IJSYSIN,'LIBR.WORK.FILE',,SD
// EXTENT SYSIPT,VOLSER
ASSIGN SYSIPT,DISK,VOL=VOLSER,SHR
// EXEC LIBRPROG,SIZE=768K
/*
CLOSE SYSIPT,SYSRDR
/*
/&
* $$ EOJ


Additional Information:

For additional information on the CA Librarian control statements, see Chapter 4: Control Commands in the CA Librarian Batch Command Reference Guide