Answer / samul paul

Normally,we avoide to add the Trigger (Update operation)
for that PF.
If Update trigger exists with the same program name and
*After then it will trigger following msg when u try to
update the record in display file.

An error in the trigger program was detected after UPDATE
on file USRPF.
Function check. RNX1024 unmonitored by PGM1 at statement
0000000095,
instruction
X'0000'.

An error in the trigger program was detected after UPDATE
on file USRPF (C
G D
F).

An error in the trigger program was detected after UPDATE
on file USRPF (C
G D
F).

Answer / sachin

no you can't use rpg/400
you can use triggers on ile programs

Suppose we add one field in physical file and this physical file is used by several programs.how do we know which program is using that file? What are the impact analysis.

6 Answers  

---

How can we override a file during runtime in RPG? Without using OVRDBF or calling a CL program

1 Answers   UST,

---

When a object will be locked & when a record will be locked? Plz explain.

2 Answers  

---

is this a rpg channel?

0 Answers   IBM,

---

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,

---

i want to retrieve record b/w 2 dates in as400

2 Answers   L&T,

---

i have 1000 records in pf.what are all the ways to read a particular name records in rpg?? ie.. in pf i have a name called demo appeared around 52 times hw will we read this particular records in rpg/400?.

11 Answers   IBM,

---

HI,1: What is the function of 'SETON LR' AND '*INLR=*ON ? 2:Can we used "seton lr" OR "*INLR = *ON" in between the program code ? 3:if yes then according to there function the code which is written acter seton lr/ *inlr should not be execute . Can any one tell me why those code get executed ?

2 Answers  

---

I have to change a program. This program is calling a subroutine mor than 100times within it. so will it have any performance issue? if yes than what changes i can make. Thanx for ur valuable answer.

2 Answers  

---

what is kids-rpg?

0 Answers   IBM,

---

1) How to define keyed file in CL pgm. 2) How can i read particular records in CL pgm from database file.

2 Answers  

---

We have job which is running as batch. It takes atleast 06 hours to complete tht job. But I wanna do tht job with in 3 hours?

0 Answers  

---