PDFlib Text Extraction Toolkit (TET) Manual

3.10 RPG Binding
TET provides a /copy module that defines all prototypes and some useful constants
needed to compile ILE-RPG programs with embedded TET functions.
Unicode string handling. Since all TET functions use Unicode strings with variable
length as parameters, you have to use the %UCS2 builtin function to convert a singlebyte
string to a Unicode string. All strings returned by TET functions are Unicode strings
with variable length. Use the %CHAR builtin function to convert these Unicode strings
to single-byte strings.
Note The %CHAR and %UCS2 functions use the current job’s CCSID to convert strings from and to
Unicode. The examples provided with PDFlib are based on CCSID 37 (US EBCDIC). Some special
characters in option lists (e.g. { [ ] } ) may not be translated correctly if you run the examples
under other codepages.
Since all strings are passed as variable length strings you must not pass the length parameters
in various functions which expect explicit string lengths (the length of a variable
length string is stored in the first two bytes of the string).
Compiling and binding RPG programs for TET. Since all functions provided by TET are
implemented in the C language, you have to add x'00' at the end of each string value
passed to a TET function. All strings returned from TET will have this terminating x'00'
as well.
Using TET functions from RPG requires the compiled TET service program. To include
the TET definitions at compile time you have to specify the name in the D specs of
your ILE-RPG program:
d/copy QRPGLESRC,TETLIB
If the TET source file library is not on top of your library list you have to specify the library
as well:
d/copy tetsrclib/QRPGLESRC,TETLIB
Before you start compiling your ILE-RPG program you have to create a binding directory
that includes the TETLIB service program shipped with TET. The following example assumes
that you want to create a binding directory called TETLIB in the library TETLIB:
CRTBNDDIR BNDDIR(TETLIB/TETLIB) TEXT('TETlib Binding Directory')
After creating the binding directory you need to add the TETLIB service program to your
binding directory. The following example assumes that you want to add the service program
TETLIB in the library TETLIB to the binding directory created earlier.
ADDBNDDIRE BNDDIR(TETLIB/TETLIB) OBJ((TETLIB/TETLIB *SRVPGM))
Now you can compile your program using the CRTBNDRPG command (or option 14 in
PDM):
CRTBNDRPG PGM(TETLIB/EXTRACTOR) SRCFILE(TETLIB/QRPGLESRC) SRCMBR(*PGM) DFTACTGRP(*NO)
BNDDIR(TETLIB/TETLIB)
32 Chapter 3: TET Library Language Bindings