Sources (screen members) of INCONTROL products are modified using an SMP/E USERMOD. Use the following steps to perform this task:
Choose a name for a new USERMOD (to be built in the following steps). The name of the USERMOD must be 7 characters in length, must begin with an alphabetic character (that is, not a number or symbol), and must be unique.
Create a new member in the IOA CUSTEXIT library with the same name as the USERMOD created in Step 1.
Copy the contents of member UMODSRC in the IOA JCL library to the newly‑created member. This member contains a skeleton sample for the USERMOD (to be customized in the following steps).
Specify the name of the new USERMOD in the ++USERMOD statement.
Determine the FMID and the RMID of the screen source using SMP/E Online option 3.2. Specify SRC as the entry‑type, and the name of the screen source as the entry‑name.
Specify the FMID in the ++VER statement.
If the RMID value is not the same as the FMID value, add the RMID value to the ++VER statement using the PRE(rmid‑value) parameter.
Specify the screen source‑name in the ++SRC statement.
Copy the contents of the source member to the line immediately after the ++SRC statement. Update the copy to meet your needs.
Specify the name of the USERMOD in job UMODRACK in the IOA JCL library. Run the job. This job RECEIVEs and APPLY‑CHECKs the USERMOD.
Job UMODRACK must end with a completion code of 0.
Specify the name of the USERMOD in job UMODAPP in the IOA JCL library. Run the job. This job applies the USERMOD.
Job UMODAPP must end with a completion code of 0.
Example
This example illustrates how to unprotect MEMNAME and MEMLIB fields in the Zoom Screen (3.Z).
Locate member CTMSSZME in the IOA MSGENG library.
Find the line in which field SSZMMEM is defined. In this line, change ATTR=SPH (skip, protect high) to ATTR=UH (unprotect-high).
Find the line in which field SSZMLIB is defined. Make the same change as in step 2 above.
Recompile and link-edit this USERMOD into load module CTMTSZM.
