//TOMCXCAT JOB ('ESRF DEVELOPMENT'),'TOM.CARNEAL', // CLASS=A,MSGCLASS=X,MSGLEVEL=(0,0), // NOTIFY=&SYSUID //* //******************************************************************** //* * //* ESRF CATALOG DATASET NAME EXTRACTION. * //* * //*------------------------------------------------------------------* //* * //* READ MASTER CATALOG AND ALL USER CATALOGS. * //* * //* CREATE A SEQUENTIAL DATASET CONTAINING A LIST OF * //* ALL CATALOGED DATASETS. * //* * //******************************************************************** //* //* OBTAIN DATASET NAMES FROM CATALOG STRUCTURES. //* //XCAT EXEC PGM=EKCRXCAT,REGION=2048K,PARM=DASD //STEPLIB DD DSN=USER.AUTHLIB,DISP=SHR //* STEPLIB DD DSN=ESRF.R210.SMP.ESRFLAPF,DISP=SHR //SYSPRINT DD DSN=&&SYSPRINT,DISP=(,PASS), // UNIT=VIO,SPACE=(CYL,(1,1)) //CATALOGS DD DSN=TOMC.RACF.CATALOGS,DISP=SHR //DSNAMES DD DSN=&DSNAMES,DISP=(NEW,PASS), // SPACE=(CYL,(1,1),RLSE),UNIT=VIO //SYSUT1 DD UNIT=VIO //SYSUT2 DD UNIT=VIO //* //* SORT OUTPUT IN DATASET NAME ORDER. //* //SORT EXEC PGM=SORT //SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR //SORTIN DD DSN=&DSNAMES,DISP=(OLD,DELETE) //SORTOUT DD DSN=TOMC.RACF.DSNAMES,DISP=SHR //SYSOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=(21,44,CH,A) /* //* //* CONVERT PRINT OUTPUT TO HTML. //* //HTML EXEC PGM=ESRFHTML //STEPLIB DD DSN=TEST.ESRF210.ESRFLOAD,DISP=SHR //PRINTIN DD DSN=&&SYSPRINT,DISP=(OLD,DELETE) //HTMLOUT DD DSN=TOMC.ESRF.HTML(RXCAT),DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * TITLE=EKCRXCAT -- (GENERATE DATASET NAMES USING SYSTEM CATALOG)