View previous topic :: View next topic
|
Author |
Message |
Michael Angelo Pagala
New User
Joined: 02 Mar 2007 Posts: 34 Location: somewhere in the middle
|
|
|
|
Hi guys,
I tried checking the listing and pinpoint where is the problem but I can't figure out why am I missing.
The abend occurs when calling the batch module called the utility module.
statement 28659 at compile unit offset +00021A58 at entry offset +00021A58 at address 3CB44E80
Code: |
028659 ADD
021A54 5820 9BAC L 2,2988(0,9) BLL=5
021A58 D201 DDB8 20BD MVC 3512(2,13),189(2) TS2=16
021A5E 960F DDB9 OI 3513(13),X'0F' TS2=17
021A62 5830 C03C L 3,60(0,12) CBL=3
021A66 FA10 DDB8 3767 AP 3512(2,13),1895(1,3) TS2=16
021A6C D201 20BD DDB8 MVC 189(2,2),3512(13) CDA-LEVEL-INDEX
021A72 960F 20BE OI 190(2),X'0F' CDA-LEVEL-INDEX |
CDA-LEVEL-INDEX is defined as
CDA-LEVEL-INDEX PIC 9(03) COMP-3
Code: |
028659 ADD 1 TO CDA-LEVEL-INDEX. |
value of CDA-LEVEL-INDEX before the call
CDA-LEVEL-IDX: 001
any inputs is appreciated..If the date I have given is insufficient please tell me and I will try to provide it. |
|
Back to top |
|
|
Michael Angelo Pagala
New User
Joined: 02 Mar 2007 Posts: 34 Location: somewhere in the middle
|
|
|
|
I cannot edit my message. I just want to correct the message of my typo errors.
Hi guys,
I tried checking the listing and pinpoint where is the problem but I can't figure out what am I missing.
The abend occurs when the batch module called the utility module.
this is from the called module
statement 28659 at compile unit offset +00021A58 at entry offset +00021A58 at address 3CB44E80
Code: |
028659 ADD
021A54 5820 9BAC L 2,2988(0,9) BLL=5
021A58 D201 DDB8 20BD MVC 3512(2,13),189(2) TS2=16
021A5E 960F DDB9 OI 3513(13),X'0F' TS2=17
021A62 5830 C03C L 3,60(0,12) CBL=3
021A66 FA10 DDB8 3767 AP 3512(2,13),1895(1,3) TS2=16
021A6C D201 20BD DDB8 MVC 189(2,2),3512(13) CDA-LEVEL-INDEX
021A72 960F 20BE OI 190(2),X'0F' CDA-LEVEL-INDEX |
CDA-LEVEL-INDEX is defined as
CDA-LEVEL-INDEX PIC 9(03) COMP-3
this is the statement where the error occured
Code: |
028659 ADD 1 TO CDA-LEVEL-INDEX. |
value of CDA-LEVEL-INDEX before the call
CDA-LEVEL-IDX: 001
I will try to put some displays on the called module to check whether I am passing invalid values on the linkage. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Basically a SOC4 is when you are attempting to modify storage outside of your authorized space.
so, where is CDA-LEVEL-IDX defined? (in both modules)
where is the ADD statement defined?
what does the CALL look like?
what does the PROCEDURE DIVISION USING statement look like?
does the structure containing CDA-LEVEL-IDX in the CALLed module
receive addressability via the PROC-DIV USING statement?
a display of CDA-LEVEL-IDX will just give you a SOC4. |
|
Back to top |
|
|
Michael Angelo Pagala
New User
Joined: 02 Mar 2007 Posts: 34 Location: somewhere in the middle
|
|
|
|
The CDA-LEVEL-IDX is defined for both
the add statement is on the beginning of the called module
the call uses three copybooks (in order) which are the same in the linkage and procedure divison of the called module
I check the dump again..looks something is misaligned in the linkage.
I will try to find out what. |
|
Back to top |
|
|
|