Data exception error

About CICS and BMS - In this Mainframe Forum - You can post your queries on CICS

Moderators: DikDude, Natarajan, Moderator Group

Post Reply
Aashiq
Member
Posts: 15
Joined: Mon Mar 29, 2010 2:19 pm
Location: India

Data exception error

Post by Aashiq » Thu Sep 23, 2010 8:43 pm

Hi all,

progA
01 ws-comm.

03 LENGTH-comm PIC S9(4) COMP VALUE +100.

03 IMPORT-comm.
05 APPL-comm PIC X(04).
05 ACCT-comm PIC X(30).
05 CUSTOMER-comm PIC X(24).

03 EXPORT-comm.
05 ERROR-comm PIC X(02).

03 FILLER PIC X(56).

in the same ProgA I have ued the following code:

MOVE SPACES TO CUSTOMER-comm.
MOVE SPACES TO EXPORT-comm.
MOVE APPL-NO TO APPL-comm.
MOVE imp-KEY TO ACCT-comm.


EXEC CICS LINK
PROGRAM('progB')
COMMAREA(ws-comm)
LENGTH(LENGTH-comm)
END-EXEC.


In progB

Linkage section.
01 DFHCOMMAREA.
03 LENGTH-comm PIC S9(4) COMP VALUE +100.

03 IMPORT-comm.
05 APPL-comm PIC X(04).
05 ACCT-comm PIC X(30).
05 CUSTOMER-comm PIC X(24).

03 EXPORT-comm.
05 ERROR-comm PIC X(02).

03 FILLER PIC X(56).

When I tried with this above code it throws an error called AZI6 and ASRA.
When I checked in CEDF mode in CICS it shows that the value passed from ProgA to LENGTH-comm is zero and throws an DATA exception error.

Please help me to clear this error.

Thanks in advance.
"Helping hand is better than praying lips"

User avatar
Natarajan
Moderator
Posts: 537
Joined: Fri Oct 10, 2008 12:57 pm
Location: chennai
Contact:

CICS LINK ASRA ABEND

Post by Natarajan » Fri Sep 24, 2010 6:40 am

Check the value of LENGTH-comm before/while executing the LINK CICS command in program A. There might be initialization issue in program A.


OR

use LENGTH OF ws-comm with LENGTH option of LINK command.


Try this and let us know the result.
Natarajan
Chennai

Aashiq
Member
Posts: 15
Joined: Mon Mar 29, 2010 2:19 pm
Location: India

Post by Aashiq » Sat Sep 25, 2010 8:54 pm

In progA i have declared the following
01 LINK-CONSTANT.
03 LENGTH-COMM PIC S9(4) COMP VALUE +100.

01 WS-comm.
03 IMPORT-comm.
05 APPL-comm PIC X(04).
05 ACCT-comm PIC X(30).
05 CUSTOMER-comm PIC X(24).

03 EXPORT-comm.
05 ERROR-comm PIC X(02).

03 FILLER PIC X(40).

in the same ProgA I have ued the following code:
INITIALIZE WS-comm.
INITIALIZE LENGTH-comm.
MOVE SPACES TO CUSTOMER-comm.
MOVE SPACES TO EXPORT-comm.
MOVE APPL-NO TO APPL-comm.
MOVE imp-KEY TO ACCT-comm.


EXEC CICS LINK
PROGRAM('progB')
COMMAREA(ws-comm)
LENGTH(LENGTH-comm)
END-EXEC.

IN PROGB I HAVE DECLARED THE FOLLOWNG THINGS.
01 LINK-CONSTANT.
03 LENGTH-COMM PIC S9(4) COMP VALUE +100.

Linkage section.
01 DFHCOMMAREA.


03 IMPORT-comm.
05 APPL-comm PIC X(04).
05 ACCT-comm PIC X(30).
05 CUSTOMER-comm PIC X(24).

03 EXPORT-comm.
05 ERROR-comm PIC X(02).

03 FILLER PIC X(40).

But now I am not getting data exception error, but when i checked the control flow in CEDF nothing get passed in the comm area and obviously the length is also zero in it

It looked like
EXEC CICS LINK
PROGRAM('progB')
COMMAREA('')
LENGTH(0)
END-EXEC

Please help me to overcome this error.

Thanks for your suggestion.
"Helping hand is better than praying lips"

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Sun Sep 26, 2010 10:18 pm

Why are you
INITIALIZE LENGTH-comm.
????????????????????????????????????????????????

and Natarajan gave you the 'recommended' method of passing a length field.

but your problem is that you don't understand the INITIALIZE command.............l
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

User avatar
Natarajan
Moderator
Posts: 537
Joined: Fri Oct 10, 2008 12:57 pm
Location: chennai
Contact:

Post by Natarajan » Mon Sep 27, 2010 7:34 pm

Hi Aashiq,

before LINk command move value to LENGTH-comm.
It will solve the problem in CICS program.
Natarajan
Chennai

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others