Subject: | |
From: | |
Reply To: | |
Date: | Tue, 15 Aug 2000 15:09:10 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
I'm having an odd error when trying to use either of these intrinsic in COBOL. If my <cmdimage> is exactly the size of the command I'm passing plus the terminal CR, everything works fine. If it is larger I get <cmderror> = 583 and <parmnum> = -33.
Below is the code:
====
285000$TITLE (2) "COMMON ELEMENTS"
290000 77 CI-CR PIC X(01) VALUE %15.
295000 77 CI-COMMAND-ERROR PIC S9(04) BINARY.
300000 77 CI-PARAMETER-NUMBER PIC S9(04) BINARY.
305000 77 CI-MESSAGE-LEVEL PIC S9(04) BINARY.
310000$TITLE (2) "HPCICOMMAND"
315000 01 CI-HPCICOMMAND.
320000 03 CI-H-CMDIMAGE PIC X(33).
...
605000 MOVE SPACES TO CI-H-CMDIMAGE, CI-C-CMDIMAGE.
610000 STRING "FILE DBNAME=" DELIMITED BY SIZE
615000 WS-DB-NAME DELIMITED BY " "
616000 CI-CR DELIMITED BY SIZE
630000 INTO CI-H-CMDIMAGE
635000 END-STRING.
640000* STRING "FILE DBNAME=" DELIMITED BY SIZE
645000* WS-DB-NAME DELIMITED BY " "
660000* INTO CI-C-CMDIMAGE
665000* END-STRING.
695000 CALL INTRINSIC "HPCICOMMAND" USING
700000 CI-HPCICOMMAND
705000 CI-COMMAND-ERROR
710000 CI-PARAMETER-NUMBER
715000 CI-MESSAGE-LEVEL.
720000 IF CI-COMMAND-ERROR NOT EQUAL 0
725000 DISPLAY "ERROR - HPCICOMMAND"
730000 DISPLAY " - ", CI-HPCICOMMAND
735000 DISPLAY " - ERR = ", CI-COMMAND-ERROR
740000 DISPLAY " - PARM = ", CI-PARAMETER-NUMBER
745000 DISPLAY " - MSG LVL = ", CI-MESSAGE-LEVEL
805000 STOP RUN
810000 END-IF.
...
====
The resulting error looks like:
====
RUN DBUT.NMX.SUP51
ENTER FULLY QUALIFIED DATA BASE NAME
INCLUDING LOCKWORD
****.***.*****
****.***.*****
ENTER DATA BASE READ ACCESS PASSWORD
##########
FILE DBNAME=****.***.*****
^
Invalid character in MPE file name. (CIERR 583)
ERROR - HPCICOMMAND
- FILE DBNAME=****.***.*****
- ERR = +0583
- PARM = -0027
- MSG LVL = +0000
====
Any and all suggestions greatly appreciated.
|
|
|