Answer / prabhas

Using INFDS

Answer / dkumar3

Shift + Ecs key >> 14 >> F11 this will display the all open files and corresponding RRN no.

Answer / narendra

There are many ways to retrieve the value of RRN in RPG. One way is to use the INFDS (File information data structure) and in data structure define the RRN from pos 397 to 400.
Another way is to use the Keyword RECNO(RRN) while defining the file in the F Spec.

what is difference between DSPFD and DSPFFD?please give me real senario with good example?

1 Answers  

---

Difference between RESET and CLEAR

1 Answers   TCS,

---

do you use message subfiles? What are the necessary keywords required coding a message subfile?

0 Answers   IBM,

---

Suppose i am having 3 programs PgmA,pgmB,pgmC and using source debugger. At debugging time i found that pgmC having some code error..then in debug mode directly how can i debug pgmC

2 Answers  

---

how to convert date format from one format to another i think in CL/400 its CVTDAT,Please tell in RPG/400 sir not in RPGILE

3 Answers   iGate,

---

---

In RPG program one file using as a PRIMARY file while running program some of the records reading twice any body know why its happening

2 Answers  

---

How to set on/off a group of indicators in a single statement?

3 Answers  

---

Anybody can explain the difference between SFLCLR & SFLINZ?

7 Answers  

---

How can we make use of SETLL operation in CL?

11 Answers  

---

How to print Superscript / Subscript from RPG400

1 Answers  

---

What is difference between bind by copy and bind by reference?

0 Answers  

---

Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On

0 Answers   IBM,

---