Functional entry to update CTKI enterprise name and complex name fields

CTKI contains two fields that are hard-coded that identify the system:

IC0ENTR  DC    CL8'     eee'  ENTERPRISE NAME, RIGHT JUSTIFIED

IC0COMP  DC    CL8'ccccc'     TPF COMPLEX NAME

Something like ZCTKI ALTER ENTR xxxx COMP yyyy

Where one or both keyword options could be specified in either order.

Perhaps a ZCTKI DISPLAY option would be nice to have, but not necessary.

The code would restrict data length to a max of 8 characters, and handle the left/right justification in the corresponding fields.

This is instead of:

ZDKAT KPI

ZAFIL …

ZRIPL

Why is this needed?

TPF identifies itself to VM and we have tools that query the information and depend on its accuracy.  We need to have the complex name set to the test system base that the test system is using.

When we copy a TPF image from one userid to another, the CTKI value on the new userid is incorrect because it reflects the original system, and not the target system.

By having a functional entry to change the values dynamically, it’s trivial to update the CTKI values reliably as part of that copy process.

The identification process is done by CTIN when the system starts up. When the values in CTKI are changed, the ZCTKI command should use the same mechanism CTIN uses to identify with the updated information. This is not critical, because we would update the base TPF disks, then any VPARS system that used it would be identified correctly because when CTIN runs, the correct values would be used.