Adding to the UCS Image Table

In Figure 1, the band name RPQ1 with description "RPQ BAND" is added to UCS5. In the UCS verification display, 7 lines of 50 characters each are printed. Macro IGGUCS5 causes the UCS image table source (as distributed by IBM®) to be included in the table entry.

Figure 1. Adding a New Band ID to the 4245 UCS Image Table (UCS5)

                                                              72
//UCS5   JOB  . . .
//       EXEC ASMHCL,
//             PARM.ASM='NODECK,LOAD',
//             PARM.LKED='OL,RENT,REUS'
//SYSPRINT  DD SYSOUT=A
//ASM.SYSIN DD *
         TITLE 'UPDATED UCS5 IMAGE TABLE'
UCS5     CSECT
         IGGUCSIT NAME=RPQ1,                                  X
               VLENGTH=(50,50,50,50,50,50,50),                X
               DESCR='RPQ BAND'
         IGGUCS5
         END
/*
//LKED.SYSLMOD DD DSN=SYS1.IMAGELIB(UCS5),DISP=OLD,
//             SPACE=  (OVERRIDE SECONDARY ALLOCATION)

When adding a new band ID to the 4245 UCS image table as shown in Figure 1, be aware of the following:

The RENT linkage editor attribute is required.
Executing the ASMHCL procedure does not generate executable code. The assembler/linkage editor places the updated UCS image table into SYS1.IMAGELIB.
The SPACE parameter is overridden here because the ASMHCL cataloged procedure has a secondary allocation specified. Eliminating the override causes the original secondary allocation amount to be used.

In Figure 2 the band name 40E1 DEFAULT BAND has been added to UCS6 and defined as a default band. An alias name, HN21, is also defined for band 40E1. Macro IGGUCS6 causes the UCS image table source (as distributed by IBM) to be included in the table entry.

Figure 2. Adding a New Default Entry to the 4248 UCS Image Table (UCS6).

                                                              72
//UCS6   JOB  . . .
//       EXEC ASMHCL,
//             PARM.ASM='NODECK,LOAD',
//             PARM.LKED='OL,RENT,REUS'
//SYSLIB    DD
//          DD DSN=SYS1.AMODGEN,DISP=SHR
//SYSPRINT  DD SYSOUT=A
//ASM.SYSIN DD *
         TITLE 'UPDATED UCS6 IMAGE TABLE'
UCS6     CSECT
         IGGUCSIT NAME=40E1,                                  X
               DEVICE=4248,                                   X
               ALIAS=HN21,                                    X
               DEFAULT=YES,                                   X
               DESCR='40E1 DEFAULT BAND'
         IGGUCS6
         END
/*
//LKED.SYSLMOD DD DSN=SYS1.IMAGELIB(UCS6),DISP=OLD,
//             SPACE=  (OVERRIDE SECONDARY ALLOCATION)

For Figure 2, be aware of the following:

This method creates a duplicate entry for 40E1 that becomes the first entry in the table. Because the table is searched sequentially, the new entry is always found before the old entry, thus replacing the old entry.
The RENT linkage editor attributes is required.
Executing the ASMHCL procedure does not generate executable code. The assembler/linkage editor places the updated UCS image table into SYS1.IMAGELIB.
The SPACE parameter is overridden because the ASMHCL cataloged procedure has a secondary allocation specified. Eliminating the override causes the original secondary allocation amount to be used.