Hello Willie, If the dataset was SMS managed then you can use SMF Type 42 records.
I has SAS/MXG so I use this code to access SMF type 14,15,17,18, and 64.
//* SMF 1415 - Non-VSAM Open/Close records.
//* SMF 1718 - Non-VSAM Scratch/Rename records.
//* SMF 64 - VSAM Component or Cluster Status
options ls=160 ;
MACRO STOPOVER MISSOVER %
MACRO _DSNLIST
'DATASET.NAME.ONE'
'DATASET.NAME.TWO'
%
%LET MACKEEP=%QUOTE(
MACRO _LTY64X _NULL_ %
MACRO _ETY64X %
MACRO _VAR1415
dsnresult (
KEEP=DSNAME JOB SYSTEM OPENTIME
PROGRAM DDNAME OPEN
ACBIN ACBOUT SITUATN
)
%
MACRO _ETY1415
IF DSNAME IN (_DSNLIST)
THEN OUTPUT work.dsnresult ;
%
MACRO _ETY1718
OPENTIME = READTIME;
IF DSNAME IN (_DSNLIST)
THEN OUTPUT work.dsnresult ;
%
MACRO _ETY64
DSNAME = ENTRNAME;
IF DSNAME IN (_DSNLIST)
THEN OUTPUT work.dsnresult ;
%
MACRO _ETY64X ;
%
);
%include sourclib(vmac1415,vmac1718,vmac64);
%include sourclib(vmacsmf,imackeep);
DATA
_VAR1415
_VAR1718
_VAR64
_SMF
_CDE1415
_CDE1718
_CDE64
proc sort data=work.dsnresult ;
by opentime ;
options linesize=160 nocaps;
proc print uniform noobs split='*' ;
var dsname
job
system
opentime
program
ddname
open
acbin
acbout
situatn ;
title 'Dataset access report';
Regards
Bruce Hewson
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
