IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Cobol program to determine the sequence of records


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Wajidali Sayed

New User


Joined: 22 Aug 2021
Posts: 1
Location: India

PostPosted: Sun Aug 22, 2021 1:16 pm
Reply with quote

Hi All,

I have a FB file of record length 100 bytes. At the 19th position file contains an indicator which is populated with P, I and A.
I need to write a cobol program to determine that the records are always coming in the same sequence i.e. first P then I and then A. If the sequence breaks then write entire record should be written to exception file.
We can use account number (first 8 bytes) and security number (next 5 bytes) as key from input file.
Please help me with this

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

Senior Member


Joined: 07 Feb 2009
Posts: 1315
Location: Vilnius, Lithuania

PostPosted: Sun Aug 22, 2021 4:08 pm
Reply with quote

Why don't you sort these keys into this order????

And you don't ask newbie questions in a forum for experts, wasting our time!
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2141
Location: USA

PostPosted: Sun Aug 22, 2021 6:36 pm
Reply with quote

Before coding COBOL or whatever else you need first of all to create in your mind a plan, or an algorithm: how can you achive your goal?

Without having this in your mind, neither COBOL, nor SUPER-COBOL would help you…
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts COBOL sorting, with input GDG base COBOL Programming 7
No new posts Need help with ADABAS query (COBOL-AD... All Other Mainframe Topics 0
No new posts combine multiple unique records into ... DFSORT/ICETOOL 2
No new posts Replacing FILLER with FILLER<SeqNu... DFSORT/ICETOOL 2
No new posts Error to invoke MPP program through B... IMS DB/DC 3
Search our Forums:

Back to Top