Neue interne Parser Schnitstelle

meddfnprs.rpgle

@@ -28,6 +28,9 @@ dcl-pr MD_ParseRetrieveBuffer;
       char(32767) const
       options(*varsize);
 
+   ReceiverLength
+      int(10) const;
+
    MediaDefinition
       likeds(MD_MediaDefinition_T);
 
@@ -62,6 +65,9 @@ dcl-proc MD_ParseRetrieveBuffer export;
          char(32767) const
          options(*varsize);
 
+      ReceiverLength
+         int(10) const;
+
       MediaDefinition
          likeds(MD_MediaDefinition_T);
 
@@ -89,9 +95,6 @@ dcl-proc MD_ParseRetrieveBuffer export;
    // Working variables
    //==================================================================
 
-   dcl-s ReceiverLength
-      int(10);
-
    dcl-s DeviceOffset
       int(10);
 
@@ -121,8 +124,6 @@ dcl-proc MD_ParseRetrieveBuffer export;
    clear MediaDefinition;
    clear Error;
 
-   ReceiverLength = %len(ReceiverBuffer);
-
 
    //==================================================================
    // Receiver buffer

meddfnsrv.rpgle

@@ -18,6 +18,7 @@
 //
 //=====================================================================
 
+
 ctl-opt
    option(*srcstmt:*nodebugio)
    nomain;
@@ -558,6 +559,7 @@ dcl-proc MD_RetrieveMediaDefinition export;
 
    MD_ParseRetrieveBuffer(
       Receiver.Data :
+      ApiReceiverLength :
       MediaDefinition :
       Error);
 

meddfntstx.rpgle

@@ -16,11 +16,11 @@
 //           TGTRLS(*CURRENT)
 //
 //  CRTPGM PGM(GOSCH1/MEDDFNTSTX)                           
-//        MODULE(GOSCH1/MEDDFNTSTX)
+//        MODULE(GOSCH1/MEDDFNTSTX GOSCH1/MEDDFNPRS)       
-//        MODULE(GOSCH1/MEDDFNPRS)
 //        ACTGRP(*NEW)                                     
 //        TGTRLS(*CURRENT)                                 
 // 
+//
 //=====================================================================
 
 ctl-opt