Answer Posted / vijay

to send a return value, you have to defined the return variable in front of PI which actually contain the return value the code should be as follows

P GETMAX B
D GETMAX PI 45 0
D NUM1 35 0
D NUM2 45 0
D rtnfld 45 0
C IF NUM1 > NUM2
C Eval rtnfld = Num1
C ELSE
C Eval rtnfld = Num2
C ENDIF
C Return rntfld
P GETMAX E

is this a rpg channel?

1119

---

what is program status data structure?

2280

---

Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg

1095

---

can I touch the array during treatments?

1113

---

what is the use of sflnxtchg?

1205

---

How many program bind in one module....

2604

---

what is a rpg?

1132

---

What is file identifier where we can use?

1072

---

Set on command is used for closed all opened files , initialize var and release resource , return cmd is used for return to calling program but my req. Is dnt close opened files and resource must released while doing transactions , how can i do this...?

1985

---

thanks mr.Harshad R Suryawaunshi,i'm new to as400 i think you are telling in rpgile i know only rpg400 if possible can you tell in rpg400

2267

---

1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.

6362

---

how can you display specific subfile page on the screen in unequal subfile?

1081

---

can you debug ile rpg program using isdb?

1186

---

are there any useful c runtime apis that I can call from rpg iv?

1114

---

Please tell me how to read the records from a file with load an array of size with error conditions(The logic answer for this question is ARR is array of 99 elements Z-ADD 0 IDX *LOVAL SETLL FILE READ FILE 99 *IN99 DOWEQ *OFF IDX ANDLT 99 ADD 1 IDX MOVE FIELD ARR,IDX READ FILE 99 ENDDO).So,Please give me the complete of this code.

2459

---