MBACOBOL
New User
Joined: 11 Sep 2008 Posts: 1 Location: chennai
|
|
|
|
Hi,
I have 1 input PS with LRECL 321, i've output PS with LRECL 370.
I need to copy 301 chars from input PS to output, then move 49 spaces again 302 to 321 to output PS.
Please help me. |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/321)
//SORTOUT DD DSN=... output file (FB/370)
//SYSIN DD *
OPTION COPY
INREC BUILD=(1,301,49X,302,20)
/*
|
|
|