Fixed-length decimal data

PLIPROG: PROC OPTIONS(MAIN, REENTRANT);
    DCL CFUNC EXTERNAL ENTRY
      (FIXED DEC(5,0));
    DCL ARG FIXED DEC(5,0);
    DCL A FIXED DEC(5);
    ARG = 10;
    A = CFUNC(ARG);
END;
 

#include <decimal.h>
#pragma linkage (CFUNC,PLI)

void CFUNC(decimal(5,0));

void CFUNC( decimal(5,0) parm ) {

  if (parm==10d)
    printf("Value is good\n");
  prinf("The parm is %D(5,0)\n",parm);
}