Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Regarding Header1 and Outrec in Sorting

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Thu Sep 22, 2005 3:20 pm    Post subject: Regarding Header1 and Outrec in Sorting
Reply with quote

Hi Friends,

I am doing report generation. I am getting the abend S000 U0016.

My code is as follows:

Code:
                                             
//S1 EXEC PGM=SORT                                               
//SYSPRINT   DD  SYSOUT=*                                         
//SYSOUT     DD  SYSOUT=*                                         
//SORTIN     DD  DSN=AAA.DDDDD.PS1,DISP=SHR                   
//RPT3       DD  DSN=AAA.DDDDD.PS2,DISP=SHR                   
//SYSIN      DD  *                                               
     SORT FIELDS=(1,4,CH,A)                                       
     OUTFIL FNAMES=RPT3,LINES=10,                                 
     HEADER1=(20:' THE FIRST REPORT:',/,                         
              20:'------------------',/,                         
              20:'PRINTED ON: ',DATE=(MD4/),' AT ',TIME),         
     HEADER2=(/,3:'REPORT ON AAAA:',30:'PAGE:',PAGE,2/,           
              3:'EMPLOYEE NO:',25:'EMPLOYEE NAME:',2/,           
              3:'------------',25:'--------------',/),           
     OUTREC=(3:1,4.25:7,10)                                               
/*       


I am getting foll msgs.

WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER107A RPT3 RECFM INCOMPATIBLE WITH REPORT WRITING
WER110I RPT3 : RECFM=FB ; LRECL= 80; BLKSIZE= 800


when i am giving RPT3 as RPT3 dd sysout=* I am getting foll msgs.

WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER110I RPT3 : RECFM=FBA ; LRECL= 4; BLKSIZE= 4
WER230A RPT3 HEADER/TRAILER COL FIELD OUTSIDE RANGE


Please let me know what mistake I made.

Thanks and Regards,
Suganthy.
Back to top
View user's profile Send private message

Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Thu Sep 22, 2005 6:47 pm    Post subject: Re: Regarding Header1 and Outrec in Sorting
Reply with quote

Well, your OUTREC statement is:

OUTREC=(3:1,4.25:7,10)

with a period instead of a comma. It should be:

OUTREC=(3:1,4,25:7,10)

and, by my calculations, it specifies an output LRECL of 35. If that length is less than your headers, you will need to add some spaces, i.e.:

OUTREC=(3:1,4,25:7,10,80:X)
Back to top
View user's profile Send private message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Fri Sep 23, 2005 11:04 am    Post subject: Re: Regarding Header1 and Outrec in Sorting
Reply with quote

Hi Kevin,

Thank u so much. It is working. I am having one more doubt that is

U hav mentioned

Outrec=(3:1,4,25:7,10,80:x)

In this what is the exact meaning of 80:x

X-- is a blank space,

But can u please explain me clearly.


Thanks and Regards,
Suganthy.
Back to top
View user's profile Send private message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Fri Sep 23, 2005 11:18 am    Post subject: Re: Regarding Header1 and Outrec in Sorting
Reply with quote

Hi Friends,

Code:

//S1 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=AAA.DDDDD.PS1,DISP=SHR
//RPT3 DD DSN=AAA.DDDDD.PS2,DISP=SHR
//SYSIN DD *
SORT FIELDS=(1,4,CH,A)
OUTFIL FNAMES=RPT3,LINES=10,
HEADER1=(20:' THE FIRST REPORT:',/,
20:'------------------',/,
20:'PRINTED ON: ',DATE=(MD4/),' AT ',TIME),
HEADER2=(/,3:'REPORT ON AAAA:',30:'PAGE:',PAGE,2/,
3:'EMPLOYEE NO:',25:'EMPLOYEE NAME:',2/,
3:'------------',25:'--------------',/),
OUTREC=(3:1,4.25:7,10)
/*

When i am reporting my output into the Flat file

I am getting foll msgs.

WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER107A RPT3 RECFM INCOMPATIBLE WITH REPORT WRITING
WER110I RPT3 : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER247A RPT3 HAS INCOMPATIBLE LRECL

Y it is not possible to give the flat file in RPT3.

Please let me know.

Thanks and Regards,
Suganthy.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am
No new posts Sorting group data rajella DFSORT/ICETOOL 4 Sun Jan 22, 2017 11:32 pm
No new posts Efficient sorting chandracdac DFSORT/ICETOOL 5 Sat Oct 22, 2016 3:23 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us