DEFINE VARIABLE cAreaList AS CHARACTER  NO-UNDO.
DEFINE VARIABLE cLastExtent AS CHARACTER  NO-UNDO.
DEFINE VARIABLE iNumExtents AS INTEGER    NO-UNDO.
DEFINE VARIABLE iCurrExtent AS INTEGER    NO-UNDO.

cAreaList = SESSION:PARAMETER.

FOR EACH _Area NO-LOCK
  WHERE _Area._Area-type = 3
  OR _Area._Area-type = 4
  OR _Area._Area-type = 6:

  IF cAreaList <> "" THEN
  DO:
    IF NOT cAreaList BEGINS "!"
      AND LOOKUP(STRING(_Area._Area-number), cAreaList) = 0 THEN
      NEXT.
    ELSE IF cAreaList BEGINS "!"
      AND LOOKUP(STRING(_Area._Area-number), cAreaList) <> 0 THEN
      NEXT.
  END.

  FOR EACH _AreaStatus NO-LOCK
    WHERE _AreaStatus._AreaStatus-Areanum = _Area._Area-number:

    ASSIGN
      cLastExtent = _AreaStatus._AreaStatus-Lastextent
      iNumExtents = _AreaStatus._AreaStatus-Extents
      .

    IF cLastExtent  MATCHES "*.db" THEN
      NEXT.

    iCurrExtent = INTEGER(SUBSTRING(cLastExtent, R-INDEX(cLastExtent, ".") + 2)).

    PUT UNFORMATTED
      _AreaStatus._AreaStatus-Areanum "|"
      (IF iCurrExtent = iNumExtents THEN "true" ELSE "false")
      SKIP.
  END.
END.