/* CSIGNAL -- CHECK SIGNAL -- REXX */
/* DAVID MCRITCHIE -- "THE REXX MACROS TOOLBOX" -- 1997/05/25 */
ADDRESS "ISREDIT";"MACRO"
/*  SIGNAL A  */
/*  SIGNAL B  */
/*  B:  */
/*  C:  */
"(LASTROW) = LINENUM .ZLAST"
DO ROW = 1 TO LASTROW
   "(LINE) = LINE" ROW
   LINE = TRANSLATE(LINE)
   I = WORDPOS("SIGNAL",LINE)
   IF I = 0 THEN ITERATE ROW
   LABEL = WORD(LINE,I+1)":"
   IF LABEL = ":" THEN DO
      NFOUND = "--- : ---"
      "LINE_BEFORE" ROW "= NOTELINE (NFOUND)"
   END
   "SEEK """LABEL""" ALL"
   IF RC /= 0 THEN DO
      NFOUND = "---" LABEL "--- NOT FOUND"
      "LINE_BEFORE" ROW "= NOTELINE (NFOUND)"
   END
END

/*********************************************************************/
/* SPF/PC WILL INDICATE ERROR 16 VIA THE FOLLOWING CRYPTIC MESSAGE.  */
/*   macroname(39):  Error #16, Label not found (end-of-file) ^      */
/*   PRESS ANY KEY TO CONTINUE.                                      */
/*                                                                   */
/* Looking in the SPF/PC REXX Document you find that error #16...    */
/*                                                                   */
/* 16 - LABEL NOT FOUND                                              */
/*                                                                   */
/* A SIGNAL INSTRUCTION HAS BEEN EXECUTED (OR AN EVENT FOR WHICH A   */
/* TRAP WAS SET HAS OCCURRED), AND REXX CANNOT FIND THE LABEL SPECI- */
/* FIED IN THE PROGRAM.                                              */
/*********************************************************************/