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 

A conversion from Packed decimal, int & smallint to PIC

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
satjag
Beginner


Joined: 19 Dec 2002
Posts: 19
Topics: 2
PostPosted: Thu Jun 05, 2003 6:21 am    Post subject: Reply with quote
Ravi ,

If your shop has fileaid, then you can try option 9 - Reformat.
_________________
Regards,
satjag
Back to top
View user's profile Send private message
satjag
Beginner


Joined: 19 Dec 2002
Posts: 19
Topics: 2
PostPosted: Thu Jun 05, 2003 8:11 am    Post subject: Reply with quote
Here we go............

1.Create two copybooks with the input record layout in one and output record layout in the other.
2.Go to F;9
3.Choose D
4.Reformat Record Layouts screen will be displayed.Give the Input record layout copybook and output record layout copybook.Give move corresponding as YES.
5. Next screen will display both the layouts and mapping.
6. Give EX in the command line.This will take you to a screen which requires the input dataset and output dataset names.
7.After entering these dataset names, press enter.The reformat will be executed.
8.Check the output data vis-a-vis input data.

I have executed some reformattings for comp-3 values and it has worked out fine.I have never tried any comp values. Please post your execution results here for our knowledge.
_________________
Regards,
satjag
Back to top
View user's profile Send private message
Premkumar
Moderator


Joined: 28 Nov 2002
Posts: 77
Topics: 7
Location: Chennai, India
PostPosted: Thu Jun 05, 2003 11:40 pm    Post subject: Reply with quote
or use SORT.
Code:

//SORT01    EXEC PGM=SORT                   
//SORTIN    DD   DSN=INPUT.FILE             
//SORTOUT   DD   DSN=OUTPUT.FILE           
//SYSIN     DD   *                         
  SORT   FIELDS=COPY                       
  OUTREC FIELDS=(1,6,PD,EDIT=(TTTTTTTTT.TT),
                 7,4,FI,EDIT=(TTTTTTTTT),   
                 11,2,FI,EDIT=(TTTTT))     
//SYSOUT    DD   SYSOUT=*                   
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
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