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

Korrektur StartingPosition

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 14:39:22 +02:00
parent 58d00a9a87
commit 01f654e63c
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+4 -5
View File
@@ -763,7 +763,7 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1)
.MediaFile(1)
.StartingPositionInFile =
*ALL'0';
'START-DEVICE1-MEDIAFILE1';
MediaDefinition.Device(1)
.MediaFile(1)
@@ -795,7 +795,7 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1)
.MediaFile(2)
.StartingPositionInFile =
*ALL'1';
'START-DEVICE1-MEDIAFILE2';
MediaDefinition.Device(1)
.MediaFile(2)
@@ -838,7 +838,7 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(2)
.MediaFile(1)
.StartingPositionInFile =
*ALL'0';
'START-DEVICE2-MEDIAFILE1';
MediaDefinition.Device(2)
.MediaFile(1)
@@ -870,7 +870,7 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(2)
.MediaFile(2)
.StartingPositionInFile =
*ALL'1';
'START-DEVICE2-MEDIAFILE2';
MediaDefinition.Device(2)
.MediaFile(2)
@@ -889,5 +889,4 @@ dcl-proc BuildTestDefinition;
.VolumeIdentifier =
'DAK092';
end-proc;