Step 1a: Modify CUNSIUKB for the new user-defined CCSID

In order to create a user-defined CCSID:

Choose the basic information for your new CCSID:
1. Choose a number from the user-defined range of 57344 to 61439 for the CCSID. The following example will use 60037 (easy to remember because it is based on codepage 37).
2. Choose a suffix to represent the new CCSID. The value suffix specifies a two-character alphanumeric identifier to be used in constructing the conversion table name. Unicode Services recommends picking a value in the range ZA to ZZ. The following example uses ZA.
3. Decide what codepage to base the new CCSID on. The following example uses 00037.
4. Know what values to specify for the other needed parameters. This can be discovered by looking in the CDRA documentation and copying the values for the codepage chosen in step c above. The following example uses a STYPE=1 and CCDEF=1,1,1,1,1,1 because that is what codepage 00037 uses. The CDRA documentation is located at Character Data Representation Architecture and under the section entitled, Appendix C: CCSID Repository, there is a link to the online CCSID repository. Search the online CCSID repository for the codepage you have chosen. The information for CCSID 00037 (from our example) is located at Coded character set identifiers.

Next, copy CUNSIUKB to another data set so you can edit the copy. In the copy of CUNSIUKB, add a comment to document the change. You should also change the lines 39 to 45 to represent the value for your new CCSID listed above. The following is an example of the default file:

01    ++USERMOD(UMOD001)
02     /*************************************************************
03      *                                                           *
04      * Licensed Materials - Property of IBM                      *
05      *                                                           *
06      *                                                           *
07      *                                                           *
08      * (C) Copyright IBM Corp. 2000, 2009                        *
09      *                                                           *
10      * Status = HUN7760                                          *
11      *                                                           *
12      *************************************************************
13      *                                                           *
14      * Sample usermod for building a user-defined knowledge base *
15      *                                                           *
16      *************************************************************
17     */ .
18     ++VER(Z038) FMID(HUN7760).
19     ++JCLIN.
20     //LINK    EXEC LINKS
21     //        PARM='NCAL,MAP,LIST,LET,NOXREF,REUS',
22     //        N=,NAME=LINKLIB
23     //LINKLIB DD   DSN=SYS1.LINKLIB,DISP=SHR
24     //SYSLIN  DD   *
25        ORDER CUNMIKBS
26        ORDER USERKBS
27        ORDER CUNMIEOF
28        MODE AMODE(31),RMODE(ANY)
29        INCLUDE LINKLIB(CUNMIKBS)
30        INCLUDE LINKLIB(USERKBS)
31        ENTRY CUNMIKBS
32       NAME CUNMIKBS(R)
33
34      ++SRC(USERKBS) DISTLIB(SCUNJCL) DISTMOD(LINKLIB).
35      USERKBS CSECT
36      USERKBS AMODE 31
37      USERKBS RMODE ANY
38      *
39              CUNAIKBG CCSID=57344,ES=1100,SUFFIX=ZA,CCDEF=(1,1,1,1,1,1),
40                    STRINGT=1,CP=00290
41              CUNAIKBG CCSID=57345,ES=1200,SUFFIX=ZB,CCDEF=(2,2,2,2,2,2),
42                    STRINGT=1,CP=00300
43              CUNAIKBG CCSID=57346,ES=1301,SUBIDS=(57344,57345),
44                    STRINGT=1,CP=00290
45      END  USERKBS

Make the desired modifications in this file. Update lines 12 through 16 to add a comment to document the change.

12      *************************************************************
13      *                                                           *
14      * Update by Pat G. to add the CCSID 60037                   *
15      *                                                           *
16      *************************************************************

Update lines 39 through 42 to reflect your new CCSIDs values and remove extra information not needed by this new CCSID.

37      USERKBS RMODE ANY
38      *
39              CUNAIKBG CCSID=60037,ES=1100,SUFFIX=ZA,CCDEF=(1,1,1,1,1,1),
40                    STRINGT=1,CP=00037
41      END  USERKBS

Here is the revised file:

01    ++USERMOD(UMOD001)
02     /*************************************************************
03      *                                                           *
04      * Licensed Materials - Property of IBM                      *
05      *                                                           *
06      *                                                           *
07      *                                                           *
08      * (C) Copyright IBM Corp. 2000, 2009                        *
09      *                                                           *
10      * Status = HUN7760                                          *
11      *                                                           *
12      *************************************************************
13      *                                                           *
14      * Updated by Pat G. to add CCSID 60037                      *
15      *                                                           *
16      *************************************************************
17     */ .
18     ++VER(Z038) FMID(HUN7760).
19     ++JCLIN.
20     //LINK    EXEC LINKS
21     //        PARM='NCAL,MAP,LIST,LET,NOXREF,REUS',
22     //        N=,NAME=LINKLIB
23     //LINKLIB DD   DSN=SYS1.LINKLIB,DISP=SHR
24     //SYSLIN  DD   *
25        ORDER CUNMIKBS
26        ORDER USERKBS
27        ORDER CUNMIEOF
28        MODE AMODE(31),RMODE(ANY)
29        INCLUDE LINKLIB(CUNMIKBS)
30        INCLUDE LINKLIB(USERKBS)
31        ENTRY CUNMIKBS
32       NAME CUNMIKBS(R)
33
34      ++SRC(USERKBS) DISTLIB(SCUNJCL) DISTMOD(LINKLIB).
35      USERKBS CSECT
36      USERKBS AMODE 31
37      USERKBS RMODE ANY
38      *
39              CUNAIKBG CCSID=60037,ES=1100,SUFFIX=ZA,CCDEF=(1,1,1,1,1,1),
40                    STRINGT=1,CP=00037
41      END  USERKBS