MVSFORUMS.com

Turbo · Beginner Joined: 08 Jun 2005 Posts: 6 Topics: 1

Hello there,

Is there a way to print the line-number on the detail line of the report

Example

DATA : aaabbbcccddd
eeefffggghhh
iiijjjkkklll

REPORT :

01 aaa bbb ccc ddd
02 eee fff ggg hhh
03 iii jjj kkk lll

Thanks

kolusu · Posted: Wed Jun 08, 2005 12:55 pm Post subject:

Turbo,

Decalre a working-storage variable as below

kolusu · Posted: Wed Jun 08, 2005 1:05 pm Post subject:

Turbo,

On second thoughts , you don't need the variable , you can use system defined field RECORD-COUNT which ia a read-only four-byte binary field that contains the number of logical I/O operations performed to the file.

So change your line stmt to the the following.

Turbo · Beginner Joined: 08 Jun 2005 Posts: 6 Topics: 1

Thanks for the quick reply Kolusu.
Yes i tried those options. I should have been more clear.
I do a sequence and a control for the report.
The line number should intialize itself to 1 after the break. I am not able to acheive this by the above method

Turbo

kolusu · Posted: Wed Jun 08, 2005 1:35 pm Post subject:

Turbo,

you can reset the seqnum using the ENDPAGE report feature.code it after your report statement.

Turbo · Beginner Joined: 08 Jun 2005 Posts: 6 Topics: 1

Kolusu,
The above will not work as i have already tried it.
There is a line-number keyword. I was not able to find out how i can use it.
To be more precise my report should look this way

01 aaa aaa aaa
02 bbb bbb bbb
03 ccc ccc ccc
BREAK
01 ddd ddd ddd
02 eee eee eee
03 fff fff fff
BREAK
01 ggg ggg ggg
BREAK
01 hhh hhh hhh
02 iii iii iii

This every thing appears on one page. So, i cannot use END-PAGE PROC for it.

Thanks,
Turbo

kolusu · Posted: Wed Jun 08, 2005 2:00 pm Post subject:

Turbo · Beginner Joined: 08 Jun 2005 Posts: 6 Topics: 1

kolusu · Posted: Wed Jun 08, 2005 2:56 pm Post subject:

Turbo · Beginner Joined: 08 Jun 2005 Posts: 6 Topics: 1

Kolusu,

Yes there is a break on Dept and Section. I put in the sample data to illustrate the breaks.
Even if the LEVEL is used it is not solving the purpose as sequence number is already populated in the beginning and it will not increment as intended after the break as coded below.

W-LINE-NUM S 09 N 0 VALUE 0

JOB INPUT FILEIN

W-LINE-NUM = W-LINE-NUM + 1

PRINT RPT

In the sample data in my previous post, it is the output from a run. As you can see only the first record sequence number gets initialized to 1 and the remaining records have the sequence number from the code in JOB, after the BREAK.

I do not think there is a way to put in the sequence number in each BREAK. Let me know if any thing comes up.

Thanks for your assistance.

Turbo

kolusu · Posted: Thu Jun 09, 2005 9:10 am Post subject:

Turbo,

I tried to mimic your data and generate the report. check this

Turbo · Beginner Joined: 08 Jun 2005 Posts: 6 Topics: 1

Yes, the above solution works only when the data is already sorted. The sequence statement in the report will not do it right.

I figured that out and was able to get the report right.

If you want to try change the sequence of the data in the FILEIN and use a SEQUENCE statement in the REPORT. WS-LINE-NUM will not be what it appears right now in the output above.

Thanks,
Turbo

kolusu · Posted: Thu Jun 09, 2005 1:06 pm Post subject: