Date: Tue, 8 Jul 1997 11:10:00 -0600
Reply-To: Stan Aughenbaugh <Stan.Aughenbaugh@MCI.COM>
Sender: "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From: Stan Aughenbaugh <Stan.Aughenbaugh@MCI.COM>
Subject: Re: proc DATASETS long update.
|Date: Tue, 08 Jul 1997 09:41:56 -0400 (EDT)
|From: morvang <morvang@MAIL.CLUB-INTERNET.FR>
|Subject: proc DATASETS
|Sender: "SAS[r] Discussion" <SAS-L@UGA.CC.UGA.EDU>
|To: Multiple recipients of list SAS-L <SAS-L@UGA.CC.UGA.EDU>
|I have a SAS-library with members ( memtype=DATA) .
|the PROC DATASETS gives only an output list of the member-list.
|Has someone an idea how to obtain - directly - this list in a table ?
here's some code that may help. And I don't *anything* to
do with SAS and PDSs is direct. I accumulated this from many
people on this list, and some that read it and cannot post
to it particularly a friend in Frederick MD.
I haven't tested it recently, but it did work about
6 months ago..and really saved me some work.
Note: Someone once asked me about this in regard to a UG.
Anything that makes the MVS-SAS user's job easier is something
I'm in favor of.
Stan Aughenbaugh II
Computer Horizons Corp.
"90% of all statistics are made up"
__________ code follows __________________
Make a dataset using Proc Source:
OPTIONS FILESTAT ERRORS=50 ;
FILENAME DIN 'MW.TD.Y2K.MWB.GPCNTL.LISTPDS' ;
FILENAME DOUT 'MW.TD.Y2K.MWB.GPCNTL.LISTPDS#' ;
DATA _NULL_ ;
FILE SASLIST ;
PROC SOURCE INDD=DIN DIRDD=DOUT ;
(DIN is an existing PDS)
(DOUT is a created sequential listing output)
the process DOUT with the following...
OPTIONS NOWORKTERM ;
LENGTH MEMBER $ 8
STATS $ 3
USER $ 7;
FORMAT CREATED LASTMOD MMDDYY8. MODTIME TIME5.;
INFORMAT CREATED LASTMOD MMDDYY8. MODTIME TIME5.;
INFILE PDSDIR; *<---------- Fileref of dump file;
INPUT @ 1 MEMBER $8.
@12 TEST $1. @;
STATS = 'NO';
IF TEST = '0F'X THEN DO; /*SPF STATS ARE ON*/
STATS = 'YES';
INPUT @13 VER IB1.
@14 MOD IB1.
@18 ICREATED PD3.
@22 ILASTMOD PD3.
@25 IMODHOUR PK1.
@26 IMODMIN PK1.
@27 SIZE IB2.
@29 INITSIZE IB2.
@31 LINESMOD IB2.
@33 USER $7.;
CREATED = DATEJUL(ICREATED);
LASTMOD = DATEJUL(ILASTMOD);
MODTIME = HMS(IMODHOUR, IMODMIN, 00);
IF STATS EQ "YES" THEN DO;
/* BYTES = SIZE * &LRECL */;
FILE PDSMBRS ;
*OUTPUT PDSMBRS ;
PUT @1 MEMBER @10 LASTMOD @20 SIZE ;
PROC PRINT DATA=PDSMBRS ;