proc_forms45

Content of usrxit.h

/*
NAME
     Definitions for IAP User Exits.
FUNCTION
     Should be included in GENXTB.C and IAPPRS.C.
NOTES
     See IAPPRS.C {Parse/Call IAP User Exit};
     and GENXT.C {Generate iapxtb[ ] table}.
OWNER
     Friend
DATE
     11/15/84
MODIFIED
      Markari 12/09/89 - Changes to allow forms and report writer to link together
      Markari 05/26/89 - Fold in Unix porting changes
      Fine      01/25/89 - TOUCH
      Rolle     01/14/88 - more XIT types; remove obsolete stuff
      Fine      12/30/87 - Fix preprocessor text
      Morse    09/09/87 - Add Ada exit call
*/

#ifndef extd

#ifdef vax11c
/* Defines for extd, extf, externdef */
# define extd           globalref            /* Use for DECLARING global data */
# define externdef    globaldef           /* Use for DEFINING global data    */
# define extf            extern              /* Use for declaring FUNCTIONS   */
# define VOID         void
#else
# define extd            extern              /* use for DECLARING global data */
# define externdef                            /* use for DEFINING global data */
# define extf            extern               /* use for declaring FUNCTIONS */
#endif

#ifdef unix
# define VOID void
#endif

#ifndef VOID
#define VOID int
#endif /* VOID */

#endif
#define SQLFORMS                   1
#define SQLREPORTWRITER    2

extd int iapprd;                                               /* Product currently running */

extd char iaprval[ ];                                        /* This is where IAP returns
                                                                         fields values from PUT */
struct exitr                                  /* Struct definition for exits */
{
            char          *addtwo;          /* Name of the user exit            */
            int             (*exfp) ();        /* Pointer to the exit routine       */
            int             extyp;              /* Type code for exit routine      */
#define XITCC1     1                    /* C (for existing exits)              */
#define XITCC       2                    /* C (call-by-reference)             */
#define XITCOB     3                    /* Cobol                                  */
#define XITFOR     4                    /* Fortran                                */
#define XITPLI      5                    /* PL/I                                    */
#define XITPAS     6                    /* Pascal                                 */
#define XITAda      7                   /* Ada                                     */
};

typedef struct exitr exitr;

/* Failure and Success return codes */

#ifdef    FATAL_ERR
#undef   FATAL_ERR
#endif
#define FATAL_ERR               535                 /* Use this on really bad errors */

#ifdef FAILURE
#undef FAILURE
#endif
#define FAILURE                  1403                 /* Use this on recoverable error */

#ifdef SUCCESS
#undef SUCCESS
#endif
#define SUCCESS                       0                   /* Use for success   */