|
View previous topic :: View next topic
|
| Author |
Message |
rss0213
New User
Joined: 20 Jan 2010
Posts: 26
Location: Alabama
|
|
|
|
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 |
|
 |
rss0213
New User
Joined: 20 Jan 2010
Posts: 26
Location: Alabama
|
|
|
|
| in the error message, the $ is actually under the symbol 'TITL' - not the TITLE keyword. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
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 |
|
|
rss0213
New User
Joined: 20 Jan 2010
Posts: 26
Location: Alabama
|
|
|
|
| Got it - thanks everyone for the tips! |
|
| Back to top |
|
|
rss0213
New User
Joined: 20 Jan 2010
Posts: 26
Location: Alabama
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
rss0213
New User
Joined: 20 Jan 2010
Posts: 26
Location: Alabama
|
|
|
|
| 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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| 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 |
|
|
rss0213
New User
Joined: 20 Jan 2010
Posts: 26
Location: Alabama
|
|
|
|
| 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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| 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 |
|
|
|
|
