DECLARE
    V_CITY VARCHAR2(10);
    
    CURSOR C1 IS
    SELECT CITY_CODE , CITY_NAME
    FROM CITY WHERE CITY NOT LIKE 'NYK'
BEGIN
:MSG:=' ';    
FOR C1_A IN C1 
LOOP
    GO_BLOCK('BLOCK_NAME');
--    FIRST_RECORD;
    :CITY_CODE:=C1_A.CITY_CODE;
    :CITY_NAME:=C1_A.CITY_NAME;
    EXIT WHEN C1%NOTFOUND;
        NEXT_RECORD;
END LOOP;
END;

IF :System.Last_Record = 'TRUE' THEN 
   NULL;
ELSE
   Next_Record;
END IF;