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