Interested to Buy Any Domain ? << Click Here >> for more details...
Hi.can any body give me the code for this quesiton
please.Because i dont have to try to enter the code in to
the AS/400 server.Please can anybody give the answer for
this question with complete code?
A smple RPLE pgm which accepts the starting number and
ending number as parameter.It then has to count all the odd
numbers b/w the accepted range of numbers and display the
results/
Ex:if the input parameters are 11 and 30 the result should
be 10(11,13,15,17,19,21,23,25,27,29)
Please explain and give me the complete code?
- 2 Answers
- 6146 Views
- Bally Technologies, I also Faced
- E-Mail Answers
Answer Posted / arun kumar
D Start S 3S 0
D End S 3S 0
D Count S 3 0
D Temp S 3 0
D Rslt S 3 0
D Rslt1 S 3 0
C *Entry PLIST
C PARM Start
C PARM End
/Free
Eval Temp = Start;
Eval Count = Start;
DoW Count <= End;
If %Rem(Temp:2) <> 0;
Rslt1 = Rslt1 + 1; //Number of ODD Numbers
Rslt = Rslt + Temp; //Sum of ODD Numbers
EndIf;
Temp = Temp + 1;
Count += 1;
EndDo;
Dsply Rslt1;
Dsply Rslt;
*InLR = *ON;
/End-Free
C** *InzSR BegSR
C** EndSR
| Is This Answer Correct ? | 0 Yes | 1 No |
Post New Answer View All Answers
what is the purpose of putovr (put with explicit override) keyword?
In AS/400 projects in Companies whats the meaning of production support team.what production support involves.also what work does development,maintenance involve what are the other teams or processes that are available for as400 project.
how to toggle between single line and multi - line display of a particular record in a subfile?
how will you search an array?
what is a non-join logical file?
what are the different methods to access seu?
define a output queue?
when do you explicitly open files and close files in an rpg program?
how to get the cursor position?
using dfu, user will be able to ___________ from physical file?
how many files can be defined in f specs?
any one have give AS400 study material? pls pass it to gopalsai789@gmail.com
What is dynslt?
To Add A File To The 'file Selection' Option Of A Query, The Function Key To Be Pressed Is?
what is externally described file ?
