Código de Progress - Programa Progress mailx,input,output file

/*Definición de variables*/

DEF VAR i              AS CHARACTER NO-UNDO.

DEF VAR vc-desc     AS CHARACTER NO-UNDO.

DEF VAR vc-subject AS CHARACTER NO-UNDO.

DEF VAR lvc-email  AS CHARACTER NO-UNDO.

DEF VAR vd-qty      AS DECIMAL      NO-UNDO.

DEF VAR lvc-ofile    AS CHARACTER NO-UNDO INITIAL "/home/telqond/file_out.csv".

DEF VAR lvc-file  AS CHARACTER NO-UNDO INITIAL "/home/azamora/FA/DepreFA.csv".

DEF STREAM s-excel.

/*area de librerias*/

 {us/mf/mfdtitle.i}

/*inicio del programa*/

OUTPUT STREAM s-excel TO VALUE(lvc-ofile) PAGE-SIZE 0.

INPUT FROM VALUE(lvc-file).

    REPEAT:

    IMPORT DELIMITER "," i.

    vc-desc = "".

    /*buscar decripcion del item*/

    FOR FIRST pt_mstr WHERE pt_domain = global_domain

                                   AND pt_part      = i NO-LOCK:

          vc-desc = pt_desc1 + pt_desc2.

    END.

    /*buscar inventario*/

   vd-qty = 0.

    FOR EACH in_mstr WHERE in_domain = global_domain

                                    AND in_part      = i NO-LOCK:

          vd-qty = vd-qty + + in_qty_oh + in_qty_nonet .

    END.

    PUT STREAM s-excel UNFORMATTED  i  ","

           vc-desc ","

           vd-qty   ","

           SKIP.

  END. /*repeat*/

INPUT CLOSE.

OUTPUT STREAM s-excel CLOSE.

lvc-email = "programacionparatodos@gamil.com".

vc-subject  = "test".

IF SEARCH(lvc-ofile) <> ? THEN DO:

   OS-COMMAND SILENT uuencode

   VALUE(lvc-ofile) VALUE(lvc-ofile)

   mailx -s value('"' + vc-subject + '" ' + TRIM(lvc-email)).

   DISPLAY "reporte enviado".

END.