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

Conidtion based Conversion of fields to PD format
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
manoz_k

New User


Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI
PostPosted: Fri Mar 20, 2009 12:45 am
 Reply with quote
Here is what i am doing

Code:

  SORT FIELDS=COPY                                                 
  OUTREC IFTHEN=(WHEN=(1,5,CH,EQ,C'ABCDE',OR,1,5,CH,EQ,C'XYZKW'), 
           BUILD=(1,105,                                           
                  106,12,SFF,PD,EDIT=(STTTTTTTTT.T),LENGTH=6,       
                  118,12,SFF,PD,EDIT=(STTTTTTTTT.T),LENGTH=6,       
                  130,12,SFF,PD,EDIT=(STTTTTTTTT.T),LENGTH=6,       
                  142,30,
                  172,5,SFF,PD,EDIT=(STTTTTTTTT.T),LENGTH=2))       



What i am trying to do is Converting 12 byte values ( it is general Decimal number like +123456789.5) to 6 Byte packed Decimal if condition 1,5 character matches to certain value.

It is giving a syntax error now..saying EDIT can appear only once.
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: Fri Mar 20, 2009 1:57 am
 Reply with quote
Quote:
What i am trying to do is Converting 12 byte values ( it is general Decimal number like +123456789.5) to 6 Byte packed Decimal


Since you want to convert to PD, why are you using EDIT?

Code:

   ...
   106,12,SFF,PD,EDIT=(STTTTTTTTT.T),LENGTH=6, 
   ...


You can't convert to PD and use EDIT - you get to choose one or the other.


Code:

  106,12,SFF,PD,LENGTH=6,


would convert to 6-byte PD. Remove the EDITs.
Back to top
View user's profile Send private message
manoz_k

New User


Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI
PostPosted: Fri Mar 20, 2009 5:37 am
 Reply with quote
It did worked out thanks much !!! I have another issue now, generally we have ZDF or ZDC depending on the requirement.Is there way we can mimic the same in PD format.I see ZEROS are represented as X'0C' but i want it to be X'0F'. what i need to do for this
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Fri Mar 20, 2009 5:56 am
 Reply with quote
Have you looked at PDF and PDC?
Back to top
View user's profile Send private message
manoz_k

New User


Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI
PostPosted: Fri Mar 20, 2009 6:09 am
 Reply with quote
CICS Guy wrote:
Have you looked at PDF and PDC?


That's so simple...i didn't expect that.Thanks much !!!
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 Populate last day of the Month in MMD... SYNCSORT 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts 10 byte RBA conversion DB2 2
No new posts 10 byte RBA conversion -non applicati... JCL & VSAM 1
No new posts Need to convert date format DFSORT/ICETOOL 20
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us