Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
SORT - How to avoid repeating HEADER.

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

New User


Joined: 26 Sep 2006
Posts: 38
Location: India

PostPosted: Thu Mar 05, 2009 5:57 pm    Post subject: SORT - How to avoid repeating HEADER.
Reply with quote

Hi All,

With the SORT JCL given below the HEADER is repeating for every 60 rows. I need this HEADR to be only at the top of the output file. Could any one please give me suggestions on how to avoid the repeating HEADER.


Code:
//SRT3    EXEC PGM=SORT                                               
//*                                                                   
//SORTWK01 DD DISP=(,CATLG,CATLG),UNIT=WORK,SPACE=(CYL,10)           
//SORTWK02 DD DISP=(,CATLG,CATLG),UNIT=WORK,SPACE=(CYL,10)           
//SORTWK03 DD DISP=(,CATLG,CATLG),UNIT=WORK,SPACE=(CYL,10)           
//SORTIN   DD DISP=SHR,DSN=DEPXX11.XXXXXX.INPDARU.DAT1               
//SYSPRINT DD  SYSOUT=*                                               
//SYSOUT   DD SYSOUT=*                                               
//SORTOUT  DD DSN=DEPXX11.XXXXXX.OUTDARU.DAT1,                     
//             DISP=(,CATLG),MGMTCLAS=KEEP,                           
//             DCB=(RECFM=FB,LRECL=115),                             
//             SPACE=(TRK,(50,50),RLSE)                               
//SYSIN    DD *                                                       
 SORT FIELDS=COPY                                                     
      OUTFIL FNAMES=SORTOUT,REMOVECC,                                 
      HEADER2=(1:'SYSTEM;WSTORGDATUM;MONTH;GUKANPP/POTTITIELL;GROUPE',
               51:'E;PORTFOGROUPPAE;CONTROLSTRUCT;ELEMENTGROUPPEE;', 
               98:'TEST;FN-TAB'),                                     
      OUTREC=(1:1,3,C';',5:C'01.',8:8,2,C'.',11:4,4,C';',             
              16:10,1,C';',18:11,1,C';',20:12,3,C';',24:20,1,C';',
              26:21,3,C';',30:24,3,C';',34:27,1,C';',36:28,5,C',',
              42:33,2,72X)                                         
/*                                                                 
//     
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Thu Mar 05, 2009 6:38 pm    Post subject:
Reply with quote

LINES, HEADER1, TRAILER1, HEADER2, TRAILER2, SECTIONS, and NODETAIL indicate that a report is to be produced for an OUTFIL group, and specify the details of the report records to be produced for the report. Reports can contain report records for a report header (first page), report trailer (last page), page header and page trailer (at the top and bottom of each page, respectively), and section headers and trailers (before and after each section, respectively).
Try the report header (HEADER1) instead of the page header (HEADER2).
Back to top
View user's profile Send private message
jsnair

New User


Joined: 26 Sep 2006
Posts: 38
Location: India

PostPosted: Thu Mar 05, 2009 7:09 pm    Post subject: Reply to: SORT - How to avoid repeating HEADER.
Reply with quote

Hi All,

Got the solution. It is very simple we need to use HEADER1(Report Header) instead of HEADER2(Page Header)

Thanks
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 Difference in SORT & ICETOOL Mohan Kothakota DFSORT/ICETOOL 5 Fri Sep 22, 2017 4:56 pm
No new posts OC4 in SORT Mohan Kothakota DFSORT/ICETOOL 2 Tue Sep 12, 2017 6:30 pm
No new posts SORT Trailer Count - LRECL Output co... amorante DFSORT/ICETOOL 5 Tue Aug 29, 2017 8:57 pm
No new posts Changing sort Card Dynamically vickey_dw DFSORT/ICETOOL 5 Sat Aug 19, 2017 2:33 pm
No new posts SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us