IMS

Describes the abend codes you might encounter when executing a PL/I IMS application.

U0260 Abend

This message will normally be seen as a message within the JOBLOG.

The typical cause of this form of abend is that you did not build your Open PL/I User Programs (executing on an Intel platform) using the -bigendian compiler option. (-langlvl SAA2 accomplishes the same thing).

U0476 Abend

A U0476 abend occurred when running an IMS program under DFSRRC00 as a BMP. The following is a snippet representing the invocation JCL:

//STEP01 EXEC PGM=DFSRRC00,
//     PARM='BMP,REQUE,REQUEUE,,,,,,,,,,,&IMS,USERGP1'

Analysis of the application showed that the U0476 was triggered by the following PLITDLI statement:

CALL PLITDLI(NUM3, CHNG, ALT1_PCB_PTR,
TRN);

Backtracking to the PROC statement in the PL/I source it shows that ALT1_PCB_PTR was specified as the third parameter:

REQUE: PROC(TP_PCB_PTR,ERR_PTR,
ALT1_PCB_PTR ) OPTIONS(MAIN);

A CTF trace of the failing program showed that only two PCBs were passed in:

09:11:30.946 7904 MF.RTS.PLI 6 0
: "systemIMS > REQUE 2 "

The REQUE.PSB file defined only one PCB.

PCB     TYPE=TP,EXPRESS=YES,MODIFY=YES                               
PSBGEN  LANG=PL/I,PSBNAME=REQUEUE,IOASIZE=2000                       
END

Note: IMS programs running as a BMP or online program causes IMS to automatically add or pass one additional PCB.

It was subsequently discovered that the wrong PSB had been built. The problem was resolved with the correct PSB.

Unexpected failure on PLITDLI call and/or INVALID AIB message in job log

If your application returns an AI status code on a call to PLITDLI, or the job log or console contains a message equivalent to the following example snippet, this generally indicates that IMS is not enabled for your enterprise server region.

Note: You can enable IMS for your enterprise server region on the ESCWA General Properties page.

**** JCLCM0180I Job ready for execution. 
**** Execution on Server AAPL      Process       4132 
 
     20:37:53 JCLCM0188I JOB  STARTED 
 
     20:37:53 JCLCM0190I STEP STARTED   DIN043.DIN04305 
     20:37:53 JCLCM0206I ALLOCATION DEFERRED UNTIL OPEN - OMYINVP1 
     20:37:53 JCLCM0199I Program MFJRRC00 is non-COBOL   ASCII  Big-Endian    NOAMODE. 
     *MSG CWGUI.EXE -pid 04132  . 
     20:38:34 IMSRT0100E Local system rejected config info - Invalid AIB