CA View - How to Generate a List of IDs, as Shown in DEF DIST

book

Article ID: 141217

calendar_today

Updated On:

Products

CA Deliver CA View

Issue/Introduction

When using "DEF DIST" in View, there is a list of users with a report distribution. 

Is there a way, via a batch job, where these IDs will be listed?

 

Environment

Release : 14.0

Component : CA View

Resolution

Before proceeding, review the View load library (CVDELOAD), to see if there is an existing SARSAM1 module.

If not, the below JCL can be used to assemble the program outside of SMP/E:

//XXXXXXXX JOB ...
//AL EXEC HLASMCL,PARM.C=(NODECK,OBJECT),
// PARM.L='NCAL,MAP,AMODE=31,RMODE=24,COMPAT(LKED)'
//C.SYSLIB DD DISP=SHR,DSN=view_hlq.CVDEMAC <=== Modify DSN to View CVDEMAC library
// DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=SYS1.MODGEN
//C.SYSIN DD DISP=SHR,DSN=view_hlq.CVDEOPTN(SARSAM1) <=== Modify DSN to View CVDEOPTN lib
//L.SYSLMOD DD DISP=SHR,DSN=VIEW.CVDELOAD <=== Modify DSN to View loadlib
//L.ABRMMOD DD DISP=SHR,DSN=view_hlq.ABRMMOD <=== Modify ABRMMOD lib
//L.SYSIN DD *
INCLUDE ABRMMOD(SARSAM)
INCLUDE ABRMMOD(SARATH)
INCLUDE ABRMMOD(SARFDT)
INCLUDE ABRMMOD(SARCDT)
INCLUDE ABRMMOD(SARGCS)
INCLUDE ABRMMOD(SARSDI)
ORDER SARSAM1
ORDER SARSAM
ORDER SARFDT
ORDER SARCDT
ORDER SARATH
ORDER SARGCS
ORDER SARSDI
ENTRY SARSAM1
ALIAS SARSAM1
NAME SARSAM1(R)
/*
//


Here is JCL to run the SARSAM1 program, to see DEF DIST records:

//XXXXXXXX JOB ...
//SARSAM1 EXEC PGM=SARSAM1,PARM='view_hlq' <=== Modify DB name
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== Modify, if used
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SARIDXIN DD DUMMY
//***********************************************************
//* SYSIN CONTROL CARDS AS FOLLOWS
//* NAME DATABASE.NAME
//* KEY=00000000000000 <- 16 HEX BYTE STARTING KEY
//* GEN=N OR N-N IF NOT USED DEFAULTS TO ALL
//* TSEQ=N OR N-N IF NOT USED DEFAULTS TO ALL
//* MCR=N/Y (SARINIT PARMS)
//* TCR=N/Y (TAPE CONTROL RECORDS)
//* OCR=N/Y (ONLINE CONTROL RECORDS - PANELS/MSGS/JCL)
//* BCR=N/Y (BANNER PAGE RECORDS)
//* ACR=N/Y/X (ALTERNATE INDEX RECORDS DATE/GEN)
//* UCR=N/Y/P/J (P=PFKEYS ONLY, J=JOB CARDS ONLY)
//* VCR=N/Y/X (VIEW CONTROL RECORDS)
//* SDR=N/Y (SYSOUT DISPLAY RECORDS (DEF SYS))
//* XDR=N/Y (DISTRIBUTION DISPLAY RECORDS (DEF DIST))
//* PQR=N/Y (PC TRANSFER QUEUE)
//* GCR=N/Y/X (GROUP CONTROL RECORD)
//* CHK=N/Y (ALTERNATE INDEX COMPARE WITH GCR RECORDS)
//*********************************************************
//SYSIN DD *
MCR=N/Y (SARINIT PARMS)
TCR=N/Y (TAPE CONTROL RECORDS)
OCR=N/Y (ONLINE CONTROL RECORDS - PANELS/MSGS/JCL)
BCR=N/Y (BANNER PAGE RECORDS)
ACR=N/Y/X (ALTERNATE INDEX RECORDS DATE/GEN)
UCR=N/Y/P/J (P=PFKEYS ONLY, J=JOB CARDS ONLY)
VCR=N/Y/X (VIEW CONTROL RECORDS)
SDR=N/Y (SYSOUT DISPLAY RECORDS (DEF SYS))
XDR=Y/N (DISTRIBUTION DISPLAY RECORDS (DEF DIST))
PQR=N/Y (PC TRANSFER QUEUE)
GCR=N/Y/X (GROUP CONTROL RECORD)
CHK=N/Y (ALTERNATE INDEX COMPARE WITH GCR RECORDS
/*
//

As the only Y is with XDR=Y above, all other values are N, the result will be a report showing DEF DIST matter only.