IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Using PARM=('JPn"&SYMBOL"') against non char field


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
MichelleSpeer

New User


Joined: 22 Aug 2020
Posts: 5
Location: United States

PostPosted: Wed Feb 16, 2022 9:56 pm
Reply with quote

I use a symbolic in an include cond in icetool. I normally use SYMNAMES DD in the JCL. However, I came across documentation (in USER GUIDE for DFSORT PTFs UK90025 & UK90026) using a parm on ICETOOL exec for JPn then have the JPn in the sort card. So I am trying this way.

However, I get syntax an error when trying to compare to a PD, because JP1 is getting a CH format. I have coded a work around by using an INREC, however there's concern over complexity of code and not that complex icon_sad.gif Just asking for suggestions or do I just go back to using the SYMNAMES.

Here's the code I am attempting to use that gets the ICE114A.

Code:

// SET WANTDBU=+128453         
//CG44715Z EXEC PGM=ICETOOL,     
// PARM=('JP1"&WANTDBU"'')     
//TOOLIN   DD *                                                               
  COPY FROM(INDD01) TO(OUTDD00) USING(SRT1)       
//SRT1CNTL DD *
SORT FIELDS=(1514,04,PD,A,         
             0747,04,PD,A,         
             0708,02,PD,A,         
             0003,19,CH,A)         
INCLUDE COND=(1514,4,PD,EQ,JP1,AND,
       938,19,SS,EQ,C' ',AND,               
     747,4,PD,GT,+0)               


Job Output with error:

Code:

ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED                                                   
ICE805I 0 JOBNAME: MXSPEERC , STEPNAME: CG44715Z                                                     
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                                           
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                                       
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE               
ICE000I 0 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R4  - 10:15 ON WED FEB 16, 2022 -         
           SORT FIELDS=(1514,04,PD,A,0747,04,PD,A,0708,02,PD,A,0003,19,CH,A)                                                                   
           INCLUDE COND=(1514,4,PD,EQ,C'+128453',AND,938,19,SS,EQ,C' ',AND,747,4,*                   
                                      $                                                               
ICE114A E INVALID COMPARISON                                                                         
                         PD,GT,+0)                                                                   
           OUTFIL FNAMES=OUTDD00,OUTREC=(1:1514,4,747,4,708,2,3,19,259,19)                           
ICE146I 0 END OF STATEMENTS FROM SRT1CNTL - PARAMETER LIST STATEMENTS FOLLOW                         
          DEBUG NOABEND,ESTAE                                                                         
           OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=SRT1,SORTIN=INDD0*                   
                         1,SORTOUT=OUTDD00,DYNALLOC                                                   
           SORT FIELDS=COPY                                                                           
ICE751I 0 C5-I90068 C6-I90068 C7-I90068 C8-I75151 E7-I90068                                           
ICE052I 3 END OF DFSORT                                                                               
   


The work around for this:

Code:

// SET WANTDBU=+128453                               
//CG44715Z EXEC PGM=ICETOOL,PARM=('JP1"&WANTDBU"')   
//TOOLIN   DD *                                                               
  COPY FROM(INDD01) TO(OUTDD00) USING(SRT1)                                   
//SRT1CNTL DD *                                                               
   SORT FIELDS=(1514,04,PD,A,                                                 
                0747,04,PD,A,                                                 
                0708,02,PD,A,                                                 
                0003,19,CH,A)                                                 
   INREC OVERLAY=(1601:1514,4,PD,EDIT=(+TTTTTT))                             
   INCLUDE COND=(938,19,SS,EQ,C' ',AND,                                       
     747,4,PD,GT,+0)                                                         
   OUTFIL FNAMES=OUTDD00,                                                     
   INCLUDE=(1601,7,CH,EQ,JP1),                                               
   OUTREC=(1:1514,4,                                                         
             747,4,                                                           
             708,2,                                                           
             3,19,                                                           
             259,19)                                                         


The DFSMSG for above showing is works:
Code:

ICE280I 1 ORIGINAL STATEMENTS FROM SRT1CNTL FOLLOW                       
             SORT FIELDS=(1514,04,PD,A,                                   
                          0747,04,PD,A,                                   
                          0708,02,PD,A,                                   
                          0003,19,CH,A)                                   
             INREC OVERLAY=(1601:1514,4,PD,EDIT=(+TTTTTT))               
             INCLUDE COND=(938,19,SS,EQ,C' ',AND,                         
               747,4,PD,GT,+0)                                           
             OUTFIL FNAMES=OUTDD00,                                       
             INCLUDE=(1601,7,CH,EQ,JP1),                                 
             OUTREC=(1:1514,4,                                           
                       747,4,                                             
                       708,2,                                             
                       3,19,                                             
                       259,19)   
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW                                                               
          DEBUG NOABEND,ESTAE                                                                                   
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=SRT1,SORTIN=INDD01*                               
                         ,SORTOUT=OUTDD00,DYNALLOC                                                               
          SORT FIELDS=COPY                                                                                       
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED                                                               
ICE201I C RECORD TYPE IS F - DATA STARTS IN POSITION 1                                                           
ICE751I 0 C5-I90068 C6-I90068 C7-I90068 C8-I75151 E9-I75973 C9-NONE   E5-I74062 E6-I90068 C4-I90068 E7-I90068   
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE                           
ICE000I 0 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R4  - 09:24 ON WED FEB 16, 2022 -                     
           SORT FIELDS=(1514,04,PD,A,0747,04,PD,A,0708,02,PD,A,0003,19,CH,A)                                     
           INREC OVERLAY=(1601:1514,4,PD,EDIT=(+TTTTTT))                                                         
           INCLUDE COND=(938,19,SS,EQ,C' ',AND,747,4,PD,GT,+0)                                                   
           OUTFIL FNAMES=OUTDD00,INCLUDE=(1601,7,CH,EQ,C'+128453'),OUTREC=(1:1514*                               
                         ,4,747,4,708,2,3,19,259,19)                                                             
