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

Libname auf Gosch1 angepasst für PUB400

Browse Source
This commit is contained in:
Eckhard Gosch
2026-08-16 14:54:32 +02:00
parent a227396918
commit 01c1de5003
5 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnap_h.rpgle
+1 -1
View File
@@ -89,7 +89,7 @@ end-ds;
dcl-s MD_MessageFile dcl-s MD_MessageFile
char(20) char(20)
inz('MEDDFNMSG GOSCH') inz('MEDDFNMSG GOSCH1')
const; const;
dcl-s MD_MessageTypeEscape dcl-s MD_MessageTypeEscape
meddfnbld.rpgle
+2 -2
View File
@@ -36,8 +36,8 @@
ctl-opt ctl-opt
option(*srcstmt:*nodebugio) nomain ; option(*srcstmt:*nodebugio) nomain ;
/COPY GOSCH/MEDDFN,MEDDFN_H /COPY GOSCH1/MEDDFN,MEDDFN_H
/COPY GOSCH/MEDDFN,MEDDFNAP_H /COPY GOSCH1/MEDDFN,MEDDFNAP_H
//===================================================================== //=====================================================================
meddfnprs.rpgle
+3 -3
View File
@@ -12,8 +12,8 @@
ctl-opt ctl-opt
option(*srcstmt:*nodebugio) nomain ; option(*srcstmt:*nodebugio) nomain ;
/COPY GOSCH/MEDDFN,MEDDFN_H /COPY GOSCH1/MEDDFN,MEDDFN_H
/COPY GOSCH/MEDDFN,MEDDFNAP_H /COPY GOSCH1/MEDDFN,MEDDFNAP_H
@@ -85,7 +85,7 @@ dcl-proc MD_RetrieveMediaDefinition export;
if ApiError.BytesAvailable > 0; if ApiError.BytesAvailable > 0;
// zunächst nur Fehler zurückgeben/anzeigen // zun�chst nur Fehler zur�ckgeben/anzeigen
endif; endif;
meddfnsrv.rpgle
+6 -6
View File
@@ -6,11 +6,11 @@
// Description...: Media Definition Service Procedures // Description...: Media Definition Service Procedures
// //
// Serviceprogramm erstellen mit : // Serviceprogramm erstellen mit :
// CRTSRVPGM SRVPGM(GOSCH/MEDDFNSRV) // CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV)
// MODULE(GOSCH/MEDDFNSRV // MODULE(GOSCH1/MEDDFNSRV
// GOSCH/MEDDFNBLD) // GOSCH1/MEDDFNBLD)
// EXPORT(*SRCFILE) // EXPORT(*SRCFILE)
// SRCFILE(GOSCH/MEDDFN) // SRCFILE(GOSCH1/MEDDFN)
// SRCMBR(MEDDFNSRVB) // SRCMBR(MEDDFNSRVB)
// TGTRLS(*CURRENT) // TGTRLS(*CURRENT)
// TEXT('MEDDFN Service Program') // TEXT('MEDDFN Service Program')
@@ -28,8 +28,8 @@ ctl-opt
// //
//===================================================================== //=====================================================================
/copy GOSCH/MEDDFN,MEDDFN_H /copy GOSCH1/MEDDFN,MEDDFN_H
/copy GOSCH/MEDDFN,MEDDFNAP_H /copy GOSCH1/MEDDFN,MEDDFNAP_H
//===================================================================== //=====================================================================
meddfntstp.rpgle
+6 -6
View File
@@ -5,9 +5,9 @@
// //
// Description..: MEDDFN Builder Test Program // Description..: MEDDFN Builder Test Program
// Erstellen mit : // Erstellen mit :
// CRTPGM PGM(GOSCH/MEDDFNTSTP) // CRTPGM PGM(GOSCH1/MEDDFNTSTP)
// MODULE(GOSCH/MEDDFNTSTP) // MODULE(GOSCH1/MEDDFNTSTP)
// BNDSRVPGM(GOSCH/MEDDFNSRV) // BNDSRVPGM(GOSCH1/MEDDFNSRV)
// ACTGRP(*NEW) // ACTGRP(*NEW)
// TGTRLS(*CURRENT) // TGTRLS(*CURRENT)
// //
@@ -21,8 +21,8 @@ ctl-opt
// actgrp(*new) // actgrp(*new)
option(*srcstmt:*nodebugio); option(*srcstmt:*nodebugio);
/copy GOSCH/MEDDFN,MEDDFN_H /copy GOSCH1/MEDDFN,MEDDFN_H
/copy GOSCH/MEDDFN,MEDDFNPR /copy GOSCH1/MEDDFN,MEDDFNPR
dcl-ds MediaDefinition dcl-ds MediaDefinition
likeds(MD_MediaDefinition_T); likeds(MD_MediaDefinition_T);
@@ -78,7 +78,7 @@ dcl-proc BuildTestDefinition;
//--------------------------------------------------------------- //---------------------------------------------------------------
MediaDefinition.MediaDefinitionName = 'TEST0200X'; MediaDefinition.MediaDefinitionName = 'TEST0200X';
MediaDefinition.LibraryName = 'GOSCH'; MediaDefinition.LibraryName = 'GOSCH1';
MediaDefinition.TextDescription = 'Test MEDDFN'; MediaDefinition.TextDescription = 'Test MEDDFN';
MediaDefinition.MaximumParallelResources = 2; MediaDefinition.MaximumParallelResources = 2;