Date: Wed, 10 Mar 1999 08:32:00 -0500
Reply-To: RAITHEM <RAITHEM@WESTAT.COM>
Sender: "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From: RAITHEM <RAITHEM@WESTAT.COM>
Subject: (MVS) Re:Non-SAS dataset creation date
Content-Type: text/plain; charset=US-ASCII
Andy Vick posted the following:
>I'm running on MVS and would like to find the creation date of non-sas
>dataset. I've tried using the DSCB and JFCB options on the infile >statement
but cant see if the creation date is held anywhere within the >strings
>returned.
>
>Any suggestions would be welcome.
>
Andy, you were in the right apartment building, but knocking on the wrong door!
You can get the creation date from JFCB, as you originally postulated; but
OS/390 (MVS) makes you work for it.
Here is how I get the creation date of an OS data set:
FILENAME FLATFILE 'ANDYS.OS.DATASET' DISP=SHR;
DATA _NULL_;
FORMAT CREATDAT MMDDYY10.;
INFILE FLATFILE JFCB=JFCBREC;
JFCBYEAR = INPUT(SUBSTR(JFCBREC,81,1),S370FIB8.);
JFCBDAY = INPUT(SUBSTR(JFCBREC,82,2),S370FIB8.);
CREATDAT = DATEJUL((JFCBYEAR * 1000) + JFCBDAY);
...OTHER SAS CODE...
RUN;
The SAS code, above, "decomps" the JFCB's year/day values of create date, and
combines them to get the Julian date. The date format, at the top of the Data
_NULL_ is an example of how one of my "clients" wanted to see the date, and you
will undoubtedly change it to your liking.
Andy, the good news is that you were, oh, so close to your solution; the better
news is that it definitely can be done using the JFCB and a modest amount of
coding. Best of luck in determining your OS data sets' birthdays!
I hope that this suggestion proves helpful now, and in the future!
Of course, all of these opinions and insights are my own, and do not reflect
those of my organization or my associates.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Michael A. Raithel
"The man who wrote the book on performance."
E-mail: raithem@westat.com
Author: Tuning SAS Applications in the MVS Environment
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
...they say it's your birthday; well it's my birthday to, yea...
-- The Beatles
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
