I have database, in that segment1 having dept code and
segment 2 and so on multiple employees num. using dept &
employee num we have to compare whether that employee belong
to that dept or not, if that employee belongs to that dept
then incentive is same same as in the table or else
incentive must be zero? using IMS & cobol
I am totally confused on IMS message segments. When I
create a message and it contains 5 segments does the entire
message have a 32k limit or does each segment have a 32k
limit? Is there a setting in the stage1 sys gen that
defines if a transaction can receive/send multi-segmented
messages?
This question regarding Checkpoint.
Suppose my program has checkpoint for every 100 records. If
my program abends at 120 records, what will happen. I know
first 100 records are committed and rest of 20 records
where they gone and where they are stored.
Hi all..., Nowadays many of the companies asking for
IMS/DB , actually i hav learned mainframes but i dont have
any knowledge on IMS/DB. it will be a great help if any one
suggest me whr i can learn it ( in any institute).
I am totally confused on IMS message segments. When I
create a message and it contains 5 segments does the entire
message have a 32k limit or does each segment have a 32k
limit? Is there a setting in the stage1 sys gen that
defines if a transaction can receive/send multi-segmented
messages?
266
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.