Can we give the GSAM-PCB in between the DB-PCB'S like below?
I/O-PCB
DB-PCB1
GSAM-PCB1
GSAM-PCB2
DB-PCB2
Answers were Sorted based on User's Feedback
its possible to give GSAM PCB in between DB-PCBs-
The following is the example-
PRINT NOGEN
PCB TYPE=DB,
DATABASE=XXXDB,
PROCOPT=PA,
KEYLEN=27
SENSEG NAME=XXXDB1,
PARENT=0
PCB TYPE=GSAM
DBDNAME=XXXG,
PROCOPT=L
PCB TYPE=GSAM
DBDNAME=XXXG1,
PROCOPT=L
PCB TYPE=DB
DBDNAME=XXDB2,
PROCOPT=PA,
KEYLEN=17
PSBGEN LANG=PL/I,
PSBNAME=JDHSJDH,
CMPAT=YES,
OLIC=NO
END
END
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / jijodejames
A small correction for Answer #3. Order of declaration in
PSB and Procuedure division USING statements need only be
matching. Linkage section declaration of PCB-Mask can be of
any order.
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / raj
yes. We can give , but the order should be same as what we
used while creating PSB.
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / jaganathan
One more point to add to sneha's answer is that , we need
to define the PCB in same order in the LINKAGE SECTION and
in the PROCEDURE DIVISION USING < Parameter List >
Correct in case i am wrong.
| Is This Answer Correct ? | 3 Yes | 2 No |
What is a Hierarchy path?
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.
Which languages does ims support / application program languages?
What is bmp mode?
Define ims (db/dc)?
What is the advantage of creating the acbs well ahead of time?
In the RECON, what always sets the IC NEEDED flag on for a registered DB?
My IMS main progam is calling Db2 subroutine ...Its giving - 923 db2 sql code..so could any one tell how to solve this issue.
What are the main control blocks available in ims db?
What is a key field in an IMS database?
What is psbgen process?
Is it necessary that the key field in a Dl/I database be unique?