Thanks for your assistance to that poster. I provided an answer to the poster's gmail address, asking who is the MXG customer and is he with an outsourcer but he has not replied.
Barry Herbert W Barry Merrill, PhD President-Programmer Merrill Consultants MXG Software 10717 Cromwell Drive Dallas, TX 75229 www.mxg.com -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Bruce Hewson Sent: Wednesday, February 15, 2023 12:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: determine job that created dataset? 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 <billgianne...@gmail.com> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN