R: Binder language example

[Finucci Domenico <Domenico.Finucci@xxxxxxxxxxxx>]

Good morning, sirs.
Where can i learn binding language ?
Please let me know is some manual / red book exists on that matter and where
i can find them.
Sincerely
Domenico Finucci
Fiditalia , Milano, 02- 4301-2494


-----Messaggio originale-----
Da: Buck Calabro [mailto:Buck.Calabro@commsoft.net]
Inviato: mercoledì 12 settembre 2001 22.19
A: midrange-l@midrange.com
Oggetto: Binder language example


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
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.