Aufräumen doppelte definition

meddfnprs.rpgle

@@ -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;

meddfnsrv.rpgle

@@ -6,15 +6,17 @@
 // Description...: Media Definition Service Procedures
 //
 // Serviceprogramm erstellen mit :
+//   
 //  CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV)
 //          MODULE(GOSCH1/MEDDFNSRV
-//                  GOSCH1/MEDDFNBLD)
+//                 GOSCH1/MEDDFNBLD
+//                 GOSCH1/MEDDFNPRS)
 //          EXPORT(*SRCFILE)
 //          SRCFILE(GOSCH1/MEDDFN)
 //          SRCMBR(MEDDFNSRVB)
 //          TGTRLS(*CURRENT)
 //          TEXT('MEDDFN Service Program')
-//
+/
 //=====================================================================
 
 ctl-opt