Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Issue of with data storage in CICS-DB2 program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
akodakka

New User


Joined: 20 May 2010
Posts: 75
Location: India

PostPosted: Tue Jan 25, 2011 11:39 am    Post subject: Issue of with data storage in CICS-DB2 program
Reply with quote

Hi all

I ahve a varible decalred as S9(2)V9(8). When am initializing the varibale
its taking a storage of 11 bytes where it shuld take 10 bytes. Please advise what will be the issue with this

Code:
02 DISCOUNT                       S9(2)V9(8)     > +00000000000
06 XXXX-PRXXX-DIXX             S9(02)V9(08)   > +0000000000 
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Tue Jan 25, 2011 1:02 pm    Post subject:
Reply with quote

typical communist, only sees what he wants to see.

the display that you posted, appears to be an xpeditor display (or some other debugger)
which displayed the sign separately,
otherwise you would be whinning about the 'over-punch'.

if you want to know the size of your fields, refer to your compiler listing.
Back to top
View user's profile Send private message
akodakka

New User


Joined: 20 May 2010
Posts: 75
Location: India

PostPosted: Tue Jan 25, 2011 1:15 pm    Post subject:
Reply with quote

Hi..

icon_smile.gif

Yes i was reffering to XPEDITOR display

here my DICOUNT was diclared as comp-3 VALUE --AND in XPED shows 12 bytes including +sign

But in the next variable is not a comp-3 and its showing 11 bytes including + sign

Thats why i got confused and moreover i am getting ASRA when i move

DISCOUNT TO XXXX-PRXXX-DIXX
Back to top
View user's profile Send private message
Kjeld

Active User


Joined: 15 Dec 2009
Posts: 365
Location: Denmark

PostPosted: Tue Jan 25, 2011 7:17 pm    Post subject:
Reply with quote

If you want to see the actual hex representation of an area, use the 'H' prefix command in Xpediter. Then you will be able to see the actual byte representation, and not a display friendly interpretation of the numeric contents.

You will have to send more information on your data definitions and contents if we are to help you in your ASRA problem.
Back to top
View user's profile Send private message
akodakka

New User


Joined: 20 May 2010
Posts: 75
Location: India

PostPosted: Tue Jan 25, 2011 7:42 pm    Post subject:
Reply with quote

Yes..but i think i can't explain the problem here as its so confusing for me even..

When am doing XPED that gives error at times..where at the first SQL init para called. Sometimes it's processing fine in XPED.

IF i didn't keep in XPED it will run with out any problem.

Is ASRA is only data exception. I mean only if alphanumeric to Numeric?
Back to top
View user's profile Send private message
Kjeld

Active User


Joined: 15 Dec 2009
Posts: 365
Location: Denmark

PostPosted: Tue Jan 25, 2011 7:58 pm    Post subject:
Reply with quote

ASRA might not be only data exceptions. Check the CICS Messages and Codes manual for the accompanying messages.

Does the exact same module work fine in Xpediter some times and abend at other times with the exact same invocation parameters?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SIGNAL ON HALT issue packerm CLIST & REXX 0 Fri Oct 20, 2017 6:56 pm
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts sharing PLI storage Pedro PL/I & Assembler 2 Mon Oct 16, 2017 10:11 pm
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us