Mr Scott,
Thank you for the tips.It solved my problem.
Best Regards
Ituriel do Nascimento Neto z/OS System Programmer
Em quinta-feira, 24 de junho de 2021 09:54:04 BRT, Rob Scott
<[email protected]> escreveu:
This is what I have coded in the past :
(o) Setting up CSIFIELD
CSIFILTK Your usercat name
CSICATNM Your mastercat name
CSIOPTNS "F" for fullword values
CSIS1CAT "Y" just one catalog
CSINUMEN Set to 1 field
CSIENTS Set to "NAME"
(o) Returned area looks like :
IGGCSIWH (Header)
IGGCSIWC (Catalog)
IGGCSIWE (Usercat entry)
(o) If CSIEDATA is ON and CSIFDDAT is not NULL then divide CSILENF1 by maximum
alias length (44) to get the number of aliases.
Rob Scott
Rocket Software
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Ituriel do Neto
Sent: 24 June 2021 13:33
To: [email protected]
Subject: IGGCSI00
EXTERNAL EMAIL
Hi all,
I'm coding a new program that will get information from Usercatalogs using
IGGCSI00 API,but i'm stuck trying to reproduce IDCAMS command LISTCAT ENT(UCAT)
ALL.
Actually, i am interested in obtaining the number of ALIAS a specific UCAT has,
and this IDCAMS commandshows that information, i just have to count it.
IDCAMS SYSTEM SERVICES
LISTCAT ENT(UCAT.XXX) ALL USERCATALOG --- UCAT.XXX IN-CAT
--- CATALOG.MASTER HISTORY
RELEASE----------------2 VOLUMES
VOLSER------------VVVVVV ASSOCIATIONS
ALIAS----XX01 ALIAS----XX02
ALIAS----XX03
I can get this ALIAS information from MCAT but i want to make a smarter
code.Could some of you, gurus, point me to the right values of CSICATNM,
CSIFILTK, CSIDTYPS ?
Thanks in advance
Best Regards
Ituriel do Nascimento Netoz/OS System Programmer
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support:
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
================================
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.
----------------------------------------------------------------------
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
