Hi,  Any support on DFSORT in this community?  It looks like the most recent post was back in 2021.  Thank you.

Hello Girish,

I am a developer for DFSORT and will answer any questions that you might have.  Do you have a specific question that you need support from DFSORT development?

Hi,  Any support on DFSORT in this community?  It looks like the most recent post was back in 2021.  Thank you.

Hi,  I am trying to use the VSAMTYPE(V) option using the following job JCL.  The purpose is to report the different length record values with their respective counts:

//JS010    EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//SORTIN   DD DSN=input.vsam,   variable length AVGLRECL 430 MAXLRECL 7059
//            DISP=SHR
//SORTOUT  DD DSN=SORTOUT,
//            DISP=(,CATLG),
//            SPACE=(TRK,(255,15),RLSE),
//            DATACLAS=COMPZEDC
//TOOLIN   DD *
  OCCURS FROM(SORTIN) LIST(SORTOUT)  ON(1,2,BI) ON(VALCNT) -
         VSAMTYPE(V) NOCC

I am receiving the following output:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE201I C RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE150I 0 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
ICE805I 0 JOBNAME: @BTNDMGS , STEPNAME: JS010
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 AN
ICE000I 0 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R5  - 14:21 ON WED OC
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTIN,DYNALLOC,S
                         ERO,LOCALE=NONE,NOCHECK
          INREC FIELDS=(1,4,1,2,7Z,X'1C')
          SUM FIELDS=(0007,8,PD)
          SORT FIELDS=(0005,2,BI,A)
          MODS E35=(ICE35DU,12288)
          RECORD TYPE=V,LENGTH=(,,00014)
ICE043A 8 INVALID DATA SET ATTRIBUTES: SORTOUT  RECFM   - REASON CODE IS 08
ICE751I 0 C5-I79519 C6-NONE   C7-I76950 C8-I76518 EE-I76950 E7-I76950
ICE052I 3 END OF DFSORT
***************************** BOTTOM OF DATA *****************************

Thank you very much.

Hello Girish,

I am a developer for DFSORT and will answer any questions that you might have.  Do you have a specific question that you need support from DFSORT development?

Hi,  Any support on DFSORT in this community?  It looks like the most recent post was back in 2021.  Thank you.

Girish Sajja,

ICE043A 8 INVALID DATA SET ATTRIBUTES: SORTOUT  RECFM   - REASON CODE IS 08

If you looked up ICE043A and reason code 8 you would notice that is due RECFM mismatch. Here is the link to ICE043A message explanation.

https://www.ibm.com/docs/en/zos/2.5.0?topic=messages-ice043a

Reason code 8 explanation :  Input and output data sets have mixed fixed length and variable length record formats, or
mixed valid and invalid record formats. Examples: 
The SORTIN data set has RECFM=FB and
the SORTOUT data set has RECFM=VB. The
SORTIN01 data set has RECFM=VB and the
SORTOUT data set has RECFM=F or RECFM=U.

This actually is caused by you using the ddnames that are restricted for ICETOOL.
 
You should avoid using SORTIN/SORTOUT with ICETOOL operators. Check this link for JCL restrictions for ICETOOL

https://www.ibm.com/docs/en/zos/2.5.0?topic=icetool-jcl-restrictions

Pay attention to this statement in the above link

SYSIN, SORTCNTL, SORTIN, SORTOUT, SORTINnn, and xxxxINnn (where xxxx is specified in a USING operand) should not be used as ddnames in ICETOOL operators nor supplied as DD statements.

So change your JCL slightly and you should get the desired results.

//JS010    EXEC PGM=ICETOOL                               
//TOOLMSG  DD SYSOUT=*                                    
//DFSMSG   DD SYSOUT=*                                    
//IN       DD DISP=SHR,DSN=Your.input.VSAM.clustername.             
//RPT      DD DSN=SORTOUT,                
//            DISP=(,CATLG),                              
//            SPACE=(TRK,(255,15),RLSE),
//            DATACLAS=COMPZEDC
//TOOLIN   DD *                                           
  OCCURS FROM(IN)  LIST(RPT)  ON(1,2,BI) ON(VALCNT) -     
         VSAMTYPE(V) NOCC                                 
/*

Hi,  I am trying to use the VSAMTYPE(V) option using the following job JCL.  The purpose is to report the different length record values with their respective counts:

//JS010    EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//SORTIN   DD DSN=input.vsam,   variable length AVGLRECL 430 MAXLRECL 7059
//            DISP=SHR
//SORTOUT  DD DSN=SORTOUT,
//            DISP=(,CATLG),
//            SPACE=(TRK,(255,15),RLSE),
//            DATACLAS=COMPZEDC
//TOOLIN   DD *
  OCCURS FROM(SORTIN) LIST(SORTOUT)  ON(1,2,BI) ON(VALCNT) -
         VSAMTYPE(V) NOCC

I am receiving the following output:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE201I C RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE150I 0 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
ICE805I 0 JOBNAME: @BTNDMGS , STEPNAME: JS010
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 AN
ICE000I 0 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R5  - 14:21 ON WED OC
          DEBUG NOABEND,ESTAE
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTIN,DYNALLOC,S
                         ERO,LOCALE=NONE,NOCHECK
          INREC FIELDS=(1,4,1,2,7Z,X'1C')
          SUM FIELDS=(0007,8,PD)
          SORT FIELDS=(0005,2,BI,A)
          MODS E35=(ICE35DU,12288)
          RECORD TYPE=V,LENGTH=(,,00014)
ICE043A 8 INVALID DATA SET ATTRIBUTES: SORTOUT  RECFM   - REASON CODE IS 08
ICE751I 0 C5-I79519 C6-NONE   C7-I76950 C8-I76518 EE-I76950 E7-I76950
ICE052I 3 END OF DFSORT
***************************** BOTTOM OF DATA *****************************

Thank you very much.

Hello Girish,

I am a developer for DFSORT and will answer any questions that you might have.  Do you have a specific question that you need support from DFSORT development?

Hi,  Any support on DFSORT in this community?  It looks like the most recent post was back in 2021.  Thank you.