Interested to Buy Any Domain ? << Click Here >> for more details...
Define the purpose of the following code (If you know, how would this be written in RPG ILE)
HI LO EQ
C *IN66 DOUEQ *OFF
C KEY1 CHAIN
FILEA 90 66
C 66 CALL
PGM1 PRM
C ENDDO
- 1 Answers
- 1662 Views
- I also Faced
- E-Mail Answers
Answer / sanjeet kumar
Whenever the indicator *IN66 becomes *OFF, the control transfers after ENDDO statement. Otherwise, it reads the records from the data base file based on indicator specified on HI position. If the specified indicator on LO position becomes *OFF, then only CALL statement will execute.
| Is This Answer Correct ? | 0 Yes | 0 No |
How to genarate the reports?
Can anybody please tell me what is difference between SQL (STRSQL ) and WRKQRY .....?
what is join logical file?
what does check opcode do ?
how do you turn off indicators 50 through 59 in only one operation
What is the purpose of the following FORDHDR1 CF E WORKSTN $2SFN SFILE FMT2
what is a non-join logical file?
which are control break logic indicators?
what is the difference between sflclr and sflinz?
Why we have multiple data types in As400 and why we use numeric, packed, decimal, zoned the basic difference between this?
PGM QSH CMD('/QOpenSys/bin/sftp -b/home/test/myfile.txt serverUserID@server') ENDPGM Can u plz tell me what the above code do exactly?
What are the different opcodes used for file operation on a subfile in a rpg pgm?
RPG400 
