Endevor - C1BMX39E STAGING DATASET COPY ERROR - RC=000004 - STAGING DATASET COPY ERROR with Dump DFDSS
search cancel

Endevor - C1BMX39E STAGING DATASET COPY ERROR - RC=000004 - STAGING DATASET COPY ERROR with Dump DFDSS

book

Article ID: 111537

calendar_today

Updated On:

Products

Endevor

Issue/Introduction

An Endevor processor is executing ADRDSSU to dump a MFS into a PDSE loadlib (recfm U; recL 0; bLksize 27998). 
This output member is not a real load module but a Dump DFDSS.
The move processor execute IEBGENER instead of BSTCOPY to copy this output component. BSTCOPY can't copy such member.


When we try to ship the package used to move the element, Shipment fails with message:

C1BMX39E STAGING DATASET COPY ERROR - RC=000004 and
C1G0191W MEMBER x COPY OPERATION COMPLETED. MEMBER NOT COPIED, REASON CODE 00000008.


The IEWDIAG messages are:

IEW2515W 4731 DIRECTORY ENTRY FOR MEMBER x IDENTIFIED BY DDNAME SYS00015 IS NOT MARKED AS LOAD MODULE.
IEW2522E 470E MEMBER x IDENTIFIED BY DDNAME SYS00015 WITH CONCATENATION NUMBER 1 IS NOT A LOAD MODULE.

How can we fix this?

Resolution

We recommend the user to use the TSO TRANSMIT/RECEIVE to 'dump' the IMS Format components, instead of ADRDSSU

This will preserve all the member data, including footprints, and would probably be easier to un-pack at the ship destination.
Here is a sample:


//XMIT   EXEC PGM=IKJEFT01,REGION=4096K,DYNAMNBR=16
//SYSTSPRT DD SYSOUT=A
//FMTDSN DD DSN=&FMTDSN, * Format components
// DISP=OLD
//XMIT DD DSN=&&XMIT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1,2),RLSE),
// DCB=(RECFM=FBA,LRECL=80,BLKSIZE=0,DSORG=PO)
//SYSTSIN DD *
XMIT node.userid +
DDNAME(FMTDSN) MEM(&C1ELEMENT) +

MSGFILE(MSGFILE) +  
SYSOUT(X) +        
OUTDDNAME(XMIT) +
NOLOG
/*

//MSGFILE  DD *                                           
The attached file contains element &C1ELEMENT / &C1ELTYPE.
As at date: &C1ADDMMYYYY                                  
/*