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
