|
View previous topic :: View next topic
|
| Author |
Message |
fungyufa
New User
Joined: 18 Jun 2005
Posts: 4
Location: china
|
|
|
|
aaa123dd
ddd345ss
assume above data in file,
how to do if I want to decrease the field (4,3) by 2 with JCL
  |
|
| Back to top |
|
 |
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
is this a COBOL or a DFSORT/SYNCSORT question ?
Gerry |
|
| Back to top |
|
|
fungyufa
New User
Joined: 18 Jun 2005
Posts: 4
Location: china
|
|
|
|
by dfsort,
just don't want to write program for it |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
try this
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAA123DD
DDD345SS
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC OVERLAY=(4:4,3,ZD,SUB,+2,EDIT=(TTT))
/*
|
Gerry |
|
| Back to top |
|
|
|
|
