Binder language example

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

Here's an example of binder language:

STRPGMEXP PGMLVL(*CURRENT) SIGNATURE(' 2.00 01 Jun 01')
  EXPORT SYMBOL(sockOpen)
  EXPORT SYMBOL(sockRead)
  EXPORT SYMBOL(sockWrite)
  EXPORT SYMBOL(sockClose)
  EXPORT SYMBOL(returnh_errno)
  EXPORT SYMBOL(return_errno)
  EXPORT SYMBOL(a2e)
  EXPORT SYMBOL(e2a)
ENDPGMEXP
STRPGMEXP PGMLVL(*PRV) SIGNATURE(' 1.00 11 Sep 00')
  EXPORT SYMBOL(sockOpen)
  EXPORT SYMBOL(sockRead)
  EXPORT SYMBOL(sockWrite)
  EXPORT SYMBOL(sockClose)
  EXPORT SYMBOL(returnh_errno)
  EXPORT SYMBOL(return_errno)
ENDPGMEXP

In September 2000, I wrote the initial version of the service program.  This
worked very well for AS/400 to AS/400, but I discovered that when talking to
Unix, I needed to translate ASCII to EBCDIC and vice-versa.  That's where
the two new exports come in (a2e and e2a).  The existing AS/400 to AS/400
code didn't need to be recompiled or re-bound, and my new AS/400 to Unix
code picked up the new functions when it was compiled.

Buck