Using ENUSSUTL in a move processor as follows:
//MOVPROC PROC
//**************************************************
//* COPY OUTPUT USING ENUSSUTL
//**************************************************
//ENUSSUTL EXEC PGM=ENUSSUTL,COND=(4,LT),MAXRC=0
//INPUT DD PATH='&#PFX.1OUT/',
// PATHOPTS=ORDONLY
//OUTPUT DD PATH='&#PFX.2OUT/',
// PATHOPTS=(OWRONLY,OCREAT),
// PATHMODE=(SIRWXU,SIRWXG,SIROTH,SIXOTH)
//ENUSSIN DD *
COPY INDD 'INPUT' OUTDD 'OUTPUT' .
SELECT FILE &C1ELMNT255 .
If the element is longer than 72 characters the following messages are issued:
C1X0012I STEP ENUSSUTL INVOKING PROGRAM ENUSSUTL
COPY INDD 'INPUT' OUTDD 'OUTPUT' .
SELECT FILE
Longname_Element_Testing_For_Testing_xxxxxxxxxx_ELEMENT1_asaLongnameEleme
nt_using_ZZZRRRQQLongnameLongnameLongnameLongLongnameElement .
BSTPPARS: E004 INVALID COMMAND WORDING, FOUND: nt_using_ZZRRRQQLongnameLongnameLongnameLongLongnameEl
ENUSSUTL: E001 INVALID COMMAND SYNTAX RECEIVED.
C1X0010I STEP ENUSSUTL PROGRAM ENUSSUTL COMPLETED, RC=0012
What can be done to resolve this error?
All Supported Releases
There are 4 steps to follow to ensure that the processor executes successfully:
1) When you define the processor, the option C1WRAP=Y must be mentioned
//MOVPROC PROC C1WRAP=Y
//**************************************************
//* COPY OUTPUT USING ENUSSUTL
//**************************************************
//ENUSSUTL EXEC PGM=ENUSSUTL,COND=(4,LT),MAXRC=0
//INPUT DD PATH='&#PFX.1OUT/',
// PATHOPTS=ORDONLY
//OUTPUT DD PATH='&#PFX.2OUT/',
// PATHOPTS=(OWRONLY,OCREAT),
// PATHMODE=(SIRWXU,SIRWXG,SIROTH,SIXOTH)
//ENUSSIN DD *
COPY INDD 'INPUT' OUTDD 'OUTPUT' .
SELECT FILE &C1ELMNT255 .
2) ENNUSSUTL syntax needs the symbols wrapped in quotes like this:
//MOVPROC PROC C1WRAP=Y
//**************************************************
//* COPY OUTPUT USING ENUSSUTL
//**************************************************
//ENUSSUTL EXEC PGM=ENUSSUTL,COND=(4,LT),MAXRC=0
//INPUT DD PATH='&#PFX.1OUT/',
// PATHOPTS=ORDONLY
//OUTPUT DD PATH='&#PFX.2OUT/',
// PATHOPTS=(OWRONLY,OCREAT),
// PATHMODE=(SIRWXU,SIRWXG,SIROTH,SIXOTH)
//ENUSSIN DD *
COPY INDD 'INPUT' OUTDD 'OUTPUT' .
SELECT FILE '&C1ELMNT255' .
3) Long name higher than 72 characters, must be split to have the 72th char as a blank.
'A1234567890123456789012345678901234567890123456789012345678901234567890
123456789012345678901234567890'
4) if long names contain spaces it can be split into multiple "comma concatenated" strings.
For more information see the documentation Long Name syntax-format-guidelines