PDSDIR: MVS Partitioned Dataset Directory I provide this utility program in response to Karsten Self's request for help on MVS: automated wildcard ISPF library member processing This is setup for next program CHECKUSE which searches each member looking for a string best to you from Ron Fehd the macro maven CDC Atlanta GA

//RJF2S JOB (JC00,B43),FEHD,CLASS=E,TIME=(,10),MSGCLASS=0 //***** OUTPUT:3-HOLE,ONE-SIDE, PORTRAIT, CHARS= 12 CPI //PRINT OUTPUT FORMDEF=A10110,PAGEDEF=PORT64,CHARS=GT12 //PDSDIR EXEC SAS,WTR1='2,OUTPUT=*.PRINT' added 92Mar25 /********************************************************************** SAS Companion for the MVS environment, V6, 1st Ed, pg 404 RJF2 93Mar12 modified to write directory to #####DIR in PDS to use this program change the PDS description in the %LET statement ***********************************************************************/ options linesize = 80 nodate nonumber;

%LET WANTHEDZ = 1; %LET WANTHEDZ = 0;

%LET PDS = RJF2.sas.tools; *LET PDS = RJF2.sas.test; %LET PDS = RJF2.MPEPHTLV.P9411PGM; *LET PDS = RJF2.MPEPHIV1.P9408PGM; *LET PDS = RJF2.MPEPRTVT.Q9400PGM; *LET PDS = pfm3.prog.jcl;

%LET PDS = %upcase(&PDS); FILENAME PDS "&PDS.";

/********************************************************************* proc SOURCE inDD = PDS;* DIRDD = WORKAREA; endSAS; /*********************************************************************/

filename WORKAREA '&WORKAREA';/*93Jan04 swap from execpdsm*/ *filename WORKAREA 'rjf2.sas.tools(WORKAREA)';

proc SOURCE nodata noprint inDD = PDS DIRDD = WORKAREA;

DATA _NULL_ ; infile WORKAREA; * file PRINT; file PDS(#####DIR); if &WANTHEDZ then do; if not mod(_N_,55) then do; put _page_ '*+*'; link H; end; if _N_ = 1 then link H; end;

input Member $8. Ttr pib3. Ind pib1. @; Datalen = 2*mod(Ind,32);

if 1/*DataLen = 30 */then do; input Ver pib1. Mod0 pib1. Blank pib2. Create pd4. Changed pd4. HH pk1. MM pk1. Size pib2. Init pib2. Mod pib2. UserID $8.; Jcreate = datejul(Create); Jchange = datejul(changed); format JCreate yymmdd8. JChange yymmdd8.; put @1 Member $8. @10 JCreate yymmdd8. @20 Jchange yymmdd8. @30 HH 2. ':' mm 2. @40 Size @47 Init @55 Mod @60 Userid; end; return; H: put "directory of &PDS as of &SYSDATE &SYSTIME." / @1 'Name' @10 'Created' @20 'Changed' @30 'Time' @40 'Size' @47 'Init' @55 'Mod' @60 'Userid' / ; return;