How to write .cdb file to run once - IFS Cloud

Need to register statement like below (Highlighted in orange)


DECLARE
   table_name_    VARCHAR2(30) := 'EXTERNAL_CUST_ORDER_LINE_TAB';
   columns_         Database_SYS.ColumnTabType;
   column_           Database_SYS.ColRec;
   register_id_      VARCHAR2(100) := 'CRIM131-12';
   module_           VARCHAR2(6)   := 'ORDER';
BEGIN
   IF NOT (Db_Script_Register_Detail_API.Is_Sub_Section_Registered(module_, register_id_, sub_section_ => 1)) THEN
      
      Database_SYS.Reset_Column_Table(columns_);
      Database_SYS.Set_Table_Column(columns_, 'C_CUST_SPEC_ID', 'VARCHAR2(20)', 'Y');
      Database_SYS.Set_Table_Column(columns_, 'C_REVISION_NO',  'NUMBER',       'Y');
      Database_SYS.Alter_Table(table_name_, columns_);
      
      Db_Script_Register_Detail_API.Register_Sub_Section(module_, 
                                                         register_id_,
                                                         sub_section_ => 1,
                                                         processed_ok_ => 'TRUE',
                                                         file_name_ => '220126_C_CRIM131-12_ORDER.cdb');
   END IF;
END;
/

This will help to avoid installation issues on customer environment in IFS Cloud.

Post a Comment

0 Comments