FindDT Method
Class: _LIST_PARSER
Expand/Collapse source code of procedure FindDT Source Code
      LPARAMETERS INPREF lcData
      LOCAL liAT,liy,liz,lcPom,liCnt,lcRow
      lcRow=LOWER(lcData)
      liCnt =OCCURS(",",This.cMonths)-1
      liAT=0
      FOR liy=1 TO liCnt
          liz=AT(",",This.cMonths,liy)
          lcMonth=SUBSTR(This.cMonths,liz+1,AT(",",This.cMonths,liy+1)-liz-1)

          FOR liz=1 TO OCCURS(lcMonth,lcRow)
              liAT=RAT(lcMonth,lcRow,liz)
              IF liAT=0
                 LOOP
              ENDIF
              lcPom=SUBSTR(lcData,liAT) && datetime info
              IF (SUBSTR(lcPom,4,1)=" " AND SUBSTR(lcPom,7,1)=" " AND VAL(SUBSTR(lcPom,5,2))>0 AND ;
                  VAL(SUBSTR(lcPom,8,2))>0 AND SUBSTR(lcPom,10,1)=":" AND VAL(SUBSTR(lcPom,11,2))>0) OR;
                 (SUBSTR(lcPom,4,1)=" " AND SUBSTR(lcPom,7,2)=" " AND VAL(SUBSTR(lcPom,5,2))>0 AND ;
                  VAL(SUBSTR(lcPom,9,4))>0)
                 EXIT
              ENDIF
              liAT=0
          NEXT
          IF liAT>0
             EXIT
          ENDIF
      NEXT
      RETURN liAT && Fail at parsing file