Copy specific LANG and ARC level to PO file

Products

• Librarian

Issue/Introduction

Copy all members of the specific LANG and ARC level of the Master file to the PO file.

Environment

Release : 4.4

Component : CA Librarian

Resolution

Use the following sample jcl for each LANG and ARC level.

 LANG=Language Type
 ARC=ARC level(0,-1,-2,-3...)

//STEP01  EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB  DD DSN=Prefix.LIBR.R44SP00.CALJLINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//MASTER   DD DSN=Prefix.LIBR.MASTER,DISP=SHR
//OSJOB    DD DSN=&&OSJOB,DISP=(NEW,PASS),
//            UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSIN    DD *
-OPT GPO
-SEL NAME=,LANG=COB,ARC=-3,EXEC(R)
-END
/*
//*
//STEP02  EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB  DD DSN=Prefix.LIBR.R44SP00.CALJLINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//MASTER   DD DSN=Prefix.LIBR.MASTER,DISP=SHR
//OSJOB    DD DSN=Prefix.LIBR.COB.ARC3,DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(5,5,50),RLSE),VOL=SER=work01,
//            DCB=(DSORG=PO,LRECL=80,BLKSIZE=3120,RECFM=FB)
//SYSIN    DD DSN=&&OSJOB,DISP=(OLD,DELETE)
//