About old ARCLEVEL's INDEX(M) report
search cancel

About old ARCLEVEL's INDEX(M) report

book

Article ID: 202274

calendar_today

Updated On:

Products

Librarian

Issue/Introduction

When executed the PGM=ARCINDEX, it outputs the ARCLEVEL, Update Date, Password, Programmer Name, and Summary of each Member, but no information such as the Number of records and/or language.
Is there a way to output the information like a -OPT INDEX(M) ?

Environment

Release : ALL

Resolution

It is not possible to output that information in 1step. The following is the sample jcl.

STEP1:Copy master file
STEP2:Create SYSIN cards to back the ARCLEVEL
STEP3:In the copied master file, back MEMBER's ARCLEVEL in the copied master file.
STEP4:Output index

Sample:
//S01     EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB  DD DSN=Prefix.LIBR.CALJLINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//INDEX    DD SYSOUT=*
//MASTER   DD DSN=Prefix.LIBR.MASTER.ORG,DISP=SHR
//BACKUP   DD DSN=Prefix.LIBR.MASTER.NEW,DISP=(,CATLG),
//            SPACE=(CYL,(5)),UNIT=SYSDA,VOL=SER=WORK01,
//            DCB=(BLKSIZE=7548,DSORG=DA)
//OSJOB    DD DUMMY
//SYSIN    DD *
-OPT BKUPDISK,INDEX
-END
/*
//*
//S02     EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB  DD DSN=Prefix.LIBR.CALJLINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//MASTER   DD DSN=Prefix.LIBR.MASTER.NEW,DISP=SHR
//OSJOB    DD DSN=&&OSJOB1,DISP=(NEW,PASS),
//            UNIT=SYSDA,SPACE=(TRK,(5,5),RLSE)
//SYSIN    DD *
-OPT GPO
-SEL ARCMOD=Y,ARC=-1,SEQ=/81,6,10,10/
-END
/*
//*
//S03     EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB  DD DSN=Prefix.LIBR.CALJLINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//MASTER   DD DSN=Prefix.LIBR.MASTER.NEW,DISP=SHR
//OSJOB    DD DUMMY
//SYSIN    DD DSN=&&OSJOB1,DISP=(OLD,DELETE)
//*
//S04     EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB  DD DSN=Prefix.LIBR.CALJLINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//MASTER   DD DSN=Prefix.LIBR.MASTER.NEW,DISP=SHR
//INDEX    DD SYSOUT=*
//OSJOB    DD DUMMY
//SYSIN    DD *
-OPT INDEX(M)
-END
/*
//