Hi Bill, my MXG code:-
options ls=160 ;
MACRO STOPOVER MISSOVER %
MACRO _DSNLIST
'dataset.name.one'
'cluster.name.two.DATA'
%
%LET MACKEEP=%QUOTE(
MACRO _LTY64X _NULL_ %
MACRO _ETY64X %
MACRO _VAR1415
dsnresult (
KEEP=DSNAME JOB SYSTEM OPENTIME SMFTIME
PROGRAM DDNAME OPEN SMF64SMB
ACBIN ACBOUT SITUATN
JCTJOBID STEPNAME ID
)
%
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 _ETY77
DSNAME = RNAME ;
OPENTIME = STARTIME ;
PROGRAM = QNAME ;
DDNAME = SYSOWN1 ;
JOB = JOBOWN1 ;
IF DSNAME IN ( _DSNLIST )
THEN OUTPUT work.dsnresult ;
%
MACRO _ETY64X ;
%
);
%include sourclib(vmac1415,vmac1718,vmac64,vmac77);
%include sourclib(vmacsmf,imackeep);
DATA
_VAR1415
_VAR1718
_VAR64
_VAR77
_SMF
_CDE1415
_CDE1718
_CDE64
_CDE77
proc sort data=work.dsnresult ;
by opentime ;
options linesize=150 nocaps;
proc print uniform noobs split='*' ;
var dsname
job
stepname
system
opentime
smftime
program
ddname
open
acbin
acbout
SMF64SMB
jctjobid
id
;
title 'Dataset access report';
hopefully it does not lose the formatting.
Regards
Bruce Hewson
On Tue, 14 Feb 2023 04:29:15 -0600, Bill Giannelli <[email protected]>
wrote:
>Is there a way to determine what job created a dataset?
>thanks
>Bill
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
