DECLARE
	CURSOR GRP2 IS
	SELECT ROWNUM RN2, MODULE_MAST.MODULE_CODE||' - '||MODULE_NAME MODULE
	FROM MODULE_MAST, USER_MAST WHERE :LOGIN_USER_CODE = USER_MAST.USER_CODE
	AND :LOGIN_PASSWORD = USER_MAST.PASSWORD;
BEGIN
	CLEAR_LIST ('LOGIN_MODULE_LIST');
	FOR I2 IN GRP2 LOOP
		ADD_LIST_ELEMENT ('LOGIN_MODULE_LIST', I2.RN2, I2.MODULE, I2.MODULE);
	END LOOP;
END;

CREATE TABLE ENTITY_MAST(
ENTITY_CODE VARCHAR(2) NOT NULL,
ENTITY_NAME VARCHAR(50));
INSERT INTO ENTITY_MAST VALUES ('SR','SR INFO SOLUTION');
INSERT INTO ENTITY_MAST VALUES ('DP','DIGITAL PLANET');
INSERT INTO ENTITY_MAST VALUES ('XP','XEROX POINT');

BEGIN
DECLARE
	RG_LIST_ID RECORDGROUP;
	RG_NAME VARCHAR (20) := 'RG_LIST';
	RET_CODE NUMBER;
	V_SELECT VARCHAR (60);
	BEGIN
   V_SELECT := 'SELECT ENTITY_NAME, ENTITY_NAME FROM ENTITY_MAST ORDER BY 1';
   RG_LIST_ID := FIND_GROUP (RG_NAME);
   IF NOT ID_NULL (RG_LIST_ID)
   	THEN
   	DELETE_GROUP (RG_LIST_ID);
   END IF;
   RG_LIST_ID := CREATE_GROUP_FROM_QUERY (RG_NAME, V_SELECT);
   RET_CODE := POPULATE_GROUP (RG_LIST_ID);
   POPULATE_LIST ('LOGIN_ENTITY_LIST','RG_LIST');
   DELETE_GROUP (RG_LIST_ID);
	END;
END;
SET_ITEM_PROPERTY('LOGIN_ENTITY_LIST',INITIAL_VALUE,'XEROX POINT');

:login_entity_list := 'XEROX POINT';