Page 1 of 1

Got an error with "JFY" option

PostPosted: Tue Sep 25, 2007 6:41 pm
by xcspg3
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
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

Re: JFY option

PostPosted: Tue Sep 25, 2007 7:17 pm
by CICS Guy
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) ...

Re: JFY option

PostPosted: Tue Sep 25, 2007 9:31 pm
by Frank Yaeger
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:

  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:

  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:

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

Re: Got an error with "JFY" option

PostPosted: Sun Oct 07, 2007 4:01 pm
by xcspg3
Hi,
my System Administrators have installed "PTF UK90007". Now I can use JFY option !
Thanks a lot
Max

Re: Got an error with "JFY" option

PostPosted: Mon Oct 08, 2007 10:07 pm
by Frank Yaeger
Enjoy!