Package Ship Facility › How to Enable USS Supported Files for Package Ship › How to Enable Backout of USS Source Output Files

How to Enable Backout of USS Source Output Files

Source Output USS files created by CA Endevor SCM through the Type definition cannot be backed out or shipped. To have this alternate file created and to have it available for Package Backout and Ship, you must change the Type definition and Processor. One way to change the processor is to use the CONWRITE and ENUSSUTL utilities in the processor. To use this method, complete the following steps:

1. Add the CONWRITE utility to the processor to extract the element to a temporary file. For more information about CONWRITE, see the Extended Processors Guide.
2. Add the ENUSSUTL utility to the processor after the CONWRITE utility. Use the Copy and Select statements to specify that the ENUSSUTL utility copy the temporary file to the targeted USS file. The targeted USS file is the source output library defined on the Type definition.

   By using the ENUSSUTL utility, a backout record and a backout file is created when an action is executed under package processing control against this element. For more information about using the ENUSSUTL utility, see Enable Supported Files for Package Ship.

3. Change the Type definition to remove the SOURCE OUTPUT USS library definition.

Note: If you do not intend to back out or ship your source output USS file, you do not need to change your processor or type definition.

Example: CONWRITE and ENUSSUTL in Processor for USS Source Output Files

This example shows how a processor can use the CONWRITE and ENUSSUTL utilities to create back out files and information for USS source output files. Thus enabling the USS files to be shipped. This partial processor uses the CONWRITE utility to create USS output from a CA Endevor SCM element and copy it to a temporary USS file. Then the ENUSSUTL utility copies the USS file to its real name and location. Then the BPXBATCH utility deletes the temporary USS file.

//GUSS  PROC USSDIR=’/u/users/endeavor/&C1EN(1,1)&C1S#/’
                       •
                       •
                       •
//***********************************************************     
//* Create USS output from endevor element to a temporary USS
//* file and then use ENUSSUTL t0 copy it to its real name
//* and location.
//* Delete the temporary USS file
//* - CONWRITE element.tmp
//* - ENUSSUTL copy element.tmp to element
//* - BPXBATCH delete element.tmp
//***********************************************************
//CONW1   EXEC  PGM=CONWRITE,MAXRC=0
//ELMOUT1 DD  PATH=’&USSDIR’,
//        PATHOPTS=(OWRONLY,OCREAT),
//        PATHMODE=(SIRWXU,SIRWXG,SIRWXO)
//CONWIN  DD *
 WRITE ELEMENT &C1ELMNT255
    FROM ENV &C1EN SYSTEM &C1SY  SUBSYSTEM &C1SU
         TYPE &C1TY STAGE &C1SI
    TO  DDN  ELMOUT1
        HFSFILE &C1ELMNT255..TMP
 .
//***********************************************************
//ENUSS1  EXEC  PGM=ENUSSUTL,MAXRC=4
//INPUT   DD  PATH=’&USSDIR’
//OUTPUT  DD  PATH=’&USSDIR’,
//        PATHMODE=(SIRWXU,SIRWXG,SIRWXO)
//ENUSSIN DD  *
 COPY INDD ‘INPUT’ OUTDD ‘OUTPUT’ .
 S FILE ‘&C1ELMNT255..tmp
   NEWF ‘&C1ELMNT255’ 
 .
//***********************************************************
//BPXB1  EXEC  PGM=BPXBATCH,MAXRC=0,COND=(4,LT)
//STDPARM DD  *
SH rm -r ‘&USSDIR.&C1ELMNT255..tmp’ ;
//STDOUT  DD  SYSOUT=*
//STDERR  DD  SYSOUT=*
//*