/********************************************************************************************************************************/
/* Created: 15-MAR-2001 23:37:19 by OpenVMS SDL EV1-33     */
/* Source:  15-MAR-2001 23:35:05 _$11$DUA933:[BUILD.SDL]FDL$ROUTINES.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE FDL$ROUTINES IDENT X-2 ***/
#ifndef __FDL$ROUTINES_LOADED
#define __FDL$ROUTINES_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
 
/*                                                                          */
/* File Definition Language (FDL) Routines                                  */
/*                                                                          */
/* Note - FDL routines accept only class S string descriptors               */
/*                                                                          */
/*                                                                          */
/* FDL$CREATE - Create a file                                               */
/*                                                                          */
/* status = FDL$CREATE (fdl_desc [,filename] [,default_name]                */
/*                      [,result_name] [,fid_block] [,flags]                */
/*                      [,stmnt_num] [,retlen] [,sts] [,stv]                */
/*			[,dflt-fdl-spc]                                     */
/*                                                                          */
/*  fdl_desc     - Name of file or string containg FDL statements           */
/*  filename     - Name of file to be created                               */
/*  default_name - Default name string                                      */
/*  result_name  - Receives resultant file name                             */
/*  fid_block    - Receives file ID of created file                         */
/*  flags        - Flags controlling operation                              */
/*  stmt_num     - Receives number of statement in error                    */
/*  retlen       - Receives length of result_name                           */
/*  sts          - Receives RMS STS value                                   */
/*  stv          - Receives RMS STV value                                   */
/*  dflt-fdl-spc - Name of file or string containing default FDL statements */
unsigned int fdl$create(__unknown_params);
/*                                                                          */
/* FDL$GENERATE - Generate an FDL specification from a file                 */
/*                                                                          */
/* status = FDL$GENERATE (flags, fab_pointer, rab_pointer                   */
/*                       [,fdl_file_dst] [,fdl_file_resnam]                 */
/*			 [,fdl_str_dst] [,bad_blk_addr] [,retlen])          */
/*                                                                          */
/*  flags           - Flags controlling operation                           */
/*  fab_pointer     - Address of FAB block                                  */
/*  rab_pointer     - Address of RAB block                                  */
/*  fdl_file_dst    - Name of FDL file to be created                        */
/*  fdl_file_resnam - Receives resultant name of FDL file                   */
/*  fdl_str_dst     - Receives FDL string                                   */
/*  bad_blk_addr    - Receives address of invalid RMS block                 */
/*  retlen          - Receives length of fdl_file_resnam or fdl_str_dst     */
/*                                                                          */
unsigned int fdl$generate(__unknown_params);
/*                                                                          */
/* FDL$PARSE - Parse an FDL specification                                   */
/*                                                                          */
/* status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer           */
/*                     [,flags] [,dflt_fdl_spec] [,stmt_num])               */
/*                                                                          */
/*  fdl_spec        - Name of FDL file or FDL string to be parsed           */
/*  fdl_fab_pointer - Receives address of created FAB                       */
/*  fdl_rab_pointer - Receives address of created RAB                       */
/*  flags           - Flags controlling operation                           */
/*  dflt_fdl_spec   - Name of default FDL file or default FDL string        */
/*  stmt_num        - Receives number of statement in error                 */
/*                                                                          */
unsigned int fdl$parse(__unknown_params);
/*                                                                          */
/* FDL$RELEASE - Release FDL context                                        */
/*                                                                          */
/* status = FDL$RELEASE ([fab_pointer] [,rab_pointer] [,flags]              */
/*                       [,badblk_addr])                                    */
/*                                                                          */
/*  fab_pointer - Address of FAB to be deallocated                          */
/*  rab_pointer - Address of RAB to be deallocated                          */
/*  flags       - Flags controlling operation                               */
/*  badblk_addr - Recives address of invalid RMS block                      */
/*                                                                          */
unsigned int fdl$release(__unknown_params);
 
#ifdef __cplusplus
    }
#endif
#pragma standard
 
#endif /* __FDL$ROUTINES_LOADED */