|
View previous topic :: View next topic
|
| Author |
Message |
arunmozhicholan
New User
Joined: 07 Feb 2007
Posts: 27
Location: chennai
|
|
|
|
Hi All ,
i have a requirement to copy 600 bytes flat file to 1055 bytes , i tried copying usingIEBGENER , REPRO But it not , can anyone suggest me how to do it .
files are coming through NDM
Able to copy through INSYNC TOOL ... |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| IEBGENER will do it quite happily -- use the RECORD utility control statement to fill the 455 bytes you're adding to the record. |
|
| Back to top |
|
|
arunmozhicholan
New User
Joined: 07 Feb 2007
Posts: 27
Location: chennai
|
|
|
|
can you please give me an example.
i'm not clear , sorry |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
Your IEBGENER control statements (see the manual link for the Utilities manual if you haven't done this before) will look like:
| Code: |
GENERATE MAXFLDS=99,MAXLITS=455
RECORD FIELD=(600,1,,1),FIELD=(45,' ... <45 spaces> ... ',601), X
FIELD=(45,' ... <45 spaces> ... ',646), ...
FIELD=(5,' ',1051)
|
which says to copy the first 600 bytes, then append 45 bytes of spaces, another 45 bytes of spaces, and so forth.
IEBGENER is much more flexible than just doing flat file copies. |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do it quite easily:
| Code: |
/S1 EXEC PGM=SORT
/SYSOUT DD SYSOUT=*
/SORTIN DD DSN=... input file (FB/600)
/SORTOUT DD DSN=... output file (FB/1055)
/SYSIN DD *
OPTION COPY
INREC OVERLAY=(1055:X)
/*
|
|
|
| Back to top |
|
|
arunmozhicholan
New User
Joined: 07 Feb 2007
Posts: 27
Location: chennai
|
|
|
|
thanks for your replies .
am working on it .. |
|
| Back to top |
|
|
vidyadhar
New User
Joined: 17 Nov 2007
Posts: 2
Location: chennai
|
|
|
|
Easily we can copy using with File-Aid, no need to write any JCL.
please see attachment jpg files, in this example i have taken first file with 4092 LRECL and copied into 6000 LRECL.
Screen shots deleted to reduce clutter - if wanted, please repost using the "Code" tag. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
vidyadhar
Please DO NOT post screen shots unless you use the relevant VB tage. Screen shots are a waste of resource.
Also remember that not every shop will have purchased FileAid. |
|
| Back to top |
|
|
|
|
