Erster Fehler Test

2026-09-13 17:57:41 +02:00
parent f4bebce326
commit b4e5e863b3
1 changed files with 11 additions and 12 deletions
@@ -6,17 +6,16 @@
 // Description...: Media Definition Service Procedures
 //
 // Serviceprogramm erstellen mit :
-//   
 // CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV)
 //           MODULE(GOSCH1/MEDDFNSRV
-//                 GOSCH1/MEDDFNBLD
-//                 GOSCH1/MEDDFNPRS)
+//                  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;