/* CHKMISS -- CHECK Documentation for MISSING MEMBERS */
/* DAVID MCRITCHIE -- "THE REXX MACROS TOOLBOX" -- 1997/05/25 */
ADDRESS "ISREDIT";"MACRO"
"(CROW,CCOL) = CURSOR"
"(LASTROW) = LINENUM .ZLAST"
"reset"
rrow = crow - 1
"LABEL" rrow "= .tmmp 1"
DO ROW = crow TO LASTROW
   "(LINE) = LINE" ROW
   LINE = TRANSLATE(LINE)
   check = word(line,1)
   "seek all """check""" .zfirst .tmmp"
   "(s1,s2) = seek_counts"
   if s1 > 0 then "xstatus" row "= X"
   if s1 <> 1 then do
      NSEEK  = check "-- found" s1 "times"
      "LINE_BEFORE" ROW "= noteline (NSEEK)"
   END
END
exit
/*********************************************************************/
/* Purpose: Find members in (another) file that are undocumented     */
/* 1).  @strap dir c:\dir1\*.txt                                     */
/* 2).  Chkmiss    with cursor of first line of trapped dir list     */
/* Failures to have exactly one match are noted with NOTELINE        */
/* 3).  May want to delete undisplayed lines -- DEL X ALL            */
/*********************************************************************/