IBM RPG400 Interview Preparation Guide

Download PDF

@CN is an array and @CN,002 represents the 2nd element of
that array

SQL statment is error in embeded sql, then SQL code will
give the negative value.

There is no comparision between DO and ITER as DO statement
is an looping statement and ITER is an branching statement
like LEAVE.
When I use ITER with some condition inside a DO-ENDDO loop,
when that condition occouerd, ITER transfered the control
to ENDDO not out of the loop like LEAVE ie it just skip the
excecution of statements between ITER and ENDDO.

In one statement we can say that ITER in RPGLE is same as
CONTINUE in C.

This can be done using the Key Field.

KEY1(NAME FIELD) SETLL FILENAME
KEY1(NAME FILED) READE FILENAME

we have to create multiple threads in the job. when we
submit the job ,multiple threads will run parallelly. so it
will take very less time to complete the job. This is the
best way I believe.

the length of the signature is 16 bit like g2g4h5v3f3v4546k

Use EXTFILE on F Specs

MDT is a internal indicator.It is used when we are using
SFLNXTCHG in SFL.MDT indicator default in on mode.
breifly when we are using readc for read changed
records.MDT is internally on for every record .If retreive
the record once MDT is going to be off.for that purpose we
used SFLNXTCHG keyword to seton.

system will genaret the uniqe file identifier for every
file.system identifies file thourh that identifier.supose u
can call a file throuh an other program but u do any
change after that file identifier will change.u got error
on that time level check error cause u r file identifier
was changed.

Basically we know 3 type of identifier

1. is numeric which we denotes pic 9(2) like.
2. is alphabetic which we denotes pic A(2) like.
3. is alphanumeric identifier which we denotes pic x(2)like

There is no PEP parameter for CRTSRVPGM command so question
is invalid.

bind by copy: here module will static
bind by reference: here module will be dynamic.

Write a CL program in which u have to submit the 'A' job
after completion you can write code for 'B' and after 'C'

Based on RRN number we can retrieve the first 10 records
or otherwise copy the first 10 records using CPYF command
and you can use RUNQRY for new created file

Using SQL, we can set second field value as '0'

format of variable, length of variable should be date and sep(-/).should be define

extra key "A"

May be you have define you file as output mode

Record level Identifier gives the information about the
specific record format in the file. This can be used to
make sure that the record format of the file is same at
present as it was when the program was compiled.This will
protect the program from going into error due to changes
made to the record format after the compilation of the
program.The system tells the program, when it tries to open
the file, that a significant change occurred to the
definition of the file since the last time the program was
compiled.

let us assume we have some duplicate records in sample table
and we can identify duplicates with eid.

The the query looks like this.

Select * from sample
where eid=any
(select eid from sample having count(eid)>1 group by eid);

Note: This should be used SQl .. but i never tried in as400
when ever it is necessary means i use following sql
statement in as400 .......

select * from sample where eid=111

it displays all duplicate records related to 111

From a CL program you can do a RTVJOBA command, if the job
type value is 0 then batch job, if 1 then interactive job.
Can take a WRKSMBJOB and see the value in TYPe field. If
*INT then it is interactive, If *BCH,then batch job.

Specifies the definition of query fields that are
mapped or derived from other fields. MAPFLD is generally
not needed if the field names specified on other parameters
are simple field names that exist in only one of the file,
member, and record format elements specified for the File
specifications (FILE) parameter.

Up to 50 mapped field definitions can be specified.