! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:29:38 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:29:38 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]FDL$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE FDL$ROUTINES IDENT X-2 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  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
	INTEGER*4 FDL$CREATE
	EXTERNAL FDL$CREATE
 ! 
 !  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
 ! 
	INTEGER*4 FDL$GENERATE
	EXTERNAL FDL$GENERATE
 ! 
 !  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
 ! 
	INTEGER*4 FDL$PARSE
	EXTERNAL FDL$PARSE
 ! 
 !  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
 ! 
	INTEGER*4 FDL$RELEASE
	EXTERNAL FDL$RELEASE
!DEC$ END OPTIONS