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

erstes Mediafiel im Parser

Browse Source
This commit is contained in:
Eckhard Gosch
2026-08-22 16:25:16 +02:00
parent f2ae46c427
commit 2012610615
1 changed files with 246 additions and 229 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnprs.rpgle
+40 -23
View File
@@ -1,4 +1,4 @@
**FREE
**free
//========================================================================
//
// Media Definition Parser
@@ -18,8 +18,6 @@ ctl-opt
// /COPY GOSCH1/MEDDFN,MEDDFN_H
// /COPY GOSCH1/MEDDFN,MEDDFNAP_H
dcl-pr MD_ParseRetrieveBuffer;
ReceiverBuffer
@@ -28,7 +26,6 @@ dcl-pr MD_ParseRetrieveBuffer;
MediaDefinition
likeds(MD_MediaDefinition_T);
end-pr;
//=====================================================================
@@ -53,27 +50,28 @@ dcl-proc MD_ParseRetrieveBuffer;
MediaDefinition
likeds(MD_MediaDefinition_T);
end-pi;
dcl-ds Header
likeds(MD_Tape0200Header_T);
dcl-ds Device
likeds(MD_Tape0200DeviceDefinition_T);
dcl-ds MediaFile
likeds(MD_Tape0200MediaFileDefinition_T);
dcl-s MediaOffset int(10);
dcl-s DeviceOffset int(10);
dcl-s DeviceIndex int(10);
//---------------------------------------------------------------
// Initialize result
//---------------------------------------------------------------
clear MediaDefinition;
//---------------------------------------------------------------
// TAPE0200 Header
//---------------------------------------------------------------
@@ -84,7 +82,6 @@ dcl-proc MD_ParseRetrieveBuffer;
1 :
%size(Header));
//---------------------------------------------------------------
// Header -> Media Definition
//---------------------------------------------------------------
@@ -104,7 +101,6 @@ dcl-proc MD_ParseRetrieveBuffer;
MediaDefinition.SaveFormat =
Header.SaveFormat;
//---------------------------------------------------------------
// Device Definitions
//---------------------------------------------------------------
@@ -121,7 +117,6 @@ dcl-proc MD_ParseRetrieveBuffer;
DeviceOffset + 1 :
%size(Device));
//------------------------------------------------------------
// Device -> Media Definition
//------------------------------------------------------------
@@ -132,6 +127,40 @@ dcl-proc MD_ParseRetrieveBuffer;
MediaDefinition.Device(DeviceIndex).NumberOfMediaFiles =
Device.NumberOfMediaFileDefinitions;
//---------------------------------------------------------------
// First Media File
//---------------------------------------------------------------
if Device.NumberOfMediaFileDefinitions > 0;
MediaOffset =
Device.OffsetToFirstMediaFileDefinition;
MediaFile =
%subst(
ReceiverBuffer :
MediaOffset + 1 :
%size(MediaFile));
//------------------------------------------------------------
// Media File -> Media Definition
//------------------------------------------------------------
MediaDefinition.Device(DeviceIndex)
.MediaFile(1)
.SequenceNumber =
MediaFile.SequenceNumber;
MediaDefinition.Device(DeviceIndex)
.MediaFile(1)
.StartingPositionInFile =
MediaFile.StartingPositionInFile;
MediaDefinition.Device(DeviceIndex)
.MediaFile(1)
.NumberOfVolumeIdentifiers =
MediaFile.NumberOfVolumeIdentifiers;
endif;
//------------------------------------------------------------
// Next device
@@ -141,16 +170,10 @@ dcl-proc MD_ParseRetrieveBuffer;
DeviceOffset +=
Device.OffsetToNextDeviceDefinition;
endif;
endfor;
end-proc;
//=====================================================================
//
// MD_RetrieveMediaDefinition
@@ -165,10 +188,8 @@ dcl-proc MD_RetrieveMediaDefinition export;
MediaDefinition
likeds(MD_MediaDefinition_T);
end-pi;
dcl-ds QualifiedObject
likeds(MD_QualifiedObjectName_T);
@@ -190,7 +211,6 @@ dcl-proc MD_RetrieveMediaDefinition export;
QualifiedObject.LibraryName =
MediaDefinition.LibraryName;
//---------------------------------------------------------------
// Initialize receiver buffer and error structure
//---------------------------------------------------------------
@@ -220,10 +240,7 @@ dcl-proc MD_RetrieveMediaDefinition export;
if ApiError.BytesAvailable > 0;
// zun�chst nur Fehler zur�ckgeben/anzeigen
endif;
// MD_CheckApiError(ApiError);
end-proc;