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
 
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: 2504
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: 2504
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 IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm

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