End of page 1

[claudeb]

Hi. I have a program that prints 1001 notices , rapports...
I have been asked to add a line at the end of 2 notices. add the client number at the far right or far left.
i tried to declare a select statement (and FD statement) for the notices and do a write every time that the notices are written.
after a " write notice-1" , i add
1-move client-number to the new line
2-write the new line.
My program doesn't accept my select statements because there is none available. they are all used in this program.
Could you suggest another way of doing it.
Thanks a lot.

 

[winzip]

claudeb,

how did you define the two reports in your existing program? are they in your SELECT statements?

if you are only to add a line in said reports, why would you need to SELECT them anew?

it would help if you showed us your SELECTs and your FDs to give us a better idea of what you are up against.

regards.

 

[claudeb]

Hi,Thanks for the answer.
these are the select statements for the 2 notices.
SELECT NOTICE-1 ASSIGN TO SYS001.
FD NOTICE-1
LABEL RECORDS ARE STANDARD.
*
01 NOTICE-1-REC.
05 NTC-1 PIC X.
05 FILLER PIC X(80).
05 FILLER PIC X(52).

SIMILAR THING FOR NOTICE-2.
This what i added.
SELECT NEW-LINE-1 ASSIGN TO SYS00?.
FD NEW-LINE-1
LABEL RECORDS ARE STANDARD.
*
01 NEW-LINE1-REC.
05 NEW-LINE1-CLIENT PIC X(10).
05 FILLER PIC X(123).
it seems that all the sys?? are taken in this program.
I am thinking about a "redefinition" of NOTICE-1-REC.

 

[winzip]

claudeb,

why the new SELECTs? you have the reports defined already - all you have to do is add a line at the end of the report (or is it at the end of every page?).

if you need to add the line at the end of the report, redefine your report record for the additional line, then add a print of that line in your end-of-processing routine.

if you need to add a line for every client, still basically the same deal, only this time you do it at every client break.

if you need more detailed help, i can do that but i have to go for now.

regards.

 

[claudeb]

Thanks a lot.