View previous topic :: View next topic
|
Author |
Message |
Prema Suresh
New User
Joined: 12 Jun 2008 Posts: 8 Location: Bangalore
|
|
|
|
I have a huge file with say 280 columns defined in a copybook without any delimiters.
I wish to change this to a delimited file and also wish to convert the packed fields in it to display format. |
|
Back to top |
|
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
Morning Sir !
Plse have a look at Sort-options INREC/OUTREC. Also look at the
Mask-Definitions to convert packed-decimal fields. |
|
Back to top |
|
|
karthikr44
Active User
Joined: 25 Aug 2007 Posts: 235 Location: Chennai
|
|
|
|
Code: |
//* THIS JCL IS USED TO CONVERT A COMP-3 FIELD TO READABLE FORMAT.
//* LAYOUT:
//* 02 RF-CD-TRAN PIC XX.
//* 02 RF-CD-RPT PIC XX.
//* 02 RF-DT-TRAN PIC 9(5) COMP-3.
//* 02 RF-ID-SSN PIC 9(9) COMP-3.
//* THIS JCL CONVERT THE RF-ID-SSN TO READABLE FORMAT
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DEV2.RK.TEST(DA11NOW),DISP=SHR
//SORTOUT DD DSN=DEV2.RK.TEST(DA11SSN),DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(8,5,PD,EDIT=(TTTTTTTTT))
/*
//*
|
|
|
Back to top |
|
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
@ karthikr44 !
He said packed to display, so packed to unpacked Chars, i think.
Easiest way is to use a Mask in Sort.
StartingPosition, Length, PD, M1
M1 = Name of one of the 27 pre-defined edit masks.
M1 = TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTS
-00123 = 00123-
M4 = SII,III,III,III,III,III,III,III,III,IIT.TT
+0123456 = +1,234.56 |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
For a record with many fields, you may be ahead to create a new copybook that has "displayable" fields rather than packed or binary fields. If you use the sort, it will probably become a pain to track all of the field displacements - even if you use symnames.
After moving (corresponding?) the fields from the input format to the displayable format, you could then string the displayable fields and whatever you want for the delimiter into an output and use that for the download and use in your spreadsheet. |
|
Back to top |
|
|
|