Programming Solution

{mfdeclre.i} DEFINE VARIABLE m_file_path         AS CHARACTER FORMAT "x(50)" NO-UNDO INITIAL "/home/mfg/" . DEFINE VARIABLE m_csv_file          AS CHARACTER FORMAT "x(50)" NO-UNDO INITIAL "Demo1.csv". DEFINE VARIABLE m_cim_file          AS CHARACTER FORMAT "x(40)" NO-UNDO. DEFINE VARIABLE m_out_file          AS CHARACTER FORMAT "x(40)" NO-UNDO. DEFINE VARIABLE m_cim_errline       AS CHARACTER FORMAT "x(75)". DEFINE VARIABLE m_cim_err           AS CHARACTER NO-UNDO INITIAL NO. DEFINE VARIABLE m_cim_errdesc       AS CHARACTER NO-UNDO FORMAT "x(85)". DEFINE TEMP-TABLE tt_label     FIELD tt_lang    AS  CHARACTER     FIELD tt_term    AS  CHARACTER FORMAT "x(80)"     FIELD tt_long    AS  CHARACTER FORMAT "x(80)"     FIELD tt_short   AS  CHARACTER FORMAT "x(80)"     FIELD tt_small   AS  CHARACTER FORMAT "x(80)"     FIELD tt_stack   AS  CHARACTER FORMAT "

{mfdeclre.i} DEFINE VARIABLE m_file_path         AS CHARACTER FORMAT "x(50)" NO-UNDO INITIAL "/home/mfg/" . DEFINE VARIABLE m_csv_file          AS CHARACTER FORMAT "x(50)" NO-UNDO INITIAL "Demo2.csv". DEFINE VARIABLE m_cim_file          AS CHARACTER FORMAT "x(40)" NO-UNDO. DEFINE VARIABLE m_out_file          AS CHARACTER FORMAT "x(40)" NO-UNDO. DEFINE VARIABLE m_cim_errline       AS CHARACTER FORMAT "x(75)". DEFINE VARIABLE m_cim_err           AS CHARACTER NO-UNDO INITIAL NO. DEFINE VARIABLE m_cim_errdesc       AS CHARACTER NO-UNDO FORMAT "x(85)". DEFINE TEMP-TABLE tt_label     FIELD tt_field      AS  CHARACTER FORMAT "x(80)"     FIELD tt_program    AS  CHARACTER FORMAT "x(80)"     FIELD tt_term       AS  CHARACTER FORMAT "x(80)"    /* FIELD tt_long       AS  CHARACTER FORMAT "x(80)"     FIELD tt_short      AS  CHARACTER FORMAT "x(80)"     F

Take locations from Excel, fetch its type and generate new Excel with type DEFINE VARIABLE m_flepath AS CHARACTER FORMAT "x(40)" NO-UNDO . DEFINE VARIABLE m_fleout AS CHARACTER FORMAT "x(40)" NO-UNDO . DEFINE TEMP-TABLE tt_temp     FIELD tt_loc AS CHARACTER . FORM     m_flepath LABEL "File path " WITH FRAME a. REPEAT:     m_fleout = "" .     EMPTY TEMP-TABLE tt_temp .     UPDATE m_flepath WITH FRAME a .     m_fleout = SUBSTRING ( m_flepath , 1 , R-INDEX ( m_flepath , ".") - 1   ).     m_fleout = m_fleout + "log" + ".xls" .     INPUT  FROM value(m_flepath) .     REPEAT:         CREATE tt_temp.         IMPORT DELIMITER "," tt_temp.     END.     INPUT CLOSE.     FOR EACH tt_temp WHERE trim(tt_loc) = "" NO-LOCK  :         DELETE tt_temp .     END.  /* for each */     DO ON ERROR UNDO, RETRY :         OUTPUT TO value(m_fleout).         FOR EACH tt_temp NO-LOCK :          

Updated Apk for  Pokemon GO, Sharing just to save you from wrong files POKEMONGO APK