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

define a output queue?

1595

---

under given circumstances, my cgi should link to another site. How to implement this?

1020

---

If i change any file through application after entering data , how to check which file is updated through applications . For call stack we takes esc 3 then we chose 11..But What is answer of below qtn..?

1919

---

can you display a empty subfile?

1241

---

what is the command used to invoke rlu ?

1897

---

is their a difference in cobol400 for the release 5.2 and 6.1 at the as400.

2566

---

what is match field indicator?

1742

---

How do I remove a flag or check no. or name when a user opens too many sessions?

2208

---

Which command is used to replace CDUP command in FTP IF i WANT TO USE SFTP?

2437

---

In RPG How to read a records from a file without using read opcodes?

1526

---

what does check opcode is used?

1797

---

What Does Lokup Does In Tables & Arrays?

1277

---

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

1817

---

what is the maximum number of subfiles that can specified in a display file ?

1794

---

what is the function of cpysplf command?

1691

---