DataMuseum.dk

top - metrics - download

    Length: 2576 (0xa10)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

separate (Inquiry_Operations)

--  Abstracts User dialog.
--    Lists available options,
--    Confirms selection, and
--    Returns enumeration value for internal program use

function Request return Command_Type is
    Length : Natural;      -- kludge for VMS erroneous treatment of
    Response : String (1 .. 3); -- GET on single CHARACTER
    --^^  RESPONSE : STRING(1..1); -- GET on single CHARACTER
    -- could also declare MENU : constant STRING := ...
begin
    New_Line;
    Put_Line (" Valid choices are: ");
    Put_Line ("     C    Collect names of statistics files.        ");
    Put_Line ("     S    Select attributes for reporting.          ");
    Put_Line ("     L    List selected attributes from files.      ");
    Put_Line ("     P    Print contents of current files to screen.");
    Put_Line ("     F    Save output to named file.                ");
    Put_Line ("     H    Re-display help prompt.                   ");
    Put_Line ("     Q    Quit processing.                          ");
    New_Line;
    Put (" Please enter your choice: ");
    Get_Line (Response, Length);  -- VMS kludge
    loop
        case Response (1) is
            when 'C' | 'c' =>
                Put_Line (" COLLECT command accepted. ");
                return Collect_Command;
            when 'S' | 's' =>
                Put_Line (" SELECT command accepted. ");
                return Select_Command;
            when 'L' | 'l' =>
                Put_Line (" LIST command accepted. ");
                return List_Command;
            when 'P' | 'p' =>
                Put_Line (" PRINT command accepted. ");
                return Print_Command;
            when 'F' | 'f' =>
                Put_Line (" SAVE command accepted. ");
                return Save_Command;
            when 'H' | 'h' =>
                Put_Line (" HELP command accepted. ");
                return Help_Command;
            when 'Q' | 'q' =>
                Put_Line (" QUIT command accepted. ");
                return Quit_Command;
            when others =>
                Put_Line (" ... please try again. ");
                Get_Line (Response, Length); -- VMS kludge
        end case;
    end loop;
exception
    when Data_Error =>
        Put_Line (Standard_Output, " ... please try again.");
        return Request;
    when End_Error =>
        return Quit_Command;
    when others =>
        Put_Line (Standard_Output, "*** exception caught in REQUEST");
        return Quit_Command;
end Request;
--***************************************************************************