How to convert a decimal valuie to hexadecimal using sort

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

harithag
Member
Posts: 2
Joined: Wed May 02, 2012 11:13 am
Location: chennai

How to convert a decimal valuie to hexadecimal using sort

Hi,

I need help in converting a decimal value to hexadecimal value using sort card.
Below are my requirements,
I have an input file with 834 records,in which each record looks like
ZZZZ11112098102012-04-20-09.24.19.000001
ZZZZ11113098202012-04-20-09.24.19.000002
.
.
.
.
and so on...

Now i want to convert the value starting from postion 9 to 12 i:e;the value 2098,3098 to hexadecimal values.How i can acheive this using sort.
Need the resolution ASAP.
Thanks,
Haritha

dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm
1. we don't asap anything, you are being rude.

2. show what characters you want in 9 thru 12 based on your input.

problem is, saying you want it in hexadecimal makes no sense.

do you want the binary equivalent of 2098 in 9 thru 12? 0832?

if you show us, then we can tell you what to do and what to call it.
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

NicC
Active Member
Posts: 650
Joined: Sun Jul 24, 2011 5:27 pm
Location: Down on the pig farm
Try searching and not posting. If you cannot find by searching - there was an example earlier this week but may not have been this forum - the look in the manual for TOPD (I think). Certainly look in the manual for numeric conversions.
Regards
Nic

harithag
Member
Posts: 2
Joined: Wed May 02, 2012 11:13 am
Location: chennai
Hi Dick,

Apologies for making the description rude.
Yes. I want the hexa equivalnet for 2098 i:e 0832.
Thanks,
Haritha

DikDude
Moderator
Posts: 1001
Joined: Fri Jul 22, 2011 8:39 am
Location: usa
Suggest you try TO=BI as you want binary result rather than a packed-decimal (PD) result.
Have a good one

Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:
Haritha,

What you actually want is to convert from zoned decimal (ZD) to binary (BI). Assuming you want to overlay the 4-byte ZD value with an equivalent 4-byte BI value, you can use a DFSORT job like the following:

Code: Select all

``````//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file &#40;FB&#41;
//SORTOUT DD DSN=...  output file &#40;FB&#41;
//SYSIN DD *
SORT FIELDS=&#40;1,1,CH,A&#41;
INREC OVERLAY=&#40;9&#58;9,4,ZD,TO=BI,LENGTH=4&#41;
``````
If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

http://www.ibm.com/support/docview.wss? ... g3T7000080
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
• JCL Tutorial
Covers all important JCL concepts.
• Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3.
• DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming.
• SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples
• CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions

Other References
Mainframe Tools and others