Ah! SAS! We no longer have it. But I still have the PDF manuals. Have you
looked at PROC SOURCE with the DIRDD= option? It unloads the directory to a
file which can then be processed by a futher SAS DATA step. There is an example
of this in the SAS manual that I have.
<source lang="SAS">
filename indd 'userid.sas.src' disp=shr;
filename out '&temp';
/* Build directory records. */
proc source indd=indd nodata noprint dirdd=out;
/* Read directory records and extract */
/* ISPF statistics. */
data test;
infile out;
file print header=h;
input member $8. ttr pib3. ind pib1. @;
datalen = 2*mod(ind,32);
if (datalen = 30)
then do;
input ver pib1. mod pib1. blank pib2.
ccreate pib1.
create pd3.
cchanged pib1.
changed pd3. hh pk1.
mm pk1. size pib2. init pib2.
modl pib2. userid $8.;
yyyydddc = (ccreate * 100000) + 1900000 + create;
jcreate = datejul(yyyydddc);
yyyydddx = (cchanged * 100000) + 1900000 + changed;
jchange = datejul(yyyydddx);
/* Print the results. */
put @4 member $8.
@15 jcreate yymmdd10.
@27 jchange yymmdd10.
@39 hh 2. ':' mm 2.
@48 userid;
end;
return;
h:
put @4 'NAME '
@15 'CREATED'
@27 'CHANGED'
@39 'TIME'
@48 ' ID ';
put;
return;
run;
</source>
> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[email protected]] On Behalf Of Lizette Koehler
> Sent: Thursday, January 12, 2012 12:13 PM
> To: [email protected]
> Subject: Re: Audting PDS Datasets and comparing to find most
> current member
>
<snip>
>
> So it must be written in a supportable format. So I am going
> down the REXX
> route and hopefully it will do what I want with LISTDSI. And
> this will be a
> slower process. Why? Because this will be a SAS process
> that calls REXX
> that then places the details into a SAS DB for analysis. I
> can do most of
> this with PROC SQL after the intermediate SAS Databases are created.
>
>
> And of course the other caveat is - renamed members that
> contain the same
> info but under other member names (did I here a DEDUP comment
> somewhere?)
>
> But thanks, I will play with your script and see if I can
> work through all
> the interesting $ stuff.
>
> Lizette
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
