DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦276382f93⟧ TextFile

    Length: 7081 (0x1ba9)
    Types: TextFile
    Names: »V«

Derivation

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧ 

TextFile

package Work_Order_Errors is

    pragma Subsystem (Cmvc);
    pragma Module_Name (4, 3785);
    pragma Bias_Key (9);

    No_Default_Value            : exception;
    Data_Present                : exception;
    Mismatched_Vector_Operation : exception;
    Type_Mismatch               : exception;

    subtype Status is Natural range 0 .. 127;

    function Is_Bad     (Error : Status) return Boolean;
    function Is_Warning (Error : Status) return Boolean;
    function Is_Good    (Error : Status) return Boolean;

    function Message (Error : Status) return String;

    Bad_Work_Order_Status     : exception;
    Warning_Work_Order_Status : exception;
    procedure Check (Error : Status; Flag_Warnings : Boolean := False);

    -- New constants will be added as the need arises.
    subtype Bad_Status     is Status;
    subtype Warning_Status is Status;
    subtype Good_Status    is Status;

    Nil                                   : constant Good_Status    := 0;
    Successful                            : constant Good_Status    := 0;
    Reorganized_Read_Only_Venture         : constant Bad_Status     := 1;
    Venture_Handle_Not_Writable           : constant Bad_Status     := 2;
    Venture_Field_Not_Found               : constant Warning_Status := 3;
    Venture_Field_Already_Exists          : constant Bad_Status     := 4;
    Venture_Field_Type_Mismatch           : constant Bad_Status     := 5;
    Venture_Field_Vector_Mismatch         : constant Bad_Status     := 6;
    No_Default_Field_Value                : constant Bad_Status     := 7;
    Venture_Handle_Not_Open               : constant Bad_Status     := 8;
    Null_Venture_Field_Handle             : constant Bad_Status     := 9;
    Reorganized_Read_Only_Work_Order      : constant Bad_Status     := 10;
    Order_Handle_Not_Writable             : constant Bad_Status     := 11;
    Order_Field_Not_Found                 : constant Warning_Status := 12;
    Order_Field_Already_Exists            : constant Bad_Status     := 13;
    Order_Field_Data_Present              : constant Bad_Status     := 14;
    Order_Field_Vector_Mismatch           : constant Bad_Status     := 15;
    Order_Field_Type_Mismatch             : constant Bad_Status     := 16;
    Null_Order_Field_Handle               : constant Bad_Status     := 17;
    Order_Handle_Not_Open                 : constant Bad_Status     := 18;
    Order_Belongs_To_A_Different_Venture  : constant Bad_Status     := 19;
    Directory_Lock_Error                  : constant Bad_Status     := 20;
    Directory_Semantic_Error              : constant Bad_Status     := 21;
    Directory_Code_Generation_Error       : constant Bad_Status     := 22;
    Directory_Obsolescence_Error          : constant Bad_Status     := 23;
    Directory_Bad_Tree_Parameter          : constant Bad_Status     := 24;
    Directory_Illegal_Operation           : constant Bad_Status     := 25;
    Directory_Consistency_Error           : constant Bad_Status     := 44;
    Directory_Version_Error               : constant Bad_Status     := 26;
    Directory_Name_Error                  : constant Bad_Status     := 27;
    Directory_Access_Error                : constant Bad_Status     := 28;
    Directory_Policy_Error                : constant Bad_Status     := 29;
    Directory_Bad_Action                  : constant Bad_Status     := 30;
    Directory_Class_Error                 : constant Bad_Status     := 31;
    Directory_Other_Error                 : constant Bad_Status     := 32;
    Directory_Bad_Naming_Context          : constant Bad_Status     := 33;
    Directory_Ill_Formed_Name             : constant Bad_Status     := 34;
    Directory_Undefined_Name              : constant Bad_Status     := 35;
    Directory_Ambiguous_Name              : constant Bad_Status     := 36;
    Directory_No_Selection                : constant Bad_Status     := 37;
    Directory_Cursor_Not_In_Selection     : constant Bad_Status     := 38;
    Directory_Selections_Not_Supported    : constant Bad_Status     := 39;
    Directory_No_Declaration              : constant Bad_Status     := 40;
    Directory_No_Object                   : constant Bad_Status     := 41;
    Directory_No_Editor                   : constant Bad_Status     := 42;
    Directory_Naming_Unsuccessful         : constant Bad_Status     := 43;
    Order_Set_Handle_Not_Writable         : constant Bad_Status     := 50;
    Reorganized_Read_Only_Order_Set       : constant Bad_Status     := 51;
    Id_Already_In_Order_Set               : constant Warning_Status := 52;
    Id_Not_Found_In_Order_Set             : constant Warning_Status := 53;
    Reorganized_Read_Only_Venture_Default : constant Bad_Status     := 60;
    Venture_Default_Handle_Not_Writable   : constant Bad_Status     := 61;
    No_Venture_Default_Set                : constant Warning_Status := 62;
    Added_New_User                        : constant Good_Status    := 63;
    Order_User_Handle_Not_Writable        : constant Bad_Status     := 70;
    Reorganized_Read_Only_Order_User      : constant Bad_Status     := 71;
    Id_Already_In_Order_User              : constant Warning_Status := 72;
    Id_Not_Found_In_Order_User            : constant Warning_Status := 73;
    Set_Handle_Not_Writable               : constant Bad_Status     := 80;
    Reorganized_Read_Only_Set             : constant Bad_Status     := 81;
    Id_Already_In_Set                     : constant Bad_Status     := 82;
    Id_Not_Found_In_Set                   : constant Warning_Status := 83;
    List_Handle_Not_Writable              : constant Bad_Status     := 90;
    List_Handle_Not_Open                  : constant Bad_Status     := 91;
    List_Belongs_To_A_Different_Venture   : constant Bad_Status     := 92;
    Assumed_Field_Default_Of_False        : constant Warning_Status := 100;
    Assumed_Field_Default_Of_Zero         : constant Warning_Status := 101;
    List_Open_With_Wrong_Action           : constant Bad_Status     := 102;
    Real_Default_Is_Garbage               : constant Warning_Status := 114;
    Illegal_Field_Name                    : constant Bad_Status     := 115;
    Product_Authorization_Failure         : constant Bad_Status     := 116;
    Order_Is_Not_Closed                   : constant Bad_Status     := 117;
    Not_Allowed_During_Traversal          : constant Bad_Status     := 118;
    Abandoned_Action                      : constant Warning_Status := 119;
    Cannot_Open_For_None                  : constant Bad_Status     := 120;
    Bad_User_Id                           : constant Bad_Status     := 121;
    Order_Is_Closed                       : constant Bad_Status     := 122;
    Not_A_Venture                         : constant Bad_Status     := 123;
    Not_A_Work_Order                      : constant Bad_Status     := 124;
    Not_A_Work_Order_List                 : constant Bad_Status     := 125;
    Unknown_Error                         : constant Bad_Status     := 126;
    Bad                                   : constant Bad_Status     := 127;

end Work_Order_Errors;