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

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