CREATE TABLE ITEMTRAN_BODY
(
VRNO VARCHAR(11) NOT NULL,
CODE NUMBER(11) NOT NULL,
QTYRECD NUMBER(12,3) DEFAULT 0.000,
QTYISSUED NUMBER(12,3) DEFAULT 0.000,
CONSTRAINT PK_ITEMTRAN_BODY PRIMARY KEY (VRNO)
);
INSERT INTO ITEMTRAN_BODY (VRNO, CODE, QTYRECD, QTYISSUED ) VALUES ('CC','2','0','2');
INSERT INTO ITEMTRAN_BODY (VRNO, CODE, QTYRECD, QTYISSUED ) VALUES ('DD','3','1','0');
INSERT INTO ITEMTRAN_BODY (VRNO, CODE, QTYRECD, QTYISSUED ) VALUES ('AA','1','1','0');
INSERT INTO ITEMTRAN_BODY (VRNO, CODE, QTYRECD, QTYISSUED ) VALUES ('BB','2','2','0');
INSERT INTO ITEMTRAN_BODY (VRNO, CODE, QTYRECD, QTYISSUED ) VALUES ('EE','3','0','2');
COMMIT;

SELECT VRNO, CODE, QTYRECD, QTYISSUED, SUM (QTYRECD-QTYISSUED) OVER (ORDER BY VRNO,CODE) CLOSING FROM ITEMTRAN_BODY;
1	AA	1	1.000	0.000	1
2	BB	2	2.000	0.000	3
3	CC	2	0.000	2.000	1
4	DD	3	1.000	0.000	2
5	EE	3	0.000	2.000	0

DECLARE
	CURSOR C_CODE IS
	SELECT VRNO, CODE, QTYRECD, QTYISSUED FROM ITEMTRAN_BODY
	WHERE CODE = :CODE_LOV;
BEGIN
	GO_BLOCK ('ITEM_QUERY_BLOCK');
	CLEAR_BLOCK(NO_VALIDATE);
	FIRST_RECORD;
	FOR CUR IN C_CODE LOOP
		:VRNO1 := CUR.VRNO;
		:CODE1 := CUR.CODE;
		:QTYRECD1 := CUR.QTYRECD;
		:QTYISSUED1 := CUR.QTYISSUED;
		NEXT_RECORD;
	END LOOP;
	FIRST_RECORD;
	GO_ITEM ('CODE_LOV');
END;

SELECT VRNO, CODE, QTYRECD, QTYISSUED, SUM (QTYRECD-QTYISSUED) OVER (ORDER BY VRNO,CODE) CLOSING FROM ITEMTRAN_BODY WHERE CODE='2';
1	BB	2	2.000	0.000	2
2	CC	2	0.000	2.000	0