IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

CONVERT BI TO ZD(NUMERIC)


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sureshbabu.jv

New User


Joined: 11 Apr 2006
Posts: 41
Location: Chennai

PostPosted: Sat Oct 04, 2008 3:31 pm
Reply with quote

Hi,


Please find the input values and declaration below.

é
éme
Ú\#
éme
óß@
óß@
òù*
éme
óß@
óß@
ê&ü
ê&ü
¼ P
éme
óß@
óß@
æ^Á
æ^Á
éme
óß@
óß@
=d7
äx
éme

IACCTCA 062 04 B

I whave to convert the input format BI to editable format(ZD or any)

I have used THE BELOW CONDITIONS But not worked to me.
OUTREC FIELDS=(1,4,B,TO=ZD,LENGTH=8),
OUTREC FIELDS=(1,4,BI,TO=FS,LENGTH=8)
OUTREC FIELDS=(1,4,BI,TO=ZDF)

Could you suggest me that how to convert the above input data to editable format in the output file.

Thank YOu!

Suresh
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Sat Oct 04, 2008 9:45 pm
Reply with quote

IACCTCA 062 04 B

Does this mean the starting position is 62, the length is 4 and the format is BI? BI implies that the values are all positive. FI would be used if the values can be positive or negative.

If the starting position is 62, why are you using a starting position of 1?

A 4-byte BI field can result in up to 10 digits so:

Code:

   OPTION COPY
   OUTREC BUILD=(p,4,BI,TO=ZD,LENGTH=10)


should work where p is the correct starting position. But:

Code:

  OUTREC FIELDS=(p,4,BI,TO=ZDF)


would also work and you said it didn't (for DFSORT, TO=ZD and TO=ZDF are equivalent and the default output length for 4,BI would be 10).

It would have helped if you'd shown the input values in hex and the expected output values. Please do that (3 or 4 values are sufficient).

What exactly do you mean by it didn't work (error messages, incorrect output values?). What output did you get when you tried this? What output did you expect? Are your values all positive or can they be positive and negative? What messages did you receive? Did you use the correct starting position (62? 1?)? Is the RECFM of the input file FB or VB?
Back to top
View user's profile Send private message
sureshbabu.jv

New User


Joined: 11 Apr 2006
Posts: 41
Location: Chennai

PostPosted: Mon Oct 06, 2008 6:35 am
Reply with quote

Thanks for your response!

Starting position is 62 only. Sorry i mentioned 1 instead of 62.
RECFM of the input file is FB.
All the Input values are POSITIVE values(account numbers).
I am getting the copy of input data. Values were not changed.Got the same values to the output file.

I tried with above methods but still values were not changed,got the copy of input data only.

I have trid using ICETOOL and DFSORT both were not worked to me..

Thank you!

Suresh
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Mon Oct 06, 2008 7:13 am
Reply with quote

Hello,

Please post the jcl, control statements and the informational messages created when the jobs were run. Be sure to include the complete information including the message ids.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Mon Oct 06, 2008 9:56 pm
Reply with quote

Here's a DSORT job that will do what you asked for. I assumed the RECFM is 80 and you want 10 digits for the displayed field. You can change the job if appropriate.

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (FB/80)
//SORTOUT DD DSN=...  output file (FB/86)
//SYSIN    DD    *
  OPTION COPY
  INREC BUILD=(1,61,62,4,BI,TO=ZD,LENGTH=10,66,15)
/*


If that's not what you want, then you need to describe more exactly what you do want. If it is what you want, but "it doesn't work", then show the JCL, control statements and //SYSOUT messages, and/or the input (hex values) and expected output.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Issues Converting From ZD to Signed N... DFSORT/ICETOOL 4
No new posts Need to convert date format DFSORT/ICETOOL 20
No new posts Keep leading zero(s) after convert fl... SYNCSORT 7
No new posts Convert single row multi cols to sing... DFSORT/ICETOOL 6
No new posts convert file from VB to FB and use tr... DFSORT/ICETOOL 8
Search our Forums:

Back to Top