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: 1492

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
No new posts Expand ISPF field up to a limit - is ... TSO/ISPF 9
No new posts Passing parm from JCL to Assembler, b... PL/I & Assembler 2
No new posts Need to add field to copybook, proble... COBOL Programming 14
No new posts How to remove DECIMAL POINT (.) from ... SYNCSORT 10
No new posts Use of PARM=JPn,&Name JCL & VSAM 6
Search our Forums:

Back to Top