diff --git a/meddfnprs.rpgle b/meddfnprs.rpgle
index f4f314b..9afba68 100644
--- a/meddfnprs.rpgle
+++ b/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;
\ No newline at end of file
diff --git a/meddfnsrv.rpgle b/meddfnsrv.rpgle
index 83b6f8c..8f67fa5 100644
--- a/meddfnsrv.rpgle
+++ b/meddfnsrv.rpgle
@@ -6,15 +6,17 @@
 // Description...: Media Definition Service Procedures
 //
 // Serviceprogramm erstellen mit :
-// CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV)
-//           MODULE(GOSCH1/MEDDFNSRV
-//                  GOSCH1/MEDDFNBLD)
-//           EXPORT(*SRCFILE)
-//           SRCFILE(GOSCH1/MEDDFN)
-//           SRCMBR(MEDDFNSRVB)
-//           TGTRLS(*CURRENT)
-//           TEXT('MEDDFN Service Program')
-//
+//   
+//  CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV)
+//          MODULE(GOSCH1/MEDDFNSRV
+//                 GOSCH1/MEDDFNBLD
+//                 GOSCH1/MEDDFNPRS)
+//          EXPORT(*SRCFILE)
+//          SRCFILE(GOSCH1/MEDDFN)
+//          SRCMBR(MEDDFNSRVB)
+//          TGTRLS(*CURRENT)
+//          TEXT('MEDDFN Service Program')
+/
 //=====================================================================
 
 ctl-opt