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 BI TO ZD(NUMERIC)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: CONVERT BI TO ZD(NUMERIC)
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 Moderator


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

PostPosted: Sat Oct 04, 2008 9:45 pm    Post subject:
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    Post subject: Hi Frank
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

Site Director


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

PostPosted: Mon Oct 06, 2008 7:13 am    Post subject:
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 Moderator


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

PostPosted: Mon Oct 06, 2008 9:56 pm    Post subject:
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    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 Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm


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