(****************************************************************************)
(* Pascal environment for FMS Form Driver                                   *)
(****************************************************************************)
(*
		      COPYRIGHT (c) 2004 BY
	      HEWLETT PACKARD DEVELOPMENT COMPANY L.P.,    

 THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
 ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
 INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
 COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
 OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
 TRANSFERRED.

 THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
 AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT  BY HEWLETT PACKARD.
 

 HEWLETT PACKARD ASSUMES NO RESPONSIBILITY FOR  THE USE OR  RELIABILITY 
 OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED  BY HEWLETT PACKARD.
*) 

(* Author: S.P.Simon *)
 
MODULE FDVDEF ;
 
[HIDDEN] TYPE	(**** Pre-declared data types ****)
	$BYTE = [BYTE] -128..127;
	$WORD = [WORD] -32768..32767;
	$QUAD = [QUAD,UNSAFE] RECORD
		L0:UNSIGNED; L1:INTEGER; END;
	$OCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2:UNSIGNED; L3:INTEGER; END;
	$UBYTE = [BYTE] 0..255;
	$UWORD = [WORD] 0..65535;
	$UQUAD = [QUAD,UNSAFE] RECORD
		L0,L1:UNSIGNED; END;
	$UOCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2,L3:UNSIGNED; END;
	$PACKED_DEC = [BIT(4),UNSAFE] 0..15;
	$DEFTYP = [UNSAFE] INTEGER;
	$DEFPTR = [UNSAFE] ^$DEFTYP;
	$BIT1 = [BIT(1),UNSAFE] BOOLEAN;
	$BIT2 = [BIT(2),UNSAFE] 0..3;
	$BIT3 = [BIT(3),UNSAFE] 0..7;
	$BIT4 = [BIT(4),UNSAFE] 0..15;
	$BIT5 = [BIT(5),UNSAFE] 0..31;
	$BIT6 = [BIT(6),UNSAFE] 0..63;
	$BIT7 = [BIT(7),UNSAFE] 0..127;
	$BIT8 = [BIT(8),UNSAFE] 0..255;
	$BIT9 = [BIT(9),UNSAFE] 0..511;
	$BIT10 = [BIT(10),UNSAFE] 0..1023;
	$BIT11 = [BIT(11),UNSAFE] 0..2047;
	$BIT12 = [BIT(12),UNSAFE] 0..4095;
	$BIT13 = [BIT(13),UNSAFE] 0..8191;
	$BIT14 = [BIT(14),UNSAFE] 0..16383;
	$BIT15 = [BIT(15),UNSAFE] 0..32767;
	$BIT16 = [BIT(16),UNSAFE] 0..65535;
	$BIT17 = [BIT(17),UNSAFE] 0..131071;
	$BIT18 = [BIT(18),UNSAFE] 0..262143;
	$BIT19 = [BIT(19),UNSAFE] 0..524287;
	$BIT20 = [BIT(20),UNSAFE] 0..1048575;
	$BIT21 = [BIT(21),UNSAFE] 0..2097151;
	$BIT22 = [BIT(22),UNSAFE] 0..4194303;
	$BIT23 = [BIT(23),UNSAFE] 0..8388607;
	$BIT24 = [BIT(24),UNSAFE] 0..16777215;
	$BIT25 = [BIT(25),UNSAFE] 0..33554431;
	$BIT26 = [BIT(26),UNSAFE] 0..67108863;
	$BIT27 = [BIT(27),UNSAFE] 0..134217727;
	$BIT28 = [BIT(28),UNSAFE] 0..268435455;
	$BIT29 = [BIT(29),UNSAFE] 0..536870911;
	$BIT30 = [BIT(30),UNSAFE] 0..1073741823;
	$BIT31 = [BIT(31),UNSAFE] 0..2147483647;
	$BIT32 = [BIT(32),UNSAFE] UNSIGNED;
 
(*** MODULE FDVDEF ***)

