  The terse COBOL conditions dept 
 The Question is:
 
How can I use messages from the system messaging facility in COBOL progam/DCL
 command procedure? I need to create shared image with a messaging facility. If
 the update is currently happening in the database, need to send next request
 to wait in the queue
until the table is available again.
 
 The Answer is:
    If you want to signal a condition using an existing message in the
    system messaging facility, you can do something similar to the
    following in COBOL:
 
    $ cobol w4287
    $ link w4287
    $ run w4287
    %RMS-E-EOF, end of file detected
 
identification division.
program-id. W4287.
environment division.
data division.
working-storage section.
01 MSG pic 9(9) comp value external RMS$_EOF.
procedure division.
1.	call "LIB$SIGNAL" using by value MSG.
