Answer Posted / puneet7jun

You can achieve the above by a CL Program. I'm writing a
sample program which is reading DATA AREA 'TESTDTA' of
length 6.
PGM
DCL VAR(&A) TYPE(*CHAR) STG(*AUTO) LEN(1)
DCL VAR(&B) TYPE(*CHAR) STG(*AUTO) LEN(1)
DCL VAR(&C) TYPE(*CHAR) STG(*AUTO) LEN(1)
DCL VAR(&D) TYPE(*CHAR) STG(*AUTO) LEN(1)
DCL VAR(&E) TYPE(*CHAR) STG(*AUTO) LEN(1)
DCL VAR(&F) TYPE(*CHAR) STG(*AUTO) LEN(1)
RTVDTAARA DTAARA(ICIWRKPUS/TESTDTA (1 1)) RTNVAR(&A)
RTVDTAARA DTAARA(ICIWRKPUS/TESTDTA (2 1)) RTNVAR(&B)
RTVDTAARA DTAARA(ICIWRKPUS/TESTDTA (3 1)) RTNVAR(&C)
RTVDTAARA DTAARA(ICIWRKPUS/TESTDTA (4 1)) RTNVAR(&D)
RTVDTAARA DTAARA(ICIWRKPUS/TESTDTA (5 1)) RTNVAR(&E)
RTVDTAARA DTAARA(ICIWRKPUS/TESTDTA (6 1)) RTNVAR(&F)
SNDUSRMSG MSG(&A)
SNDUSRMSG MSG(&B)
SNDUSRMSG MSG(&C)
SNDUSRMSG MSG(&D)
SNDUSRMSG MSG(&E)
SNDUSRMSG MSG(&F)
ENDPGM

how do you use commitment control in rpg program ?

2037

---

how can I automatically refresh a web page?

1043

---

how do you specify the number of records to roll in a subfile ?

2135

---

how will you display a particular page in subfile ?

1674

---

what are different types of substems?

2210

---

what is a query can be run in which mode?

1286

---

how do u compile rpgle program?

1096

---

how will you search an array?

1071

---

how can I give more performance to some selected pages?

1012

---

how many levels are there in a physical file?

1765

---

what does defn do?

1052

---

what is the maximum number of fields under a record format of physical file?

1827

---

what is the use of jdftval in join logical file?

1775

---

what is the purpose of dynslt keyword?

1729

---

if dspatr(pc) and csrloc were specified for a format, which keyword would have priority?

1645

---