Chuck,
Here's one that just does an sql call...what are you looking for?
Mary Anne
STEP05A EXEC PGM=DBSQLPR,
// PARM='PRTWIDTH=1500,INPUTWIDTH=72'
//STEPLIB DD DSN=CAMSM.V50.RUN.CUSLIB,DISP=SHR
// DD DSN=CAMSM.V50.RUN.CAAXLOAD,DISP=SHR
//CXX DD DSN=CAMSM.V50.RUN.CXX,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDOUT DD SYSOUT=*
//OPTIONS DD *
AUTHID=CASWMGT
/*
//SYSIN DD *
SELECT * FROM MOUNTPOINT;
/*
It shows you your mountpoints:
MOUNTPOINTID, <8>, INT NOT NULL
MP_PATH, < /msmserv/mpm/scroot/DatabaseM/CA/MAINTENANCE>, VARC
MP_DATASET, < OMVS.CAMSM.MSMT5>, VARCHAR(16/45)
MP_TYPE, <*> (NULL), VARCHAR(20)
MP_OPTIONS, < ZFS>, VARCHAR(3/2000)
MOUNTPOINTID, <9>, INT NOT NULL
MP_PATH, < /msmserv/mpm/scroot/DatabaseM/CA/MAINTENANCE/descri
MP_DATASET, < OMVS.CAMSM.MSMT6>, VARCHAR(16/45)
MP_TYPE, <*> (NULL), VARCHAR(20)
MP_OPTIONS, < ZFS>, VARCHAR(3/2000)
MOUNTPOINTID, <10>, INT NOT NULL
MP_PATH, < /msmserv/mpm/scroot/DatabaseM/CA/MAINTENANCE/CA_1_T
40)
MP_DATASET, < OMVS.CAMSM.MSMT7>, VARCHAR(16/45)
MP_TYPE, <*> (NULL), VARCHAR(20)
MP_OPTIONS, < ZFS>, VARCHAR(3/2000)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
