Using the Qp0zLprintf external procedure

Posted by: George Fuste

IBM i developer

http://www.redbeetlesoftware.com

Jacksonville, FL

Using the Qp0zLprintf external procedure
has no ratings.

Published: 12 Jan 2016
Revised: 12 Jan 2016 - 2634 days ago
Last viewed on: 29 Mar 2023 (4676 views)

Main URL:

Using the Qp0zLprintf external procedure Published by: George Fuste on 12 Jan 2016 view comments(2)

In RPG free I define and call the Qp0zLprintf proc like this to write messages to the joblog:

Dcl-PR WrtJobLog Int(10:0)     ExtProc('Qp0zLprintf');
szOutputStg     Pointer Value Options(*String);
*n              Pointer Value Options(*String: *NoPass);
*n              Pointer Value Options(*String: *NoPass);
End-PR;

WrtJoblog(%trimR(Message) + LF);

"Message" is VarChar(256)

"LF" is a constant of x'25'

How would I do this same definition and call in CLLE?

Sort Ascend | Descend

COMMENTS

(Sign in to Post a Comment)

Posted by: bobcozzi

Site Admin ****

Chicagoland

www.cozTools.com/qryfile

Comment on: Using the Qp0zLprintf external procedure
Posted: 7 years 2 months 18 days 4 hours 19 minutes ago

You pass the LF and a null terminator since CL doesn't have *STRING as a parm option.

TESTJOBLOG: PGM                                                     
            DCL        VAR(&LF) TYPE(*CHAR) LEN(2) VALUE(X'2500')   
            DCL        VAR(&MSG) TYPE(*CHAR) LEN(256)               
            CHGVAR     VAR(&MSG) VALUE('Hello World' *TCAT &LF)     
                                                                    
            CALLPRC    PRC('Qp0zLprintf') PARM((&MSG))              
ENDPGM:     ENDPGM

Posted by: GFuste

Premium member *

Jacksonville, FL

http://www.redbeetlesoftware.com

Comment on: Using the Qp0zLprintf external procedure
Posted: 7 years 2 months 18 days 4 hours 17 minutes ago

Thanks!

I had my &LF variable as this: DCL VAR(&LF) TYPE(*CHAR) LEN(1) VALUE(x'25')

I guess I was missing the NULL ind.