diff --git a/meddfnsrv.rpgle b/meddfnsrv.rpgle index 8f67fa5..705cf7f 100644 --- a/meddfnsrv.rpgle +++ b/meddfnsrv.rpgle @@ -6,17 +6,16 @@ // Description...: Media Definition Service Procedures // // Serviceprogramm erstellen mit : -// -// CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV) -// MODULE(GOSCH1/MEDDFNSRV -// GOSCH1/MEDDFNBLD -// GOSCH1/MEDDFNPRS) -// EXPORT(*SRCFILE) -// SRCFILE(GOSCH1/MEDDFN) -// SRCMBR(MEDDFNSRVB) -// TGTRLS(*CURRENT) -// TEXT('MEDDFN Service Program') -/ +// CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV) +// MODULE(GOSCH1/MEDDFNSRV +// GOSCH1/MEEDFNPRS +// GOSCH1/MEDDFNBLD) +// EXPORT(*SRCFILE) +// SRCFILE(GOSCH1/MEDDFN) +// SRCMBR(MEDDFNSRVB) +// TGTRLS(*CURRENT) +// TEXT('MEDDFN Service Program') +// //===================================================================== ctl-opt @@ -974,7 +973,7 @@ dcl-proc MD_CheckApiError; MD_SetError( Error : ApiError.MessageId : - ''); + %trimr(ApiError.MessageData)); end-proc;