I haven't tried anything on Cobol yet.. the manual said - Interprocess
Communication Programmer's Guide - Page 6-5 - "Currently, software
interrupts are not available directly from COBOL or on remote files"

But I did try something in Transact i.e.
/L ALL
    1     SYSTEM PROG0;
    2
    3     DEFINE(ITEM)   PLAB           I(9):
    4                    OLAB           I(9):
    5                    LABEL          X(8),INIT=" PROG2";
    6
    7     A000-START:
    8         LIST PLAB,INIT:
    9              OLAB,INIT:
   10              LABEL;
   11
   12         PROC HPGETPROCPLABEL((LABEL),(PLAB),,,);
   13
   14         EXIT;
   15
/RUN PROG0R


*INFO: UNKNOWN COMPILER STATE [ORD = 255] [0.13] [PROG0]

EXIT/RESTART(E/R)?>
End Run
/
I then checked the error in the HP support page to find SR 5000-427757 which
states that transact cannot call an intrinsic which  requires a character
array as the first parameter. And the workaround is to write a stub in Cobol
or Pascal.
Talk about going in circles I am more confused then when I started.

Gary
(I think it's time to go home and have a beer)

---- Original Message -----
From: David B Copeland <[log in to unmask]>
To: <[log in to unmask]>
Sent: Tuesday, May 16, 2000 3:47 PM
Subject: Re: software interrupts


>
>
> "Gary Nolan" <[log in to unmask]> wrote in message
> news:<[log in to unmask]>...
>  Hi Folks,
>  I am looking a writing a program that will use software interrupt on a
> msg
>  file. But I see in the manual that you cannot do this in Cobol. <snip>
>
> > Gary Nolan
>  Sydney Steel Corporation
>
>
> Hi Gary,
>
> I haven't done this since "Classic" days where I used SPL, but I would
> expect it would still be possible to do in Cobol. I'm assuming that the
> perceived limitation is passing the interupt procedures "plabel" to
> FCONTROL item 48. I think it should be possibe to obtain the plabel with
> the HPGETPROCPLABEL intrinsic. The interupt procedure itself would look
> something like the following.
>
> $OPTION DYNAMIC
>  IDENTIFICATION DIVISION.
>  PROGRAM-ID. INTERUPT-PROC-NAME.  { or whatever }
> ...
> ...
>  LINKAGE SECTION.
>  01  FILE-NUMBER    PIC S9(4) COMP.
>
>  PROCEDURE DIVISION USING FILE-NUMBER.
>  BEGIN.
>             { do whatever }
>        CALL INTRINSIC 'FINTEXIT' USING 1.
>  END PROGRAM INTERUPT-PROC-NAME.
>
>
> Does anybody else see a problem here? I've obviously left out other
> details. If I get a chance over the weekend I'll try writing a little test
> program to test this.
>
> David Copeland
> JSI Data Systems Ltd.
>
>
>