From 01c1de5003cfa169da965947217a80960089edbe Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Sun, 16 Aug 2026 14:54:32 +0200
Subject: [PATCH] =?UTF-8?q?Libname=20auf=20Gosch1=20angepasst=20f=C3=BCr?=
 =?UTF-8?q?=20PUB400?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 meddfnap_h.rpgle |  2 +-
 meddfnbld.rpgle  |  4 ++--
 meddfnprs.rpgle  |  6 +++---
 meddfnsrv.rpgle  | 12 ++++++------
 meddfntstp.rpgle | 12 ++++++------
 5 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/meddfnap_h.rpgle b/meddfnap_h.rpgle
index 048727d..86f759f 100644
--- a/meddfnap_h.rpgle
+++ b/meddfnap_h.rpgle
@@ -89,7 +89,7 @@ end-ds;
 
 dcl-s MD_MessageFile
       char(20)
-      inz('MEDDFNMSG  GOSCH')
+      inz('MEDDFNMSG  GOSCH1')
       const;
 
 dcl-s MD_MessageTypeEscape
diff --git a/meddfnbld.rpgle b/meddfnbld.rpgle
index 29aaf00..4bbdd2b 100644
--- a/meddfnbld.rpgle
+++ b/meddfnbld.rpgle
@@ -36,8 +36,8 @@
 ctl-opt
    option(*srcstmt:*nodebugio) nomain ;
 
-/COPY GOSCH/MEDDFN,MEDDFN_H
-/COPY GOSCH/MEDDFN,MEDDFNAP_H
+/COPY GOSCH1/MEDDFN,MEDDFN_H
+/COPY GOSCH1/MEDDFN,MEDDFNAP_H
 
 
 //=====================================================================
diff --git a/meddfnprs.rpgle b/meddfnprs.rpgle
index 9ba742a..054b0f4 100644
--- a/meddfnprs.rpgle
+++ b/meddfnprs.rpgle
@@ -12,8 +12,8 @@
 ctl-opt
    option(*srcstmt:*nodebugio) nomain ;
 
-/COPY GOSCH/MEDDFN,MEDDFN_H
-/COPY GOSCH/MEDDFN,MEDDFNAP_H
+/COPY GOSCH1/MEDDFN,MEDDFN_H
+/COPY GOSCH1/MEDDFN,MEDDFNAP_H
 
 
 
@@ -85,7 +85,7 @@ dcl-proc MD_RetrieveMediaDefinition export;
 
    if ApiError.BytesAvailable > 0;
 
-   // zunächst nur Fehler zurückgeben/anzeigen
+   // zun�chst nur Fehler zur�ckgeben/anzeigen
 
   endif;
 
diff --git a/meddfnsrv.rpgle b/meddfnsrv.rpgle
index 38e91d4..7f298fa 100644
--- a/meddfnsrv.rpgle
+++ b/meddfnsrv.rpgle
@@ -6,11 +6,11 @@
 // Description...: Media Definition Service Procedures
 //
 // Serviceprogramm erstellen mit :
-// CRTSRVPGM SRVPGM(GOSCH/MEDDFNSRV)
-//           MODULE(GOSCH/MEDDFNSRV
-//                  GOSCH/MEDDFNBLD)
+// CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV)
+//           MODULE(GOSCH1/MEDDFNSRV
+//                  GOSCH1/MEDDFNBLD)
 //           EXPORT(*SRCFILE)
-//           SRCFILE(GOSCH/MEDDFN)
+//           SRCFILE(GOSCH1/MEDDFN)
 //           SRCMBR(MEDDFNSRVB)
 //           TGTRLS(*CURRENT)
 //           TEXT('MEDDFN Service Program')
@@ -28,8 +28,8 @@ ctl-opt
 //
 //=====================================================================
 
-/copy GOSCH/MEDDFN,MEDDFN_H
-/copy GOSCH/MEDDFN,MEDDFNAP_H
+/copy GOSCH1/MEDDFN,MEDDFN_H
+/copy GOSCH1/MEDDFN,MEDDFNAP_H
 
 
 //=====================================================================
diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle
index 4d5cfa1..857f9f2 100644
--- a/meddfntstp.rpgle
+++ b/meddfntstp.rpgle
@@ -5,9 +5,9 @@
 //
 // Description..: MEDDFN Builder Test Program
 // Erstellen mit :
-// CRTPGM PGM(GOSCH/MEDDFNTSTP)
-//        MODULE(GOSCH/MEDDFNTSTP)
-//        BNDSRVPGM(GOSCH/MEDDFNSRV)
+// CRTPGM PGM(GOSCH1/MEDDFNTSTP)
+//        MODULE(GOSCH1/MEDDFNTSTP)
+//        BNDSRVPGM(GOSCH1/MEDDFNSRV)
 //        ACTGRP(*NEW)
 //        TGTRLS(*CURRENT)
 //
@@ -21,8 +21,8 @@ ctl-opt
 //   actgrp(*new)
    option(*srcstmt:*nodebugio);
 
-/copy GOSCH/MEDDFN,MEDDFN_H
-/copy GOSCH/MEDDFN,MEDDFNPR
+/copy GOSCH1/MEDDFN,MEDDFN_H
+/copy GOSCH1/MEDDFN,MEDDFNPR
 
 dcl-ds MediaDefinition
    likeds(MD_MediaDefinition_T);
@@ -78,7 +78,7 @@ dcl-proc BuildTestDefinition;
    //---------------------------------------------------------------
 
    MediaDefinition.MediaDefinitionName = 'TEST0200X';
-   MediaDefinition.LibraryName         = 'GOSCH';
+   MediaDefinition.LibraryName         = 'GOSCH1';
    MediaDefinition.TextDescription     = 'Test MEDDFN';
 
    MediaDefinition.MaximumParallelResources = 2;