### CICS CSD Command Examples Source: https://www.ibm.com/docs/en/ciafz/5.3_topic=commands-csd This section provides examples of CICS CSD commands. These commands are used to manage resource definitions (RESTYPE) and groups within a CICS system. They cover operations such as adding, defining, deleting, installing, and inquiring about resources and groups. ```COBOL EXEC CICS CSD ADD GROUP("MYGROUP") EXEC CICS CSD ALTER RESTYPE("MYRES") GROUP("MYGROUP") EXEC CICS CSD APPEND LIST("MYLIST") GROUP("MYGROUP") EXEC CICS CSD COPY GROUP("OLDGROUP") NEWGROUP("NEWGROUP") EXEC CICS CSD COPY RESTYPE("MYRES") GROUP("MYGROUP") NEWRESTYPE("NEWRES") EXEC CICS CSD DEFINE RESTYPE("MYRES") GROUP("MYGROUP") EXEC CICS CSD DELETE LIST("MYLIST") EXEC CICS CSD DELETE GROUP("MYGROUP") EXEC CICS CSD DELETE RESTYPE("MYRES") GROUP("MYGROUP") EXEC CICS CSD ENDBRGROUP EXEC CICS CSD ENDBRLIST EXEC CICS CSD ENDBRRSRCE EXEC CICS CSD GETNEXTGROUP GROUP("MYGROUP") EXEC CICS CSD GETNEXTLIST LIST("MYLIST") EXEC CICS CSD GETNEXTRSRCE RESTYPE("MYRES") EXEC CICS CSD INQUIREGROUP GROUP("MYGROUP") EXEC CICS CSD INQUIREGROUP GROUP LIST("MYLIST") EXEC CICS CSD INQUIRELIST LIST("MYLIST") EXEC CICS CSD INQUIRERSRCE RESTYPE("MYRES") EXEC CICS CSD INSTALL LIST("MYLIST") EXEC CICS CSD INSTALL GROUP("MYGROUP") EXEC CICS CSD INSTALL RESTYPE("MYRES") EXEC CICS CSD LOCK LIST("MYLIST") EXEC CICS CSD LOCK GROUP("MYGROUP") EXEC CICS CSD REMOVE GROUP("MYGROUP") EXEC CICS CSD RENAME RESTYPE("MYRES") NEWRESTYPE("RENAMEDRES") EXEC CICS CSD STARTBRGROUP EXEC CICS CSD STARTBRLIST EXEC CICS CSD STARTBRRSRCE EXEC CICS CSD UNLOCK LIST("MYLIST") EXEC CICS CSD UNLOCK GROUP("MYGROUP") EXEC CICS CSD USERDEFINE RESTYPE("MYRES") GROUP("MYGROUP") EXEC CICS CSD DISCONNECT ``` -------------------------------- ### Version 2 Compression Rule Format Example (Assembly) Source: https://www.ibm.com/docs/en/ciafz/6.1_topic=list-creating-resource-compression This assembly code illustrates the compression rule format version 2, which uses a 'key' string for compression. It shows examples for TSQ names, ENQ names, and MQ names, demonstrating how the key is used to alter the resource name. ```Assembly TSQ name = T520ACCTBAL altered to = ++++ACCT+++ TSQ name = SR-AREA01 altered to = SR+++++++ ENQ name = EURPAY altered to = +++PAY MQ Queue name = FRQUE001 altered to = ++QUE+++ CIUXRCOM CSECT CIUXRCOM AMODE 31 CIUXRCOM RMODE ANY DC AL1(7),AL1(4),AL1(4),C'PAY' ENQ/DEQ Example DC AL1(10),AL1(5),AL1(5),C'ACCT' TSQ Example DC AL1(10),AL1(1),AL1(2),C'SR' TSQ Example DC AL1(1),AL1(3),AL1(3),C'QUE' MQ Example DC AL1(0) End of list END CIUXRCOM ``` -------------------------------- ### CICS IA Plug-in for CICS Explorer Source: https://www.ibm.com/docs/en/ciafz/6.3_topic=codes-ciu2314w This section covers getting started with the CICS Interdependency Analyzer (CICS IA) plug-in for CICS Explorer. It outlines the initial setup and usage of the plug-in within the CICS Explorer environment to leverage CICS IA's capabilities. -------------------------------- ### Version 1 Compression Rule Format Example (Assembly) Source: https://www.ibm.com/docs/en/ciafz/6.1_topic=list-creating-resource-compression This code snippet demonstrates the assembly language implementation for the compression rule format version 1. It shows how resource names like TSQ names, ENQ names, and MQ names are altered based on predefined prefixes. ```Assembly TSQ name = DEPT10VT27SPA altered to = DEPT10+++++++ ENQ name = FXTRAN altered to = FX++++ MQ name = QUE0001 altered to = QUE++++ CIUXRCOM CSECT CIUXRCOM AMODE 31 CIUXRCOM RMODE ANY DC AL1(2),C'FX' DC AL1(3),C'QUE' DC AL1(6),C'DEPT10' DC AL1(0) End of list END CIUXRCOM ``` -------------------------------- ### Execute CICS IA Customization Program (TSO) Source: https://www.ibm.com/docs/en/ciafz/6.1_topic=environment-running-configuration-exec Example of how to execute the CICS IA installation customization program from an ISPF command line. It requires specifying the program's location and passing necessary parameters like the high-level qualifier and language code. ```jcl tso ex ’CICSIA.V610.SCIUEXEC(CIUCNFG1)’ ’CICSIA.V610 ENU’ ``` -------------------------------- ### Example Call to CIUSPEP2 Stored Procedure (SQL) Source: https://www.ibm.com/docs/en/ciafz/6.1_topic=deployment-ciuspep3-stored-procedure Provides an example of calling the CIUSPEP2 stored procedure, likely for similar data retrieval purposes as CIUSPEP3 but with potentially different parameters or functionality. This example illustrates the format for passing literal values and wildcards for various input fields. ```sql EXEC SQL CALL CIUSPEP2 (‘A',’%’,' ',’TEST_OPERATIONS’,’0’,’0’,'0',' ',prc, psqlcode, psqlstate, perrmsg); ``` -------------------------------- ### Summary Report Example - Module Details Source: https://www.ibm.com/docs/en/ciafz/6.3_topic=scanner-creating-summary-report An example of the module-specific information included in a summary report. It lists module name, length, language, reentrancy, language version, and counts of potential affinity, dependency, and MVS POST commands. ```Text Module Module Module Re- Language Possible statements....... Name Length Language entrant Version Affinities Dependencies MVS POSTs -------- -------- ---------- ------- -------- ---------- ------------ --------- DFHPLTPI CICS TABLE DFHPLTSD CICS TABLE EMSTESTA 00001FA8 COBOL II Y LE 14 14 0 EMSTESTB 000014A8 COBOL II Y LE 0 0 0 EMSTESTC 00000A48 COBOL II Non LE 3 3 0 ```