home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / pfxdel.lx < prev    next >
Text File  |  1998-02-24  |  579b  |  14 lines
  1. /******************************************************************************
  2.  * Delete Exit routine                                                        *
  3.  *                                                                            *
  4.  * This command is called when a line is deleted to ensure that the deleted   *
  5.  * line is not a prefix show line.                                            *
  6.  ******************************************************************************/
  7.  
  8.  'extract class'
  9.  if pos('PFXSHOW', class) \= 0 then
  10.     exit -5
  11.  else
  12.     exit 0
  13.  
  14.