Zitat Zitat von kitvb1 Beitrag anzeigen
Here's the link - Think400 - iSeries (AS/400) API interfaces

Option available to return the *CURRENT email address.

I have (and would if I were you, I would as well) changed the following:
Code:
//   MODIFICATION HISTORY                                                  
//   ====================                                                  
//   DATE    NR  BY/REASON                                                 
//   ----    --  ---------                                                 
// 21.09.09 001  Deon A von Blerk                                          
//               Use a copybook for the parms                              
 
// 14.12.10 002  Deon A von Blerk                                          
// DE1/1000147   If requested do not return the domain part
Danke für die Antwort.
Ich glaube das ist es was ich brauche.
Allerdings bekomme ich eine Fehlermeldung bei der Erstellung:
CRTSRVPGM SRVPGM( CBX005 ) MODULE( CBX005 ) ACTGRP( QSRVPGM )

Fehlermeldung:
CRTSRVPGM SRVPGM(CBX005) MODULE(CBX005) ACTGRP(QSRVPGM)
Keine Module für angegebenen Wert CBX005 in Bibliothek *LIBL gefunden.
Serviceprogramm CBX005 nicht erstellt.

Die Datei befindet sich in der QGPL und hat in der Tat keinen Eintrag. Woher auch?

Ich bin "noch" nicht der ILE-Profi und komme nicht weiter.