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
 

 

Convert COMP to readable format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ssprabhu

New User


Joined: 25 Apr 2005
Posts: 67
Location: pune

PostPosted: Tue Jan 05, 2010 3:51 pm    Post subject: Convert COMP to readable format
Reply with quote

Hi,

How to convert comp variable to readable format using SORT.

i have a o/p file first 2 fields are in comp format.

in PGM its defined as follows...
PIC S9(9) USAGE COMP.
PIC S9(4) USAGE COMP.

Output as follows...

.°.a..TISSOTXXXXX.......

output in hex as follows:-

.°.a..TISSOTXXXXX
093800DDCDC4CECD
B041017994509354

Need to check the values of comp ...plz help how to convert that.
Back to top
View user's profile Send private message

Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Tue Jan 05, 2010 4:25 pm    Post subject:
Reply with quote

Look at this link
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA30/C.3?DT=20080528171007
Back to top
View user's profile Send private message
ssprabhu

New User


Joined: 25 Apr 2005
Posts: 67
Location: pune

PostPosted: Tue Jan 05, 2010 4:32 pm    Post subject:
Reply with quote

Sambhaji,

Not getting exactly...i tried this sort card but field values are comin incorrect ..plz help

//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1,6,FI,TO=ZD,LENGTH=12)
Back to top
View user's profile Send private message
Lijo

New User


Joined: 24 Aug 2008
Posts: 41
Location: Cochin

PostPosted: Tue Jan 05, 2010 4:48 pm    Post subject: Reply to: Convert COMP to readable format
Reply with quote

Use something like this:

Code:
OUTREC FIELDS=(1,4,BI,TO=ZDF,5,2,BI,TO=ZDF,<copy remaining data here>)
Back to top
View user's profile Send private message
ssprabhu

New User


Joined: 25 Apr 2005
Posts: 67
Location: pune

PostPosted: Tue Jan 05, 2010 5:12 pm    Post subject:
Reply with quote

Thanks its working
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Convert +9999999999999.99 to S9(12)V9(3) vnktrrd DFSORT/ICETOOL 8 Thu Nov 17, 2016 8:15 pm
This topic is locked: you cannot edit posts or make replies. Db2 SQL query to convert rows into co... subratarec DB2 5 Thu Nov 17, 2016 4:51 pm
No new posts convert PD to ZD ram_vizag DFSORT/ICETOOL 5 Sat Nov 05, 2016 3:06 am
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm


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