ecki/MEDDFN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Neue interne Parser Schnitstelle

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-15 15:30:23 +02:00
parent 3fa1a86dfd
commit 2e5461a8ae
3 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnprs.rpgle
+6 -5
View File
@@ -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