Parse Method
Class: _LIST_PARSER_ENGINE
Expand/Collapse source code of procedure Parse Source Code
      LPARAMETERS CHNGREF laFiles,INPREF lcData
      LOCAL liFormat,loParser,llRet
      This.cData=lcData
      lcData="" && freeze

      liFormat=This.CheckFormat()

      IF !PEMSTATUS(This,"PL"+STR(liFormat,1),5)
         This.AddObject("PL"+STR(liFormat,1),"_LIST_PARSER_"+STR(liFormat,1))
      ENDIF
      loParser=EVALUATE("This.PL"+STR(liFormat,1))
      loParser.oFTP=This.oFTP
      llRet=loParser.Parse(@laFiles,This)
      loParser.oFTP=.NULL.
      RETURN llRet