Hi,
wenn wir aktuell in einem Programm Proceduren verwenden, sind diese auch in dem jeweiligen Programm definiert und komplett vorhanden (in den D-Bestimmungen definiert und am jeweiligen Programmende der entsprechende Code für die Procedure).
Durch diese Vorgehensweise hat man unter Umständen die gleiche Procedure dann in x-Programmen immer wieder definiert, was nicht wirklich sinnvoll ist.

Mehr Sinn macht es ja, diese regelmäßig verwendeten Proceduren an einer Stelle zusammenzufassen / zu verwalten und bei Bedarf mehr oder weniger automatisch im jeweiligen Programm zur Verfügung zu haben.

Da ich bisher nicht wirklich Ahnung von Serviceprogrammen, BIND-Verzeichnissen, ... habe, musste ich ein wenig ausprobieren und bin dann auf folgende Vorgehensweise gekommen:

In der Source MYLIB/QRPGLESRC/PR_TOOLS01 definiere ich mir z.B. die Proceduren:
*
H NOMAIN
*
************************************************** *************
*
D calc01 PR 9S 3
D in_wert01 9S 0 value
D in_wert02 9S 0 value
*
D calc02 PR 9S 3
D in_wert01 9S 0 value
D in_wert02 9S 0 value
*
************************************************** *************
*
P calc01 B export
D calc01 PI 9S 3
D in_wert01 9S 0 value
D in_wert02 9S 0 value
*
D out_wert S 9S 3
*
C eval out_wert = in_wert01 * in_wert02
C return out_wert
P E
************************************************** *************
*
P calc02 B export
D calc02 PI 9S 3
D in_wert01 9S 0 value
D in_wert02 9S 0 value
*
D out_wert S 9S 3
*
C eval out_wert = in_wert01 / in_wert02
C return out_wert
P E
************************************************** *************
Diese Source wandele ich dann mit CRTRPGMOD MODULE MYLIB/PR_TOOLS01) SRCFILE(MYLIB/QRPGLESRC) um.

In der Source MYLIB/QSRVSRC/PR_TOOLS01 führe ich dann die Sourcen auf, die
exportiert werden sollen:
STRPGMEXP
EXPORT SYMBOL(calc01)
EXPORT SYMBOL(calc02)
ENDPGMEXP

Das wird dann mit CRTSRVPGM SRVPGM(MYLIB/PR_TOOLS01) EXPORT(*SRCFILE) SRCFILE(MYLIB/QSRVSRC) umgewandelt.

Im Anschluss daran habe ich mir dann ein BIND-Verzeichnis erstellt, wo ich dann das Serviceprogramm PR_TOOLS01 hinzugefügt habe:
CRTBNDDIR MYLIB/PR_TOOLS01
ADDBNDDIRE BNDDIR(MYLIB/PR_TOOLS01) OBJ((PR_TOOLS01))

In dem jeweiligen RPG-Programm schreibe ich dann in die H-Bestimmungen BNDDIR('PR_TOOLS01'), so dass mir die Prozeduren dann im Programm zur Verfügung stehen.

Das funktioniert soweit, nur würde ich gerne wissen, ob dies ein halbwegs vernüftiger Weg ist, oder ob ich mir das Leben unnötig schwer mache?

Danke schonmal.