declare
		CURSOR post_ppfs
	IS
		select ppno,subpp,color,c_ref,pack,pcs,kgs from pp_dpkd
			WHERE 	PP_DPKD.PPNO=:PPMAIN.MPPNO;

				MCNAME pp_dpkd.COLOR%TYPE;
				

BEGIN
	GO_BLOCK('SUB_MAINPP1');
	OPEN POST_PPFS;
	LOOP
		FETCH POST_PPFS 
		INTO MCNAME;
		EXIT WHEN POST_PPFS%NOTFOUND;
		
		GO_ITEM('SUB_MAINPP1.C_NAME');
		CREATE_RECORD;
		
		:SUB_MAINPP1.C_NAME			:= MCNAME;
		
		
	END LOOP;
	CLOSE POST_PPFS;
		end;