I need to call CREATEPROCESS from a COBOL program. I have read that I need to
"type coerce" the character data to integer. How do you do that? Right now the
program gets an error 5 returned, invalid itemnum specified. Below is the code
I am using. I would greatly appeciate any help.

 01 PROGNAME                       PIC X(26).
 01 NEWLIST.
     05 FILE-NAME                  PIC X(09).
     05 CR                         PIC X           VALUE %15.
 01 NEWIN                          PIC X(07)       VALUE SPACES.
 01 ENTRYPT                        PIC X           VALUE SPACES.
 01 INFOC                          PIC X           VALUE SPACES.
 01 COB-ITEMNUMS.
    05  COB-ITEMNUMS-LIB           PIC S9(09) BINARY VALUE 3.
    05  COB-ITEMNUMS-LIST          PIC S9(09) BINARY VALUE 9.
    05  COB-ITEMNUMS-END           PIC S9(09) BINARY VALUE 0.
 01 ITEMNUMS                       PIC S9(09) USAGE IS BINARY.
 01 COB-ITEMS.
    05  COB-ITEMS-LIB              PIC S9(09) BINARY VALUE 33.
    05  COB-ITEMS-LIST             PIC X(10).
    05  COB-ITEMS-END              PIC S9(09) BINARY VALUE 0.
 01 ITEMS-LIST.
    05 ITEMS-ARRAY OCCURS 3 TIMES.
       10 ITEMS                       PIC S9(09) USAGE IS BINARY.
.
.
.
     MOVE NEWLIST TO COB-ITEMS-LIST.
     CALL INTRINSIC ".LOC." USING COB-ITEMNUMS  GIVING ITEMNUMS.
     CALL INTRINSIC ".LOC." USING COB-ITEMS-LIB GIVING ITEMS (1).
     CALL INTRINSIC ".LOC." USING COB-ITEMS-LIST GIVING ITEMS (2).
     CALL INTRINSIC "CREATEPROCESS" USING ERR,
                                          PROGRAM-PIN,
                                          PROGNAME,
                                          ITEMNUMS,
                                          ITEMS-LIST.

     IF ERR NOT = ZERO
         MOVE 65           TO MSGNUM
         MOVE PROGNAME     TO PARM1-FILE-NAME
         MOVE ERR          TO PARM2-ERR
         PERFORM 9999-ERROR-MSG.

Marilyn Glick