(************************)
(* FMS terminator codes *)
(************************)
CONST	FDV$K_FT_NTR     =  0;	(* Enter (i.e. end GETs) *)
	FDV$K_FT_NXT     =  1;	(* Next field *)
	FDV$K_FT_PRV     =  2;	(* Previous field *)
	FDV$K_FT_ATB     =  3;	(* Automatically move to next field *)
	FDV$K_FT_XBK     =  4;	(* Exit scrolled area backward *)
	FDV$K_FT_XFW     =  5;	(* Exit scrolled area forward *)
	FDV$K_FT_SNX     =  6;	(* Scroll forward to next field  *)
	FDV$K_FT_SPR     =  7;	(* Scroll backward to previous field *)
	FDV$K_FT_SFW     =  8;	(* Scroll forward *)
	FDV$K_FT_SBK     =  9;	(* Scroll backward *)
	FDV$K_FT_HLP	 = 10;	(* Form Driver help UAR terminator code *)
	FDV$K_FT_ILG_NXT = 11;	(* Illegal context for next field  *)
	FDV$K_FT_ILG_PRV = 12;	(* Illegal context for previous field  *)
	FDV$K_FT_ILG_ATB = 13;	(* Illegal context for auto move to next fld *)
	FDV$K_FT_ILG_XBK = 14;	(* Illegal context for exit sc area backward *)
	FDV$K_FT_ILG_XFW = 15;	(* Illegal context for exit sc area forward *)
	FDV$K_FT_ILG_SFW = 16;	(* Illegal context for scroll forward *)
	FDV$K_FT_ILG_SBK = 17;	(* Illegal context for scroll backward *)
(********************************************************)
(* Function key terminators returned from GETs and WAIT *)
(* Also used as FDV keycodes for use with DFKBD. 	*)
(********************************************************)
	FDV$K_AR_UP     =   99;
	FDV$K_AR_DOWN   =  100;
	FDV$K_AR_RIGHT  =  101;
	FDV$K_AR_LEFT   =  102;
	FDV$K_PF_1      =  103;
	FDV$K_PF_2      =  104;
	FDV$K_PF_3      =  105;
	FDV$K_PF_4      =  106;
	FDV$K_KP_NTR    =  107;
	FDV$K_KP_COM    =  108;
	FDV$K_KP_HYP    =  109;
	FDV$K_KP_PER    =  110;
	FDV$K_KP_0      =  112;
	FDV$K_KP_1      =  113;
	FDV$K_KP_2      =  114;
	FDV$K_KP_3      =  115;
	FDV$K_KP_4      =  116;
	FDV$K_KP_5      =  117;
	FDV$K_KP_6      =  118;
	FDV$K_KP_7      =  119;
	FDV$K_KP_8      =  120;
	FDV$K_KP_9      =  121;
	FDV$K_GAR_UP    =  227;
	FDV$K_GAR_DOWN  =  228;
	FDV$K_GAR_RIGHT =  229;
	FDV$K_GAR_LEFT  =  230;
	FDV$K_GPF_1     =  231;
	FDV$K_GPF_2     =  232;
	FDV$K_GPF_3     =  233;
	FDV$K_GPF_4     =  234;
	FDV$K_GKP_NTR   =  235;
	FDV$K_GKP_COM   =  236;
	FDV$K_GKP_HYP   =  237;
	FDV$K_GKP_PER   =  238;
	FDV$K_GKP_0     =  240;
	FDV$K_GKP_1     =  241;
	FDV$K_GKP_2     =  242;
	FDV$K_GKP_3     =  243;
	FDV$K_GKP_4     =  244;
	FDV$K_GKP_5     =  245;
	FDV$K_GKP_6     =  246;
	FDV$K_GKP_7     =  247;
	FDV$K_GKP_8     =  248;
	FDV$K_GKP_9     =  249;
	FDV$K_FK_E1     =   33;
	FDV$K_FK_E2     =   34;
	FDV$K_FK_E3     =   35;
	FDV$K_FK_E4     =   36;
	FDV$K_FK_E5     =   37;
	FDV$K_FK_E6     =   38;
	FDV$K_GFK_E1    =  161;
	FDV$K_GFK_E2    =  162;
	FDV$K_GFK_E3    =  163;
	FDV$K_GFK_E4    =  164;
	FDV$K_GFK_E5    =  165;
	FDV$K_GFK_E6    =  166;
	FDV$K_FK_F6     =   49;
	FDV$K_FK_F7     =   50;
	FDV$K_FK_F8     =   51;
	FDV$K_FK_F9     =   52;
	FDV$K_FK_F10    =   53;
	FDV$K_FK_F11    =   55;
	FDV$K_FK_F12    =   56;
	FDV$K_FK_F13    =   57;
	FDV$K_FK_F14    =   58;
	FDV$K_FK_HELP   =   60;
	FDV$K_FK_DO     =   61;
	FDV$K_FK_F17    =   63;
	FDV$K_FK_F18    =   64;
	FDV$K_FK_F19    =   65;
	FDV$K_FK_F20    =   66;
	FDV$K_GFK_F6    =  177;
	FDV$K_GFK_F7    =  178;
	FDV$K_GFK_F8    =  179;
	FDV$K_GFK_F9    =  180;
	FDV$K_GFK_F10   =  181;
	FDV$K_GFK_F11   =  183;
	FDV$K_GFK_F12   =  184;
	FDV$K_GFK_F13   =  185;
	FDV$K_GFK_F14   =  186;
	FDV$K_GFK_HELP  =  188;
	FDV$K_GFK_DO    =  189;
	FDV$K_GFK_F17   =  191;
	FDV$K_GFK_F18   =  192;
	FDV$K_GFK_F19   =  193;
	FDV$K_GFK_F20   =  194;
