FUNCTION gen_nombre_archivo(tip_sal)

    DEFINE tip_sal,nom_arc STRING,
           nro_rep INT
        
    LET nro_rep=nro_rep+1

    LET nom_arc="./ArchEnviados/rep_",fgl_getpid() USING "<<<<<<<<<&",
                "-",nro_rep USING "<<<<<<<<<&",".",DOWNSHIFT(tip_sal)

    RETURN nom_arc

END FUNCTION