Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : All available storage is assigned to the job or jobstep, If REGION is coded 0K or 0M

Google
 
Web mainframegurukul.com

Read only Header and Trailer record from Input File

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL
  View previous topic :: View next topic  
Author Message
sunitha19
Member


Joined: 12 Mar 2016
Posts: 4

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Sat Mar 12, 2016 11:39 pm    Post subject: Read only Header and Trailer record from Input File Reply with quote

Please provide logic to read only header and trailer record from input file and write into Output File.

Step 1: Read Header record (Always first record is header)

Step 2: For Header record Process the logic

Step 3: Write all Detail records as it is into Output File without processing any logic

Step 4: For Trailer Record Process the logic, and write the count into the Output File as one field in Output Trailer record (Note: Output Trailer record layout is different from Input Trailer record Layout)

Please any one help me on this where we have to process only first and last records only
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

William Collins
Active Member


Joined: 24 May 2012
Posts: 714

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Sun Mar 13, 2016 12:29 pm    Post subject: Reply with quote

Take a "normal" program which processes header, details and trailer. In the "process details" simply write the record out. Remembering that I assume you count the records anyway.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
sunitha19
Member


Joined: 12 Mar 2016
Posts: 4

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Sun Mar 13, 2016 3:59 pm    Post subject: Please provide the count logic0 for reading the last record Reply with quote

Thank you for reply. Please send me count logic or let me know whether the below logic works:

READ INPUT-FILE INTO INPUT-REC
AT END
MOVE 'Y' TO EOF
ADD 1 TO COUNT1
MOVE COUNT-1 TO TOTAL-COUNT
NOT AT END
ADD 1 TO COUNT -1

IF EOF AND COUNT-1 = TOTAL-COUNT
PERFORM PROCESS-LAST-RECORD-PARA
ELSE
PERFORM WRITE-RECORD-PARA
END-IF
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
sunitha19
Member


Joined: 12 Mar 2016
Posts: 4

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Mon Mar 14, 2016 9:55 am    Post subject: Please anyone help me on this Reply with quote

William Collins wrote:
Take a "normal" program which processes header, details and trailer. In the "process details" simply write the record out. Remembering that I assume you count the records anyway.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
sunitha19
Member


Joined: 12 Mar 2016
Posts: 4

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Mar 15, 2016 6:10 pm    Post subject: Please any one help me on this Reply with quote

William Collins wrote:
Take a "normal" program which processes header, details and trailer. In the "process details" simply write the record out. Remembering that I assume you count the records anyway.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
William Collins
Active Member


Joined: 24 May 2012
Posts: 714

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Mar 16, 2016 12:28 pm    Post subject: Reply with quote

AT END/NOT AT END are slovenly to use. Use the FILE STATUS on the SELECT and test that field.

Code:
IF Header
    do header stuff
ELSE
IF Trailer
    do trailer stuff
OTHERWISE
    count the data records
END-OF-IFS


Do that as an evaluate. Or do exactly what I said earlier.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts What are all the COBOL compilers available? 6 Sweetu 14669 Mon Feb 01, 2016 10:48 pm
academyindia4 View latest post
No new posts Reg: Different operating systems in mainframes 2 156138 6808 Mon Feb 01, 2016 1:35 am
academyindia4 View latest post
No new posts Different forms of Case -when (loop handling) in Eazytrieve 3 Avani 10392 Mon Feb 01, 2016 1:34 am
academyindia4 View latest post
No new posts SQLCODE -811, why always 2nd row is fetched?? 5 sukhmeet 6312 Sat Jan 30, 2016 11:25 pm
academyindia4 View latest post
No new posts Copy records for matching key appearing at different places. 4 rangab 7444 Tue Feb 03, 2009 11:36 pm
rangab View latest post
 


Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-8298.html