/*
     *   Illustrate the different mrd_str*(3mrd) functions.  For each
     *   case a code from one the mrd_message.h is selected and the
     *   resulting string printed.  The command doesn't require
     *   any arguments.
     */
    #ifndef   lint
    static   char   SccsId[] = "@(#)mrd_string.c   1.2 3/5/97" ;
    #endif

    #include <stdio.h>
    #include <stdlib.h>
    #include <mrd_common.h>
    #include <mrd_message.h>

    main(int argc, char *argv[])
    {
       /*
        *   This happens to be an obscure VMS system service error code.
        */
       int   status = MRD_STATUS_UNASEFC ;
       /*
        *   The code for the TL820 Pass-through mechanism.
        */
       int   word = MRD_ELEMENT_PASS ;
       /*
        *   The codes for when a TL820 doesn't a have a bin-pack
        *   installed for a certain range of slots.
        */
       char   asc  = 0x80 ;
       char   ascq = 0x2 ;
       /*
        *   Buffer for the message.
        */
       char   buffer[BUFSIZ] ;

       printf("Status:    %s\n", mrd_strstatus(status)) ;
       printf("Word:      %s\n", mrd_strelement(word)) ;
       printf("Exception: %s\n", mrd_strexcept(asc,ascq,buffer,BUFSIZ));

       return 0 ;
    }