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

erstes Volume im parser eingebaut

Browse Source
This commit is contained in:
Eckhard Gosch
2026-08-22 16:50:15 +02:00
parent 7a17c65712
commit 714662d212
2 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnbld.rpgle
+6 -6
View File
@@ -151,7 +151,7 @@ dcl-proc MD_BuildCreateBuffer export;
MediaDefinition); MediaDefinition);
for DeviceIndex = 1 to MediaDefinition.NumberOfDevices; for DeviceIndex = 1 to MediaDefinition.NumberOfDevices;
MD_BuildTape0200Device( MD_BuildTape0200Device(
@@ -520,20 +520,20 @@ dcl-proc MD_BuildTape0200Media;
if MediaIndex < MediaDevice.NumberOfMediaFiles; if MediaIndex < MediaDevice.NumberOfMediaFiles;
Media0200.OffsetToNextMediaFileDefinition = Media0200.OffsetToNextMediaFileDefinition =
BuilderContext.BufferLength BuilderContext.BufferLength
+ %size(MD_Tape0200MediaFileDefinition_T) + %size(MD_Tape0200MediaFileDefinition_T)
+ (MD_AlignLength( + (MD_AlignLength(
MediaFile.NumberOfVolumeIdentifiers MediaFile.NumberOfVolumeIdentifiers
* MD_VOLUME_ID_LENGTH)); * MD_VOLUME_ID_LENGTH));
else; else;
Media0200.OffsetToNextMediaFileDefinition = 0; Media0200.OffsetToNextMediaFileDefinition = 0;
endif; endif;
//--------------------------------------------------------------- //---------------------------------------------------------------
meddfntstp.rpgle
+16 -16
View File
@@ -86,35 +86,35 @@ dcl-proc BuildTestDefinition;
MediaDefinition.TextDescription = 'Test MEDDFN'; MediaDefinition.TextDescription = 'Test MEDDFN';
MediaDefinition.MaximumParallelResources = 2; MediaDefinition.MaximumParallelResources = 2;
MediaDefinition.MinimumParallelResources = 2; MediaDefinition.MinimumParallelResources = 2;
MediaDefinition.DeviceAllocation = MD_DeviceAllocateAll; MediaDefinition.DeviceAllocation = MD_DeviceAllocateAll;
MediaDefinition.SaveFormat = MD_SaveFormatParallel; MediaDefinition.SaveFormat = MD_SaveFormatParallel;
MediaDefinition.NumberOfDevices = 2; MediaDefinition.NumberOfDevices = 2;
//--------------------------------------------------------------- //---------------------------------------------------------------
// Device 1 / Resource 1 // Device 1 / Resource 1
//--------------------------------------------------------------- //---------------------------------------------------------------
MediaDefinition.Device(1).DeviceName = 'TAPMLBBRMS'; MediaDefinition.Device(1).DeviceName = 'TAPMLBBRMS';
MediaDefinition.Device(1).NumberOfMediaFiles = 1; MediaDefinition.Device(1).NumberOfMediaFiles = 1;
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.SequenceNumber = 0; .SequenceNumber = 0;
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.StartingPositionInFile = *ALL'0'; .StartingPositionInFile = *ALL'0';
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.NumberOfVolumeIdentifiers = 1; .NumberOfVolumeIdentifiers = 1;
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(1) .VolumeIdentifier(1)
.VolumeIdentifier = 'DAK066'; .VolumeIdentifier = 'DAK066';
@@ -124,23 +124,23 @@ MediaDefinition.Device(1)
// Device 2 / Resource 2 // Device 2 / Resource 2
//--------------------------------------------------------------- //---------------------------------------------------------------
MediaDefinition.Device(2).DeviceName = 'TAPMLBBRMS'; MediaDefinition.Device(2).DeviceName = 'TAPMLBBRMS';
MediaDefinition.Device(2).NumberOfMediaFiles = 1; MediaDefinition.Device(2).NumberOfMediaFiles = 1;
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.SequenceNumber = 0; .SequenceNumber = 0;
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.StartingPositionInFile = *ALL'0'; .StartingPositionInFile = *ALL'0';
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.NumberOfVolumeIdentifiers = 1; .NumberOfVolumeIdentifiers = 1;
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(1) .VolumeIdentifier(1)
.VolumeIdentifier = 'DAK079'; .VolumeIdentifier = 'DAK079';