/********************************************************************************************************************************/
/* Created: 15-MAR-2001 23:38:05 by OpenVMS SDL EV1-33     */
/* Source:  15-MAR-2001 23:34:16 _$11$DUA933:[BUILD.SDL]STARDEFMP.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE $PCCDEF ***/
#ifndef __PCCDEF_LOADED
#define __PCCDEF_LOADED 1
 
#pragma nostandard
 
#ifdef __cplusplus
    extern "C" {
#define __unknown_params ...
#else
#define __unknown_params
#endif
 
#if !defined(__VAXC) && !defined(VAXC)
#define __struct struct
#define __union union
#else
#define __struct variant_struct
#define __union variant_union
#endif
 
/*+                                                                         */
/* PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS                             */
/*--                                                                        */
#define PCC$M_CHAR 0x1F
#define PCC$M_EIGHTBIT 0x40
#define PCC$M_SINGLE 0x80
#define PCC$M_LINECNT 0x7F
#define PCC$_FTN_SINGLE 32              /* SINGLE SPACE                     */
#define PCC$_FTN_DOUBLE 48              /* DOUBLE SPACE                     */
#define PCC$_FTN_PAGE 49                /* PAGE SPACE                       */
#define PCC$_FTN_OVRPRT 43              /* OVER PRINT                       */
#define PCC$_FTN_PROMPT 36              /* PROMPT                           */
struct pccdef {
    unsigned short int pcc$w_fortran;   /* FORTRAN FIELD                    */
    __union  {                          /* PREFIX FIELD                     */
        unsigned char pcc$b_prefix;
        __struct  {
            unsigned pccdef$$_bits0 : 1;
            unsigned pcc$v_fill_47 : 7;
            } pcc$r_prefix_bits0;
        __struct  {
            unsigned pccdef$$_bits1 : 1;
            unsigned pcc$v_fill_48 : 7;
            } pcc$r_prefix_bits1;
        } pcc$r_prefix_overlay;
    __union  {
        unsigned char pcc$b_postfix;    /* POSTFIX FIELD                    */
        __struct  {
            unsigned pcc$v_char : 5;    /* CHARACTER FIELD                  */
            unsigned pccdef$$_fill_1 : 1;
            unsigned pcc$v_eightbit : 1; /* EIGHTBIT CHARACTER SET          */
            unsigned pcc$v_single : 1;  /* SINGLE CHARACTER                 */
            } pcc$r_postfix_bits0;
        __struct  {
            unsigned pcc$v_linecnt : 7; /* LINE COUNT FOR NEWLINES          */
            unsigned pcc$v_fill_49 : 1;
            } pcc$r_postfix_bits1;
/* FORTRAN CONSTANTS                                                        */
        } pcc$r_postfix_overlay;
    } ;
 
#if !defined(__VAXC) && !defined(VAXC)
#define pcc$b_prefix pcc$r_prefix_overlay.pcc$b_prefix
#define pcc$b_postfix pcc$r_postfix_overlay.pcc$b_postfix
#define pcc$v_char pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_char
#define pcc$v_eightbit pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_eightbit
#define pcc$v_single pcc$r_postfix_overlay.pcc$r_postfix_bits0.pcc$v_single
#define pcc$v_linecnt pcc$r_postfix_overlay.pcc$r_postfix_bits1.pcc$v_linecnt
#endif		/* #if !defined(__VAXC) && !defined(VAXC) */
 
 
#ifdef __cplusplus
    }
#endif
#pragma standard
 
#endif /* __PCCDEF_LOADED */