Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
reformat the text to fill lines
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
sudhakarraju

New User


Joined: 05 May 2005
Posts: 29

PostPosted: Sat Aug 10, 2013 12:11 am    Post subject:
Reply with quote

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
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Sat Aug 10, 2013 12:46 am    Post subject: Reply to: reformat the text to fill lines
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Aug 12, 2013 2:25 am    Post subject:
Reply with quote

Hello,

Wherever did such chopped-up source come from?
Back to top
View user's profile Send private message
sudhakarraju

New User


Joined: 05 May 2005
Posts: 29

PostPosted: Mon Aug 12, 2013 10:56 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Mon Aug 12, 2013 11:22 pm    Post subject: Reply to: reformat the text to fill lines
Reply with quote

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
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Wed Aug 14, 2013 6:58 am    Post subject:
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Wed Aug 14, 2013 3:58 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Goto page Previous  1, 2
Page 2 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Send text at cursor position on an IS... Domenic Ailati CLIST & REXX 10 Sun Jun 02, 2019 7:34 am
No new posts FTP ASCII-Text to Mainframe - REG Dhamodharan.G All Other Mainframe Topics 4 Wed Mar 27, 2019 1:02 pm
No new posts Split single i/p line into multiple l... elixir1986 DFSORT/ICETOOL 2 Wed Feb 27, 2019 12:47 am
No new posts Need help on the multiple files refor... wik123 DFSORT/ICETOOL 7 Wed Sep 19, 2018 10:47 am
No new posts Reformat clause in joinkeys sortcard ... Mounika Nemani DFSORT/ICETOOL 2 Thu May 31, 2018 5:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us