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

some special characters I key in my html source members show different on my web pages. Why? How can I solve this?

1136

---

how to write code for singlepage in sqlrpgle with update ?

2889

---

What are the types of data structure in as400?

1094

---

what are members?

1118

---

maximum number of subfiles that can defined in a rpg program for one display file is?

2089

---

what opcode could be used to test an alphanumeric field for all numeric values?

1840

---

what does the opcode free do?

2033

---

what is message file?

1116

---

WHAT IS AS/400 SYNORIO?

3420

---

what is the function of rlu ?

1777

---

what is elastic and non elastic subrile?

1049

---

define what a data queue is along with a brief example of what it may be used for?

1885

---

what is *inzsr used for?

2410

---

how to run other job when one job is active?

1077

---

Write a logic program for knowing the repeated number of a vowels in a given program?

3797

---