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;