SELECT values FROM dual
UNION ALL
SELECT values from dual
UNION ALL
.....
UNION ALL
SELECT values 
from dual,
     (sub-query)

select i.org_code||'-'||i.locator||'-'||msi.sub_inv 
from (
    SELECT 'CG1' as org_code, '73A' as locator, 1 as rn FROM DUAL
    UNION ALL
    SELECT 'CG2', '19B', 2 FROM DUAL
    UNION ALL
    SELECT 'CG4', '15C', 3 FROM DUAL
    UNION ALL
    SELECT 'CG6', '35D', 4 FROM DUAL
    UNION ALL
    SELECT 'CG7', '66I', 5 FROM DUAL
    UNION ALL
    SELECT 'CP1', '75E', 6 FROM DUAL
    UNION ALL
    SELECT 'CP2', '59F', 7 FROM DUAL
    UNION ALL
    SELECT 'CP4', '39G', 8 FROM DUAL
    UNION ALL
    SELECT 'CP6', '71H', 9 FROM DUAL
    UNION ALL
    SELECT 'CP7', '41J', 10 FROM DUAL
  ) i
  left join (
    SELECT secondary_inventory_name as sub_inv, rownum as rn
    FROM mtl_secondary_inventories
    WHERE secondary_inventory_name like '%RCV-CAPXU%'
  ) msi
  on (i.rn = msi.rn);

SQL> create or replace procedure bobp(a out number) is
  2  begin
  3  a:= 1;
  4  end;
  5  /

Procedure created.

Elapsed: 00:00:00.03
SQL> var a number;
SQL> exec bobp(:a);

PL/SQL procedure successfully completed.

Elapsed: 00:00:00.03
SQL> print :a

         A
----------
         1

SQL>

SET SERVEROUTPUT ON; 
Create or Replace Procedure testcreatelocator
(
errbuf out VARCHAR2,
retcode out NUMBER
)
as
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);
l_inventory_location_id NUMBER;
l_locator_exists VARCHAR2(1);
l_organization_id NUMBER;
l_organization_code VARCHAR2(10);
l_subinventory_code VARCHAR2(10); 
l_concatenated_segments VARCHAR2(100); 

begin
for j in (select stk.organization_code||'-'||locator||'-'||subinventory_code||'-'||organization_id Locators
from (SELECT 'CG1' as organization_code, '73A' as locator FROM DUAL
UNION ALL
SELECT 'CG2', '19B' FROM DUAL
UNION ALL
SELECT 'CG4', '15C' FROM DUAL
UNION ALL
SELECT 'CG6', '35D' FROM DUAL
UNION ALL
SELECT 'CG7', '66I' FROM DUAL
UNION ALL
SELECT 'CP1', '75E' FROM DUAL
UNION ALL
SELECT 'CP2', '59F' FROM DUAL
UNION ALL
SELECT 'CP4', '39G' FROM DUAL
UNION ALL
SELECT 'CP6', '71H' FROM DUAL) stk
left join (SELECT msit.secondary_inventory_name as subinventory_code, 
msit.organization_id as organization_id, 
ood.organization_code as organization_code
FROM mtl_secondary_inventories msit, 
ORG_ORGANIZATION_DEFINITIONS ood
WHERE secondary_inventory_name like '%RC%'
and msit.organization_id = ood.organization_id) msi
on (stk.organization_code = msi.organization_code))loop

DBMS_OUTPUT.PUT_LINE (j.locators); 

l_concatenated_segments := j.Locators;
l_organization_id := j.organization_id;
l_organization_code := j.organization_code;
l_subinventory_code := j.subinventory_code;

INV_LOC_WMS_PUB.CREATE_LOCATOR(
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_inventory_location_id => l_inventory_location_id,
x_locator_exists => l_locator_exists,
p_organization_id => l_organization_id,
p_organization_code => l_organization_code,
p_concatenated_segments => l_concatenated_segments,
p_description => 'Created by Script',
p_inventory_location_type => NULL, 
p_picking_order => NULL,
p_location_maximum_units => NULL,
p_subinventory_code => l_subinventory_code,
p_location_weight_uom_code => NULL,
p_max_weight => NULL,
p_volume_uom_code => NULL,
p_max_cubic_area => NULL, 
p_x_coordinate => NULL,
p_y_coordinate => NULL,
p_z_coordinate => NUll, 
p_physical_location_id => NULL, 
p_pick_uom_code => NULL, 
p_dimension_uom_code => NULL, 
p_length => NULL,
p_width => NULL, 
p_height => NULL,
p_status_id => 1,
p_dropping_order => NULL
);
IF (l_return_status = 'S') then
dbms_output.put_line('Locator Id:' || l_inventory_location_id);
dbms_output.put_line('Locator exists:' || l_locator_exists);
ELSIF (l_msg_count = 1) THEN
dbms_output.put_line(replace(l_msg_data,chr(0),' '));
ELSE
For I in 1..l_msg_count LOOP
l_msg_data := fnd_msg_pub.get(I,'F');
dbms_output.put_line(replace(l_msg_data,chr(0),' '));
END LOOP;
END IF;
END LOOP;
EXCEPTION
      WHEN NO_DATA_FOUND THEN
         errbuf := 'No locator found';
         retcode := '1';        -- warning
         fnd_file.put_line(fnd_file.log, errbuf);
      WHEN OTHERS THEN
         errbuf := SQLERRM;
         retcode := '2';        -- error
         fnd_file.put_line(fnd_file.log, errbuf);     
end;
/

SQL> var a number;
SQL> exec bobp(:a);