The OpenEdge Hive

When I run the following code, I found the error message: Mismatched number of parameters passed to procedure /home/jones/p85490r.ped.
(3234) , How to fix it? (I use HPUX11i progress 8.3E05.

code:
DEFINE INPUT PARAMETER p_TextFile AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p_PDFFile AS CHARACTER NO-UNDO.

DEFINE VARIABLE v_line AS CHARACTER NO-UNDO.

{ pdf_inc.i}

RUN pdf_new ("Spdf",p_PDFFile).
RUN pdf_set_BottomMargin("Spdf",50).
RUN pdf_new_page("Spdf"). /* Instantiate a new page */

INPUT FROM VALUE(p_TextFile) NO-ECHO.
REPEAT:
IMPORT UNFORMATTED v_Line.

RUN pdf_text_color ("Spdf",0.0,.0,.0).
RUN pdf_text ("Spdf", v_Line).
RUN pdf_skip ("Spdf").

IF INDEX(v_Line,CHR(12)) > 0 THEN
RUN pdf_new_page("Spdf").
END.
INPUT CLOSE.
RUN pdf_close("Spdf").