main module STRINGCMP
    use	VMSPROC
    use VMSTYPES
    use	RMSSTUBS
    use TEXTIO


    declare
	A_String : string
	B_String : string
	C_String : string
    enddeclare

	A_String := "ABCDEF"
	B_String := "ABCDEF"
	C_String := "ABCDEc"

	if STR'$COMPARE_EQL (Allocate_String_Descriptor (A_String),
				Allocate_String_Descriptor (B_String)) = 0 do
	    out_line (TTY, "A_String equals B_string")
	otherwise
	    out_line (TTY, "ERROR: A_string NOT EQUAL B_String")
	endif

	if STR'$COMPARE_EQL (Allocate_String_Descriptor (A_String),
				Allocate_String_Descriptor (C_String)) = 0 do
	    out_line (TTY, "ERROR: A_String equals C_string")
	otherwise
	    out_line (TTY, "A_string not equal C_String")
	endif


endmodule