In http://www.redbooks.ibm.com/pubs/pdf...s/sg245402.pdf
findest du auch ein Bsp. mir C-API's

Code:
H BndDir('QC2LE') DftActGrp(*NO)

* Prototype for cos function
D Cosine          PR     8F   ExtProc('cos')
D double                 8F   Value
 

D Radians         S      8F   Inz
D Result          S      8F   Inz


C                   Eval Result = Cosine(Radians)
Ist aber auch nicht einfacher als :

Code:
D Cosine          PR          ExtProc('CEESDCOS')        
D   Radians              8F
D   Result               8F
D   fc                        OPTIONS(*OMIT)


C                   CALLP     Cosine(Radians :  Result : *omit)
Der einzige Unterschied ist die Parameterrückgabe und das das C-API über das Binderverzeichnis Q2CLE explizit eingebunden werden muß. (Bei ILE-RPG sind die CEE-Api's über das Standardbinderverzeichnis QRNXLE bzw. das *SRVPGM QRNXUTIL automatisch verfügbar)
Die C-Prototypes weiterer math. Funktionen findest du in QSYSINC/H(MATH).

Sven



[Dieser Beitrag wurde von Sven Schneider am 05. Mai 2003 editiert.]