Locator creation query

DECLARE
  X_RETURN_STATUS VARCHAR2(200);
  X_MSG_COUNT NUMBER;
  X_MSG_DATA VARCHAR2(200);
  P_ORGANIZATION_ID NUMBER;
  P_ORGANIZATION_CODE VARCHAR2(200);
  P_INVENTORY_LOCATION_ID NUMBER;
  P_CONCATENATED_SEGMENTS VARCHAR2(200);
  P_DESCRIPTION VARCHAR2(200);
  P_DISABLED_DATE DATE;
  P_INVENTORY_LOCATION_TYPE NUMBER;
  P_PICKING_ORDER NUMBER;
  P_LOCATION_MAXIMUM_UNITS NUMBER;
  P_LOCATION_WEIGHT_UOM_CODE VARCHAR2(200);
  P_MAX_WEIGHT NUMBER;
  P_VOLUME_UOM_CODE VARCHAR2(200);
  P_MAX_CUBIC_AREA NUMBER;
  P_X_COORDINATE NUMBER;
  P_Y_COORDINATE NUMBER;
  P_Z_COORDINATE NUMBER;
  P_PHYSICAL_LOCATION_ID NUMBER;
  P_PICK_UOM_CODE VARCHAR2(200);
  P_DIMENSION_UOM_CODE VARCHAR2(200);
  P_LENGTH NUMBER;
  P_WIDTH NUMBER;
  P_HEIGHT NUMBER;
  P_STATUS_ID NUMBER;
  P_DROPPING_ORDER NUMBER;
  P_ATTRIBUTE_CATEGORY VARCHAR2(200);
  P_ATTRIBUTE1 VARCHAR2(200);
  P_ATTRIBUTE2 VARCHAR2(200);
  P_ATTRIBUTE3 VARCHAR2(200);
  P_ATTRIBUTE4 VARCHAR2(200);
  P_ATTRIBUTE5 VARCHAR2(200);
  P_ATTRIBUTE6 VARCHAR2(200);
  P_ATTRIBUTE7 VARCHAR2(200);
  P_ATTRIBUTE8 VARCHAR2(200);
  P_ATTRIBUTE9 VARCHAR2(200);
  P_ATTRIBUTE10 VARCHAR2(200);
  P_ATTRIBUTE11 VARCHAR2(200);
  P_ATTRIBUTE12 VARCHAR2(200);
  P_ATTRIBUTE13 VARCHAR2(200);
  P_ATTRIBUTE14 VARCHAR2(200);
  P_ATTRIBUTE15 VARCHAR2(200);
  P_ALIAS VARCHAR2(200);
  P_COUNT NUMBER;

cursor c1 is

select mil.INVENTORY_LOCATION_ID,mil.segment1||'.'||mil.segment2||'.'||mil.segment3 locator, mil.organization_id,mil.DESCRIPTION,mil.DISABLE_DATE,mil.INVENTORY_LOCATION_TYPE, mil.LOCATION_WEIGHT_UOM_CODE,
mil.MAX_WEIGHT, mil.VOLUME_UOM_CODE,mil.MAX_CUBIC_AREA, mil.X_COORDINATE,mil.Y_COORDINATE,mil.z_coordinate,mil.PHYSICAL_LOCATION_ID,
mil.PICK_UOM_CODE,mil.DIMENSION_UOM_CODE,mil.LENGTH, mil.WIDTH,mil.height,mil.status_id,mil.LOCATION_MAXIMUM_UNITS,
mil.ATTRIBUTE_CATEGORY, mil.attribute1,mil.attribute2,mil.attribute3,mil.attribute4,mil.attribute5,mil.attribute6,
mil.attribute7,mil.attribute8,mil.attribute9,mil.attribute10,mil.attribute11,mil.attribute12,mil.attribute13,mil.attribute14,mil.attribute15,mil.ALIAS,
mil.picking_order,mil.dropping_order,mil.SUBINVENTORY_CODE
from mtl_item_locations mil
where mil.organization_id=81
and MIL.SUBINVENTORY_CODE='B'
AND MIL.STATUS_ID=1;

BEGIN

P_COUNT:=1;

 DBMS_OUTPUT.put_line (  'locator'||'-'||'x_return_status'
                         || '-'
                         || 'x_msg_count'
                         || '-'
                         || 'x_msg_data'||'-'||'status_id'||'-'||'INVENTORY_LOCATION_TYPE'||'-'||'PICKING_ORDER'||'-'||'DROPPING_ORDER'||'-'||'subinventory_code'
                        );

