Beispiel für ein vollständiges C-Teilprogramm

Beispiel eines ablauffähigen KDCS-Teilprogramms in der Programmiersprache C.
Das Programm gibt den Text "hello world !" und den Namen des logischen Terminals aus.

Programm mhello

#include <kcmac.h>
struct work {
       union  kc_paa call_pb;
       char   buffer[400];
      };
struct kc_ca {
       struct ca_hdr kopf;
       struct ca_rti rfld;
       char   kcprg[500];
      };
#define NB     spab->buffer
#define KBKOPF kb->kopf
#define KBRFLD kb->rfld
#define PB     spab->call_pb
void mhello ( struct kc_ca *kb, struct work *spab )
{
   /* KDCS interface initialisation */
   KDCS_SET( &PB, &KBKOPF, &KBRFLD );
   /* INIT - Call */
   KDCS_INIT( sizeof(struct kb->kcprg), sizeof(struct work) );
   /* MPUT-NT - Call   */
   strcpy ( NB, "hello world !\n\n" );
   KDCS_MPUTNT( NB, (short)strlen(NB), KDCS_SPACES,
                KDCS_SPACES, KCNODF );
   /* MPUT-NT - Call   */
   sprintf ( NB, "lterm = %.8s \n", KBKOPF.kclogter );
   KDCS_MPUTNT( NB, (short)strlen(NB), KDCS_SPACES,
                KDCS_SPACES, KCNODF );
   /* PEND-FI - Call   */
   KDCS_PENDFI();
}