Answer Posted / remya

DCLF FILE(DSP) RCDFMT(RECDSP)
DCL VAR(&X) TYPE(*DEC) LEN(2 0)
DCL VAR(&Y) TYPE(*DEC) LEN(2 0)

L1:SNDRCVF RCDFMT(RECDSP)
CHGVAR VAR(&X) VALUE(95)
CHGVAR VAR(&Y) VALUE((&X/10)*10)
CHGVAR VAR(&Y) VALUE(&X-&Y)
GOTO CMDLBL(L1)

How to reverse a string using RPG?

1516

---

what is subfile?

1602

---

what is a program described file in rpg?

1751

---

records can be read/update/deleted with which file?

1085

---

distinguish between terminating a program through seton lr and return?

1110

---

define the purpose of the %sst function?

1663

---

how many types of display are available on as/400 for user interaction?

1122

---

Difference Between Skip Before & Space Before?

1234

---

WHAT IS AS/400 SYNORIO?

3366

---

What is the difference between physical file and logical file?

1146

---

how to write code for singlepage in sqlrpgle with update ?

2830

---

what is the necessary keyword for non-join logical file?

1836

---

what is the purpose of ovrdta (override data) keyword?

1822

---

what are the different methods to access seu?

1108

---

what are different types of substems?

2273

---