//JCABJESP  JOB                                                                 
//  EXEC  PLIXCL                                                                
RECFMF: PROC OPTIONS( MAIN );                                                   
 /****************************************************************/             
 /* THIS PROGRAM COPIES A RECFM=U, BLKSIZE=512 FILE WITH ALL     */             
 /* RECORDS EXCEPT THE LAST ONE CONTAINING 512 BYTES TO A        */             
 /* RECFM=F, BLKSIZE=512 FILE, PADDING THE LAST RECORD.          */             
 /****************************************************************/             
DCL INSTR  CHAR( 512 ) VARYING                  ;                               
DCL OUTSTR CHAR( 512 )                          ;                               
                                                                                
DCL IN     FILE        RECORD SEQUENTIAL INPUT  ;                               
DCL OUT    FILE        RECORD SEQUENTIAL OUTPUT ;                               
                                                                                
ON ENDFILE( IN ) STOP;                                                          
                                                                                
   DO WHILE( '1'B );                                                            
      READ  FILE( IN  ) INTO( INSTR  )            ;                             
         OUTSTR = ( 512 )' '                      ;                             
         SUBSTR( OUTSTR,1,LENGTH(INSTR) ) = INSTR ;                             
      WRITE FILE( OUT ) FROM( OUTSTR )            ;                             
   END;                                                                         
                                                                                
END;                                                                            
//LKED.SYSLMOD  DD  DISP=OLD,DSN=JCABJES.HDF3.LOAD2(RECFMF),                    
//  UNIT=DATA,SPACE=(TRK,(10,10,5),RLSE)                                        
//****************************************************                          
//* the go.in dd statement points to the hdf file that                          
//* was uploaded from the Mac. (RECFM=U)                                        
//****************************************************                          
//GO.IN   DD  DISP=OLD,DSN=CUSGJES.HDF.IMAGE.UP1                                
//****************************************************                          
//* the go.out dd statement points to the RECFM=F                               
//* file to be created by this program.                                         
//****************************************************                          
//GO.OUT  DD  DISP=(NEW,CATLG),UNIT=ACS,DSN=CUSGJES.HDF.IMAGE.UP1F,             
//    SPACE=(TRK,(5,5),RLSE),DCB=(RECFM=F,BLKSIZE=512)