(********************************************)
(* FDV keyfunctions. For use in DFKBD call. *)
(********************************************)
	FDV$K_KF_DLCHR =   1;
	FDV$K_KF_CRSRT =   2;
	FDV$K_KF_CRSLF =   3;
	FDV$K_KF_DLFLD =   4;
	FDV$K_KF_INS   =   5;
	FDV$K_KF_OVR   =   6;
	FDV$K_KF_GOLD  =   7;
	FDV$K_KF_RESET =   8;
	FDV$K_KF_RFRSH =   9;
	FDV$K_KF_HELP  =  10;
	FDV$K_KF_NXT   =  11;
	FDV$K_KF_PRV   =  12;
	FDV$K_KF_NTR   =  13;
	FDV$K_KF_SBK   =  14;
	FDV$K_KF_SFW   =  15;
	FDV$K_KF_XBK   =  16;
	FDV$K_KF_XFW   =  17;
	FDV$K_KF_DFLT  =  -1;
	FDV$K_KF_NONE  =   0;
(*************************************************************)
(* UAR return codes. These codes are returned by UAR to FDV. *)
(*************************************************************)
(* Field completion return codes *)
(*********************************)
	FDV$K_UVAL_SUC =  1000;	(* Field completion success *)
	FDV$K_UVAL_FAIL=  1001;	(* Field completion failure *)
	FDV$K_UVAL_END =  1002;	(* Field completion suc-stop UARs *)
(*************************)
(* Help UAR return codes *)
(*************************)
	FDV$K_UHELP_NO =  2000;	(* No help given, try next step *)
	FDV$K_UHELPED  =  2001;	(* Help given, continue sequence *)
	FDV$K_UHELP_ALL=  2002;	(* Help given, repeat UAR *)
(*********************************)
(* Function Key UAR return codes *)
(*********************************)
	FDV$K_UKEY_ERR =  3000;	(* Fn Key failure, FDV signals *)
	FDV$K_UKEY_TRM =  3001;	(* Fn Key success, normal f.k. *)
	FDV$K_UKEY_NXT =  3002;	(* Fn Key succ, treat as NEXT *)
	FDV$K_UKEY_NTR =  3003;	(* Fn Key succ, treat as ENTER *)
	FDV$K_UKEY_SUC =  3004;	(* Fn Key succ, ignore *)
(****************************************************************************)
(* FDV status codes returned when FDV$... routines are called as functions. *)
(* These codes are VMS status codes and can be signalled.  They correspond  *)
(* one-to-one with the FMS status codes retrievable from FDV$STAT.  	    *)
(****************************************************************************)
	FDV$_SUC = 2719889 ;
	FDV$_INC = 2719897 ;
	FDV$_MOD = 2719905 ;
	FDV$_IMP = 2719922 ;
	FDV$_FSP = 2719930 ;
	FDV$_IOL = 2719938 ;
	FDV$_FLB = 2719946 ;
	FDV$_ICH = 2719954 ;
	FDV$_FCH = 2719962 ;
	FDV$_FRM = 2719970 ;
	FDV$_FNM = 2719978 ;
	FDV$_LIN = 2719986 ;
	FDV$_FLD = 2719994 ;
	FDV$_NOF = 2720002 ;
	FDV$_DSP = 2720010 ;
	FDV$_NSC = 2720018 ;
	FDV$_DNM = 2720026 ;
	FDV$_DLN = 2720034 ;
	FDV$_UTR = 2720042 ;
	FDV$_IOR = 2720050 ;
	FDV$_IFN = 2720058 ;
	FDV$_ARG = 2720066 ;
	FDV$_INI = 2720074 ;
	FDV$_STR = 2720082 ;
	FDV$_IVM = 2720090 ;
	FDV$_FVM = 2720098 ;
	FDV$_ITT = 2720106 ;
	FDV$_TCA = 2720114 ;
	FDV$_STA = 2720122 ;
	FDV$_WID = 2720130 ;
	FDV$_NFL = 2720138 ;
	FDV$_IBF = 2720146 ;
	FDV$_NDS = 2720154 ;
	FDV$_UDP = 2720162 ;
	FDV$_UAR = 2720170 ;
	FDV$_UNF = 2720178 ;
	FDV$_CAN = 2720194 ;
	FDV$_KIF = 2720202 ;
	FDV$_KEX = 2720210 ;
	FDV$_KTW = 2720218 ;
	FDV$_KIL = 2720226 ;
	FDV$_TMO = 2720234 ;
	FDV$_LLI = 2720242 ;
	FDV$_VAL = 2720250 ;
	FDV$_IFU = 2720258 ;
	FDV$_SYS = 2720266 ;
	FDV$_INA = 2720274 ;
	FDV$_IOO = 2720282 ;

