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

Erster Fehler Test

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-13 17:57:41 +02:00
parent f4bebce326
commit b4e5e863b3
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnsrv.rpgle
+4 -5
View File
@@ -6,17 +6,16 @@
// Description...: Media Definition Service Procedures // Description...: Media Definition Service Procedures
// //
// Serviceprogramm erstellen mit : // Serviceprogramm erstellen mit :
//
// CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV) // CRTSRVPGM SRVPGM(GOSCH1/MEDDFNSRV)
// MODULE(GOSCH1/MEDDFNSRV // MODULE(GOSCH1/MEDDFNSRV
// GOSCH1/MEDDFNBLD // GOSCH1/MEEDFNPRS
// GOSCH1/MEDDFNPRS) // GOSCH1/MEDDFNBLD)
// EXPORT(*SRCFILE) // EXPORT(*SRCFILE)
// SRCFILE(GOSCH1/MEDDFN) // SRCFILE(GOSCH1/MEDDFN)
// SRCMBR(MEDDFNSRVB) // SRCMBR(MEDDFNSRVB)
// TGTRLS(*CURRENT) // TGTRLS(*CURRENT)
// TEXT('MEDDFN Service Program') // TEXT('MEDDFN Service Program')
/ //
//===================================================================== //=====================================================================
ctl-opt ctl-opt
@@ -974,7 +973,7 @@ dcl-proc MD_CheckApiError;
MD_SetError( MD_SetError(
Error : Error :
ApiError.MessageId : ApiError.MessageId :
''); %trimr(ApiError.MessageData));
end-proc; end-proc;