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)
-//          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;