Whenever the indicator *IN66 becomes *OFF, the control transfers after ENDD

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

Question Posted / sanjeet kumar

1 Answers
1545 Views
I also Faced
E-Mail Answers

Answer Posted / 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

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

what is join logical file?

1848

what is the difference between sflclr and sflinz?

1736

maximum number of subfiles that can be active for a single file is?

1674

Explain The Keywords Edtcde & Edtwrd?

1365

what are the uses of factor1, factor2 and result field for the rpg operation code parm?

1018

What Is Ddm ?

1664

what is the purpose of dynslt keyword?

1729

records can be read/update/deleted with which file?

1064

How to add 99 menu (page down) option in menu creation..

2349

Using %check we are checking monika in mona what is output? What is %SCAN?

1640

which are the relational operators in rpg?

1104

how many printer files maximum can be used in single rpg program?

1172

The content of Physical file is as below: hfcftp wruquief SENDPASV 0 CDUP ASCII GET 01100901.CSV ramndk/ECP505.EC0110090 (REPLACE QUIT Thw above commands will get executed when we call STRTCPFTP from CL program.... Now if I want to use SFTP what can be the solution? plz reply in detail....Thank you for ny help... I m using RPG/ILERPG to download...

2339

WHAT IS AS/400 SYNORIO?

3349

What Is The Difference Between Goto & Exsr?

1637