MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to avoid the error when DD DUMMY used in SORT/ICETOOL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
Ambi
Beginner


Joined: 14 Jun 2005
Posts: 5
Topics: 3
PostPosted: Fri Aug 12, 2005 4:15 pm    Post subject: How to avoid the error when DD DUMMY used in SORT/ICETOOL Reply with quote
Hi,

I am facing some problem in the sort when the input file is DUMMYed.

This is my DFSMSG output...

Code:


 ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                               
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 5694-A01, Z/OS DFSORT V1R5 - 17:08 ON FRI AUG
            SORT FIELDS=(154,6,CH,A,                                           
                         172,2,CH,A,                                           
                         174,2,CH,A,                                           
                         166,1,CH,A,                                           
                         177,5,CH,A)                                           
            INCLUDE COND=(113,2,CH,EQ,C'Z5',AND,                               
                          158,1,CH,EQ,C'C',AND,                                 
                          (140,1,CH,EQ,C'C',OR,                                 
                           140,1,CH,EQ,C'C'))                                   
            OUTFIL FNAMES=Y5OUT,                                               
             OUTREC=(154,6,X,172,2,174,2,X,166,1,X,                             
                     177,5,X,198,5,PD,TO=ZD,LENGTH=13)                         
ICE146I 0 END OF STATEMENTS FROM Y500CNTL - PARAMETER LIST STATEMENTS FOLLOW   
          DEBUG NOABEND,ESTAE                                                   
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=Y500,SORTIN=BNC14
                         5,DYNALLOC                                             
ICE043A 3 INVALID DATA SET ATTRIBUTES SPECIFIED BNC14Y5  RECFM                 
ICE751I 0 C5-Q95214 C6-Q95214 C7-BASE   C8-Q95214 E7-Q95214                     
ICE052I 3 END OF DFSORT                                                                                                                                                               



This is myjcl :
Code:


//SORTTTL EXEC PGM=ICETOOL                                             
//TOOLMSG  DD  SYSOUT=*                                               
//DFSMSG   DD  SYSOUT=*                                               
//Y5OUT    DD  DSN=UT03.PAYR.UNIOVB.Y5OUT,                             
//         DISP=(,CATLG,DELETE),UNIT=SYSDA,                           
//         DCB=(LRECL=26,RECFM=FB),SPACE=(CYL,(5,1),RLSE)             
//BNC14Y5  DD  DUMMY                                                   
//*BNC14Y5  DD  DSN=ABC01.EFGH.IJKLM.AD205174.OPQRSTY.TEST,DISP=SHR     
//TOOLIN   DD *                                                       
  SORT FROM(BNC14Y5) USING(Y500)                                       
/*                                                                     
//Y500CNTL DD *                                                       
  SORT FIELDS=(154,6,CH,A,                                             
               172,2,CH,A,                                             
               174,2,CH,A,                                             
               166,1,CH,A,                                             
               177,5,CH,A)                                             
  INCLUDE COND=(113,2,CH,EQ,C'Z5',AND,                                 
                158,1,CH,EQ,C'C',AND,                                 
                (140,1,CH,EQ,C'C',OR,                                 
                 140,1,CH,EQ,C'C'))                                   
  OUTFIL FNAMES=Y5OUT,                                                 
   OUTREC=(154,6,X,172,2,174,2,X,166,1,X,                             
           177,5,X,198,5,PD,TO=ZD,LENGTH=13)                           
/*                                                                                                                         


I am getting successful for the empty dataset (dataset with no records).

Please help me how to resolve ?
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Fri Aug 12, 2005 4:48 pm    Post subject: Reply with quote
For a DUMMY input data set, you need to specify a RECFM, LRECL and BLKSIZE on the DD statement, e.g.

//BNC14Y5 DD DUMMY,RECFM=FB,LRECL=500,BLKSIZE=500
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
ganesh_b
Beginner


Joined: 06 Apr 2005
Posts: 12
Topics: 2
PostPosted: Thu Aug 25, 2005 6:59 am    Post subject: Reply with quote
Hi,

Please refer the code given below.

Code:

//SORTIN   DD *                                                         
 JUST A DUMMY RECORD                                                   
/*                                                                     
//SORTOUT   DD DSN=MYPDS.DATE           
//             DISP=(NEW,CATLG,DELETE),                                 
//             LRECL=16,RECFM=FB,                                       
//             SPACE=(CYL,(1,1),RLSE)                                   
//SYSIN    DD *                                                         
 INREC FIELDS=(&DATE1)                                                 
 SORT FIELDS=COPY                                                       


When I am executing the above step, getting the date in SORTOUT dataset.

I am NOT interested in giving "JUST A DUMMY RECORD" in SORTIN.

If I remove the "JUST A DUMMY RECORD" and give SORTIN as DUMMY with RECFM, LRECL and BLKSIZE, my SORTOUT is empty.

Can anyone tell me why DUMMY is not possible for SORTIN?
_________________
Ganesh.B
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
PostPosted: Thu Aug 25, 2005 8:15 am    Post subject: Reply with quote
Psridhar,

When you code a DD DUMMY for a sortin , there are no records to copy. When you provided "JUST A DUMMY RECORD" there is atleast one record and you overlayed that with the date1

Try this job which will give you the current date even when using DD Dummy

Code:

//STEP0100 EXEC PGM=SORT                       
//SYSOUT   DD SYSOUT=*                       
//SORTIN   DD DUMMY,LRECL=8,RECFM=FB,BLKSIZE=8
//SORTOUT  DD DSN=MYPDS.DATE           
//            DISP=(NEW,CATLG,DELETE),                                 
//            SPACE=(CYL,(1,1),RLSE)                                   
//SYSIN    DD *                               
  SORT FIELDS=COPY                             
  OUTFIL REMOVECC,HEADER1=(DATENS=(4MD))       
/*


Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Thu Aug 25, 2005 9:33 am    Post subject: Reply with quote
Quote:
Can anyone tell me why DUMMY is not possible for SORTIN?


Ganesh.B,

As I said in an earlier post (before you posted):

Quote:
For a DUMMY input data set, you need to specify a RECFM, LRECL and BLKSIZE on the DD statement


I thought that was pretty clear.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group