I am facing syntactical error, please help

Question

Hi All,
Please help me.
I am facing syntactical error for the below mentioned code, please help me to get rid of it.
I want to fetch the record set in cursor loop it to process one by one inside the loop - for every record - i need to fetch a record set and process it
pseudocode will be like
cursor c1 - select * from table
for rec from c1
loop
create cursor c2 - select * form table where value = rec.value
for rec2 from c2
loop
process record
end loop
loop end
The exact code is
DECLARE
QNTY_REQ INT := 0;
QNTY_ALLOCATED INT :=0;
FGONHAND_CNT INT := 0;
varINONHAND_CNT INT := 0;
FGONHAND_QTY INT := 0;
varINONHAND_QTY INT := 0;
varORGANIZATION_ID INT :=166;
varAFM_IN_TYPE_SUBINV VARCHAR2(500) :='-';
CURSOR C1 IS
SELECT * FROM
(SELECT OH.ORDER_NUMBER,
CONCAT(SUBSTR(OL.ORDERED_ITEM,0,(LENGTH(OL.ORDERED_ITEM)- 2 )),'IN') INITEM,
(SELECT INVENTORY_ITEM_ID FROM MTL_SYSTEM_ITEMS WHERE ORGANIZATION_ID = 85
               AND SEGMENT1 = CONCAT(SUBSTR(OL.ORDERED_ITEM,0,(LENGTH(OL.ORDERED_ITEM)- 2 )),'IN')) IN_INVENTORY_ITEM_ID,
OL.ORDERED_ITEM,
OL.ORDERED_QUANTITY,
OL.INVENTORY_ITEM_ID FG_INVENTORY_ITEM_ID,
OL.SUBINVENTORY FG_SUBINVENTORY
FROM OE_ORDER_HEADERS_ALL OH , OE_ORDER_LINES_ALL OL
WHERE OH.HEADER_ID = OL.HEADER_ID
AND OH.ORG_ID = 146
AND OH.ORDER_NUMBER = 250300149
AND OL.SHIP_FROM_ORG_ID = varORGANIZATION_ID
AND OL.BOOKED_FLAG = 'Y'
AND OL.FLOW_STATUS_CODE ='AWAITING_SHIPPING');
--NEED TO GROUP BY THE SUMATION OF QTY , IF SAME ITEM IS ADDED MORE THEN ONE LINE
BEGIN
---DBMS_OUTPUT.ENABLE();
CREATE GLOBAL TEMPORARY TABLE TMP_PICK_LIST
  --SLNO INT
  FGCODE VARCHAR2(25),
  INCODE VARCHAR2(25),
  LPN_ID INT,
  LPN_NUMBER VARCHAR2(30),
  QTY_AVAILABLE INT,
  QTYALLOCATE INT,
  ITEMTYPE VARCHAR2(10),  -- FG OR IN TYPE OF ITEM ALLOCATED
  PACK_OR_LOOSE VARCHAR2(10), -- PACKED ITEM OR LOOSE
  SUBINVENTORY VARCHAR2(20),
  LOCATOR_ID INT,
  LOCATOR VARCHAR2(20)
) ON COMMIT  PRESERVE ROWS;
FOR REC in C1
LOOP
  -- QUANTITY NEED TO ALLOCATE
  QNTY_REQ := REC.ORDERED_QUANTITY;
  QNTY_ALLOCATED  :=0;
  /* START : ALLOCATE FG QUANTITY IF AVAILABLE  */
  --CHECK FG ITEM AVAILABLE IN THE ORDERED SUBINVENTORY ?
   SELECT COUNT(1) INTO FGONHAND_CNT FROM MTL_ONHAND_QUANTITIES_DETAIL 
              WHERE ORGANIZATION_ID = varORGANIZATION_ID AND INVENTORY_ITEM_ID = REC.FG_INVENTORY_ITEM_ID  AND SUBINVENTORY_CODE = REC.FG_SUBINVENTORY;
   IF FGONHAND_CNT > 0 THEN
      SELECT SUM(TRANSACTION_QUANTITY) INTO FGONHAND_QTY FROM MTL_ONHAND_QUANTITIES_DETAIL 
                 WHERE ORGANIZATION_ID = varORGANIZATION_ID  AND INVENTORY_ITEM_ID =REC.FG_INVENTORY_ITEM_ID  AND SUBINVENTORY_CODE = rec.FG_SUBINVENTORY;
      --IF THE AVAILABLE FG ONHAND IS LESS THEN EQUAL TO ORDER QUANTITY OR MORE
       IF ( FGONHAND_QTY <= QNTY_REQ ) THEN
                INSERT INTO TMP_PICK_LIST (FGCODE          ,INCODE    ,LPN_ID, QTY_AVAILABLE      ,QTYALLOCATE         ,ITEMTYPE,PACK_OR_LOOSE,SUBINVENTORY     , LOCATOR_ID )
                                    SELECT REC.ORDERED_ITEM,REC.INITEM,LPN_ID,TRANSACTION_QUANTITY,TRANSACTION_QUANTITY,'FGITEM','LOOSE'      ,SUBINVENTORY_CODE,LOCATOR_ID
                                   FROM MTL_ONHAND_QUANTITIES_DETAIL  WHERE ORGANIZATION_ID = varORGANIZATION_ID
                             AND INVENTORY_ITEM_ID =REC.FG_INVENTORY_ITEM_ID  AND SUBINVENTORY_CODE = rec.FG_SUBINVENTORY;
            --UPDATE ALLOCATED QTY
            QNTY_ALLOCATED := FGONHAND_QTY;
            --UPDATE QTY REQUIRED
            QNTY_REQ := QNTY_REQ - QNTY_ALLOCATED;
          END IF;
   END IF;
  /* END : ALLOCATE FG QUANTITY IF AVAILABLE  */    
  /* START : ALLOCATE IN TYPE ITEM IF AVAILABLE  */
      IF  QNTY_REQ > 0 THEN --IF YES , THEN ALLOCATE - IN TYPE OF ITEM
          SELECT COUNT(1) INTO varINONHAND_CNT FROM MTL_ONHAND_QUANTITIES_DETAIL 
              WHERE ORGANIZATION_ID = varORGANIZATION_ID
              AND INVENTORY_ITEM_ID = REC.IN_INVENTORY_ITEM_ID 
              AND SUBINVENTORY_CODE IN ( varAFM_IN_TYPE_SUBINV );
          IF  varINONHAND_CNT > 0 THEN
             CURSOR C2 IS
             SELECT * FROM
             (SELECT REC.ORDERED_ITEM,REC.INITEM,LPN_ID,TRANSACTION_QUANTITY QTY,SUBINVENTORY_CODE,LOCATOR_ID
                  FROM MTL_ONHAND_QUANTITIES_DETAIL  WHERE ORGANIZATION_ID = varORGANIZATION_ID
                   AND INVENTORY_ITEM_ID =REC.IN_INVENTORY_ITEM_ID AND SUBINVENTORY_CODE IN ( varAFM_IN_TYPE_SUBINV )
                   AND LPN_ID IS NOT NULL ORDER BY LPN_ID ASC);
             FOR REC1 in C2
             LOOP
                IF REC1.QTY <= QNTY_REQ THEN
                   INSERT INTO TMP_PICK_LIST (FGCODE,INCODE,LPN_ID,QTY_AVAILABLE,QTYALLOCATE,ITEMTYPE,PACK_OR_LOOSE,SUBINVENTORY     , LOCATOR_ID )
                                 VALUES(REC1.ORDERED_ITEM,REC1.INITEM,REC1.LPN_ID,REC1.QTY,REC1.QTY,'INITEM','PACK',REC1.SUBINVENTORY_CODE,REC1.LOCATOR_ID );
                  --UPDATE ALLOCATED QTY
                  QNTY_ALLOCATED := QNTY_ALLOCATED + QTY;
                  --UPDATE QTY REQUIRED
                  QNTY_REQ := QNTY_REQ - QTY ;
                ELSIF REC1.QTY > QNTY_REQ THEN --IF LPN HAVING MORE THEN REQUIRED
                  INSERT INTO TMP_PICK_LIST (FGCODE,INCODE,LPN_ID,                QTY_AVAILABLE,QTYALLOCATE,ITEMTYPE,PACK_OR_LOOSE,SUBINVENTORY     , LOCATOR_ID )
                                 VALUES(REC1.ORDERED_ITEM,REC1.INITEM,REC1.LPN_ID,REC1.QTY     ,QNTY_REQ,'INITEM','PACK',REC1.SUBINVENTORY_CODE,REC1.LOCATOR_ID );
                  --UPDATE ALLOCATED QTY
                  QNTY_ALLOCATED := QNTY_ALLOCATED + QTY;
                  --UPDATE QTY REQUIRED
                  QNTY_REQ := QNTY_REQ - QTY ;
                END IF
                IF QNTY_REQ = 0 THEN
                     EXIT;
                END IF;
             END LOOP;
             CLOSE C2;
          END IF;             
      END IF;
  /* END : ALLOCATE IN TYPE ITEM IF AVAILABLE  */
-- ELSE 
   --DBMS_OUTPUT.PUT_LINE(QNTY_REQ);
END LOOP;
--UPDATE LPN NUMBER & LOCATOR NAME
--CLOSE C1;
--DBMS_OUTPUT.PUT_LINE('M');
END;    

Answer 1

without going too much in depth about the code
You error is here:
BEGIN
---DBMS_OUTPUT.ENABLE();
CREATE GLOBAL TEMPORARY TABLE TMP_PICK_LIST
...You're doing DDL inside a PL/SQL block. (creating the GLOBAL TEMPORARY TABLE)
That is not correct.
You would need to have that table created before running the PL/SQL block.
Do not, never, create objects at runtime!