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

Compare commits

base: ecki/MEDDFN:ba09b3da88f67a4e14d78d395243942ff0d19fa2
Branches Tags
ecki/MEDDFN:main
...
compare: ecki/MEDDFN:01c1de5003cfa169da965947217a80960089edbe
Branches Tags
ecki/MEDDFN:main

2 Commits
ba09b3da88 ... 01c1de5003

Author SHA1 Message Date
admin 01c1de5003 Libname auf Gosch1 angepasst für PUB400 2026-08-16 14:54:32 +02:00
admin a227396918 Lib Name angepasst 2026-08-16 14:54:02 +02:00
6 changed files with 18 additions and 26 deletions
Expand all files Collapse all files
MEDDFN.code-workspace
-8
View File
@@ -1,8 +0,0 @@
{
"folders": [
{
"path": "."
}
],
"settings": {}
}
meddfnap_h.rpgle
+1 -1
View File
@@ -89,7 +89,7 @@ end-ds;
dcl-s MD_MessageFile
char(20)
inz('MEDDFNMSG GOSCH')
inz('MEDDFNMSG GOSCH1')
const;
dcl-s MD_MessageTypeEscape
meddfnbld.rpgle
+2 -2
View File
@@ -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
//=====================================================================
meddfnprs.rpgle
+3 -3
View File
@@ -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;
meddfnsrv.rpgle
+6 -6
View File
@@ -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
//=====================================================================
meddfntstp.rpgle
+6 -6
View File
@@ -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;