× 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.



<snip>
I've just created my first SRVPGM. As I had to create a new file, I
wrote a module to manage all the operations on that file and created a
SRVPGM SP1 on that module.
Like this CRTSRVPGM P1 BNDSRVPGM(SRVPGMREF) where SRVPGMREF has error
handling functions.

Now, I have another module M2 that uses this SP1.
A programe P1 has to call functions in M2.

I wanted to create SP2, a SRVPGM with M2. How should I be doing this ?
At the moment I did CRTSRVPGM P2 BNDSRVPGM(SRVPGMREF CLTFSC)

That way I add to the list of service programs each time. I don't know
how to automate this process.

As up till now we never used service programs, all the modules just got
thrown in to huge BNDDIRs and then the same compile command could be
used for all the programs :

CRTPGM PGM(&IOBJLIB/&IPGM) MODULE(&IOBJLIB/&IPGM) +

ENTMOD(*PGM) BNDDIR(&IOBJLIB/&IPGM) +

ACTGRP(&WACTGRP)
</snip>

I cannot do ILE development without a make tool. I have used my make
tool for years but when doing ILE development it has become essential.

Here is an example from the header of my standard error handler.

Each module.

*_> CNLLSTSPLF SRCFILE(@2/@1) SRCMBR(@3)
*_> DLTMOD MODULE(@5/@4)
*_> CRTRPGMOD MODULE(@5/@4) SRCFILE(@2/@1) SRCMBR(@3) +
*_> DBGVIEW(@9) OPTIMIZE(@8) OPTION(*EVENTF)

Create service program.

*_> DLTSRVPGM SRVPGM(@5/@4)

*_> CHKOBJECT OBJNAME(@5/XVERRH_M01) OBJTYPE(*MODULE) +

*_> SRCFILE(@2/@1) SRCMBR(XVERRH_M01)

*_> CHKOBJECT OBJNAME(@5/XVERRH_M02) OBJTYPE(*MODULE) +

*_> SRCFILE(@2/@1) SRCMBR(XVERRH_M02)

*_> CHKOBJECT OBJNAME(@5/XVERRH_M03) OBJTYPE(*MODULE) +

*_> SRCFILE(@2/@1) SRCMBR(XVERRH_M03)

*_> CRTSRVPGM SRVPGM(@5/@4) +

*_> MODULE(XVERRH_M01 XVERRH_M02 XVERRH_M03) +

*_> SRCFILE(@2/@1) SRCMBR(XVERRH_B) BNDDIR(EMUTIL) +

*_> TEXT('Standard Error Handling Functions.') +

*_> ACTGRP(QILE)


All the instructions on how to create the object are in the header. Just
type CO(Compile test) or IN(Compile Production) to create the object

Obviously, the same thing can be done with a regular program.

You can download the tool at www.think400.dk/downloads.htm. Look for
Compile. Instructions on how to setup including using with WDSC are in
the readme.

Scott Klement, also, has a similar tool.


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.