Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Error Reading Local TSQ

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

New User


Joined: 23 Dec 2008
Posts: 69
Location: India

PostPosted: Wed Jul 07, 2010 3:18 pm    Post subject: Error Reading Local TSQ
Reply with quote

Hi,

I am new to CICS. I am facing a problem while browsing/Editing data using MAPS. There are 29,190 records in the VSAM file. When i browse them via MAPS, i am able to read only 9999 records. I verified the programs and i see that the vairables are declared as below.

Code:

05 WS-TSQ-FIRST-ITEM  PIC 9(4).
05 WS-TSQ-LAST-ITEM   PIC 9(4).
05 WS-TSQ-ITEM        PIC 9(4).
05 WS-TSQ-ITEMNUM     PIC 9(4).

01 WS-NUMITEM             PIC S9(4) COMP.   
01 TSQ-ITEM               PIC S9(4) COMP.   


I increased the ITEM lengths to 9(6) and it didn't help.

Please let me know exactly what i needs to be done to increase the size to 999999.
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Jul 07, 2010 3:52 pm    Post subject: Reply to: Error Reading Local TSQ
Reply with quote

Check your compile option for TRUNC. If it's set to OPT then you need to re-compile with TRUNC(BIN).

If your compiler supports COMP-5, then change COMP to COMP-5 and you don't need to adjust the TRUNC option.

Both NUMITEM and TSQ-ITEM must remain as binary halfwords.

You are experiencing high-order truncation on the halfwords, due to TRUNC(OPT).

Bill
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed Jul 07, 2010 3:54 pm    Post subject:
Reply with quote

What is 'MAPS'?
What is the compiler option TRUNC set to?
Back to top
View user's profile Send private message
sijayapal

New User


Joined: 23 Dec 2008
Posts: 69
Location: India

PostPosted: Wed Jul 07, 2010 6:28 pm    Post subject:
Reply with quote

Bill O'Boyle

Thanks a lot. It worked. I couldn't exactly figure out how to find the compiler option. I changed the comp to comp-5 and it worked fine as expected.. thanks a lot.

icon_surprised.gif
icon_lol.gif
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Jul 07, 2010 6:44 pm    Post subject: Reply to: Error Reading Local TSQ
Reply with quote

COMP-5 was introduced with the OS390 COBOL compiler, version 2.2.1, about 10-12 years ago.

It is known as "Native Binary" and the TRUNC option does not affect it, whatsoever.

Unlike TRUNC(OPT) which truncates high-order, based upon the picture clause in BINARY fields, COMP-5 values are guaranteed to be correct and are never truncated.

This is the reason why you could not have a value greater than 9999 in your COMP fields. Without COMP-5, you would have to specify TRUNC(BIN), which also guarantees values to be correct, but is brutally inefficient.

Glad it worked out for you....

Bill
Back to top
View user's profile Send private message
sijayapal

New User


Joined: 23 Dec 2008
Posts: 69
Location: India

PostPosted: Wed Jul 07, 2010 8:27 pm    Post subject:
Reply with quote

Thanks for the information Bill icon_smile.gif

Thanks
Siva.
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 IDC2902I Error tzeche ABENDS & Debugging 1 Tue Mar 28, 2017 11:39 am
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us