IBM Mainframe Forum

[Newbie123]

Hi everyone,

I looking for some help with a report i'm trying to generate. Its a summary of phone sales which should report the best performing location for each month & show their total sales. I've tried the following however i'm receiving errors:

Select all

//SORT EXEC PGM=ICETOOL             
//TOOLMSG  DD SYSOUT=*             
//DFSMSG    DD SYSOUT=*             
//IN2           DD DISP=SHR,DSN=DATA1.JCL
//REVRPT    DD SYSOUT=*             
//TOOLIN    DD *                   
  DISPLAY FROM(IN2) LIST(REVRPT) DATE
  TITLE('MONTHLY REVENUE REPORT') -
  TITLE('PHONE SALES') PAGE -       
  HEADER('LOCATION') ON(1,17,CH) - 
  HEADER('MONTH') ON(24,2,ZD) -     
  HEADER('SALES') ON(27,7,ZD) -     
  TOTAL('TOTALS') AVERAGE('AVERAGES)'
  SORT FIELDS=(1,17,CH,A,24,2,ZD,A)
  SUM FIELDS=(27,7,ZD)       
/*     
 

The error i'm receiving is: - JCL ERROR CN(INTERNAL) & within SDSF it states that there is an issue with Display.

I've looked over the IBM:Getting started documentation,to no avail.
Could anyone help me out please?

Thanks

[Akatsukami]

Post the relevant sections of the JES message log.

[Newbie123]

Sure, these are the errors i've received:

Select all

             DISPLAY FROM(IN2) LIST(REVRPT) DATE -   
            TITLE('MONTHLY REVENUE REPORT') -       
            TITLE('FOR SALES') PAGE -               
            $                                       
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER
            HEADER('LOCATION') ON(1,17,CH) -       
            HEADER('MONTH') ON(24,2,ZD) -           
            HEADER('SALES') ON(27,7,ZD) -           
            TOTAL('TOTALS') AVERAGE('AVERAGES')     
ICE602I 0 OPERATION RETURN CODE:  12               
                                                   
ICE630I 2 MODE IN EFFECT:  SCAN                     
                                                   
            SORT FIELDS=(1,17,CH,A,24,2,ZD,A)       
                 $                                 
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITERICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER   
                                                     
            SUM FIELDS=(27,7,ZD)                     
            $                                         
ICE614A 0 INVALID OPERATOR                           
                                                     
            OUTREC FIELDS=(1,9,2X,24,2,ZD,27,7,ZD)   
            $                                         
ICE614A 0 INVALID OPERATOR                           
                                                     
           /*                                         
           $                                         
ICE614A 0 INVALID OPERATOR                           
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  12 

[NicC]

You have not supplied the messages relating to the JCL error. It would also help if you post the TOOLIN data that matches the ICE messages (the DISPLAY in your SYSOUT does not match the DISPLAY in your TOOLIN).

It is also a long time since I used ICETOOL but I doubt very much if you can have TITLE as a sub-keyword of TITLE. I suggest you review what you have as TOOLIN against the manual.

[Newbie123]

This is the full JES2 JOB STATISTICS report that ive received:

Select all

----- JES2 JOB STATISTICS ------                                           
 15 APR 2014 JOB EXECUTION DATE                                             
          21 CARDS READ                                                     
          87 SYSOUT PRINT RECORDS                                           
           0 SYSOUT PUNCH RECORDS                                           
           4 SYSOUT SPOOL KBYTES                                           
        0.00 MINUTES EXECUTION TIME                                         
       1 //DAT0015L  JOB IVERTE,                                           
         //             DAT0015,       **JOB STATEMENT GENERATED BY SUBMIT**
         //             NOTIFY=DAT0015,CLASS=A,                             
         //             MSGLEVEL=(1,1)                                     
       2 //SORT EXEC PGM=ICETOOL                                           
       3 //TOOLMSG  DD SYSOUT=*                                             
       4 //DFSMSG   DD SYSOUT=*                                             
       5 //IN2      DD DISP=SHR,DSN=DATA1.JCL                   
       6 //REVRPT   DD SYSOUT=*                                             
       7 //TOOLIN   DD *                                                   
CH70001I DAT0015  LAST ACCESS AT 13:18:19 ON TUESDAY, APRIL 15, 2014       
EF236I ALLOC. FOR DAT0015L SORT                                             
EF237I JES2 ALLOCATED TO TOOLMSG                                           
EF237I JES2 ALLOCATED TO DFSMSG                                             
GD103I SMS ALLOCATED TO DDNAME IN2                                         
EF237I JES2 ALLOCATED TO REVRPT         

[skolusu]

Hi everyone,

I looking for some help with a report i'm trying to generate. Its a summary of phone sales which should report the best performing location for each month & show their total sales. I've tried the following however i'm receiving errors:

Select all

//TOOLIN    DD *                   
  DISPLAY FROM(IN2) LIST(REVRPT) DATE
  TITLE('MONTHLY REVENUE REPORT') -
  TITLE('PHONE SALES') PAGE -       
  HEADER('LOCATION') ON(1,17,CH) - 
  HEADER('MONTH') ON(24,2,ZD) -     
  HEADER('SALES') ON(27,7,ZD) -     
  TOTAL('TOTALS') AVERAGE('AVERAGES)'
  SORT FIELDS=(1,17,CH,A,24,2,ZD,A)
  SUM FIELDS=(27,7,ZD)       
/*     
 

You are missing a continuation character i.e Hyphen on the first line which would result in the error

Select all

ICE630I 0 MODE IN EFFECT:  STOP                         
                                                       
            DISPLAY FROM(IN2) LIST(REVRPT) DATE         
ICE613A 0 REQUIRED KEYWORD MISSING:  ON                 
ICE602I 0 OPERATION RETURN CODE:  12                   
                                                       
ICE630I 2 MODE IN EFFECT:  SCAN                         
                                                       
            TITLE('MONTHLY REVENUE REPORT') -           
            $                                           
ICE614A 0 INVALID OPERATOR             

The error i'm receiving is: - JCL ERROR CN(INTERNAL) & within SDSF it states that there is an issue with Display.

I've looked over the IBM:Getting started documentation,to no avail.
Could anyone help me out please?

Thanks

If you looked up the DFSORT Messages, Codes and Diagnosis Guide , you would have found the error message explained in detail

http://publibz.boulder.ibm.com/cgi-bin/ ... 60/2.2.304

Apart from that you cannot have a SORT or SUM statement along with DISPLAY operator. So remove them

The following DISPLAY control statements will give you the results

Select all

//TOOLIN    DD *                             
  DISPLAY FROM(IN2) LIST(REVRPT) DATE -     
  TITLE('MONTHLY REVENUE REPORT') -         
  TITLE('PHONE SALES') PAGE -               
  HEADER('LOCATION') ON(1,17,CH) -           
  HEADER('MONTH') ON(24,2,ZD) -             
  HEADER('SALES') ON(27,7,ZD) -             
  TOTAL('TOTALS') AVERAGE('AVERAGES')       
/*                                           

[Newbie123]

Thats great, thank you so much for your help.

[stadikamall2]

Hi please help to my doubt

my input file is subctrlrec010863

i need output as rec-type:subctrlrec
file-type:0
carrirer:10863
using sort
i tried using outrec,i have written jcl as outrec fields=(1:c'rec-type: ',13:1,10)
i am able to get the first field in o/p ,i need next fields in sequence

[NicC]

stadikamall2,
What has your post to do with this topic?

[BillyBoyo]

Don't use OUTREC with BUILD (the modern spelling of FIELDS), use OUTFIL with BUILD, as it allows the use of the slash-operator, so you can write multiple outputs from a single input.