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
 
Write after page/advancing

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

New User


Joined: 02 Aug 2007
Posts: 18
Location: india

PostPosted: Sat Jun 28, 2008 1:03 pm    Post subject: Write after page/advancing
Reply with quote

Hi all,

My requirement is to write some content in to a report in the second page. First page should be left blank.

I know i can use WRITE REPORT-LINE AFTER PAGE to write content to second page. But my WRITE command shouldn't contain AFTER PAGE/ADVANCING.

How can i do this?

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

Vasukip
Currently Banned

New User


Joined: 17 Jun 2008
Posts: 48
Location: Chennai

PostPosted: Sat Jun 28, 2008 4:56 pm    Post subject: Re: Write after page/advancing
Reply with quote

Hi,
For this you can define one blank Detail Line as BLANK_HEADER.
WRITE OUTREC FROM BLANK-HEADER .
Anthen you can use AFTER advancing pointer for DATA-DETAIL-LINE.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Sat Jun 28, 2008 5:09 pm    Post subject:
Reply with quote

Carriage control allows an RECFM=FBA or RECFM=VBA file to be used by the program to skip pages.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Jun 28, 2008 7:21 pm    Post subject:
Reply with quote

Hello,

Quote:
But my WRITE command shouldn't contain AFTER PAGE/ADVANCING.
Why not?

Defining top-of-page in "special names" and then using this name in the write is a common way to position the paper at the top of a new page - without specifying "PAGE".

Is there something that requires you to fill a page with blank lines, rather than directly advancing to the top of the next page?
Back to top
View user's profile Send private message
sriramvempaty

New User


Joined: 02 Aug 2007
Posts: 18
Location: india

PostPosted: Wed Jul 16, 2008 1:47 pm    Post subject: Reply to: Write after page/advancing
Reply with quote

Hi Dick,

The problem here is we have a module which takes care of writing in to /reading from files.

To that module we can only pass data. not other than that.

Now, my requirement is to generate a report similar to

top of page 1
*********HEADER*********page:1
Axxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

end of page1
top of page2
page:2
Cxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Dxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

yyyyyyyyyyyyyyyyy
zzzzzzzzzzzzzzzzzzzz

end of page 2

*********HEADER*********page:1
Exxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Fxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Where A,B,C,D's belongs to logical group1
EF belong to logical group2.

A group can have 'n' number of rows(no limit for n). Header should appear only once for each group (next group should start from next page starting).

I've taken care of everything except writing in to next page when a new group starts.

How can we achieve this with out using AFTER PAGE?

Thanks in advance.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Jul 16, 2008 8:10 pm    Post subject:
Reply with quote

Hello,

Quote:
The problem here is we have a module which takes care of writing in to /reading from files.
I'd suggest you talk with the people who support this module. If it was intended to support report creation, it should support getting to the top of a page - one way or another.

Personally, i'd think there was a difference between reading/writing "records" in a file versus writing a report. . .

Quote:
How can we achieve this with out using AFTER PAGE?
Count lines and write the proper number of blank "records" to position the report at the "top" of the next page. You might also try to embed carriage control characters to force "paper motion", but your generic read/write module may strip them off. . .
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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am

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