Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
EJECT statement help

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
chkiran2

New User


Joined: 24 Jun 2004
Posts: 24
Location: Gurgoan

PostPosted: Wed Aug 25, 2004 12:17 pm    Post subject: EJECT statement help
Reply with quote

Hi
I have the following layout in a COBOL program. Can some one explain me what exactly does EJECT statement do? Does coding the EJECT in this way effects the way the program is executed? And then the COPY book layout of BILPRGRET starts at which level 01 or 05?

Code:

01  WS-DISPLAY-AREA.
     05  WS-READ             PIC ZZZ,ZZZ,ZZ9      VALUE ZERO.
     05  WS-BYPASSED         PIC ZZZ,ZZZ,ZZ9      VALUE ZERO.
     05  WS-WROTE            PIC ZZZ,ZZZ,ZZ9      VALUE ZERO.
     EJECT
 
     COPY IDMS RECORD BILPRGRET.



Please help me analyzing this.

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

sandip_datta

Active User


Joined: 02 Dec 2003
Posts: 151
Location: Tokyo, Japan

PostPosted: Wed Aug 25, 2004 2:15 pm    Post subject:
Reply with quote

A little search gives me lots of result. From Manual -

Code:
The EJECT statement specifies that the next source statement is to be printed at the top of the next page.
The EJECT statement must be the only statement on the line. It can be written in either Area A or Area B, and can be terminated with a separator period.
The EJECT statement must be embedded in a program source. For example, in the case of batch applications, the EJECT statement must be placed between the CBL (PROCESS) statement and the end of the program (or the END PROGRAM marker, if specified).

The EJECT statement has no effect on the compilation of the source program itself.


Regards,
Sandip.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
No new posts Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm
No new posts ON 2 AND EVERY 1 - Statement ??? UmeySan COBOL Programming 2 Tue Jul 25, 2017 1:20 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm
No new posts VALIDATE NULL VALUE IN DB2 CASE STATE... useit DB2 5 Thu Feb 09, 2017 4:34 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us