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

Debug Output in meddfnhtst

Browse Source
This commit is contained in:
Eckhard Gosch
2026-10-06 15:02:47 +02:00
parent 0fd1de8826
commit eedba63fe2
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnhtst.rpgle
+12
View File
@@ -216,11 +216,23 @@ MediaDefinition.Replace =
clear Error; clear Error;
dsply 'MEDDFNHTST START';
MD_CreateMediaDefinition( MD_CreateMediaDefinition(
MediaDefinition : MediaDefinition :
Error); Error);
if Error.HasError;
dsply ('ERROR ' + Error.MessageID);
else;
dsply 'MEDDFN CREATE OK';
endif;
//===================================================================== //=====================================================================
// //
// End // End