HP3000-L Archives

May 2003, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
HPCICOMMAND Problem
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Tue, 6 May 2003 12:57:52 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines) 
Anybody know why the HPCICOMMAND intrinsic isn't setting the error/param
fields when the call fails? (HP917LX under MPEix 6.5 pp2)

Here's the code:

 IDENTIFICATION DIVISION.
 PROGRAM-ID. HPCICMD.
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01  WS-HPCICOMMAND-LINE.
     05  WS-HL-COMMAND    PIC  X(79)      VALUE SPACES.
     05  WS-HL-CR         PIC  9(01)      VALUE %15.
 01  WS-ERROR-CODE        PIC S9(04) COMP VALUE ZEROES.
 01  WS-PARAM             PIC S9(04) COMP VALUE ZEROES.
 01  WS-MSGLEVEL          PIC S9(04) COMP VALUE ZEROES.
 PROCEDURE DIVISION.
 0100-MAINLINE.

     MOVE ZEROES TO WS-ERROR-CODE
                    WS-PARAM.
     MOVE 2      TO WS-MSGLEVEL.
     MOVE %15    TO WS-HL-CR.
     MOVE "STREAM ABCXYZ" TO WS-HL-COMMAND.
     CALL INTRINSIC "HPCICOMMAND" USING WS-HPCICOMMAND-LINE,
                                        WS-ERROR-CODE,
                                        WS-PARAM,
                                        WS-MSGLEVEL
     END-CALL.
     DISPLAY ">" WS-ERROR-CODE ">" WS-PARAM "<".
     STOP RUN.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2