Here FASC88FP is my new ims program and FASC88 is an existing PSB. BAsically I am using existing PSB for this program. The PSB consists of the following PCBs - AGCYPCB, PRODPCB. My COBOL program looks as follows
ENTRY 'DLITCBL' USING AGCYPCB
FASC88 is also an IMS program but it contains a DBB call instead of DLI in the parameter list of DFSRRC00.
I am not sure what's going wrong. I checked the IMS Abend code manual and it I think my program doiesn't satisfy any of the causes of failure listed. If someone feels differently, please correct me.
Joined: 22 Apr 2006 Posts: 6258 Location: Mumbai, India
The general format for an IMS data communications call is, for COBOL:
CALL 'CBLTDLI' USING dli-function, io-pcb or alternate-pcb, io-area, mod-name, destination name
and for PLI
CALL PLITDLI(num-parms,dli-function, io-pcb or alternate-pcb, io-area, mod-name, destination name)
The mod-name and destination-name fields are optional. The dli-function field can contain any of the following values:
The io-pcb contains logical terminal name (8 characters), 2 characters reserved, status code (2 characters), current date (4 characters packed decimal YYYYDDD), current time (4 characters packed decimal HHMMSST), sequence number (4 characters), descriptor name (8 characters binary), and user id (8 characters). The alternate-pcb contains only the first three of these fields.