IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Regarding Header1 and Outrec in Sorting


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
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
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Automation need help in sorting the data DFSORT/ICETOOL 38
No new posts question on Outrec and sort #Digvijay DFSORT/ICETOOL 20
No new posts Sorting a record spanned over multipl... DFSORT/ICETOOL 13
No new posts Sort w/OUTREC Question DFSORT/ICETOOL 2
No new posts Getting OUTREC - SHORT REC error for ... DFSORT/ICETOOL 12
Search our Forums:

Back to Top