Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Append sequence number inbetween a VB file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Tue Jul 07, 2009 4:19 pm    Post subject: Append sequence number inbetween a VB file
Reply with quote

Hi,

I have a requirement to change a VB for adding sequence number in between.

I/P file is

100 11111 1000000 1000000 11111
100 11111 1000000 1000000 11111
101 11111 1000000 1000000 11111
101 11111 1000001 1000000 11111
101 11111 1000001 1000000 11111

Key vaues are the first 12 bytes which is a Packed fields.

O/p file should be

100 11111 1000000 1 11111
100 11111 1000000 2 11111
101 11111 1000000 1 11111
101 11111 1000001 1 11111
101 11111 1000001 2 11111

inbetween the fields i want to append my seqence no.

Note: the field iam trying to change is a Packed decimal

pls. assist me how can i achieve this.

Thanks,
Raj
Back to top
View user's profile Send private message

kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Tue Jul 07, 2009 5:18 pm    Post subject:
Reply with quote

I achieved my requirement using the sort card icon_biggrin.gif ,

Code:

  SORT FIELDS=(5,12,CH,A)                                             
  OUTREC FIELDS=(1,16,17:SEQNUM,4,PD,START=1,INCR=1,RESTART=(5,12),21)


Thanks,
Raj
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 3 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us