A conversion from Packed decimal, int & smallint to PIC
Select messages from
 # through # FAQ
[/[Print]\]

MVSFORUMS.com -> Utilities
#1:  Author: satjag,  PostPosted: Thu Jun 05, 2003 6:21 am
    —
Ravi ,

If your shop has fileaid, then you can try option 9 - Reformat.
#2:  Author: satjag,  PostPosted: Thu Jun 05, 2003 8:11 am
    —
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.
#3:  Author: Premkumar, Location: Chennai, India PostPosted: Thu Jun 05, 2003 11:40 pm
    —
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=*                   
MVSFORUMS.com -> Utilities


output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group