DEFINE PROCEDURE INQ_domname
!************************************************************
!* PROGRAM NAME:	INQ_domname
!* DICTIONARY:		
!* PROGRAMMER: 		pgmname
!* DATE WRITTEN:	pgmtime
!* LANGUAGES:		DTR
!* UTILITIES:		none
!* PROCEDURES CALLED:	none
!* PROCEDURE CALLED FROM:	none
!* ASSOCIATED COMMAND PROCEDURE:none
!* INPUT FILES:		domname.DAT
!* OUTPUT FILES:	TERMINAL OR PRINTER
!* MAIN USER:		
!* COMMENTS:		This is a all-purpose inquiry report that is meant
!*			to be used on only small files.
!* MODIFICATION:			
!* MOD. DATE:		
!* REASON FOR MOD.	
!************************************************************
READY domname SHARED
DECLARE FIELD_VALUE	PIC X(longpic).
DECLARE TT_OR_LP	PIC X(20)	VALID IF TT_OR_LP CONT "." OR
    					FN$UPCASE(TT_OR_LP) = "TT:", "LP:".
DECLARE TYPE_REPORT	PIC X(2)	VALID IF
    FN$UPCASE(TYPE_REPORT) = 	
    	"E",
    	"A",
*****type_report
DECLARE FOR_VALUE	COMPUTED BY
    CHOICE
    	(TYPE_REPORT = "A")				1
*****for_value
    ELSE 0
    END_CHOICE.
DECLARE TYPE_SORT		PIC X(2)	VALID IF
    FN$UPCASE(TYPE_SORT) = 
*****type_sort
DECLARE SORT_VALUE	COMPUTED BY
    CHOICE
*****sort_value
    END_CHOICE.
DECLARE XCTR			PIC 9.
!*************END OF DECLARATIONS
FN$WIDTH(133)
PRINT  SKIP 5,
    	"Choose one of the following options", SKIP 2,
    	"A to list all records", SKIP,
*****menu
    	"E to exit",	SKIP 2
TYPE_REPORT = *."option"
WHILE TYPE_REPORT NOT = "E", "e"
BEGIN
    TYPE_REPORT = FN$UPCASE(TYPE_REPORT)
    PRINT SKIP, " "
    CHOICE
*****get_fields
    END_CHOICE
    XCTR = 0
    FOR FIRST 1 domname WITH FOR_VALUE = 1
    	XCTR = 1
    IF XCTR = 0
    	PRINT "*****No records were found.  Re-enter.*****"
    IF XCTR = 1
    BEGIN
        PRINT SKIP 5,
        	"Choose one of the following sorts", SKIP 2,
*****sort_menu
        TYPE_SORT = *."sort option"
        TYPE_SORT = FN$UPCASE(TYPE_SORT)
        TT_OR_LP = *."TT: for the terminal or LP: for the printer"
        TT_OR_LP = FN$UPCASE(TT_OR_LP)
        FN$CREATE_LOG("LOG_TT_OR_LP",TT_OR_LP)
        ON LOG_TT_OR_LP
        BEGIN
            REPORT ALL domname WITH FOR_VALUE = 1 SORTED BY SORT_VALUE
            SET COLUMNS_PAGE=133
            SET REPORT_NAME="USUHS"/"domname LISTING"
            PRINT COL 1,
*****printlist
!            AT BOTTOM OF SORT_VALUE PRINT COL 1,
!        	"# OF RECORDS = ", SPACE 0, COUNT (-)
            AT BOTTOM OF PAGE PRINT SKIP, " ", SKIP, " ", SKIP,
        	CHOICE (TT_OR_LP = "TT:") *."TAB and RETURN to continue"
    		ELSE		  " "
        	END_CHOICE
            END_REPORT
    	END
    END
    PRINT  SKIP 5,
    	"Choose one of the following options", SKIP 2,
    	"A to list all records", SKIP,
*****menu
    	"E to exit",	SKIP 2
    TYPE_REPORT = *."option"
END
FN$WIDTH(80)
END-PROCEDURE