Manage CAMODID

CAMODID is a TSO command processor utility that finds the #MODID blocks that contain the product-related information.
ccsfzos15
As a systems programmer, you want to review a summary report of the installed service maintenance using CAMODID, a TSO command processor utility.
The CAMODID utility provides the following features:
  • Lets you view the service summary that is sorted by RMID(PTF).
  • Allows masking for the LMOD, FMID, and RMID parameters.
  • Runs in BATCH (
    IKJEFT01
    ) for hard copy or longer running functions.
  • Uses sample
    CAM REXX
    to capture output to a temp file for online browsing.
  • Lets you verify PTF status in runtime libraries.
The CAMODID utility finds the #MODID blocks in load modules that are in common storage or in selected load module data sets. The #MODID block contains the product-related information, including the service level of the load module element. The CAMODID output includes a summary of service maintenance that is installed based on the located #MODID blocks.
Reporting is limited to modules that contain #MODID blocks.
Use CAMODID
Use the CAMODID utility from a TSO command prompt or through the TSO batch.
Follow these steps:
  1. Install the CCS maintenance, and IPL the system.
    The CAMASTER address space builds the infrastructure at startup.
  2. Log in to TSO.
  3. Issue
    CAMODID HELP
    from ready mode or ISPF option 6.
  4. Review the HELP output, including functions, parameters, and examples.
Invoke CAMODID
To invoke CAMODID and view output in a temporary data set, use the following sample CAM REXX EXEC:
/* REXX */ /* WRITE CAMODID OUTPUT TO TEMP DATASET FOR EASE OF VIEWING */ PARSE ARG P1 P2 P3 P4 P5 P6 P7 P8 P9 USER = USERID() SYS = MVSVAR('SYSNAME') UDSN = USER'.CAMODID.'SYS'.TEMPDSN' IF SYSDSN("'"UDSN"'") = OK THEN "ALLOC F(MODDSN) DA('"UDSN"') SHR REU" ELSE "ALLOC F(MODDSN) DA('"UDSN"') NEW SP(25 15) TR DSORG(PS) RECFM(F B) LRECL(80) BLKSIZE(3120)" X = OUTTRAP('MOD.') TRACE(OFF) "CAMODID "P1" "P2" "P3" "P4" "P5" "P6" "P7" "P8" "P9 "EXECIO * DISKW MODDSN (STEM MOD. FINIS" "ADDRESS ISPEXEC "BROWSE DATASET('"UDSN"')" "FREE F(MODDSN)" EXIT(0)
Run CAMODID Using JCL
To run CAMODID as a batch job, use the following sample JCL. Modify the sample JCL to meet your site requirements.
//USERIDA JOB (1),'OS/MVS',MSGCLASS=X,MSGLEVEL=(1,1), // NOTIFY=USERID //STEP1 EXEC PGM=IKJEFT01 //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSIN DD DUMMY //SYSTSIN DD * CAMODID SYSTEM //
Example: CAMODID Output
The following example shows output after you run CAMODID, providing you a summary of the RMIDs that are installed:
CA LOAD MODULE SERVICE ANALYZER SYSID=SYS1 SP7.2.1 HBB7790 DATE=2015014 13:03:57 PRIMARY CONTROL OPTIONS IN EFFECT: FUNCTION=SYSTEM LMOD(********) FMID(********) PTF(*******) PROCESSING COMMON STORAGE LOAD MODULES PROCESSING LINKLIST DATASETS PROCESSING DATASET=SYS1.LINKLIB PROCESSING DATASET=SYS1.MIGLIB PROCESSING DATASET=SYS1.CSSLIB PROCESSING DATASET=SYS1.SIEALNKE PROCESSING DATASET=SYS1.SIEAMIGE [...] PROCESSING DATASET=SYS1.COMMMON.PRODPDM.LINKLIST PROCESSING DATASET=SYS1.EDC.V1R2M0.SEDCDCMP.LINKLIST PROCESSING DATASET=SYS1.ALLOCC0.TEST.LOADLIB PROCESSING DATASET=SYS1.RDZ.V9R0M0.BASE.LINKLIST CA LOAD MODULE SERVICE SUMMARY RMID FMID RMID FMID RMID FMID RMID FMID
TR76641 CCUUC60 TR74389 CAW4E10 TR71350 CAW4E10 TR70962 CAS9E10 TR70670 CAX1F00 TR69205 CAS9E10 TR68277 CAW1E10 TR68062 CAW4E10 TR64432 CAS9E10 TR61694 CATLC60 TR52401 CAW4E10 TR47466 CVH8500 TR42230 CBAAB60 TR42229 CBAAB60 RO76806 CNM4E00 RO76269 CNM4E00 [...] RO19140 CCUWC50 RO19095 CRX8500 RO18884 COX8500 RO18744 CCUWC50 RO18610 CRX8500 RO18601 COX8500 RO18595 COX8500 RO18571 CRX8500 RO18564 CCUWC50 RO18563 CCUWC50 RO18498 COX8500 RO18335 CRX8500 RO18330 CCUWC50 RO17091 CCUWC50 [1] CCUWC50