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