How to retrieve data area value in RPG program