Interested to Buy Any Domain ? << Click Here >> for more details...
How to read 2 positions at a time in a data area? I have
created a data area of length and i have to read the values
of the data area like 91-92,93-94 at a time up till 100
- 3 Answers
- 8586 Views
- I also Faced
- E-Mail Answers
Answer Posted / chandrababu
To read two digits from data area we co as below
TESTDTA data area value is ABCDEFGHIJKL
Program:
0001.00 PGM
0002.00 DCL VAR(&AB) TYPE(*CHAR) LEN(2)
0002.01 DCL VAR(&I) TYPE(*DEC) LEN(2) VALUE(1)
0003.00 READ: IF COND(&I *LE 24) THEN(DO)
0004.00 RTVDTAARA DTAARA(DURGA4001/TESTDTA (&I 2)) RTNVAR(&AB)
0004.01 CHGVAR VAR(&I) VALUE(&I +2)
0004.02 IF COND(&AB *NE ' ') THEN(DO)
0004.03 SNDUSRMSG MSG(&AB)
0004.04 ENDDO
0004.05 ELSE CMD(GOTO CMDLBL(END))
0006.00 GOTO READ
0007.00 ENDDO
0008.00 END:
0009.00 ENDPGM
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
What Is The Object Type Of Pf, Lf, Printer File & Display File?
Explain The Keywords Edtcde & Edtwrd?
define a shared access path?
why do we use readc? What is sflnxtchg?
when would you use or not use this approach?
Write a CL program which will run a batch job at 1 am every night
how will you display a particular page in subfile ?
what would be the effect on the field where reverse image, underline and highlight display attributes were active?
difference between view and index ?
distinguish between terminating a program through seton lr and return?
how to write *pssr ?
What is diff between EVAL & MOVE?
what is a logical file?
what opcode could be used to test an alphanumeric field for all numeric values?
how do you use exceptional write in c specs?
