Read Only Apps Schema In R12.2

Hello Gurus,

Need your help. Can you please guide me in creating a Read-only user which will have similar access as APPS in E-Business Suite Release R12.2.x

The way we had been doing in earlier release of EBS seems to be not working on R12.2.

Following is the way we used to do in release 11.x  12.1.x

SELECT 'GRANT '

|| DECODE(O.OBJECT_TYPE,'TABLE','SELECT','VIEW','SELECT','EXECUTE')

|| ' ON '

|| DECODE(O.Owner,'PUBLIC','',O.Owner || '.')

|| '"'

|| O.OBJECT_NAME

|| '"'

|| ' TO appsro;' COMMAND

FROM ALL_OBJECTS O

WHERE O.OBJECT_TYPE IN ('TABLE','PACKAGE','PACKAGE BODY','PROCEDURE', 'VIEW','FUNCTION')