API - Assign Categries to Inventory Items

DECLARE

X_RETURN_STATUS  VARCHAR2(1000);
X_ERRORCODE         NUMBER;
X_MSG_COUNT        NUMBER;
X_MSG_DATA          VARCHAR2(1000);
X_MSG_INDEX_OUT VARCHAR2(2000);
L_ERROR_MESSAGE VARCHAR2(2000);

BEGIN

  --Apps Initialization is available in another section. Use the below link to know in detail
   --     Apps_Initialize;

INV_ITEM_CATEGORY_PUB.CREATE_CATEGORY_ASSIGNMENT
                                                (  P_API_VERSION           => 1.0,
                                                   P_INIT_MSG_LIST         => FND_API.G_FALSE,
                                                   P_COMMIT                => FND_API.G_FALSE,
                                                   X_RETURN_STATUS         => X_RETURN_STATUS,
                                                   X_ERRORCODE             => X_ERRORCODE,
                                                   X_MSG_COUNT             => X_MSG_COUNT,
                                                   X_MSG_DATA              => X_MSG_DATA,
                                                   P_CATEGORY_ID           => 1355,                                          -- Category id to be assigned
                                                   P_CATEGORY_SET_ID       => 1100000043,                            -- Category Set id
                                                   P_INVENTORY_ITEM_ID     => 25803,                                    -- Inventory Item Id
                                                   P_ORGANIZATION_ID       => 755);                                       -- Warehouse

   IF x_return_status = fnd_api.g_ret_sts_success
   THEN
      COMMIT;
      DBMS_OUTPUT.put_line ('Item Category Assignment using API is Successful');
  
   ELSE
      BEGIN
         IF (fnd_msg_pub.count_msg > 1)
         THEN
            FOR k IN 1 .. fnd_msg_pub.count_msg
            LOOP
               fnd_msg_pub.get (p_msg_index            => k,
                                             p_encoded            => 'F',
                                             p_data                 => x_msg_data,
                                             p_msg_index_out   => x_msg_index_out
                                            );

               DBMS_OUTPUT.PUT_LINE('x_msg_data:= ' || x_msg_data);
               IF x_msg_data IS NOT NULL
               THEN
                  l_error_message := l_error_message || '-' || x_msg_data;
               END IF;
            END LOOP;
         ELSE
            --Only one error
            fnd_msg_pub.get (p_msg_index             => 1,
                                           p_encoded            => 'F',
                                           p_data                 => x_msg_data,
                                           p_msg_index_out   => x_msg_index_out
                                         );
            l_error_message := x_msg_data;
         END IF;

         DBMS_OUTPUT.put_line (   'Error encountered by the API is '
                               || l_error_message
                              );
         ROLLBACK;
      EXCEPTION
         WHEN OTHERS
         THEN
            l_error_message := SQLERRM;
            DBMS_OUTPUT.put_line (   'Error encountered by the API is '
                                  || l_error_message
                                 );
      END;
   END IF;

EXCEPTION
  WHEN OTHERS THEN
      DBMS_OUTPUT.put_line('Error in Assigning Category to an Item and error is '||SUBSTR(SQLERRM,1,200));
END;