How can we read a particular record from the database file
which is not having DDS (Flat File). For example, there are
100 records in the flat file. How can we retrive 15th
record in RPG/400 program (Without using CL)
In single page subfile,if I select the mutiple options in 1
page and without pressing enter,I press rollup key
(pagedown).In such case how I can handle it in rpg becasue
in single page we have to handle it in pgm. It would be
helpful if any one answer with coding
Hi,
My dataset have multiple records, say 100. I want to start
copy records only after a record contain a specific value
that may be in a specific position. Secondly I want to stop
copying rest records if certain record contains a specific
value. Can it be done using SORT/ICETOOL utilities?
In a single step if input file is present then only need to
copy into output file or else need to through a RC is it
possible. Note : i want it in a single step
I have a table which has thousand of records i want to
fetch only record num 100 to record num 200. Write a query
that satisfies this criteria.(Cant use any keys)
Anyone please reply ASAP!
If there are a set of statements and each has a
word "value" in it, If I want to display all these
statements so that the word "value" is aligned, then how do
I code this in REXX.
e.g - The value of X is Y.
Wot is its value?
Do u know its value?
I want to know its value.
What will happen if a variable is declared as below..
Explain with an example?
Working storage section:-
01 WS-VARX PIC X(9) VALUE SPACES.
01 WS-VARN REDEFINES WS-VARX PIC 9(9).
Can you please let me know the centre name of INS
certification in Kolkata.
19
DB2 can implement a join in three ways using a merge join,
a nested join or a hybrid join. Explain the differences?
71
What is the access method used by DB2?
79
quary for
1> fetch last record
2> fetch in reverse order
3> fetch last 5 row
4> fetch second last record (their is no primary key)
i think concept of count can be use for this in 4th
11
how to create a changeman read only audit and update only
audit
Specifications for the Read only Audit
1) Read HFFD database unqualified.
2) Read FDRT, FDDM, FDAP segments.
If FDAP-APP-STS is ‘2’ read the FDAV segment and get the
FDAV segment which has FDAV-APV-OPTION as ‘X’
If FDAP-APP-STS is ‘5’ read the HFAC database. Read the
ACRT segment qualified based on the key obtained from the
FDAP segment from HFFD database.
Conditions for writing into output file:
a. App Type should be NEWR
b. App Status should be 1, 2 & 5.
c. Write 50 records per app status. For e.g. first 50
records for App status 1, 2 & 5 each
The output file should contain the following fields from
the database
FDRT-COMP-CTRY-CODE X(03).
FDRT-CUST-ID-NUM X(10)
FDDM-DEM-SEQ-NUM X(01)
FDAP-APP-SEQ X(02)
FDAP-JNT-IND X(01)
FDAP-APP-STS X(01)
FDAV-APV-OPTION X(01)
FDAV-APV-DT X(06)
FDAV-APV-AMT X(07)
ACRT-ACCT-NUM X(06)
ACRT-SEG-BUS-TYPE X(02)
ACRT-NM1-LAST X(19)
ACRT-NM1-SS X(09)
ACRT-NM1-1ST X(12)
ACRT-NM1-INIT X(01)
ACRT-NM1-SFX X(03)
ACRT-NM1-TITLE X(02)
PSB – DVAN2BMP
In case you get a GE for any of the conditions, write to
output file along with the details of the database segment
which was not found.
We need to complete this whole process by tomorrow.
Run the audit in DLI mode.
2) Sort the output file created in step 1 on Cust ID, Dem
Seq & App Seq.
Specifications for the Update Audit
3) Take the output of step 2 as input for an update audit.
Details are as follows:
Read each record & check the app status.
If app status is less than 2 then update the FDAP-NEW-
MONEY-ENT to $25000.00
PSB - AUDBMPJ
The job would be a BMP job. The test job would be run in
IMSE region.
Note - The proc (which will be called by the job) and the
job should also be present in the change-man package itself.
You’ll have a test job in your PDS along with overrides to
execute the program in test regions.
The job would be a DLI job. The test job would be run in
IMSE region. It’ll have the following steps.
1) Delete-define output and error files.
2) Use a copybook for the output layout.
How can i change the below code in SQL to cobol/400?
EXEC SQL SELECT COUNT(*) INTO : WS-COUNT FROM Db file
WHERE Field 1 = : WS-VAR AND
Field 2 = : WS-USERID
END-EXEC
21
For protecting a transaction using the transaction security
function, the two things that must be done are?
97
What is the primary function of the Sign-on Table?
53
Write a program to concert an Indexed file into Sequential
file?
Did you received any Funny E-Mails from your Friends and like to share with rest of our friends? Yeah!! you can post that stuff 
Site Map