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
- 8756 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 logical file?
how do you use exceptional write in c specs?
how to pick up the changed records every time in a subfile after the first change made ?
how does union file maintains record formats?
what are the two record formats a subfile contain ?
what is the sequence when using cursor?
Can you summarize the steps I have to go through in writing my first cgi?
how many types of display are available on as/400 for user interaction?
how you get the relative record in a subfile in which cursor is located?
what is the use of data structures?
what is a composite key?
Pose, there are 100 records in the file.i need to retrieve all the records matching/equal to the particular name field. How can we do the above using search criteria other than using the if cond?
what is elastic and non elastic subrile?
Difference Between Interactive & Batch Job?
which of the following operations does not zero the field flda defined as 4,0?
