Skip to content

Step 4: Define Keylists for ISPF Expand

In ChangeMan ZMF 7.1 and later releases, component names and file names are expanded to accept long zFS component names and path names. The logical unit name for sites is expanded to accept longer transmission vehicle node names. The Db2 Option in ZMF 7.1 and later releases processes the long Db2 object names that are available in Db2 V8 and later.

In the ISPF interface for ChangeMan ZMF 7.1 and later releases, fields for input and display of this longer data are extended to the limit of the 80 character panel width. If the data is longer than the available space, you can use the PF11 and PF10 keys to scroll right and left respectively in the panel fields.

The panels also respond to the ISPF Expand function to open a pop-up for input or display of the entire long name field. To execute the Expand function from the keyboard, the panels in ChangeMan ZMF 7.1 and later releases call a new keylist that assigns PF4 to the Expand function.

The job in member CMNDTL of the CMNZMF.CNTL distribution library builds keylist CMNKEYS in the TABLES library you added to the ChangeMan ZMF started procedures and to the connect CLIST.

Follow these steps to build ISPF keylist CMNKEYS in a new ISPF TABLES library.

  1. Copy member CMNDTL from the version 8.3 CMNZMF.CNTL distribution library to your custom ZMF 8.3 CMNZMF.CNTL library. Edit CMNDTL in your custom CMNZMF.CNTL library.

  2. Code your JOB statement at the top.

  3. Change DD statement DTLGML to point to the CMNZMF SAMPLES distribution library.

  4. Change all remaining occurrences of placeholder somnode to the high level qualifier you use for ISPF system libraries.

  5. Submit job CMNDTL.

  6. Examine job output for error messages. The ISPLOG should report 0 error(s) found. Error message ISPC506E in the SYSTSPRT likely means that the member in the SAMPLIB library was not found.

Example of ISPLOG from Job Step DTL

...

Time            *** ISPF transaction log ***        Userid: USER015     Date: 19/02/20      Page: 1

21:49   Start of ISPF Log - - - - Session # 1 -------------------------------------------------------
21:49       TSO - Command -     - ISPDTLC CMNELSK (PROFDDN=* CUASUPP REPLACE)
21:49                           - ISPC028AI: Total of 2 message(s) have been suppressed.
21:49                           - ISPC029AI: Total of 2 warning(s) and 0 error(s) found.
21:49   End of ISPF Log - - - - - Session # 1 -------------------------------------------------------
Time               *** ISPF transaction log ***     Userid: USER015     Date: 19/02/20      Page: 1

21:49   Start of ISPF Log - - - - Session # 2 -------------------------------------------------------
21:49       TSO - Command -     - ISPDTLC CMNEROK (PROFDDN=* CUASUPP REPLACE)
21:49                           - ISPC028AI: Total of 2 message(s) have been suppressed.
21:49                           - ISPC029AI: Total of 2 warning(s) and 0 error(s) found.
21:49   End of ISPF Log - - - - - Session # 2 -------------------------------------------------------
Time               *** ISPF transaction log ***     Userid: USER015     Date: 19/02/20      Page: 1

21:49   Start of ISPF Log - - - - Session # 3 -------------------------------------------------------
21:49       TSO - Command -     - ISPDTLC CMNMREK (PROFDDN=* CUASUPP REPLACE)
21:49                           - ISPC028AI: Total of 2 message(s) have been suppressed.
21:49                           - ISPC029AI: Total of 2 warning(s) and 0 error(s) found.
21:49   End of ISPF Log - - - - - Session # 3 -------------------------------------------------------

...

Example of SYSTSPRT from job step DTL

...

READY
    ISPSTART CMD(ISPDTLC CMNELSK (PROFDDN=* CUASUPP REPLACE))
ISPC021I: ISPDTLC ISPF 7.3 Dialog Tag Language Conversion Utility
ISPC020AI: ISPF Dialog Tag Language Conversion Utility for ISPF 7.3. Current
    APAR level: PID. Current PTF number: 3 Sep 2017.
ISPC022I: Converting source file "CMNTP.CMN820.SAMPLES(CMNELSK)"...
ISPC028I: 2 message(s) have been suppressed.
ISPC029I: 2 warning(s) and 0 error(s) found.
ISPD117
The initially invoked CLIST ended with a return code = 1
    USER015.USER0154.J0281166.D0000103.? was preallocated (no free was done).
READY
    ISPSTART CMD(ISPDTLC CMNEROK (PROFDDN=* CUASUPP REPLACE))
ISPC021I: ISPDTLC ISPF 7.3 Dialog Tag Language Conversion Utility
ISPC020AI: ISPF Dialog Tag Language Conversion Utility for ISPF 7.3. Current
    APAR level: PID. Current PTF number: 3 Sep 2017.
ISPC022I: Converting source file "CMNTP.CMN820.SAMPLES(CMNEROK)"...
ISPC028I: 2 message(s) have been suppressed.
ISPC029I: 2 warning(s) and 0 error(s) found.
ISPD117
The initially invoked CLIST ended with a return code = 1
    USER015.USER0154.J0281166.D0000103.? was preallocated (no free was done).
READY
    ISPSTART CMD(ISPDTLC CMNMREK (PROFDDN=* CUASUPP REPLACE))
ISPC021I: ISPDTLC ISPF 7.3 Dialog Tag Language Conversion Utility
ISPC020AI: ISPF Dialog Tag Language Conversion Utility for ISPF 7.3. Current
    APAR level: PID. Current PTF number: 3 Sep 2017.
ISPC022I: Converting source file "CMNTP.CMN820.SAMPLES(CMNMREK)"...
ISPC028I: 2 message(s) have been suppressed.
ISPC029I: 2 warning(s) and 0 error(s) found.
ISPD117
The initially invoked CLIST ended with a return code = 1
    USER015.USER0154.J0281166.D0000103.? was preallocated (no free was done).
READY
END

...