Re: what is significance of binder language

here is a sample binding source:

STRPGMEXP PGMLVL(*CURRENT)

EXPORT SYMBOL('edi_NextLine')
EXPORT SYMBOL('edi_GetElem')

EXPORT SYMBOL('edi_ParseAK1')
EXPORT SYMBOL('edi_ParseAK2')
EXPORT SYMBOL('edi_ParseAK5')
EXPORT SYMBOL('edi_ParseDTM')

ENDPGMEXP

-- module. use CRTRPGMOD or CRTSQLRPGI command to create a module.

H NoMain
h option(*SrcStmt:*nodebugio)

d/copy coresrc,prcore
d/copy qrpglesrc,edipr

** -------------------------- edi_ParseAK1 --------------------------
dedi_ParseAK1 pr
d extProc('edi_ParseAK1')
d OutIdCode 2a options(*omit)
d OutControlNbr 9a options(*omit)
d InElems 256a const varying dim(50)
d InElemsCx 10i 0 const

** -------------------------- edi_ParseAK1 ------------------------
** parse GS edi segment
pedi_ParseAK1 b export
dedi_ParseAK1 pi
d OutIdCode 2a options(*omit)
d OutControlNbr 9a options(*omit)
d InElems 256a const varying dim(50)
d InElemsCx 10i 0 const

d idCode s 2a
d controlNbr s 9a
/free
idCode = ' ' ;
controlNbr = ' ' ;

if InElemsCx >= 2 ;
idCode = InElems(2) ;
endif ;
if InElemsCx >= 3 ;
controlNbr = InElems(3) ;
endif ;

if %addr(OutControlNbr) <> *null ;
OutControlNbr = controlNbr ;
endif ;
/end-free
p e

-- then CRTSRVPGM command is used to create the service program from a list
of modules

CRTSRVPGM SRVPGM(srvpgmname) MODULE(MODULE1 MODULE2)
SRCFILE(bindsrcf) SRCMBR(BINDSRCmbr)



On Sat, Mar 7, 2020 at 11:40 AM techie21 IT <techiei876@xxxxxxxxx> wrote:

Hi,

there is not any practical example suppose if binder language is having
binding directory then how to use binding directory and role of service
programs with respect to latest ILE language in AS400 any real example
please?

Thanks

On Sat, Mar 7, 2020 at 8:19 AM Patrik Schindler <poc@xxxxxxxxxx> wrote:

Hello nameless,

Am 08.03.2020 um 06:09 schrieb techie21 IT <techiei876@xxxxxxxxx>:

Why do we use binderlangage and what is it's significance with respect

to

service programs and activation group?

Have a look at the IBM documentation "ILE Concepts". There you'll be
explained.

https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/ilec/sc415606.pdf

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE - https://www.pocnet.net/poc-key.asc

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com