Subject: | |
From: | |
Reply To: | |
Date: | Tue, 3 Oct 2000 13:08:52 -0700 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Peter,
You must specify the length of the XL list (item #19)
in item 24.
Duane Percox wk: 650.372.0200x608 fax: 650.372.3386
[log in to unmask]
www.qss.com
qwebs.qss.com
-----Original Message-----
From: Peter Osborne [mailto:[log in to unmask]]
Sent: Tuesday, October 03, 2000 12:00 PM
To: [log in to unmask]
Subject: [HP3000-L] CREATEPROCESS
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.
|
|
|