Aufräumen doppelte definition

2026-09-13 17:04:38 +02:00
parent feaaa1b845
commit f4bebce326
2 changed files with 12 additions and 100 deletions
@@ -49,7 +49,7 @@ end-pr;
 //
 //=====================================================================

-dcl-proc MD_ParseRetrieveBuffer;
+dcl-proc MD_ParseRetrieveBuffer  export;

   dcl-pi *n;

@@ -294,93 +294,3 @@ dcl-proc MD_ParseRetrieveBuffer;

 end-proc;

-
-//=====================================================================
-//
-// MD_RetrieveMediaDefinition
-//
-// Retrieves a TAPE0200 media definition from IBM i.
-//
-//=====================================================================
-
-dcl-proc MD_RetrieveMediaDefinition export;
-
-   dcl-pi *n;
-
-      MediaDefinition
-         likeds(MD_MediaDefinition_T);
-
-   end-pi;
-
-
-   dcl-ds QualifiedObject
-      likeds(MD_QualifiedObjectName_T);
-
-   dcl-ds Receiver
-      likeds(MD_ApiReceiverBuffer_T);
-
-   dcl-ds ApiError
-      likeds(MD_APIError_T);
-
-   dcl-s ReceiverLength
-      int(10);
-
-
-   //==================================================================
-   // Qualified media definition name
-   //==================================================================
-
-   QualifiedObject.ObjectName =
-      MediaDefinition.MediaDefinitionName;
-
-   QualifiedObject.LibraryName =
-      MediaDefinition.LibraryName;
-
-
-   //==================================================================
-   // Initialize receiver buffer and error structure
-   //==================================================================
-
-   clear Receiver;
-   clear ApiError;
-
-   ApiError.BytesProvided =
-      %size(ApiError);
-
-   ReceiverLength =
-      %size(Receiver.Data);
-
-
-   //==================================================================
-   // Retrieve TAPE0200 definition
-   //==================================================================
-
-   QSRRTVMD(
-      QualifiedObject :
-      Receiver.Data :
-      ReceiverLength :
-      'TAPE0200' :
-      ApiError);
-
-
-   //==================================================================
-   // Check API error
-   //==================================================================
-
-   if ApiError.BytesAvailable > 0;
-
-      // API error handling will be completed separately.
-
-   endif;
-
-
-   //==================================================================
-   // Parse retrieved buffer
-   //==================================================================
-
-   MD_ParseRetrieveBuffer(
-      Receiver.Data :
-      MediaDefinition);
-
-
-end-proc;