santsuda
New User
Joined: 01 Dec 2005 Posts: 5
|
|
|
|
Hi Shriya,
Please try this and let me know.
Code: |
//STEP0030 EXEC PGM=FILEAID
//DD01 DD DSN=<i/p dsn>,DISP=SHR
//DD01O DD DSN=<o/p dsn>,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(20,30),RLSE),
// DCB=<dcb param>
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
$$DD01 USER MOVE=(1,11,45),
WRITE=DD01O
/*
|
From the Position 45 , 11 Charecters of I/P file will be moved to field position 1 of o/p file.
Hope this helps.
Thanks,
Santhosh.S |
|