Neue testfälle für TAPE0200

2026-09-15 13:40:52 +02:00
parent f075081ec5
commit 44f14e3e98
3 changed files with 394 additions and 84 deletions
@@ -68,6 +68,9 @@ dcl-pr MD_ParseRetrieveBuffer;
   MediaDefinition
      likeds(MD_MediaDefinition_T);

+   Error
+      likeds(MD_Error_T);
+
 end-pr;


@@ -555,7 +558,18 @@ dcl-proc MD_RetrieveMediaDefinition export;

   MD_ParseRetrieveBuffer(
      Receiver.Data :
-      MediaDefinition);
+      MediaDefinition :
+      Error);
+
+   if Error.HasError;
+
+      MD_SendEscape(
+         Error.MessageID :
+         Error.MessageData);
+
+      return;
+
+   endif;

 end-proc;