Is it possible to copy a sequential file to the HFS file system in a processor?
If yes, do you have a code example?
Release : 18.0 18.1
Component : CA Endevor Software Change Manager
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)
//*---------------------------------------------------