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

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

How to convert a decimal valuie to hexadecimal using sort

Post by harithag » Wed May 02, 2012 11:31 am

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

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Wed May 02, 2012 1:50 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

Post by NicC » Wed May 02, 2012 2:02 pm

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

Post by harithag » Wed May 02, 2012 2:08 pm

Hi Dick,

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

DikDude
Moderator
Posts: 1001
Joined: Fri Jul 22, 2011 8:39 am
Location: usa

Post by DikDude » Wed May 02, 2012 7:13 pm

Suggest you try TO=BI as you want binary result rather than a packed-decimal (PD) result.
Have a good one

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

Post by Frank Yaeger » Wed May 02, 2012 10:21 pm

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 (FB)
//SORTOUT DD DSN=...  output file (FB)
//SYSIN DD *                                                     
  SORT FIELDS=(1,1,CH,A)                                         
  INREC OVERLAY=(9:9,4,ZD,TO=BI,LENGTH=4)                        
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

Post Reply

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