#include <ssdef.h>
#include <descrip.h>
#include <starlet.h>

#include <stdio.h>
#include <string.h>

unsigned int setprn ( char *a_prcnam )
{

    /* Local variables. */

    /* Structs. */
    struct dsc$descriptor_s vl_prcnam;

    /* Longwords. */
    unsigned int vl_status = ( unsigned int ) SS$_NORMAL;

    /* Code from here. */

    vl_prcnam.dsc$w_length = ( unsigned short int ) strlen ( a_prcnam );
    vl_prcnam.dsc$b_dtype = ( unsigned char ) DSC$K_DTYPE_T;
    vl_prcnam.dsc$b_class = ( unsigned char ) DSC$K_CLASS_S;
    vl_prcnam.dsc$a_pointer = a_prcnam;

    vl_status = sys$setprn ( &vl_prcnam );

    return ( vl_status );

}

int main ( int argc, char *argv[] )
{
    unsigned int vl_status = 1;
    if ( argc == 2 )
    {
        vl_status = setprn ( argv[1] );
    }
    else
    {
        printf ( "\nUsage: %s prcnam", argv[0] );
    }
    return ( vl_status );
}