Answer / syam

CL Supports Max 5 Files per porgram in Ver 5 Rel 4 and
above.

PGM
DCLF FILE(File1) OPNID(P1)
DCLF FILE(File2) OPNID(P2)

RCVF OPNID(P1)

RCVF OPNID(P2)

ENDPGM

Answer / nipun

DCLF with an OPNID keyword to specify a unique id to every file opened in a CL.

Answer / d

we can declare one file in cl .
but in cle we can declare max 5 files.

Answer / ermohit007

With OPNID keyword you can declare more than one file in CL
but this facility is available only in CLLE and you can
declare upto 5 files.

Answer / mathan kumar

DCLF FILE(DSP101) RCDFMT(SCR1)
DCLF FILE(DU) RCDFMT(SCR1) OPNID(OPN)
SNDRCVF RCDFMT(SCR1)
SNDRCVF RCDFMT(SCR1) OPNID(OPN)

Answer / siva prasad

in cl 400 we cannot dcl more then 1 file
but in clle we can dcl max 5 files by using
open id
syntax
DCLF DIV(FNAME) OPNID(FNNAME)
DCLF DIV(LNAME) OPNID(LNAME)

Answer / prototype

V5R3 and above -
You can declare more then 1 file, a maximum of 5 along with
a unique open id against each. These open id's can be used
to read data from these files.
Source member name may not be CLLE, it will work with CLP
as well.
CLLE is ofcourse required but when CALLPRC or something of
the sort (AN ILE FEATURE) is used but not for DECLARING
files!

Answer / kapil kumar

In cl/400 u can not declare more than one file but in clle u can declare max. of five files. Syntax is same as in cl/400
DCLF

Answer / g.karthik

we can declare only one file in cl/400..

not possible in cl/400 to declare 2 or more files..
it is possible in rpg/400

Answer / deepak

we can declare moer than one file in cl/400 by using opnid

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

3 Answers  

what are the types of identifers

2 Answers   IBM,

I have file with data as follows data 1 2 3 4 5 I need to read 1 and 5 ,then 2 and 4 then like.. upto end of file, can any one help on this

3 Answers   ISG,

1. I have2 records in a PF. READ PF DO DSPLY EMPNO RETRN DSPLY EMPNO ENDDO What was the output 2. SETON LR vs RETURN 3. Primary File 4. How to delete a deleted spaces 5. How to read a PF in reverse order in CL 6. I have a object in Lib A, B and C. But it shows in D Lib..Why? 7.

4 Answers   HCL,

How to print output from openquery in as400 ?

1 Answers   Four soft,

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

0 Answers  

Can any one plz explain the concept of INFSR, *PSSR, INFDS AND PSDS, I' confusing about PSDS and *PSSR, Wat is the difference btw them, wat PSDS will do????

1 Answers  

1.Where we declare Variables in RPG/400,RPGIV,RPGILE.? 2.When do we use D-spec and I-spec in real time ?.what is difference between them?

1 Answers   HP,

Mr.Yallamanda Reddy P thanks for your answer sir,can we use test(D) opcode in RPG/400,if yes please help me by eloborating on that answer by writing a sample code for that sir

2 Answers   iGate,

Hi, I am getting the error in RPG (All Record Formats for externally-described file ABCD ignored or dropped due to error; file ignored.) Please suggest any

2 Answers   Satyam,

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,

1.How you will find the program is batch or online in cl pgm? 2.How you will end the batch pgm when the job runs? write an logic? 3.In wich command the option *drop is used?

2 Answers   TCS,