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
 

 

Problem with the data

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Amsar

New User


Joined: 26 Sep 2008
Posts: 84
Location: Chennai

PostPosted: Fri Apr 17, 2009 1:02 am    Post subject: Problem with the data
Reply with quote

Hi All,

I have varable ws-var PIC x(8). I am moving value 'SSDMTR' in this varable but some junk value is getting in variable in last two bytes. I have initalize the variable with spaces. Value it displaying in sysout is SSDMTR ¼. ¼ is it a LOW-VALUE?

I have tried with inspect replacing all low-value by spaces still this value i am getting this value SSDMTR ¼.

Please let us know me your suggestion.


Thanks,
Amsar
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8055
Location: East Dubuque, Illinois, USA

PostPosted: Fri Apr 17, 2009 1:08 am    Post subject:
Reply with quote

My handy-dandy z/Architecture Reference Summary, SA22-7871, indicates that the symbol is hex B7 in EBCDIC, which is a far cry from LOW-VALUES (hex 00).

What does the MOVE statement look like -- and what are the DATA DIVISION definitions of the sending and receiving fields? There's more than one possible cause for what you're seeing, so fixing it at the source is the preferred solution.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Apr 17, 2009 1:27 am    Post subject:
Reply with quote

Hello,

Suggest you look at the "input" with HEX ON and post what you find.
Back to top
View user's profile Send private message
Amsar

New User


Joined: 26 Sep 2008
Posts: 84
Location: Chennai

PostPosted: Fri Apr 17, 2009 1:43 am    Post subject:
Reply with quote

Hi dick

The value in hex format is as below

Code:
Command ===>                                                  Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000001  SDMTR ¼                                                               
       4ECDED0B0444444444444444444444444444444444444444444444444444444444444444
       024439170000000000000000000000000000000000000000000000000000000000000000
------------------------------------------------------------------------------
****** **************************** Bottom of Data ****************************
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Apr 17, 2009 1:59 am    Post subject:
Reply with quote

Hello,

Well, x'01B7' is decimal 439. Does 439 have any special meaining?

What are these input records? Is that 8-byte value the key to some file or table?

I'm not so sure that it should just be discarded. . .
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Apr 17, 2009 1:59 am    Post subject:
Reply with quote

Robert Sample wrote:
What does the MOVE statement look like -- and what are the DATA DIVISION definitions of the sending and receiving fields?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Fri Apr 17, 2009 2:01 am    Post subject:
Reply with quote

Robert Sample wrote/requested:
Quote:
What does the MOVE statement look like -- and what are the DATA DIVISION definitions of the sending and receiving fields?


Amsar,

stop showing us things that have lead you to a point where you can not solve your own problem.

not only have you not provided the requested info,
you have shown us
<SPACE>SDMTRx'01b7'
from some kind of abbreviated screen display
when your goal was SSDMTR.

not only do you have unwanted characters following your desired data,
you are missing the first character, also.

start by explaining what this screen display is,
then provide the info that Robert requested.

Until you provide us with some info, you are stuck with the problem.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 0 Sat Apr 22, 2017 1:32 pm
No new posts SORT JSON type of data maxsubrat DFSORT/ICETOOL 8 Wed Apr 19, 2017 6:01 pm
No new posts Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am


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