× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.