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
- 6154 Views
- Bally Technologies, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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 |
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 |
What is LEVEL CHECK?
http default port 80 is used by some other production http service. How can I create an http instance on another port to run cgidev2 and my future cgi developments?
which are the member types which seu supports?
what is the function of rlu ?
what is sessional error or divice error in rpg IV?..when will it happens...Give few examples?
What is Data Area?
what is the use of unique keyword and what level it is defined?
What is difference between fully procedural file and primary file?
How can we read file using curser? how to define a curser?
what is the purpose of indicators in rpg?
it is possible declare variable values as variable using cl ? any cl command is there to declare values as variable
What is the purpose of SFLFOLD and SFLDROP keywords?
RPG400 
