|
View previous topic :: View next topic
|
| Author |
Message |
Rambhupal.chaudari
New User
Joined: 30 Mar 2007
Posts: 25
Location: Hyderabad
|
|
|
|
Hi All,
I have a file of record length around 6000 bytes.
I want to insert "**" at every position 1024. And then shift the data from 1024 position to right side.
This should happen for all the records.
Please let me know how to do this through jcl. Using program we can achieve this. I need it through jcl.
Thanks inadvance.
Ram. |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
JCL EXECUTES PROGRAMS!
JCL does not change files, JCL does not allow you to shift data, JCL does nothing but execute programs. Determine which program you want to use to make this change, then somebody can give you more information -- but as it stands your request cannot be accomplished because JCL will not do what you want it to do. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| Determine which program you want to use to make this change |
This does not mean that you have to write a program. . .
You would probably use some standard utility to do this . . . |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Ram,
Assuming your input file has RECFM=FB and LRECL=6000, you can use a DFSORT job like the following to do what you asked for. The job can be changed appropriately for other attributes.
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/6000)
//SORTOUT DD DSN=... output file (FB/6002)
//SYSIN DD *
OPTION COPY
INREC BUILD=(1,1023,1024:C'**',1026:1024,4977)
/*
|
|
|
| Back to top |
|
|
Rambhupal.chaudari
New User
Joined: 30 Mar 2007
Posts: 25
Location: Hyderabad
|
|
|
|
Thank you Frank,
This is what am looking for.. |
|
| Back to top |
|
|
|
|
