Page 1 of 1

SUBDAYS error

PostPosted: Tue Jan 25, 2011 3:39 pm
by javivi
Hi

I'm testing the SUBDAYS function in DFSORT and I have SYNTAX ERROR that i can't find. Here the sysout:

ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 10:05 ON TUE JA
           OPTION DYNALLOC=(,12)                                               
           SORT FIELDS=COPY                                                     
           OUTFIL FNAMES=FECHOY,                                               
              BUILD=(C'  LISTC ENT(''EXA7.GM.LR.BDK.GMJDTM3.F',                 
                         03,06,C''')')                                         
           OUTFIL FNAMES=FECMEN1,                                               
              BUILD=(C'  LISTC ENT(''EXA7.GM.LR.BDK.GMJDTM3.F',                 
                         03,06,Y2T,SUBDAYS,+1,TOGREG=Y2T,C')')                 
                                   $                                           
ICE007A E SYNTAX ERROR                                                         
           END                                                                 
ICE751I 0 C5-K51707 C6-K51707 C7-K51707 C8-K51707 E7-K51707                     
ICE052I 3 END OF DFSORT                                                                                             


The error is in the SUBDAYS

Please any help.... :D

Re: SUBDAYS error

PostPosted: Tue Jan 25, 2011 10:41 pm
by skolusu
Javivi,

Looks like your System does NOT have the PTF H which supports date arithmetic. The message ICE201I in the SYSOUT should have H next to it to support the date arithmetic function. Ask your System Programmer to install it (it's free).

In your sysout if you see

ICE201I H RECORD TYPE ...

the H indicates you have the October, 2010 DFSORT functions (RESIZE, IFTRAIL, ACCEPT, ADDDAYS, DATEDIFF, TRAN=ATOE, KEYBEGIN, etc) and all of the earlier functions. This function level corresponds to z/OS DFSORT V1R10 PTF UK90025 and z/OS DFSORT V1R12 PTF UK90026. You are completely up to date on DFSORT functional PTFs.

Re: SUBDAYS error

PostPosted: Tue Jan 25, 2011 11:02 pm
by skolusu
Javivi,

Use the following DFSORT JCL which will give you the desired results

//STEP0100 EXEC PGM=SORT                                             
//SYSOUT   DD SYSOUT=*                                               
//SORTIN   DD *                                                     
20100507                                                             
//FECHOY   DD SYSOUT=*                                               
//FECMEN1  DD SYSOUT=*                                               
//SYSIN    DD *                                                     
  SORT FIELDS=COPY                                                   
  INREC IFOUTLEN=25,                                                 
  IFTHEN=(WHEN=INIT,OVERLAY=(09:C'*',1,8,Y4T,TOJUL=Y4T,             
          26:10,4,14,3,ZD,SUB,+1,M11,LENGTH=3)),                     
  IFTHEN=(WHEN=(30,3,ZD,EQ,0),                                       
  OVERLAY=(17:C'*',26,4,ZD,SUB,+1,M11,LENGTH=4,C'1231')),           
  IFTHEN=(WHEN=(30,3,ZD,GT,0),                                       
  OVERLAY=(17:C'*',26,7,Y4T,TOGREG=Y4T))                             
                                                                     
  OUTFIL FNAMES=FECHOY,                                             
  BUILD=(C' LISTC ENT(''EXA7.GM.LR.BDK.GMJDTM3.F',03,06,C''')',80:X)
                                                                     
  OUTFIL FNAMES=FECMEN1,                                             
  BUILD=(C' LISTC ENT(''EXA7.GM.LR.BDK.GMJDTM3.F',20,06,C''')',80:X)
/*


FECHOY file will have

 LISTC ENT('EXA7.GM.LR.BDK.GMJDTM3.F100507')


FECMEN1 will have
 LISTC ENT('EXA7.GM.LR.BDK.GMJDTM3.F100506') 

Re: SUBDAYS error

PostPosted: Wed Jan 26, 2011 12:50 pm
by javivi
Thanks a lot

every day dfsort is better..... :D