From 01f654e63c5b0ab38ac8b03b83afc994e4a94107 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Tue, 8 Sep 2026 14:39:22 +0200
Subject: [PATCH] Korrektur StartingPosition

---
 meddfntstp.rpgle | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle
index 7f6b7f5..8642a8e 100644
--- a/meddfntstp.rpgle
+++ b/meddfntstp.rpgle
@@ -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;
\ No newline at end of file