Answer Posted / naveen chandra joshi

The questions asked are:
i)What is the command to lock a file in a program?

ii)Can you get a level check error in a CL program?

Answers:
1) ALCOBJ,

2) Yes,if the file is declared in CL program then we can get Level Check error in case of record level identifier mismatched. I have tried this in the system and then only posting over here.

Regards,
Naveen Chandra Joshi.
+91.9891501280.

Interviewer asked me write down DDS for load all subfile .can anybody write dds

1366

---

When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?

718

---

How would display prime numbers using CL program?

5941

---

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

898

---

Explain mdt?

855

---

what do you mean by an input subfile, what are the keywords required?

1016

---

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

2287

---

What is the difference between copybooks and subprocedures in as400?

1072

---

explain sflclr, sflend, sfldlt, and sflcsrrrn?

1078

---

How many program bind in one module....

2344

---

if there is a module object , how to find the program object for this module object.Assume the module object name and program object name is not same.

2390

---

Suppose we have one database file and it is used by 5 programs and in 3 program we have to add some records in datbase file s what is the impact on other program?

1670

---

What is the difference between iter and do?

918

---

give an eg of ACQ-(ACQUIRE),BIT OFF,BIT ON,DEALLOC,DUMP,FEOD,FORCE,MHHZO,MHLZO,MHLLZO,MLHZO,REL,RESET,TESTZ,TESTB,TESTN----GIVE SMALL EXAMPLE TO THE OPCODES...TO UNDERSTAND FUNCTIONING...........

3549

---

what happens when sflsiz = sflpag? What are the advantages and disadvantages?

939

---