D OMVS,F for mounted filesystems. Here is what I am using to identify HFS datasets using DCOLLECT:-
//DCOLLECT EXEC PGM=IDCAMS
//SYSIN DD *
DCOLLECT OFILE(OUTDS) -
VOL(*) -
SMSDATA(ACTIVE)
/*
//SYSPRINT DD SYSOUT=*
//OUTDS DD DISP=(NEW,PASS),
// UNIT=3390,
// SPACE=(CYL,(250,250)),
// DSORG=PS,RECFM=VB,LRECL=32756,
// DSN=&&DCOLLECT
//*
//MXG EXEC SASMXG
//DCOLLECT DD DISP=(OLD,DELETE),DSN=&&DCOLLECT
//SYSIN DD *
OPTIONS NOCENTER COMPRESS=NO PS=MAX LS=MAX;
%INCLUDE SOURCLIB(TYPEDCOL);
/* THIS STEP REQUIRED BECAUSE DDCNAME IS PADDED WITH HEX 0 */
DATA DCOLDC;
SET DCOLDC;
DCDDATCL = TRANSLATE(DDCNAME,' ','00'X);
PROC SQL;
SELECT DCDDSNAM, DCDVOLSR, DDCDSNTY, DDCNAME
FROM DCOLDSET INNER JOIN DCOLDC
ON DCOLDSET.DCDDATCL = DCOLDC.DCDDATCL
WHERE DDCDSNTY = 3
ORDER BY DCDDSNAM;
/*
The above does require MXG & SAS - Hope you have it.,
Regards
Bruce
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