ICE146I 0 END OF STATEMENTS FROM SRT1CNTL - PARAMETER LIST STATEMENTS FOLLOW                                     
          DEBUG NOABEND,ESTAE                                                                                   
           OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=SRT1,SORTIN=INDD0*                               
                         1,SORTOUT=OUTDD00,DYNALLOC                                                             
           SORT FIELDS=COPY                                                                                     
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED                                 
ICE210I 0 OUTDD00  : BSAM USED, LRECL = 48, BLKSIZE = 27984, TYPE = FB   (SDB)         
ICE751I 1 DE-I90068 D5-I90068 D3-I90068 D7-I90068 CB-NONE   E8-I90068                 
ICE055I 0 INSERT 0, DELETE 180216                                                     
ICE054I 0 RECORDS - IN: 581920, OUT: 401704                                           
ICE227I 0 OUTDD00  : DELETED = 69196, REPORT = 0, DATA = 332508                       
ICE228I 0 OUTDD00  : TOTAL IN = 401704, TOTAL OUT = 332508                             
ICE134I 0 NUMBER OF BYTES SORTED: 642726400                                           
ICE253I 0 RECORDS SORTED - PROCESSED: 401704, EXPECTED: 581920                         
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 360 , TRACKS USED: 0                   
ICE199I 0 MEMORY OBJECT USED AS MAIN STORAGE = 0M BYTES                               
ICE299I 0 MEMORY OBJECT USED AS WORK STORAGE = 0M BYTES                               
ICE399I 0 MEMORY OBJECT USED IN ZSORT PATH = 0M BYTES                                 
ICE180I 0 HIPERSPACE STORAGE USED = 656832K BYTES                                     
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES                                           
ICE267I 0 ZSORT ACCELERATOR PATH NOT USED    RSN=197                                   
ICE052I 0 END OF DFSORT                                                                                                       
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1614

PostPosted: Wed Feb 16, 2022 10:29 pm
Reply with quote

Use in-stream parameter substitution:
Code:
// EXPORT SYMLIST=*
// SET WANTDBU=+128453         
//CG44715Z EXEC PGM=ICETOOL     
//TOOLIN   DD *                                                               
  COPY FROM(INDD01) TO(OUTDD00) USING(SRT1)       
//SRT1CNTL DD *,SYMBOLS=EXECSYS
SORT FIELDS=(1514,04,PD,A,         
             0747,04,PD,A,         
             0708,02,PD,A,         
             0003,19,CH,A)         
INCLUDE COND=(1514,4,PD,EQ,&WANTDBU,AND,
       938,19,SS,EQ,C' ',AND,               
     747,4,PD,GT,+0)               
Back to top
View user's profile Send private message
MichelleSpeer

New User


Joined: 22 Aug 2020
Posts: 5
Location: United States

PostPosted: Thu Feb 17, 2022 1:10 am
Reply with quote

Thanks that did work. I will just use SYMNAMES DD DSN.

sergeyken wrote:
Use in-stream parameter substitution:
Code:
// EXPORT SYMLIST=*
// SET WANTDBU=+128453         
//CG44715Z EXEC PGM=ICETOOL     
//TOOLIN   DD *                                                               
  COPY FROM(INDD01) TO(OUTDD00) USING(SRT1)       
//SRT1CNTL DD *,SYMBOLS=EXECSYS
SORT FIELDS=(1514,04,PD,A,         
             0747,04,PD,A,         
             0708,02,PD,A,         
             0003,19,CH,A)         
INCLUDE COND=(1514,4,PD,EQ,&WANTDBU,AND,
       938,19,SS,EQ,C' ',AND,               
     747,4,PD,GT,+0)               
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Construct new record using specific f... DFSORT/ICETOOL 6
No new posts Count the number of characters in a f... CA Products 1
No new posts Find the occurrence of Key Field (Par... DFSORT/ICETOOL 6
No new posts RABBIT HOLE NEEDED - "Live"... All Other Mainframe Topics 0
No new posts Expand ISPF field up to a limit - is ... TSO/ISPF 9
Search our Forums:

Back to Top