P293- Estamos implantando junto ao Banco Bradesco a rotina de emissão do holerite nos caixas...

bom dia, estou fazendo uma epc nesse programa, vc sabe como retorno as informações para ele? Pois preciso alterar a descrição do que vai ao banco, colocando as horas. ex:

/*****************************************************************************************
** Copyright DATASUL S.A. (1997)
** Todos os Direitos Reservados.
**
** Este fonte e de propriedade exclusiva da DATASUL, sua reproducao
** parcial ou total por qualquer meio, so podera ser feita mediante
** autorizacao expressa.
*****************************************************************************************/

/*****************************************************************************************
** Programa..: prghu/upc/ - Santher
** Objetivo : Alterar o valor do salário e também a média salarial.
*****************************************************************************************/

{include/i-epc200.i1}

/* Parametros */
def input param p-ind-event as char no-undo.
def input-output param table for tt-epc.

DEF VAR c-quant AS CHAR NO-UNDO.
DEF VAR c-aux AS CHAR FORMAT "X(20)" NO-UNDO.

DEF BUFFER btt-epc FOR tt-epc.

OUTPUT TO "c:\temp\epc.txt" APPEND.
FOR EACH tt-epc
WHERE tt-epc.cod-event = "tt-movto-esp"
NO-LOCK.

ASSIGN c-quant = ENTRY(5,tt-epc.val-parameter,"|")
c-aux = ENTRY(2,tt-epc.val-parameter,"|").
IF c-quant = "0" THEN
c-quant = "".

IF c-quant <> "" THEN
c-aux = c-aux + " " + c-quant.

ASSIGN ENTRY(2,tt-epc.val-parameter,"|") = c-aux.

PUT UNFORMATTED
'p-ind-event ' p-ind-event SKIP
'cod-event ' tt-epc.cod-event SKIP
'cod-parameter ' tt-epc.cod-parameter SKIP
'val-parameter ' tt-epc.val-parameter SKIP
'c-quant ' c-quant
SKIP(1).

CREATE btt-epc.
ASSIGN btt-epc.cod-event = "ok-tt-movto-esp"
btt-epc.cod-parameter = "tt-movto2"
btt-epc.val-parameter = tt-epc.val-parameter.

RETURN tt-epc.val-parameter.



END.
OUTPUT CLOSE.