Beispiel für ein Exit-Programm vom Typ 1 (RPGLE)

Das Beispielprogramm zeigt, wie ein Exit-Programm in CVTSPL benutzt werden kann, um den durch diesen Befehl erzeugten Datenstrom-Dateien sinnvollere Namen zu geben. Es wird in CVTSPL mit folgender Syntax angegeben:

EXITPGM(*LIBL/EXITREN *TYPE1)

Es wird unterstellt, dass die Option EXITPGMPRM(*POS) oder EXITPGMPRM(*KEY) verwendet wurde, um aus dem Bericht eine Information zu extrahieren, die dem Exit-Programm an neunter Stelle im Parameter EXITPGMPRM übergeben wird. Bei dieser Information kann es sich z. B. um Kundennamen, Bestellnummer, Rechnungsnummer o. a. handeln.

 EXITPGMPRM(*POS)
 EXITPGMPOS((*ALL 10 60 10 *ROWCOL))

Die Datenstrom-Datei wird umbenannt. Aus dem durch CVTSPL gegebenen Namen wird der Name nnnnnnn.pdf, wobei nnnnnnn die aus dem Bericht extrahierte Nummer ist, welche als Parameter übergeben wurde. Die Quelldatei des folgenden Beispielprogramms finden Sie auch in der i-effect-Arbeitsbibliothek in der QRPGLESRC-Datei.

Beispiel-für-ein-Exit-Programm-vom-Typ-1-RPGLE.pdf