How do you write a PSB code ?

Answer Posted / techy

* MADE UP OF ONE OR MORE PROGRAM COMMUNICATION BLOCKS (PCBs)
* DB PCB - DEFINES PROGRAM’S VIEW OF A IMS DATABASE
* WHENEVER A DATABASE VIEW DEFINED BY THE PCB IS ACCESSED
BY A CALL, THE RESULTS OF CALL ARE PASSED THROUGH THE PCB
TO PROGRAM
* PSB IS GENERATED BY PSBGEN MACRO

* PCB GIVES LOGICAL VIEW OF A DATABASE
* PORTION OF DATABASE THAT THE PROGRAM PROCESSES IS CALLED
APPLICATION DATA STRUCTURE

Sample PSBGEN

PRINT NOGEN
PCB TYPE=DB,DBDNAME=database-name,KEYLEN=20,PROCOPT=LS
SENSEG NAME=seg-name
SENSEG NAME=field-name,PARENT=seg-name
PSBGEN
END

KEYLEN IS THE LENGTH OF CONCATENATED KEY

Is This Answer Correct ?    6 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Explain the two ways in which dl/i interface can be invoked?

3119


Explain the advantage of dynamic generation of acb?

2807


Explain the maximum number of pcbs allowed in a psb?

3138


My IMS main progam is calling Db2 subroutine ...Its giving - 923 db2 sql code..so could any one tell how to solve this issue.

3197


What are the disadvantages of a hierarchical database?

2764






Explain ims software environment?

589


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.

3199


What is psbgen process?

694


Define ims (db/dc)?

631


What is acbgen process?

693


What is meant by batch dl/i mode?

579


What is the advantage of creating the acbs well ahead of time?

631


What is ims (db/dc)?

608


What are the two types of fields available in ims db?

561


What are the advantages of a hierarchical database?

2752