MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Supress zero & Convert Editing field to Assumd decimal p
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
sabarisavi
Beginner


Joined: 25 Apr 2008
Posts: 30
Topics: 6
Location: Ashburn, VA

PostPosted: Fri Jul 04, 2008 8:26 am    Post subject: Reply with quote

Terry - I couldnt able to use BBCode. When i request my clarification, Site adimin or Kolusu will convert my code to readable fromat before post their reply.
Back to top
View user's profile Send private message
Terry_Heinze
Supermod


Joined: 31 May 2004
Posts: 391
Topics: 4
Location: Richfield, MN, USA

PostPosted: Fri Jul 04, 2008 8:50 am    Post subject: Reply with quote

Site admin or Kolusu (and other moderators) format your code as a courtesy to us, the beneficiaries of this bulletin board. You can save them the extra trouble by making use of BBCode yourself. Have you read how to use BBCode by clicking on FAQ?
_________________
....Terry
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Tue Jul 08, 2008 10:18 am    Post subject: Reply with quote

Sabasiravi,

Use the following DFSORT Control cards to get the desired output
Code:

//SYSIN    DD *                                       
  SORT FIELDS=COPY                                     
  INREC IFTHEN=(WHEN=(11,11,SS,EQ,C'.'),               
        PARSE=(%00=(ABSPOS=11,ENDBEFR=C'.',FIXLEN=10),
               %01=(ENDBEFR=C'.',FIXLEN=3)),           
       OVERLAY=(129:%00,UFF,M11,LENGTH=7,C'.',         
               %01,JFY=(SHIFT=LEFT))),                 
        IFTHEN=(WHEN=(11,11,SS,NE,C'.'),               
       OVERLAY=(129:11,11,ZD,M11,LENGTH=7,C'.000'))   
                                                       
  OUTREC BUILD=(1,10,129,11,TRAN=ALTSEQ,22,107)       
  ALTSEQ CODE=(40F0)                                   
/*                                                     



You should be able to use BBCODE without any problem. Check this link which explains about using BBCode

http://www.mvsforums.com/helpboards/viewtopic.php?p=19031#19031

Hope this helps...

Cheers
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
sabarisavi
Beginner


Joined: 25 Apr 2008
Posts: 30
Topics: 6
Location: Ashburn, VA

PostPosted: Wed Jul 09, 2008 12:58 pm    Post subject: Reply with quote

Thank you, so much Kolusu.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Goto page Previous  1, 2, 3
Page 3 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group