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

MEDDFNTEST test von StartingPositionInFile

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 12:36:53 +02:00
parent 192e94fb2c
commit ef920ea6e1
1 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+30
View File
@@ -283,6 +283,21 @@ else;
endif; endif;
if MediaDefinition.Device(1)
.MediaFile(1)
.StartingPositionInFile =
OriginalDefinition.Device(1)
.MediaFile(1)
.StartingPositionInFile;
dsply 'PASS Device 1 StartingPositionInFile';
else;
dsply 'FAIL Device 1 StartingPositionInFile';
endif;
if MediaDefinition.Device(1) if MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
@@ -376,6 +391,21 @@ else;
endif; endif;
if MediaDefinition.Device(2)
.MediaFile(1)
.StartingPositionInFile =
OriginalDefinition.Device(2)
.MediaFile(1)
.StartingPositionInFile;
dsply 'PASS Device 2 StartingPositionInFile';
else;
dsply 'FAIL Device 2 StartingPositionInFile';
endif;
if MediaDefinition.Device(2) if MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)