IBM Mainframe Forum

by **xcspg3** » Tue Sep 25, 2007 6:41 pm

Hi,
I've got an error with "JFY" option.

Jcl

//S10 EXEC PGM=ICEMAN
//SORTIN DD *
1234567890
MAX
MA
X
/*
//SORTOUT DD DSN=ACBAN0.PC00M.JFY.OUT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=(SYSDA,,),
// SPACE=(CYL,(001,01,),RLSE,,),
// DCB=(LRECL=080,RECFM=FB)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
INREC BUILD=(1,10,JFY=(SHIFT=LEFT))
SORT FIELDS=(1,10,CH,A)
/*

Mesage error

Select all

ICE000I J - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 -
INREC BUILD=(1,10,JFY=(SHIFT=LEFT))
$
ICE007A P SYNTAX ERROR
SORT FIELDS=(1,10,CH,A)
ICE052I J END OF DFSORT

Can you help me?
Thanks
Max

by **CICS Guy** » Tue Sep 25, 2007 7:17 pm

Do you have all of the DFSORT PTFs applied?

z/OS DFSORT V1R5 PTF UK90007 and DFSORT Release 14 PTF UK90006, first available in April, 2006, provide important enhancements to DFSORT and DFSORT's ICETOOL for extracting variable position/length fields ... into fixed parsed fields (PARSE, %nn); justifying and squeezing data (JFY, SQZ) ...

by **Frank Yaeger** » Tue Sep 25, 2007 9:31 pm

Max,

CICS guy is right. The syntax error indicates your site does not have z/OS DFSORT V1R5 PTF UK90007 (April, 2006) applied. You need that PTF to use JFY. Ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

http://www.ibm.com/servers/storage/supp ... /mvs/peug/

A note about a conflict in your job:

You have:

Select all

INREC BUILD=(1,10,JFY=(SHIFT=LEFT))

which builds 10-byte records, but you have LRECL=080 for SORTOUT. The mismatch will cause DFSORT to pad your output records with binary zeros from positions 11-80. It's best to remove LRECL=080 and let DFSORT set the correct LRECL automatically.

If you want 10-byte records, removing LRECL=080 will work.

If you want blanks from 11-80, use:

Select all

INREC BUILD=(1,10,JFY=(SHIFT=LEFT),80:X)

If you want to justify input positions 1-10 and keep input positions 11-80 unchanged, use:

Select all

INREC OVERLAY=(1,10,JFY=(SHIFT=LEFT))

by **xcspg3** » Sun Oct 07, 2007 4:01 pm

Hi,
my System Administrators have installed "PTF UK90007". Now I can use JFY option !
Thanks a lot
Max

by **Frank Yaeger** » Mon Oct 08, 2007 10:07 pm

Enjoy!

IBM Mainframe Forum

Got an error with "JFY" option

Got an error with "JFY" option

Re: JFY option

Re: JFY option

Re: Got an error with "JFY" option

Re: Got an error with "JFY" option