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
 

 

Conidtion based Conversion of fields to PD format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: Conidtion based Conversion of fields to PD format
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 Moderator


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

PostPosted: Fri Mar 20, 2009 1:57 am    Post subject:
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    Post subject:
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: 2150
Location: At my coffee table

PostPosted: Fri Mar 20, 2009 5:56 am    Post subject:
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    Post subject:
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    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 write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Sum Fields ballaswaroop DFSORT/ICETOOL 4 Tue May 02, 2017 11:07 am
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm


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