Hello All,

I am currently working with one of our COBOL programmers. We are trying to
get the CREATEPROCESS intrinsic to work but it keeps returning with a
status 2. In the documentation status 2 is defines as "2 Pin or formaldesig
parameter missing; or one of itemnum pair is
missing (for example, 11 and 12 or 19 and 24)".

We cannot get past this problem. Has anyone had a similar experience?

Below is the source for the program.

-Peter Osborne
Carleton Technologies

$CONTROL USLINIT,LIST
  IDENTIFICATION DIVISION.
  PROGRAM-ID.  PI005.

  ENVIRONMENT DIVISION.
  CONFIGURATION SECTION.
  SOURCE-COMPUTER.
  OBJECT-COMPUTER.

  DATA DIVISION.
  WORKING-STORAGE SECTION.
  01  CREATE-STATUS                 PIC S9(9)  BINARY VALUE 0.
  01  PROCESS-ID                    PIC S9(4)  BINARY VALUE 0.
  01  PROCESS-PROGNAME.
      03  FILLER                    PIC X(10)
          VALUE "PI001O.PUB".
      03  FILLER                    PIC X      VALUE %15.

  01  PROCESS-ITEMNUM.
      03  PI-ITEMNUM-8              PIC S9(9)  BINARY VALUE 8.
      03  PI-ITEMNUM-9              PIC S9(9)  BINARY VALUE 9.
      03  PI-ITEMNUM-19             PIC S9(9)  BINARY VALUE 19.
      03  PI-ITEMNUM-END            PIC S9(9)  BINARY VALUE 0.

  01  PROCESS-ITEMS.
      03  PI-ITEM-STDIN             PIC X(15).
      03  PI-ITEM-STDOUT            PIC X(15).
      03  PI-ITEM-XL                PIC X(15).

  01  ITEMS-LIST.
      03  ITEM-ARRAY OCCURS 4 TIMES.
          05  IL-ITEM               PIC S9(9)  BINARY.
  01  BUFF                          PIC X(13)  VALUE SPACES.

  01  STDIN-FNAME.
      03  FILLER                    PIC X(11)  VALUE "PI005IN.PUB".
      03  FILLER                    PIC X      VALUE %15.
  01  STDOUT-FNAME.
      03  FILLER                    PIC X(12)
                                    VALUE "PI005OUT.PUB".
      03  FILLER                    PIC X      VALUE %15.
  01  XL-FNAME.
      03  FILLER                    PIC X(10)  VALUE "XL.PUB".
      03  FILLER                    PIC X      VALUE %15.
  01  EDIT-STATUS                   PIC S9(6).


  PROCEDURE DIVISION.
  CAN-OPENER.
      MOVE STDIN-FNAME TO PI-ITEM-STDIN.
      CALL INTRINSIC ".LOC." USING  PI-ITEM-STDIN
                             GIVING IL-ITEM (1).
      MOVE STDOUT-FNAME TO PI-ITEM-STDOUT.
      CALL INTRINSIC ".LOC." USING  PI-ITEM-STDOUT
                             GIVING IL-ITEM (2).
      MOVE XL-FNAME TO PI-ITEM-XL.
      CALL INTRINSIC ".LOC." USING  PI-ITEM-XL
                             GIVING IL-ITEM (3).
      CALL INTRINSIC "CREATEPROCESS" USING CREATE-STATUS,
                                           PROCESS-ID,
                                           PROCESS-PROGNAME,
                                           PROCESS-ITEMNUM,
                                           ITEMS-LIST.

      IF CREATE-STATUS NOT = 0
         MOVE CREATE-STATUS TO EDIT-STATUS
         DISPLAY "CREATEPROCESS'S STATUS RETURNED = ", EDIT-STATUS.
      STOP RUN.