At first glance, the first item (load options #3) should be the value
not the address. So don't use the .loc. pseudo intrinsic for the address
just put the value into the items array. You can also eliminate the
ITEMNUMS and just pass the reference to COB-ITEMNUMS. I've made the
changes to the code here.

         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 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.
             MOVE COB-ITEMS-LIB TO ITEMS(1).
             CALL INTRINSIC ".LOC." USING COB-ITEMS-LIST GIVING ITEMS
(2).
             CALL INTRINSIC "CREATEPROCESS" USING ERR,
                                                  PROGRAM-PIN,
                                                  PROGNAME,
                                                  COB-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.


John Zoltak
North American Mfg Co

> -----Original Message-----
> From: MarilynPG [SMTP:[log in to unmask]]
> Sent: Thursday, March 19, 1998 9:55 AM
> To:   [log in to unmask]
> Subject:      [HP3000-L] CREATEPROCESS
>
> 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.
>
        <snip>
> Marilyn Glick