An IBM supported way to do this is by using the IGGCSI00 interface to read the catalog information in your program. There are code examples in SYS1.SAMPLIB which begin with IGGCSIxx for HLASM and REXX. I have a few variation of a program in C, but was not able to finish it because management eliminated our C license before I could finish it. Documentation at: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2c180/11.1
As another said, you might use REXX to parse the output of a LISTCAT, but this is "frowned upon" by IBM because the output from a LISTCAT is not a GUPI (General User Programming Interface) and may change from release to release, and even with just a PTF. I.e. if a PTF breaks your program, IBM will not regard it as a bug. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * [email protected] * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of af dc > Sent: Monday, July 02, 2012 12:05 PM > To: [email protected] > Subject: List Creation information for tape dsn > > Hello, > can anyone give me an help about gathering creation date from > catalogued > tape dsns, like this: > > NONVSAM ------- EXPAA.DY00000.GAAAA.OUT > IN-CAT --- CATALOG.XXXXXX.EXPXXXX > HISTORY > DATASET-OWNER-----(NULL) CREATION--------19950617 > RELEASE----------------2 EXPIRATION------0000.000 > VOLUMES > VOLSER------------A00000 DEVTYPE------X'78048081' > VOLSER------------002000 DEVTYPE------X'78048081' > ASSOCIATIONS--------(NULL) > ATTRIBUTES > > I need to have nonvsam, volser and creation fields for > several tape dsns. > These records are not recorded in TMS only on ICF catalog. > How can I do that ?? DCOLLECT ??? > > Many thx, A.Cecilio. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
