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?
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
/*