ALERT: Some images may not load properly within the Knowledge Base Article. If you see a broken image, please right-click and select 'Open image in a new tab'. We apologize for this inconvenience.

C1BMX39E STAGING DATASET COPY ERROR with Dump DFDSS

book

Article ID: 111537

calendar_today

Updated On:

Products

Endevor Software Change Manager (SCM) Endevor Software Change Manager - Natural Integration (SCM) Endevor Software Change Manager - ECLIPSE Plugin (SCM) Endevor Software Change Manager - Enterprise Workbench (SCM)

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?

Cause

There is logic in Ship that expects that all RECFM=U datasets being shipped are real load modules and builds COPYMOD instead of COPY statements for these items.
Enhancing the logic to detect if a PDS/E load member is actually a real load module is not likely to be a trivial task because of the way the staging and de-staging of libraries are handled, and if possible would certainly add processing overhead to the current ship process.
Understanding that this can't be a easy task, we have worked on a possible bypass that works in both processor and shipment.

Environment

Release: ENDAE.00200-18.0-Endevor-Software Change Manager
Component:

Resolution

When recommend tho 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                                  
/*