I think you overlooked the obvious.  You've specified item 19; you must
include item 24.


--
Glenn A. Mitchell  Mailto:[log in to unmask]
3GM Associates, Inc    Brainbench COBOL II MVP
Portland, ME  04102   www.brainbench.com
207-772-9370

"Peter Osborne" <[log in to unmask]> wrote in message
news:8rdb870300f@enews4.newsguy.com...
> 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.
>