Resending, rejected the first time. Something about OCTET stream. Snipped original content.
Here's a simple, but handy piece of REXX code. Change "hlq" to match
your shop's naming conventions. From 3.4 or option 6, invoke as: %HTRUE
ZDB2IUS.P.DSQDBCTL.DSQTSCT3.D070515.T001229
/******************************* 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 = 'HBAC' then Call FIX_CDS parms
Else Call PROCESS_LIST
Return
/* Use FIXCDS to determine the real dataset name */
FIX_CDS:
Arg parms
If hlq = 'HBAC' then fixtype = 'C'
If hlq = 'HMIG' then fixtype = 'A'
'HSEND FIXCDS' fixtype parms 'ODS('''fixlist''') LOGONLY DISPLAY(4)'
'%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
Bob Richards
VP, Enterprise Technologist
Enterprise Technology Infrastructure
SunTrust Banks, Inc.
(404) 575-2798
Seeing beyond money (sm)
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.
SunTrust and Seeing beyond money are federally registered service marks 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
