Can an Endevor processor copy a MVS sequential file to a USS HFS file?
search cancel

Can an Endevor processor copy a MVS sequential file to a USS HFS file?

book

Article ID: 218650

calendar_today

Updated On:

Products

Endevor

Issue/Introduction

Is it possible to copy a sequential file to the HFS file system in a processor?

If yes, do you have a code example? 

Environment

Release : 18.0 18.1

Component : CA Endevor Software Change Manager

Resolution

Use IJEFT01 OCOPY :

//SEQ2USS   PROC TEMP1='/u/users/endevor/temp',
//            WRKUNIT=SYSDA    
//*                          
//*************************************************
//*   CREATE SEQUENTIAL FILE                       
//*************************************************
//GENER01  EXEC PGM=IEBGENER                       
//SYSPRINT DD SYSOUT=*                             
//SYSIN    DD DUMMY                                
//SYSUT1   DD *                                    
GLOBALS ENSU=YES                  
        ENSU-BUFFER=48000        
*       IGNORE-INIT-ERRORS=NO      
        IGNORE-INIT-ERRORS=YES    
        LOG-DEFAULT=OFF            
        CIPS=15000000            
        CPU-FACTOR=1.00          
        CPU-ID=CPUID              
        DBID=ADADBID              
        DBNAME=ADANAME            
   ;                                               
/*                                                 
//SYSUT2   DD DSN=&&SOURCE,                        
//            DISP=(NEW,PASS),                     
//            UNIT=&WRKUNIT,                          
//            SPACE=(6160,(900,500),RLSE),         
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) 
/*                                                 
//*----------------------------------------------- 
//COPYSTEP EXEC PGM=IKJEFT01                            
//INMVS     DD DSN=&&SOURCE, 
//            DISP=(OLD,KEEP)                               
//OUTHFS DD PATH='&TEMP1/&C1ELMNT255',                  
//          PATHOPTS=(OWRONLY,OCREAT),                  
//          PATHMODE=(SIRWXU,SIRWXG,SIRWXO)             
//SYSTSPRT DD SYSOUT=*                                  
//SYSTSIN DD *                                          
OCOPY INDD(INMVS) OUTDD(OUTHFS) PATHOPTS(USE)    
//*---------------------------------------------------