/* Demonstrate translation of a "UNIX" name to OpenVMS  */
        /* form, define a foreign command, and pass the name as */
        /* the argument.                                        */

        #include <unixlib.h>
        #include <stdio.h>

        int main(int argc, char *argv[])
        {
            char *ptr;                      /* translation result */

            ptr = decc$translate_vms( argv[1] );

            if ((int) ptr == 0 || (int) ptr == -1)

                printf( "could not translate %s\n", argv[1]);
            else
                printf( "%s is translated to %s\n", argv[1], ptr );
        }