Hi.can any body give me the code for this quesiton please.Because i dont have

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?

Question Posted / vgl.mails@gmail.com

2 Answers
6262 Views
Bally Technologies, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

Hi.can any body give me the code for this quesiton please.Because i dont have to try to enter the ..

Answer / arijit

Please try the below code:

D @StartNum S 3S 0
D @EndNum S 3S 0
D #Counter S 3S 0
D #LoopCnt S 3S 0
D #Result S 50A
*
C *Entry Plist
C Parm @StartNum
C Parm @EndNum
*
C Eval #Result = '('
C Eval #LoopCnt = @StartNum
C Eval #Counter = 0
*
C DoW #LoopCnt < @EndNum
C If %REM(#loopCnt:2) =
1
C Eval #Result = %TRIM(#Result)
+
C %TRIM(%CHAR
(#LoopCnt)) + ','
C Eval #Counter = #Counter +
1
C
ENDIF

*

C Eval #LoopCnt = #LoopCnt +
1
C
EndDo

*

C Eval %SUBST(#Result:%Len(%Trim
(#Result)):1) = ' '
C Eval #Result = %CHAR(#Counter)+%
TRIM(#Result)+')'

*

C #Result
Dsply
C EVAL *InLr =
*On

Is This Answer Correct ?

2 Yes

0 No

Hi.can any body give me the code for this quesiton please.Because i dont have to try to enter the ..

Answer / arun kumar

D Start S D End S D Count S D Temp S D Rslt S D Rslt1 S C *Entry PLIST C PARM C PARM /Free Eval Temp = Start; Eval Count = Start; DoW Count <= End; EndIf; Temp = Temp + 1; Count += 1;

EndDo; *InLR = *ON; /End-Free C** *InzSR BegSR C** EndSR 3S 0
3S 0
3 0
3 0
3 0
3 0

Start
End

If %Rem(Temp:2) <> 0;
Rslt1 = Rslt1 + 1; //Number of ODD Numbers
Rslt = Rslt + Temp; //Sum of ODD Numbers

Dsply Rslt1;
Dsply Rslt;