MVSFORUMS.com

[mfuser]

Hai All,

I am basically trying to generate a report with SORT where in i shoud be having headers one after the other in different lines in the report in the format and at the end of the report a trailer display.

Code:

PAGE    :          1 DATE    : 01/04/2006 TIME    :   10:10:10

So in my SORT Card i am giving

Code:

//SYSIN    DD *                                    SORT FIELDS=(2,4,A,5,4,A,10,4,A),FORMAT=CH        OUTREC FIELDS=(2,4,5,4,10,4)                      OUTFIL HEADER1=(41:C'PAGE    :          1',2/),          HEADER2=(41:C'DATE: 01/04/2006',2/,                   41:C'TIME:   10:10:10'),                           TRAILER1=(41:C'FINISH')

I am getting the following error as below.Can anybody help me out how do i achieve my desired result.Morever how do i take care of the page numbers increasing when the pages exceed more than one ?

Code:

ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1                    ICE230A 0 67 BYTE HEADER/TRAILER RECORD EXCEEDS 10 BYTE LRECL FOR SORTOUT

[kolusu]

Mfuser,

The messages are self explanatory. your OUTREC fields are only creating a file of 10 bytes length, but you are specifying the date and page fields to start at pos 41 which is NOT possible.

So you need to change your OUTREC FIELDS to accomadate the additional fields. So change your sort card to the following. Btw you don't have to hardcode the date/time/page in your sort card. you can use the system defined variables &date/&time/&page for current date/time and page numbers respectively.

[Frank Yaeger]

mfuser,

The error message you show does NOT correspond to the control statements you show. When I run your control statements, I get:

ICE230A 0 61 BYTE HEADER/TRAILER RECORD EXCEEDS 13 BYTE LRECL FOR SORTOUT

Do you have LRECL=10 for SORTOUT? If so, remove it.

But Kolusu is right that you need to use n:X in OUTREC to make the output data records longer than the Header/Trailer records.

Another thing I noticed is that you're using:

[mfuser]

Thanks Kolusu,

I have understood the steps from your answers and my concepts are clear and i am able to write Control statements.I have few queries:

1)If i would like to take care of page numbers incremental ,how do i do that ,can we make use of line counter if it exceeds 50 lines, the page should be incremented to 2.
2)the date format is mm/dd/yy ,if i want the format to be mm/dd/20yy how can it be achieved
3)if i want to insert a blank line after the headers how can it be achieved

Code:

PAGE    :          1                                                     DATE    :   01/04/06                                                     TIME    :   10:10:10                                                                                               SUMMARY REPORT

4)Similary for a blank line before FINISH.

Code:

FINISH

[kolusu]

mfuser,

[mfuser]

Kolusu,

Thanks for the help for which u have provided for the solution to my queries.I had come across some more:

OUTPUT:

Code:

---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8- ********************************* TOP OF DATA **********************************                                         PAGE:      1                                                                    DATE: 01/05/2006                                                                TIME: 01:49:03                                                  SUMMARY REPORT                                          REC01                                                                            REC02                                                                                                                    PAGE:      2                                                                    DATE: 01/05/2006                                                                TIME: 01:49:03                                                  SUMMARY REPORT                                          REC03                                                                            REC04                                                                                                                    PAGE:      3                                                                    DATE: 01/05/2006                                                                TIME: 01:49:03                                                  SUMMARY REPORT                                          REC05                                                                            REC06                                                                                                                    PAGE:      4                                                                    DATE: 01/05/2006                                                                TIME: 01:49:03                                                  SUMMARY REPORT                                          REC07                                                                            REC08                                                                                                                    PAGE:      5                                                                    DATE: 01/05/2006                                                                TIME: 01:49:03                                                  SUMMARY REPORT                                          REC09                                                                            REC10                                                                                                                    PAGE:      6                                                                    DATE: 01/05/2006                                                                TIME: 01:49:03                                                  SUMMARY REPORT                                          REC11                                                                                                                                                                                                    FINISH

1.Why is the output SYOUT which has generated is 82 columns in spool actually i had kept the input data in a input dataset of 80 LRECL.
2.In the code

Code:

SORT FIELDS=COPY                    OUTFIL LINES=7,                      HEADER2=(41:C'PAGE: ',PAGE,/,                 41:C'DATE: ',DATE=(MD4/),/,          41:C'TIME: ',TIME,2/,               25:C'SUMMARY REPORT'),      TRAILER1=(2/,41:C'FINISH')

My assumption is that

a)1 line for Page,1 line for Date,1 line for Time and after that u are using 41:C'TIME: ',TIME,2/, which means u should leave two lines after TIME which is being not done .
b)Is n/ is used to have blank lines after printing the desired line.
c)Moreover with the OUTFIL LINES=7 means after completing six lines increment the page counter and write the headers.
d)And before writing 'FINISH' u are using TRAILER1=(2/,41:C'FINISH') u are expecting 2 lines to be blank before 'FINISH' which is not happening.
5)Why is that we are mentioing 41 st column to start with ,but it is starting from 42 column is it because of Carriage control character and can it be removed.
[/color]

[kolusu]