(****************************************************************************)
(* FMS status codes returned when FDV$STAT routine is called.		    *)
(****************************************************************************)
(* Success codes. *)

	FDV$K_SUC = 1;
	FDV$K_INC = 2;
	FDV$K_MOD = 3;	

(* Failure code *)

	FDV$K_IMP = -2;
	FDV$K_FSP = -3;
	FDV$K_IOL = -4;
	FDV$K_FLB = -5;
	FDV$K_ICH = -6;
	FDV$K_FCH = -7;
	FDV$K_FRM = -8;
	FDV$K_FNM = -9;
	FDV$K_LIN = -10;
	FDV$K_FLD = -11;
	FDV$K_NOF = -12;
	FDV$K_DSP = -13;
	FDV$K_NSC = -14;
	FDV$K_DNM = -15;
	FDV$K_DLN = -16;
	FDV$K_UTR = -17;
	FDV$K_IOR = -18;
	FDV$K_IFN = -19;
	FDV$K_ARG = -20;
	FDV$K_INI = -21;
	FDV$K_STR = -22;
	FDV$K_FVM = -23;
	FDV$K_IVM = -24;
	FDV$K_ITT = -25;
	FDV$K_TCA = -26;
	FDV$K_STA = -27;
	FDV$K_WID = -28;
	FDV$K_NFL = -29;
	FDV$K_IBF = -30;
	FDV$K_NDS = -31;
	FDV$K_UDP = -33;
	FDV$K_UAR = -34;
	FDV$K_UNF = -35;	
	FDV$K_CAN = -39;
	FDV$K_KIF = -40;
	FDV$K_KEX = -41;
	FDV$K_KTW = -42;
	FDV$K_KIL = -43;
	FDV$K_TMO = -44;
	FDV$K_LLI = -45;
	FDV$K_VAL = -47;
	FDV$K_IFU = -48;
	FDV$K_SYS = -49;	
	FDV$K_INA = -50;	
	FDV$K_IOO = -51;	



(* Form Driver Entry point definitions *)
 
[ASYNCHRONOUS] FUNCTION FDV$ADLVA (
	VAR video : [VOLATILE]INTEGER ) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$AFCX (
	insovr : INTEGER;
	curpos : INTEGER;
	fldnam : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$AFVA (
	VAR video : [VOLATILE]INTEGER;
	fldnam : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$ATERM (
	VAR tca : [VOLATILE]ARRAY [$l1..$u1:INTEGER] OF INTEGER;
	size : INTEGER;
	channel : INTEGER;
	terminal : [CLASS_S] PACKED ARRAY[$l4..$u4:INTEGER] OF CHAR := %IMMED 0;
	faketrmtyp : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;
	options : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$AWKSP (
	VAR wksp : [VOLATILE]ARRAY [$l1..$u1:INTEGER] OF INTEGER;
	size : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$BELL : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$CANCL : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$CDISP (
	frmnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	offset : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$CLEAR (
	line : INTEGER := %IMMED 0;
	linecnt : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$CLEAR_VA : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$DEL (
	frmnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$DFKBD (
	defkbd : [VOLATILE]ARRAY [$l1..$u1:INTEGER] OF $WORD;
	kbdnum : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$DISP (
	frmnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	offset : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$DISPW (
	offset : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$DPCOM (
	dpmode : INTEGER ) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$DTERM (
	VAR tca : [VOLATILE]ARRAY [$l1..$u1:INTEGER] OF INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$DWKSP (
	VAR wksp : [VOLATILE]ARRAY [$l1..$u1:INTEGER] OF INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$FCHAN (
	VAR channel : [VOLATILE] INTEGER) : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$FIX_SCREEN : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$GET (
	VAR fldval : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;
	VAR fldtrm : [VOLATILE]INTEGER;
	fldnam : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$GETAF (
	VAR fldval : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	VAR fldtrm : [VOLATILE]INTEGER;
	VAR fldnam : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;
	VAR fldidx : [VOLATILE]INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$GETAL (
	VAR fldval : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;
	VAR fldtrm : [VOLATILE]INTEGER := %IMMED 0;
	fldnam : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$GETDL (
	VAR val : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	VAR fldtrm : [VOLATILE]INTEGER := %IMMED 0;
	line : INTEGER := %IMMED 0;
	prompt : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$GETSC (
	fldnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	VAR fldval : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;
	VAR fldtrm : [VOLATILE]INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$ILTRM (
	trmmode : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$LCHAN (
	channel : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$LCLOS : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$LEDOF (
	ledno : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$LEDON (
	ledno : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$LOAD (
	frmnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$LOPEN (
	filspc : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	channel : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$NDISP : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$PFT (
	fldtrm : INTEGER := %IMMED 0;
	fldnam : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;
	fldval : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;
	fldidx : INTEGER := %IMMED 0;
	nfldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$PRINT_SCREEN (
	typ : INTEGER;
	filspec : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$PUT (
	fldval : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;
	fldnam : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$PUTAL (
	frmval : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$PUTD (
	fldnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$PUTDA : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$PUTL (
	val  : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0;
	line : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;

 
[ASYNCHRONOUS] FUNCTION FDV$PUTSC (
	fldnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	fldval : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$READ (
	frmnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	VAR memloc : [VOLATILE]ARRAY [$l2..$u2:INTEGER] OF INTEGER;
	size : INTEGER;
	VAR frmsiz : [VOLATILE]INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RET (
	VAR fldval : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	fldnam : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RETAL (
	VAR frmval : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RETCX (
	VAR tca    : [VOLATILE] $DEFPTR;
	VAR wksp   : [VOLATILE] $DEFPTR;
	VAR frmnam : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR;
	VAR uarval : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR;
	VAR curpos : [VOLATILE]INTEGER;
	VAR fldtrm : [VOLATILE]INTEGER;
	VAR insovr : [VOLATILE]INTEGER;
	VAR hlpnum : [VOLATILE]INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RETDI (
	nmdidx : INTEGER;
	VAR nmdval : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;
	VAR nmdnam : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0 ) : INTEGER; EXTERNAL;
	
 
[ASYNCHRONOUS] FUNCTION FDV$RETDN (
	nmdnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	VAR nmdval : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;
	VAR nmdidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RETFL (
	line : INTEGER;
	VAR val : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;
	VAR len : [VOLATILE]INTEGER;
	imagetype : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RETFN (
	VAR fldnam : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	VAR fldidx : [VOLATILE]INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RETFO (
	fldnum : INTEGER;
	VAR fldnam : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;
	VAR fldidx : [VOLATILE]INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RETLE (
	VAR fldlen : [VOLATILE]INTEGER;
	fldnam : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR;
	fldidx : INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$RFRSH : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SCR_LENGTH (
	length : INTEGER) : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$SCR_WIDTH (
	width : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SIGOP : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SPADA (
	mode : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SPOFF : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SPON : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SSIGQ (
	sigmd : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SSRV (
	VAR status : [VOLATILE]INTEGER := %IMMED 0;
	VAR iostat : [VOLATILE]INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$STAT (
	VAR status : [VOLATILE]INTEGER;
	VAR iostat : [VOLATILE]INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$STERM (
	VAR tca : [VOLATILE]ARRAY [$l1..$u1:INTEGER] OF INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$STIME (
	time : INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$SWKSP (
	VAR wksp : [VOLATILE]ARRAY [$l1..$u1:INTEGER] OF INTEGER) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$TCHAN (
	channel : INTEGER) : INTEGER; EXTERNAL;

[ASYNCHRONOUS] FUNCTION FDV$USER_REFRESH (
	%IMMED [UNBOUND] PROCEDURE rfraddress := %IMMED 0) : INTEGER; EXTERNAL;
 
[ASYNCHRONOUS] FUNCTION FDV$WAIT (
	VAR fldtrm : [VOLATILE]INTEGER := %IMMED 0) : INTEGER; EXTERNAL;
 
END.