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
- 6229 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
explain the purpose of keep and assume keywords?
what is the maximum number of files allowed in rpg?
what is the favicon.ico request that my site receives now and then?
How to debug a batch job when it is in messagewait(mswg) status. I know the steps for batch ebugging, but im confusing with when we submit any job for batch debug we put in held state. So here also do same thing or any other way?
records can be read/update/deleted with which file?
what is a non-join logical file?
Difference Between Source Physical File & Physical File?
what are different record spacing keywords in rlu ?
how to run other job when one job is active?
how many types of display are available on as/400 for user interaction?
how to define to define a hidden filed in dspf ?
what is the command to know key fields of file?
different type of cursor?
what is the purpose of overrides?
what does the ovrdbf command do?
