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
 
How can I reformat these fields?

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

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Sat Nov 21, 2009 2:50 am    Post subject: How can I reformat these fields?
Reply with quote

I feel dumb asking this, but I'm not an expert on numeric data types.

The dataset in question is RECFM(F B) LRECL(1600).

The raw data looks like this in hex:

Code:

 îçí   ¬ îçá   ¬   
15452025154420250000
5685099F5685099F0008


and I know that it's composed of these fields:

COMPLETED TIME in HHMMSSTT format. I know this value is: 15:56:48.
COMPLETED DATE in Julian (YYYYDDDF) format. I know this value is: 2009295 (10/22/2009).
STARTED TIME in HHMMSSTT format. I know this value is also 15:56:48.
STARTED DATE in Julian (YYYYDDDF) format. I know this value is also: 2009295 (10/22/2009).
STEP COMPLETION CODE. I know this value is:00000008.

What DFSORT data types would convert these into their decimal equivalents? It looks like p,4,PD,TO=FS,LENGTH=8 is close.
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Sat Nov 21, 2009 3:14 am    Post subject:
Reply with quote

You could use these DFSORT statements:

Code:

  OPTION COPY                                               
  INREC  BUILD=(1,3,HEX,8:5,4,PD,EDIT=(TTTTTTT),16:9,3,HEX,
     23:13,4,PD,EDIT=(TTTTTTT),31:17,4,HEX)                 


and the output would be:

Code:

155648 2009295 155648 2009295 00000008


You can do further conversions/formatting from those values if you need to.
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 Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am
No new posts SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 13 Fri Mar 23, 2018 10:54 am
No new posts Sum the fields in particular format f... sharana64 DFSORT/ICETOOL 9 Fri Jan 05, 2018 1:11 am
No new posts SORT BUT RETAIN HIGHEST VALUE ON NON-... leondan22 DFSORT/ICETOOL 2 Thu Dec 14, 2017 8:13 pm
No new posts Merging 2 records at multiple rows wi... Bijesh DFSORT/ICETOOL 2 Wed Dec 06, 2017 1:50 am

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