//JCABJESQ  JOB  TIME=(,45)                                                     
//   EXEC    FORTCLG,RG=4000K,LIBB='APP1.C370IBMN.LIBRARY'                      
//* ********************************************************                    
//* THIS IS A TEST JOB TO TEST THE DFP  LOAD MODULE FROM FORTRAN                
//* ********************************************************                    
//FORT.SYSIN   DD  DISP=OLD,DSN=JCABJES.PALETTE.TO.HDF.FORT                     
//LKED.HDF DD  DISP=SHR,DSN=JCABJES.HDF3.LOAD                                   
//LKED.SYSIN  DD  *                                                             
 INCLUDE  HDF(DFF,DFPF)                                                         
//GO.FT01F001 DD  DISP=SHR,DSN=JCABJES.CLUT0001                                 
//GO.HDF DD  DISP=(NEW,CATLG),DSN=JCABJES.TESTFILE.PAL,                         
//   UNIT=DATA,SPACE=(TRK,(10,5)),DCB=(RECFM=F,BLKSIZE=512)