IBM Mainframe Forum

by **javivi** » Tue Jan 25, 2011 3:39 pm

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....

by **skolusu** » Tue Jan 25, 2011 10:41 pm

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.

by **skolusu** » Tue Jan 25, 2011 11:02 pm

Javivi,

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

Select all

//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

Select all

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

FECMEN1 will have

Select all

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

by **javivi** » Wed Jan 26, 2011 12:50 pm

Thanks a lot

every day dfsort is better.....

IBM Mainframe Forum

SUBDAYS error

SUBDAYS error

Re: SUBDAYS error

Re: SUBDAYS error

Re: SUBDAYS error