/*-------------------------------------------------------------------+
| COPYRIGHT SAS INSTITUTE INC., 1990,SAS CAMPUS DRIVE, CARY, NC 27513|
|                                                                    |
|                                                                    |
|                      S A S / C   S A M P L E                       |
|                                                                    |
|         NAME: IMSCHDR                                              |
|     LANGUAGE: C                                                    |
|      PURPOSE: Header file for the SAS/C IMSC sample program        |
| INSTALLATION: #include "imschdr.h"                                 |
|               Where H is the DDname of the PDS containing this file|
|        USAGE: see installation                                     |
|                                                                    |
+-------------------------------------------------------------------*/
struct PCB {             /* PCB MASK                          */
   char dbd_name[8];     /*  DBD name                         */
   char seg_level[2];    /*  Segment level                    */
   char status_code[2];  /*  Status code                      */
   char proc_options[4]; /*  Processing options               */
   int RES_DLI;          /*  (reserved for DL/I)              */
   char seg_name[8];     /*  Segment name                     */
   int length_fb_key;    /*  key length                       */
   int numb_sens_segs;   /*  Number of sensitive segments     */
   char key_fb_area[0];  /*  Key feedback area                */
   };

struct DLIUIB {               /* User Interface Block         */
   void *uibpcbal;            /*   PCB address list           */
   struct {                   /*                              */
     char uibfctr;            /*   Return codes               */
     char uibdltr;            /*   Additional information     */
     }  uibrcode;             /*   DL/I return codes          */
   unsigned short RES_DLI;    /*   (reserved)                 */
   };

extern void asmtdli(const char *,struct PCB *, Account_Segment *,
                     const char *,const char *);
#pragma linkage (asmtdli,OS);