for i in c1 loop

  X_RETURN_STATUS := NULL;
  X_MSG_COUNT := NULL;
  X_MSG_DATA := NULL;
  P_ORGANIZATION_ID := i.organization_id;
  P_ORGANIZATION_CODE := 'GNU';
  P_INVENTORY_LOCATION_ID := I.INVENTORY_LOCATION_ID;
  P_CONCATENATED_SEGMENTS := I.LOCATOR;
  P_DESCRIPTION := I.DESCRIPTION;
  P_DISABLED_DATE := I.DISABLE_DATE;
  P_INVENTORY_LOCATION_TYPE := I.INVENTORY_LOCATION_TYPE;
  P_PICKING_ORDER := P_COUNT;
  P_LOCATION_MAXIMUM_UNITS := i.LOCATION_MAXIMUM_UNITS;
  P_LOCATION_WEIGHT_UOM_CODE := I.LOCATION_WEIGHT_UOM_CODE;
  P_MAX_WEIGHT := i.MAX_WEIGHT;
  P_VOLUME_UOM_CODE :=i.VOLUME_UOM_CODE ;
  P_MAX_CUBIC_AREA := i.MAX_CUBIC_AREA;
  P_X_COORDINATE := i.X_COORDINATE;
  P_Y_COORDINATE := i.Y_COORDINATE;
  P_Z_COORDINATE := i.Z_COORDINATE;
  P_PHYSICAL_LOCATION_ID := i.PHYSICAL_LOCATION_ID;
  P_PICK_UOM_CODE := i.PICK_UOM_CODE;
  P_DIMENSION_UOM_CODE := i.DIMENSION_UOM_CODE;
  P_LENGTH := i.length;
  P_WIDTH := i.width;
  P_HEIGHT := i.height;
  P_STATUS_ID := I.STATUS_ID;
  P_DROPPING_ORDER := P_COUNT;
  P_ATTRIBUTE_CATEGORY := i.ATTRIBUTE_CATEGORY;
  P_ATTRIBUTE1 := i.attribute1;
  P_ATTRIBUTE2 := i.attribute2;
  P_ATTRIBUTE3 := i.attribute3;
  P_ATTRIBUTE4 := i.attribute4;
  P_ATTRIBUTE5 := i.attribute5;
  P_ATTRIBUTE6 := i.attribute6;
  P_ATTRIBUTE7 := i.attribute7;
  P_ATTRIBUTE8 := i.attribute8;
  P_ATTRIBUTE9 := i.attribute9;
  P_ATTRIBUTE10 := i.attribute10;
  P_ATTRIBUTE11 := i.attribute11;
  P_ATTRIBUTE12 := i.attribute12;
  P_ATTRIBUTE13 := i.attribute13;
  P_ATTRIBUTE14 := i.attribute14;
  P_ATTRIBUTE15 := i.attribute15;
  P_ALIAS := i.alias;

  APPS.INV_LOC_WMS_PUB.UPDATE_LOCATOR ( X_RETURN_STATUS, X_MSG_COUNT, X_MSG_DATA, P_ORGANIZATION_ID, P_ORGANIZATION_CODE, P_INVENTORY_LOCATION_ID, P_CONCATENATED_SEGMENTS, P_DESCRIPTION, P_DISABLED_DATE, P_INVENTORY_LOCATION_TYPE, P_PICKING_ORDER, P_LOCATION_MAXIMUM_UNITS, P_LOCATION_WEIGHT_UOM_CODE, P_MAX_WEIGHT, P_VOLUME_UOM_CODE, P_MAX_CUBIC_AREA, P_X_COORDINATE, P_Y_COORDINATE, P_Z_COORDINATE, P_PHYSICAL_LOCATION_ID, P_PICK_UOM_CODE, P_DIMENSION_UOM_CODE, P_LENGTH, P_WIDTH, P_HEIGHT, P_STATUS_ID, P_DROPPING_ORDER, P_ATTRIBUTE_CATEGORY, P_ATTRIBUTE1, P_ATTRIBUTE2, P_ATTRIBUTE3, P_ATTRIBUTE4, P_ATTRIBUTE5, P_ATTRIBUTE6, P_ATTRIBUTE7, P_ATTRIBUTE8, P_ATTRIBUTE9, P_ATTRIBUTE10, P_ATTRIBUTE11, P_ATTRIBUTE12, P_ATTRIBUTE13, P_ATTRIBUTE14, P_ATTRIBUTE15, P_ALIAS );

 
  DBMS_OUTPUT.put_line (   i.locator||'-'||x_return_status
                         || '-'
                         || x_msg_count
                         || '-'
                         || x_msg_data||'-'||i.status_id||'-'||I.INVENTORY_LOCATION_TYPE||'-'||P_COUNT||'-'||P_COUNT||'-'||i.subinventory_code
                        );

P_COUNT:=P_COUNT+1;

end loop;
 
END;