IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Update the trailer count in a VB File


 
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: :: View next topic  
Author Message
krishna226

New User


Joined: 29 Jan 2014
Posts: 2
Location: India

PostPosted: Wed Apr 09, 2014 7:03 pm
Reply with quote

krishna226, you are supposed to ask a question.
Back to top
View user's profile Send private message
krishna226

New User


Joined: 29 Jan 2014
Posts: 2
Location: India

PostPosted: Wed Apr 09, 2014 7:17 pm
Reply with quote

Hi All,

I have requirement to update the trailer count in a VB file using syncsort of length 3000.

In the file there are different record types as '080', '030', '910', '999' starting from 42nd position in the file. '999' is the trailer record. I need to count the records based on record type and need to update the counts in the trailer record.

The '080' record count shoul be updated in the trailer record from 68th postion having 8 bytes which is a PD format.

For '030' count shoul be updated from 76 position having 8 bytes.

Input File:
Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
***************************** Top of Data ******************************
03007468      1A 7171091020999     àÍ<030  ð   1403130M0000002000000
03007468      1A 7171091020999     àÍ<910  ð    ­0000000   BOC     
03007468      1A 7171091020999     àÍ<080  ð    Þ13000011      010 
03007468      1A 7171091020999     àÍ<080  ð    Þ13000012      16* 
03007468      1A 7171091020999     àÍ<080  ð    Þ14000021      010 
03007468      1A 7171091021999     àÍ*030  ð   1403130M0000002000000
03007468      1A 7171091021999     àÍ*910  ð    ­0000000   BOC     
03007468      1A 7171091021999     àÍ*080  ð    509000891BOCH     
03007468      1A 7171091021999     àÍ*080  ð    509000892BOCF     
03007468      1A 9999999999999999  á @999  ð     
Code'd, Please use Code tags while posting code/data

can someone help me in getting this requirement to be done
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> JCL & VSAM
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts COBOL VS SORT Utility for file format... COBOL Programming 6
No new posts How to find which file contains my se... DFSORT/ICETOOL 6
No new posts IGZ0035S THERE WAS AN UNSUCCESSFUL OP... COBOL Programming 3
No new posts Group comparison/update between two f... DFSORT/ICETOOL 10
No new posts Hex Value - vb file replace old date ... DFSORT/ICETOOL 14

Back to Top