Site is converting delete processors to allow package ship with USS elements

book

Article ID: 37266

calendar_today

Updated On:

Products

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

Issue/Introduction

Issue:

Client is shipping JAVA elements. He wants to be able to ship source from both move and delete actions. After modifying the processor to use ENUSSUTL, he is getting an error during the delete action and the package ship fails:

C1X0012I  STEP STGDELE INVOKING PROGRAM ENUSSUTL                        
            DELETE FROMDD SOURCE.                                         
            SELECT FILE cics.test.jar .               
          ENUSSUTL Initiating DELETE for Group #0001 from                
            Path: /shared/endevor/base/PROD.JARS/                                                                     
        PATH: /shared/endevor/base/PROD.JARS/                   
          FILE: cics.test.jar                         
          ENUSSUTL: C014 FILE NOT FOUND.                                 
C1X0010I  STEP STG6DELE PROGRAM ENUSSUTL COMPLETED, RC=0008

 

Environment: 

USS

 

Resolution:

In order to ship USS files, the processor utility ENUSSUTL needs to be used so that backout members are created.

The move processor obtains a copy of the source:

//*
//CONWRITE EXEC PGM=CONWRITE,MAXRC=0
//ELMOUT1  DD PATH='/shared/ndvrjrt/&ENVL/tmp/',
//         PATHOPTS=(OWRONLY,OCREAT),
//         PATHMODE=(SIRWXU,SIRWXG,SIRWXO)
//CONWIN DD *
WRITE ELEMENT "&C1ELMNT255"
  FROM ENV '&C1ENVMNT'
  SYSTEM '&C1SYSTEM'
  SUBSYSTEM '&C1SUBSYS'
  TYPE '&C1ELTYPE'
  STAGE '&C1STGID'
  TO DDN ELMOUT1
  HFSFILE "&C1ELMNT255..tmp"
.
//* 
 
The processor writes it to the path using ENUSSUTL to create backout record for package ship:
//ENUSSUTL EXEC PGM=ENUSSUTL,MAXRC=4
//INPUT    DD PATH='/shared/ndvrjrt/&ENVL/tmp/'
//OUTPUT   DD PATH='/shared/ndvrjrt/&ENVL/&C1ST..&C1TY..XMT/',
//         PATHMODE=(SIRWXU,SIRWXG,SIRWXO)
//ENUSSIN  DD *
  COPY INDD 'INPUT' OUTDD 'OUTPUT' .
  SELECT FILE "&C1ELMNT255..tmp"
  NEWF "&C1ELMNT255".
//*

The delete processor uses ENUSSUTL to delete the USS source file and create a backout to be shipped:

//*
//* ----------------------------------------------------------
//* ENUSSUTL USS Unix utility to create backout record.
//*
//ENUSSUTL EXEC PGM=ENUSSUTL,MAXRC=4,ALTID=&ALTID2
//TARGT    DD PATH='/shared/ndvrjrt/&ENVL/&C1ST..&C1TY..XMT/',
//         PATHMODE=(SIRWXU,SIRWXG,SIRWXO)
//ENUSSIN  DD *
  DELETE FROMDD TARGT .
  SELECT FILE &C1ELMNT255 .
//*

Additional Information:

The processor utility ENUSSUTL must be used to create a backout so either the source from move or delete can be shipped.

 

Environment

Release:
Component: ENDBAS