Brian,
I've used this old REXX code in the distant past, but it isn't exactly
suited for mass execution. However, maybe you could modify it to suit
your purposes. If I still had access to an HSM Diagnosis manual where
FIXCDS is now documented, maybe I could improve on the output display.
Also, if you don't have your own equivalent of my "PAUSE" command, email
me and I'll forward that to you as well. Adjust the "hlq" assignment for
your shop.
Also, try contacting Mainstar/Rocket Software. Maybe their FastAudit/390
product could help and maybe they would let you "trial it".
www.mainstar.com
Bob Richards
/******************************* REXX *********************************/
/* HTRUE - Determine true name for HSM Backup or Migrated Dataset */
/**********************************************************************/
/* Modification History:- */
/* ---------------------- */
/* Userid Date Comment */
/* ------- -------- --------------------------------------------*/
/* Bob 09/25/00 Initial Setup */
/* */
/* ********************************************************************/
/* Program Description:- */
/* --------------------- */
/* This REXX program is used to determine the true name of a HBAC or */
/* HMIG dataset. */
/* */
/**********************************************************************/
Arg parms
Call SET_UP
Call DETERMINE_INPUT hlq
Call VIEW_IT
Exit
/* Establish initial variables */
SET_UP:
fixlist = USERID()'.REALNAME.LIST'
parms = STRIP(parms,,"'")
parms = STRIP(parms)
hlq = SUBSTR(parms,1,4)
Return
DETERMINE_INPUT:
Arg hlq
If hlq = 'HMIG' | hlq = 'BACK' then Call FIX_CDS parms
Else Call PROCESS_LIST
Return
/* Use FIXCDS to determine the real dataset name */
FIX_CDS:
Arg parms
If hlq = 'TZ.BACK' then fixtype = 'C'
If hlq = 'TZ.HMIG' then fixtype = 'A'
'HSEND FIXCDS' fixtype parms 'ODS('''fixlist''') LOGONLY DISPLAY(0)'
'%PAUSE' 1
Return
VIEW_IT:
Address TSO
'%PAUSE' 10
'ALLOC DD(FIXLIST) DSN('''fixlist''') SHR REUSE'
Address ISPEXEC
'LMINIT DATAID(DATAID) DDNAME(FIXLIST)'
'BROWSE DATAID('dataid')'
'LMFREE DATAID('dataid')'
Address TSO
'FREE DD(FIXLIST)'
x = MSG('OFF')
Return
PROCESS_LIST:
Address TSO
'ALLOC DD(INLIST) DSN('''parms''') SHR REUSE'
'EXECIO * DISKR INLIST (STEM list. FINIS)'
Do i = 1 to list.0
Parse Var list.i parms .
parms = STRIP(parms)
hlq = SUBSTR(parms,1,4)
Call DETERMINE_INPUT hlq
End
Address TSO
'FREE DD(INLIST)'
Return
LEGAL DISCLAIMER
The information transmitted is intended solely for the individual or entity to
which it is addressed and may contain confidential and/or privileged material.
Any review, retransmission, dissemination or other use of or taking action in
reliance upon this information by persons or entities other than the intended
recipient is prohibited. If you have received this email in error please
contact the sender and delete the material from any computer.
Seeing Beyond Money is a service mark of SunTrust Banks, Inc.
[ST:XCL]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
