program-name

A user-defined word that identifies your program or module object to the system. For program and module objects, only the first 10 characters of program-name are used as the identifying name of the object. For an ILE procedure name, the first 250 characters of program-name are used. If the *MONOPRC option is specified on the CRTBNDCBL or CRTCBLMOD command, the first character of program-name is forced to be alphabetic; if it is numeric, it is converted as follows:
0             to   J
1 through 9   to   A through I

If a hyphen is in positions 2 through 10, it is converted to zero (0).

When *PGMID is specified on the CRTBNDCBL or CRTCBLMOD command for the program or module name and the *NOMONOPRC option is specified, the user must ensure that the program name specified in the PROGRAM-ID paragraph does not contain a non-numeric literal containing lowercase characters as this may create unusable objects. Care should be taken for multiple source programs where, even in the absence of *PGMID for the program or module name, unusable objects may be created for the second and subsequent ILE COBOL procedures containing non numeric literal with lowercase characters for the PROGRAM-ID paragraph when SIMPLEPGM = *YES.