Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
decrease a numeric field in file by JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
fungyufa

New User


Joined: 18 Jun 2005
Posts: 2
Location: china
PostPosted: Thu Oct 23, 2008 8:17 am    Post subject: decrease a numeric field in file by JCL
 Reply with quote
aaa123dd
ddd345ss

assume above data in file,
how to do if I want to decrease the field (4,3) by 2 with JCL
icon_rolleyes.gif icon_question.gif
Back to top
View user's profile Send private message
References
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 692
PostPosted: Thu Oct 23, 2008 8:26 am    Post subject:
Reply with quote
Hi,

is this a COBOL or a DFSORT/SYNCSORT question ?


Gerry
Back to top
View user's profile Send private message
fungyufa

New User


Joined: 18 Jun 2005
Posts: 2
Location: china
PostPosted: Thu Oct 23, 2008 8:32 am    Post subject: Reply to: decrease a numeric field in file by JCL
 Reply with quote
by dfsort,
just don't want to write program for it
Back to top
View user's profile Send private message
Moved: Thu Oct 23, 2008 8:33 am by dick scherrer From Mainframe COBOL to DFSORT/ICETOOL
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 692
PostPosted: Thu Oct 23, 2008 8:38 am    Post subject:
Reply with quote
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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1