View previous topic :: View next topic
|
Author |
Message |
sudhakarraju
New User
Joined: 05 May 2005 Posts: 31
|
|
|
|
Here is the JCL I used as it was suggested.
Code: |
//XXXXS010 EXEC PGM=SORT
//SORTIN DD *
01 VALIN15. 15
V15-RECORD-ID
PIC 9(09). 15
V15-RECORD-TYPE
PIC 9(02) VALUE
15. 15
V15-SORT-GROUP
PIC 9(03) VALUE
0.
//*
//SYSMOUT DD SYSOUT=*
//*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC BUILD=(1,14,80:X)
/*
|
|
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
My response was sometwhat tongue-in-cheek. And I miscounted.
You don't really want to do anything like TF, it looks like. You've got a scrambled COBOL data definition. To turn scrambled COBOL into unscrambled COBOL is not so easy with SORT.
Why don't you use the editor? If you can't do that, please explain why. If you want suggestions, fully and accurately describe what it is that you want to do. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Wherever did such chopped-up source come from? |
|
Back to top |
|
|
sudhakarraju
New User
Joined: 05 May 2005 Posts: 31
|
|
|
|
I was just trying to give an example.
I am actually getting the data from HFS and the output dataset on the TSO is text wrapped. I was trying to find some some utility that I can use to reformat the file to the required LRECL.
Here is the Scenario
If I am getting the file from HFS as LRECL 500 with the text wrapped, is there a way to copy that to a different dataset that has LRECL 80 without loosing any text? |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Pretend you want 20-byte records. Pretend you input is 70-byte records (instead of 500).
Arrange to show good examples across a maxium of three input records, per example (one might do, if they are really just text) and then construct expeacted (20-byte) output for that input. |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
I don't know how viable an option this is but can you transfer that mainframe file to a PC, open it in Notepad, use Courier New font, then use Word Wrap to get 80-character lines? Just a thought. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
daveporcelan wrote: |
From my understanding Synctool is directly compatible Icetool.
This is statement for statement.
If fact, when I inquired for a Synctool manual from the company, they referred me to the Icetool manual.
So while the SORT products may differ, the TOOL products are the same. |
SyncTool is aliased to ICETOOL at many (most?) of the shops, when one writes an appliction using ICETOOL at a SyncSort shop - SyncTool will be invoked under the covers. The probelm is that if your Job malfunction because of the "SynCTool's assembler routines or exits", you're your own - there is no support available and so no document to refer to. And it's tough to predict, without experiments, that which ICETOOL feacture is available with the SyncTool at your shop...just my $ .02...
Disclaimer: I'm not the spoke person for any of these products and my statements are my own based on the experience. |
|
Back to top |
|
|
|