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
 

 

Problem including Headers in DFSORT

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

New User


Joined: 10 Dec 2008
Posts: 60
Location: Chennai

PostPosted: Tue Jul 14, 2009 7:35 pm    Post subject: Problem including Headers in DFSORT
Reply with quote

Hi all,

I'm trying to add headers to my output dataset usinf DFSORT but im getting MAXCC=12.This is the step i'm trying to use,

Code:


//TOOLIN   DD *
SELECT FROM(INDD) TO(OUTDD) ON(18,22,CH) FIRST(10) -
HEADER1=(25:My  report',/, -   
         25:'  Sampled numbers    ')   
/*



Please suggest me how to include headers
Back to top
View user's profile Send private message

Vigneshwaran S
Warnings : 1

New User


Joined: 10 Dec 2008
Posts: 60
Location: Chennai

PostPosted: Tue Jul 14, 2009 8:06 pm    Post subject: Reply to: Problem including Headers in DFSORT
Reply with quote

Hi all,

Can anybody suggest me the some solutions!!!!!
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Tue Jul 14, 2009 8:26 pm    Post subject: Reply to: Problem including Headers in DFSORT
Reply with quote

vigneshwaran,

That is NOT the right syntax. Use the following control cards

Code:

//TOOLIN   DD *                                               
 SELECT FROM(INDD) TO(OUTDD) ON(18,22,CH) FIRST(10) USING(CTL1)
//CTL1CNTL DD *                                               
  OUTFIL FNAMES=OUTDD,                                         
  HEADER1=(25:'MY  REPORT',/,                                 
           25:'SAMPLED NUMBERS    ')                           
/*
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Jul 14, 2009 8:38 pm    Post subject:
Reply with quote

Vicky,

Your syntax mixes up ICETOOl statements and DFSORT statements in TOOLIN. Only ICETOOL statements should be specified in TOOLIN. DFSORT statements should be specified in xxxxCNTL. Kolusu has shown you the correct way to set up the two sets of statements.

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

http://www.ibm.com/support/docview.wss?rs=0&uid=isg3T7000080
Back to top
View user's profile Send private message
Vigneshwaran S
Warnings : 1

New User


Joined: 10 Dec 2008
Posts: 60
Location: Chennai

PostPosted: Tue Jul 21, 2009 6:42 pm    Post subject:
Reply with quote

HI all,

I have tried using the above icetool but im getting MAXCC = 12.This is my JCL,

Code:


//step01 EXEC PGM=ICETOOL                                             
//*                                                                     
//INDD     DD DSN=INPUT.xxxxxxx,DISP=SHR                     
//*                                                                     
//OUTDD    DD DSN=Output.yyyyyyy,                           
//            DISP=(OLD,CATLG,DELETE),                                 
//            DATACLAS=LARGE,                                           
//            DCB=(DSORG=PS,LRECL=80,RECFM=FBA)                         
//*                                                                     
//SORTWK01 DD DATACLAS=SORTL                                           
//SORTWK02 DD DATACLAS=SORTL                                           
//SORTWK03 DD DATACLAS=SORTL                                           
//SORTWK04 DD DATACLAS=SORTL                                           
//*                                                                     
//TOOLMSG  DD SYSOUT=*                                                 
//DFSMSG   DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//TOOLIN   DD *                                                         
  SELECT FROM(INDD) TO(OUTDD) ON(18,22,CH) FIRST(20) -                 
  USING(CTL1)                                                           
//CTL1CNTL DD *                                                         
  OUTFIL FNAMES=OUTDD,                                                 
  HEADER1=(25:'xxxxxxxxxxxxxxx',65:DATE=(MD4-),/,       
           25:'---- ---- ------ -------------',66:TIME,/,               
           25:'   yyyyyyyyyyyyyyyyyy ',/,                       
           25:'   ----- ---- -------- ------ ',/,                       
           25:'                              ')                         
/*                                                           


My error MSg is,

Code:


                                                                               
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN                               
                                                                               
                                                                               
ICE630I 0 MODE IN EFFECT:  STOP                                                 
                                                                               
            SELECT FROM(INDD) TO(OUTDD) ON(18,22,CH) FIRST(20) -               
                                                          $                     
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER                             
            USING(CTL1)                                                         
ICE602I 0 OPERATION RETURN CODE:  12                                           
                                                                               
                                                                               
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  12                   



Please suggest me what is wrong!! I have tried so many options but still i dont understatnd my mistake!!!!!
Back to top
View user's profile Send private message
Vigneshwaran S
Warnings : 1

New User


Joined: 10 Dec 2008
Posts: 60
Location: Chennai

PostPosted: Tue Jul 21, 2009 7:30 pm    Post subject:
Reply with quote

Hi all,

Con anyone suggest me the solution??????
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Jul 21, 2009 8:54 pm    Post subject:
Reply with quote

The error message indicates you don't have z/OS DFSORT V1R5 PTF UK90013 installed. You need this PTF to use FIRST(20). The PTF has been available since July, 2008. Ask your System Programmer to install it (it's free).

Quote:
Con anyone suggest me the solution??????


Kolusu and I are in a different timezone (California, USA) ... you need to be patient until we get into work in the morning.
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Tue Jul 21, 2009 10:55 pm    Post subject:
Reply with quote

Vigneshwaran S,

You can use the following DFSORT JCL to get the desired results. With this approach you need to know the LRECL and RECFM of the input dataset. Here I assumed it is FB and LRECL of 80.

Code:

//STEP0100 EXEC PGM=SORT   
//SYSOUT   DD SYSOUT=*     
//SORTIN   DD DSN=your input fb 80 byte file,DISP=SHR
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *                                             
  SORT FIELDS=(18,22,CH,A),EQUALS                           
  OUTREC OVERLAY=(81:SEQNUM,8,ZD,RESTART=(18,22))           
  OUTFIL REMOVECC,BUILD=(1,80),                             
  INCLUDE=(81,8,ZD,LE,20),                                   
  HEADER1=(25:'MY  REPORT',/,                               
           25:'SAMPLED NUMBERS    ')                         
/*
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 DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm
No new posts Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts DFSORT MUL FIELDS tspr52 DFSORT/ICETOOL 16 Fri Mar 03, 2017 11:53 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm


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