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
 

 

getting 'Error in Keyword', but I don't see it

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

New User


Joined: 20 Jan 2010
Posts: 26
Location: Alabama

PostPosted: Fri Mar 16, 2012 9:55 pm    Post subject: getting 'Error in Keyword', but I don't see it
Reply with quote

hi. I'm using a PARM statement and symbols to create a dynamic report heading using ICETOOL. See below JCL, cards, and error message and see if you can tell what I'm doing wrong. I don't see any problem with this - looks just like the manual to me. We're using DFSORT V1R10. Thanks

JCL:
Code:
XXUTIL01   EXEC PGM=ICETOOL,
XX         PARM='TITL"SITE: &SITENAME, CUT: &CUT"'
IEFC653I SUBSTITUTION JCL - PGM=ICETOOL,PARM='TITL"SITE: DAL, CUT: 07"'

cards and error from DFSORT:
Code:
        DISPLAY FROM(OUT01) LIST(RPT01) -
              DATE TIME -
              TITLE('DEPOSIT CUT TOTALS') -
              TITLE(TITL)
                    $
       
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER 
Back to top
View user's profile Send private message

rss0213

New User


Joined: 20 Jan 2010
Posts: 26
Location: Alabama

PostPosted: Fri Mar 16, 2012 9:56 pm    Post subject: one correction...
Reply with quote

in the error message, the $ is actually under the symbol 'TITL' - not the TITLE keyword.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Fri Mar 16, 2012 10:08 pm    Post subject: Reply to: getting 'Error in Keyword', but I don't see it
Reply with quote

instead of the silly coloring better to use the code tags,
with the code tags the text is displayed with a fixed font and makes things easier for people willing to help

topic edited to uncolor and use the code tags
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Fri Mar 16, 2012 10:10 pm    Post subject: Reply to: getting 'Error in Keyword', but I don't see it
Reply with quote

Your parameters have to be of the form JP1, JP2, JP3 through to about 9, I believe.

Change TITL to JP1 and see what happens.
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Fri Mar 16, 2012 10:16 pm    Post subject: Reply to: getting 'Error in Keyword', but I don't see it
Reply with quote

rss0213,

ICETOOL ignores any parms other than JPn format. If your intention is to pass parms to ICETOOL then you need to use JPn format

Code:

//STEP0100 EXEC PGM=ICETOOL,PARM='JP1"SITE: &SITENAME, CUT: &CUT"'
...
//TOOLIN   DD *                       
  DISPLAY FROM(OUT01) LIST(RPT01) -   
  DATE TIME                       -   
  TITLE('DEPOSIT CUT TOTALS')     -   
  TITLE(JP1)                      -   
  ...
Back to top
View user's profile Send private message
rss0213

New User


Joined: 20 Jan 2010
Posts: 26
Location: Alabama

PostPosted: Fri Mar 16, 2012 10:18 pm    Post subject:
Reply with quote

Got it - thanks everyone for the tips!
Back to top
View user's profile Send private message
rss0213

New User


Joined: 20 Jan 2010
Posts: 26
Location: Alabama

PostPosted: Sat Mar 17, 2012 12:29 am    Post subject:
Reply with quote

well, that didn't seem to fix it either:

Code:
XXUTIL01   EXEC PGM=ICETOOL,
XX         PARM='JP1"SITE: &SITENAME, CUT: &CUT"'
IEFC653I SUBSTITUTION JCL - PGM=ICETOOL,PARM='JP1"SITE: DAL, CUT: 07"'

Code:
           DISPLAY FROM(OUT01) LIST(RPT01) -
              DATE TIME -
              TITLE('DEPOSIT CUT TOTALS') -
              TITLE(JP1) -
                    $
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Sat Mar 17, 2012 12:42 am    Post subject: Reply to: getting 'Error in Keyword', but I don't see it
Reply with quote

the JP support was made available by DFSORT PTFs UK90025 and UK90026

as described here
ftp://ftp.software.ibm.com/storage/dfsort/mvs/sortugph.pdf
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Sat Mar 17, 2012 1:18 am    Post subject: Reply to: getting 'Error in Keyword', but I don't see it
Reply with quote

Until you get a bit more up-to-date with your DFSORT, you could consider something like:

PDS (can be mutiple, your choice), with members with mnemonic names containing the data you want with a reference to identify.

New step prior to your sort

//SORTIN DD DSN=PDS(parameterisedmemberttype1),disp=SHR
// DD DSN=PDS(parameterisedmemberttype2),disp=SHR
// DD DSN=PDS(parameterisedmemberttype3),disp=SHR

Then, doing a COPY, and identifying which sort of record you have, generate one of however many SYMNAMES/SYMBOLS you need, Put those to the SORTOUT.

Change your existing step to include //SYMNAMES DD .. with the SORTOUT dsn from the previous step, and //SYMNOUT DD SYSOUT=whatever is your standard.

Include the SYMNAMES you have generated into your code.

You can even call the generated symnames JPn. You won't have to change the code when you get the upgrade, except to drop out the bit with the generated symbols/symnames. OK, not really a good idea as it will crash your production job... call them something else :-)

There are examples of generating symnames if you search here.
Back to top
View user's profile Send private message
rss0213

New User


Joined: 20 Jan 2010
Posts: 26
Location: Alabama

PostPosted: Sat Mar 17, 2012 1:19 am    Post subject:
Reply with quote

That's the problem - we don't have this PTF. I've reached out to my Systems programmers to get this installed. Thanks.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Sat Mar 17, 2012 1:33 am    Post subject: Reply to: getting 'Error in Keyword', but I don't see it
Reply with quote

Code:
//STEPSYM EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD * (you'd have your chosen arrangement to allow parameterisation here)
SITE AAAA AA
CUT  01
//SORTOUT  DD DSN=&&S1,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//SYSIN    DD * (I hope this would be a PDS as well)
  OPTION COPY
  INREC IFTHEN=(WHEN=(1,4,CH,EQ,C'SITE'),
          BUILD=(C'SITE,C''',6,20,C'''',80:X)),
        IFTHEN=(WHEN=(1,4,CH,EQ,C'CUT '),
          BUILD=(C'CUT,C''',6,2,C'''',80:X))


Output is:

Code:

SITE,C'AAAA AA             '
CUT,C'01'                   


EDIT: Yes, you can get your annotations in there as well.
Back to top
View user's profile Send private message
rss0213

New User


Joined: 20 Jan 2010
Posts: 26
Location: Alabama

PostPosted: Sat Mar 17, 2012 1:57 am    Post subject:
Reply with quote

Thanks Bill. I think I'll use this approach since my Systems folks just informed me that it might be months before we do another IPL. I've used Symbols like this before, too. I just thought it would be really slick to utilize JCL symbolics.
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: Sat Mar 17, 2012 2:47 am    Post subject:
Reply with quote

FYI, installation of that DFSORT PTF does NOT require an IPL. It does require dynamically updating the LPA. So your System folks don't really need to wait for an IPL to install that PTF.
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 S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm
No new posts Error IEC161I 052(009,XXXRS00)-084 wh... amitc23 JCL & VSAM 10 Wed Oct 12, 2016 5:00 pm


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