From d80972d19fc6b2383de33cecceb8cf0846a21157 Mon Sep 17 00:00:00 2001 From: Eckhard Gosch Date: Sun, 16 Aug 2026 15:11:07 +0200 Subject: [PATCH] =?UTF-8?q?Fehlendes=20include=20und=20Bind=20zugef=C3=BCg?= =?UTF-8?q?t?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- meddfnpr.rpgle | 31 +++++++++++++++++++++++++++++++ meddfnsrvb.bnd | 7 +++++++ 2 files changed, 38 insertions(+) create mode 100644 meddfnpr.rpgle create mode 100644 meddfnsrvb.bnd diff --git a/meddfnpr.rpgle b/meddfnpr.rpgle new file mode 100644 index 0000000..e0381c4 --- /dev/null +++ b/meddfnpr.rpgle @@ -0,0 +1,31 @@ +**FREE +//===================================================================== +// +// Project.....: MEDDFN +// +// Member......: MEDDFNPR +// +// Description.: Public prototypes for MEDDFN service procedures. +// +//===================================================================== + +dcl-pr MD_CreateMediaDefinition; + + MediaDefinition + likeds(MD_MediaDefinition_T) const; + +end-pr; + +dcl-pr MD_DeleteMediaDefinition; + + MediaDefinition + likeds(MD_MediaDefinition_T) const; + + end-pr; + + dcl-pr MD_RetrieveMediaDefinition; + + MediaDefinition + likeds(MD_MediaDefinition_T); + + end-pr; \ No newline at end of file diff --git a/meddfnsrvb.bnd b/meddfnsrvb.bnd new file mode 100644 index 0000000..d6c92f5 --- /dev/null +++ b/meddfnsrvb.bnd @@ -0,0 +1,7 @@ +STRPGMEXP PGMLVL(*CURRENT) + + EXPORT SYMBOL('MD_CREATEMEDIADEFINITION') + EXPORT SYMBOL('MD_DELETEMEDIADEFINITION') + EXPORT SYMBOL('MD_RETRIEVEMEDIADEFINITION') + +ENDPGMEXP \ No newline at end of file