| View previous topic :: View next topic |
| Author |
Message |
kunal627
Beginner
Joined: 02 Feb 2007
Posts: 3
Topics: 1
|
 Posted: Fri May 18, 2007 8:13 am Post subject: DFS629I IMS BATCH REGION ABEND- IMS 0260 DL1S |
 |
|
We have reorganized the IMS database. The length of one segment has been increased. We have changed the DBD's, Copy books and programs to reflect the length change.
when a multimodular cobol program is run against the reorganized database IMS 0260 abend is faced. The JCL is pointing to the correct loadlibs and DBD libraries. The PSBs are not impacted due to this change as there are no sensitive fields defined. We are running the JCL in batch mode with DBB parameter.
The program is not using the parameter count for any of the DLI calls which trigger off this abend.
however this abend is not there when eazytrieve program is run against the reorganized database.
The possible explanation of the abend is as follows
Explanation: Abend U0260 was issued for one of the following reasons: | Code: |
The number of parameters in the application program call to IMS
exceeded the allowable limit of 18 or is equal to 0.
The checkpoint call was used and one of the following applies:
Too few parameters were specified.
The number of user-specified areas exceeds the number specified
on the XRST call.
The user area parameters are not paired (a length and address
for each area to be dumped).
The application program overlaid the DL/I function code so that
the first character was not alphanumeric. This causes the field
to be treated as a count field.
System Action: The online dependent or stand-alone batch region
terminates abnormally. Other IMS regions are not affected.
Programmer Response: If the problem is an incorrect number of
parameters, correct the DL/I call from the application program to
conform to the format.
|
If ne one can give some pointers to resolve that wud be gr8ful.
thanks in advance  |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Fri May 18, 2007 8:17 am Post subject: |
|
|
| Quote: |
The length of one segment has been increased. We have changed the DBD's, Copy books and programs to reflect the length change.
|
and this would cause
| Code: |
The application program overlaid the DL/I function code so that the
first character was not alphanumeric. This causes the field to be
treated as a count field.
|
so check your working storage section for any possible overlays.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
kunal627
Beginner
Joined: 02 Feb 2007
Posts: 3
Topics: 1
|
| Posted: Fri May 18, 2007 8:30 am Post subject: |
|
|
| I have checked all the DLI calls. couldn't find any overlays |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Fri May 18, 2007 8:39 am Post subject: |
|
|
| Quote: |
I have checked all the DLI calls. couldn't find any overlays
|
Look at the working storage section for any possible overlays. Since the length has increased if there was an internal table, there is a chance that you might have overlaid the contents below it.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
kunal627
Beginner
Joined: 02 Feb 2007
Posts: 3
Topics: 1
|
| Posted: Fri May 18, 2007 8:55 am Post subject: |
|
|
I'm attaching the copy book below
i have added the following variables to the copy book.
03 SMP-WEEKS-27-39.
03 SMP-WEEKS-40-52.
Filler x(200).
I have also checked the working storage section and there is no internal table defined after the copybook.
The LINKAGE section starts after the copybook.
| Code: |
* EMPLOYEE DATABASE MATERNITY SEGMENT.
*
* VERSION B, AUG 1988, MEO. ADD HIGHER RATE OVERRIDE.
*
* VERSION C, JUN 1998, IMR. YEAR 2000 CHANGES.
*
* VERSION D, FEB 2003, MEO.
* ADD WEEKS 19-26 ETC.
*
* VERSION E, FEB 2007, KUNAL
* ADD WEEKS 27-52 DUE TO CHANGE IN THE MATERNITY ADOPTIVE
* LAW
01 EDB-MATERNITY-SEG-P.
03 MAT-NOTIFIED-DATE PIC 9(8) VALUE ZEROS.
03 EXP-CONFINEMENT-DATE PIC 9(8) VALUE ZEROS.
03 ACT-CONFINEMENT-DATE PIC 9(8) VALUE ZEROS.
03 QUALIFYING-WEEK-DATE PIC 9(8) VALUE ZEROS.
03 MPP-START-DATE PIC 9(8) VALUE ZEROS.
03 MPP-END-DATE PIC 9(8) VALUE ZEROS.
03 LATEST-SMP-PAY-DATE PIC 9(8) VALUE ZEROS.
03 SMP-EXCL-EMPLOY-RULE PIC X VALUE SPACE.
03 SMP-EXCL-LOW-EARNS PIC X VALUE SPACE.
03 SMP-EXCL-LATE-NOTIFY PIC X VALUE SPACE.
03 SMP-EXCL-MED-CERT PIC X VALUE SPACE.
03 SMP-EXCL-BABY-NOTIFY PIC X VALUE SPACE.
03 SMP-EXCL-OUT-EEC PIC X VALUE SPACE.
03 SMP-EXCL-LEGAL-CUST PIC X VALUE SPACE.
03 SMP-EXCLUSION-8 PIC X VALUE SPACE.
03 SMP-STOP-DATE PIC 9(8) VALUE ZEROS.
03 SMP-STOP-WORKING PIC X VALUE SPACE.
03 SMP-STOP-EEC PIC X VALUE SPACE.
03 SMP-STOP-LEGAL-CUST PIC X VALUE SPACE.
03 SMP-STOP-DEATH PIC X VALUE SPACE.
03 SMP-STOP-REASON-5 PIC X VALUE SPACE.
03 MAT-DATE-LAST-UPD PIC 9(8) VALUE ZEROS.
03 SMP-CALC-COMPLETED PIC X VALUE SPACE.
03 SMP-REPORT-REQUIRED PIC 9 VALUE ZERO.
03 SMP-AVERAGE-EARNINGS PIC S9(5)V99
COMP-3 VALUE +0.
03 SMP-HIGHER-RATE PIC S9(5)V99
COMP-3 VALUE +0.
03 EARLY-CONFINE-IND PIC X VALUE SPACE.
03 EXP-WEEK-CONFINEMENT PIC 9(8) VALUE ZEROS.
03 SMP-WEEKS.
05 SMP-WEEK-1-DATE PIC 9(8).
05 SMP-WEEK-1-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-1-CANCEL PIC X.
05 SMP-WEEK-2-DATE PIC 9(8).
05 SMP-WEEK-2-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-2-CANCEL PIC X.
05 SMP-WEEK-3-DATE PIC 9(8).
05 SMP-WEEK-3-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-3-CANCEL PIC X.
05 SMP-WEEK-4-DATE PIC 9(8).
05 SMP-WEEK-4-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-4-CANCEL PIC X.
05 SMP-WEEK-5-DATE PIC 9(8).
05 SMP-WEEK-5-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-5-CANCEL PIC X.
05 SMP-WEEK-6-DATE PIC 9(8).
05 SMP-WEEK-6-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-6-CANCEL PIC X.
05 SMP-WEEK-7-DATE PIC 9(8).
05 SMP-WEEK-7-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-7-CANCEL PIC X.
05 SMP-WEEK-8-DATE PIC 9(8).
05 SMP-WEEK-8-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-8-CANCEL PIC X.
05 SMP-WEEK-9-DATE PIC 9(8).
05 SMP-WEEK-9-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-9-CANCEL PIC X.
05 SMP-WEEK-10-DATE PIC 9(8).
05 SMP-WEEK-10-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-10-CANCEL PIC X.
05 SMP-WEEK-11-DATE PIC 9(8).
05 SMP-WEEK-11-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-11-CANCEL PIC X.
05 SMP-WEEK-12-DATE PIC 9(8).
05 SMP-WEEK-12-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-12-CANCEL PIC X.
05 SMP-WEEK-13-DATE PIC 9(8).
05 SMP-WEEK-13-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-13-CANCEL PIC X.
05 SMP-WEEK-14-DATE PIC 9(8).
05 SMP-WEEK-14-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-14-CANCEL PIC X.
05 SMP-WEEK-15-DATE PIC 9(8).
05 SMP-WEEK-15-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-15-CANCEL PIC X.
05 SMP-WEEK-16-DATE PIC 9(8).
05 SMP-WEEK-16-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-16-CANCEL PIC X.
05 SMP-WEEK-17-DATE PIC 9(8).
05 SMP-WEEK-17-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-17-CANCEL PIC X.
05 SMP-WEEK-18-DATE PIC 9(8).
05 SMP-WEEK-18-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-18-CANCEL PIC X.
03 SMP-TABLE REDEFINES SMP-WEEKS.
05 SMP-WEEK-TABLE OCCURS 18 TIMES.
* 07 SMP-WEEK-DATE PIC 9(6).
07 SMP-WEEK-DATE PIC 9(8).
07 SMP-WEEK-AMOUNT PIC S9(5)V99 COMP-3.
07 SMP-WEEK-CANCEL PIC X.
03 SMP-NO-WKS-HIGH-RATE PIC 99 VALUE ZEROS.
03 SMP-CALC-START PIC X VALUE SPACE.
03 SMP-FAIRLY-DISMISSED PIC X VALUE SPACE.
03 SMP-STILLBIRTH-FLAG PIC X VALUE SPACE.
03 ACT-WEEK-CONFINEMENT PIC 9(8) VALUE ZEROS.
03 DATE-OF-RETURN PIC 9(8) VALUE ZEROS.
03 SEVENTH-WEEK-DATE PIC 9(8) VALUE ZEROS.
03 ELEVENTH-WEEK-DATE PIC 9(8) VALUE ZEROS.
03 DATE-OF-NOTIFICATION PIC 9(8) VALUE ZEROS.
03 DATE-OF-FINISHING PIC 9(8) VALUE ZEROS.
03 MATB1-REPORT-REQUIRD PIC 9 VALUE ZERO.
03 MATERNITY-LEAVE-FLAG PIC X VALUE SPACE.
03 HIGHER-RATE-OVERRIDE PIC X.
03 MPP-PAY-START-DATE PIC 9(8) VALUE ZEROS.
03 MPP-PAY-END-DATE PIC 9(8) VALUE ZEROS.
03 MAT-PAY-EARLY-START PIC X.
03 SMP-WEEKS-19-26.
05 SMP-WEEK-19-DATE PIC 9(8).
05 SMP-WEEK-19-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-19-CANCEL PIC X.
05 SMP-WEEK-20-DATE PIC 9(8).
05 SMP-WEEK-20-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-20-CANCEL PIC X.
05 SMP-WEEK-21-DATE PIC 9(8).
05 SMP-WEEK-21-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-21-CANCEL PIC X.
05 SMP-WEEK-22-DATE PIC 9(8).
05 SMP-WEEK-22-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-22-CANCEL PIC X.
05 SMP-WEEK-23-DATE PIC 9(8).
05 SMP-WEEK-23-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-23-CANCEL PIC X.
05 SMP-WEEK-24-DATE PIC 9(8).
05 SMP-WEEK-24-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-24-CANCEL PIC X.
05 SMP-WEEK-25-DATE PIC 9(8).
05 SMP-WEEK-25-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-25-CANCEL PIC X.
05 SMP-WEEK-26-DATE PIC 9(8).
05 SMP-WEEK-26-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-26-CANCEL PIC X.
03 SMP-WEEKS-27-39.
05 SMP-WEEK-27-DATE PIC 9(8).
05 SMP-WEEK-27-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-27-CANCEL PIC X.
05 SMP-WEEK-28-DATE PIC 9(8).
05 SMP-WEEK-28-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-28-CANCEL PIC X.
05 SMP-WEEK-29-DATE PIC 9(8).
05 SMP-WEEK-29-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-29-CANCEL PIC X.
05 SMP-WEEK-30-DATE PIC 9(8).
05 SMP-WEEK-30-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-30-CANCEL PIC X.
05 SMP-WEEK-31-DATE PIC 9(8).
05 SMP-WEEK-31-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-31-CANCEL PIC X.
05 SMP-WEEK-32-DATE PIC 9(8).
05 SMP-WEEK-32-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-32-CANCEL PIC X.
05 SMP-WEEK-33-DATE PIC 9(8).
05 SMP-WEEK-33-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-33-CANCEL PIC X.
05 SMP-WEEK-34-DATE PIC 9(8).
05 SMP-WEEK-34-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-34-CANCEL PIC X.
05 SMP-WEEK-35-DATE PIC 9(8).
05 SMP-WEEK-35-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-35-CANCEL PIC X.
05 SMP-WEEK-36-DATE PIC 9(8).
05 SMP-WEEK-36-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-36-CANCEL PIC X.
05 SMP-WEEK-37-DATE PIC 9(8).
05 SMP-WEEK-37-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-37-CANCEL PIC X.
05 SMP-WEEK-38-DATE PIC 9(8).
05 SMP-WEEK-38-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-38-CANCEL PIC X.
05 SMP-WEEK-39-DATE PIC 9(8).
05 SMP-WEEK-39-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-39-CANCEL PIC X.
03 SMP-WEEKS-40-52.
05 SMP-WEEK-40-DATE PIC 9(8).
05 SMP-WEEK-40-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-40-CANCEL PIC X.
05 SMP-WEEK-41-DATE PIC 9(8).
05 SMP-WEEK-41-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-41-CANCEL PIC X.
05 SMP-WEEK-42-DATE PIC 9(8).
05 SMP-WEEK-42-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-42-CANCEL PIC X.
05 SMP-WEEK-43-DATE PIC 9(8).
05 SMP-WEEK-43-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-43-CANCEL PIC X.
05 SMP-WEEK-44-DATE PIC 9(8).
05 SMP-WEEK-44-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-44-CANCEL PIC X.
05 SMP-WEEK-45-DATE PIC 9(8).
05 SMP-WEEK-45-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-45-CANCEL PIC X.
05 SMP-WEEK-46-DATE PIC 9(8).
05 SMP-WEEK-46-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-46-CANCEL PIC X.
05 SMP-WEEK-47-DATE PIC 9(8).
05 SMP-WEEK-47-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-47-CANCEL PIC X.
05 SMP-WEEK-48-DATE PIC 9(8).
05 SMP-WEEK-48-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-48-CANCEL PIC X.
05 SMP-WEEK-49-DATE PIC 9(8).
05 SMP-WEEK-49-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-49-CANCEL PIC X.
05 SMP-WEEK-50-DATE PIC 9(8).
05 SMP-WEEK-50-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-50-CANCEL PIC X.
05 SMP-WEEK-51-DATE PIC 9(8).
05 SMP-WEEK-51-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-51-CANCEL PIC X.
05 SMP-WEEK-52-DATE PIC 9(8).
05 SMP-WEEK-52-AMOUNT PIC S9(5)V99 COMP-3.
05 SMP-WEEK-52-CANCEL PIC X.
03 MAT-FILLER PIC X(200) VALUE SPACES.
|
|
|
| Back to top |
|
|
Sreejith
Intermediate
Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland
|
| Posted: Mon May 21, 2007 2:56 am Post subject: |
|
|
Could you post the part of working storage where DLI call functions (GU,GN etc) are defined along with 10-20 variable before it
Also try moving the DLI call functions to the start of working storage. |
|
| Back to top |
|
|
Nic Clouston
Advanced
Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home
|
| Posted: Mon May 21, 2007 3:08 am Post subject: |
|
|
stupid question - possibly - you did increase the I/O rea the segment is retrrieved to by the right amount, didn't you? If you didn't then the data would be overlaying the storgae used by following variables.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
