|
View previous topic :: View next topic
|
| Author |
Message |
vaibhavkolhe
New User
Joined: 24 Feb 2005
Posts: 11
|
|
|
|
Hi,
I have a new IMS Cobol batch program which fails with a U0476 abend when I try to execute it. Here's how the JCL looks like
//EXEC PGM = DFSRRC00, PARM='DLI,FASC88FP, FASC88'
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
PROCEDURE DIVISION.
ENTRY 'DLITCBL' USING AGCYPCB
PRODPCB.
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.
Thanks
VK |
|
| Back to top |
|
 |
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
| Back to top |
|
|
vaibhavkolhe
New User
Joined: 24 Feb 2005
Posts: 11
|
|
|
|
| Thanks for the link. But what does an IO-PCB mean? |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| The IO-PCB is for communication with terminals. Any DLI-call supplies IMS with the number of parameters passed. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Hello again,
The general format for an IMS data communications call is, for COBOL:
| Code: |
| CALL 'CBLTDLI' USING dli-function, io-pcb or alternate-pcb, io-area, mod-name, destination name |
and for PLI
| Code: |
| 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. |
|
| Back to top |
|
|
|
|
