15 lines
322 B
Plaintext
15 lines
322 B
Plaintext
|
|
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
|