Need to add a load module to Endevor and the C1BM3000 job is not working correctly.
Article ID: 13015
Updated On:
Products
Issue/Introduction
When I try to add a load module to Endevor the utility C1BM3000 is not doing what I need.
What has to be modified/added to Endevor to allow me to add a load module?
Environment
Release: All Supported Releases
Resolution
There is no direct utility to allow you to add a load module to Endevor. To do this multiple pieces that have to be modified: the type definition, processor group definition and the processor that is called.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
This is an example of a loadonly type definition. Remember that this must be done for both stage 1 and 2.
DISPLAY ---------------------- TYPE DEFINITION ------------------------------
COMMAND ===>
CURRENT ENV: environ STAGE ID: 1 SYSTEM: system TYPE: LOADONLY
NEXT ENV : environ STAGE ID: 2 SYSTEM: system TYPE: LOADONLY
DESCRIPTION: ===> INCLUDE TESTING
UPDATED: 28JUL06 13:57 BY ########
----------------- ELEMENT OPTIONS -------------------
DELTA FORMAT(F/R/I/L) ===> F SOURCE LEN ===> 80 ELE RECFM(N/F/V) ===> N
COMPRESS/ENCRYPT(Y/N) ===> Y COMPARE FROM ===> 1 DFLT PROC ===> LOADONLY
AUTO CONSOL (Y/N) ===> Y COMPARE TO ===> 80 LANGUAGE ===> DATA
CONSOL AT LVL ===> 96 REGRESSION ===> 50 PV/LB LANG ===> DATA
LVLS TO CONSOL ===> 50 REG SEV(I/W/C/E) ===> I DATA FORMAT(T/B) ===> T
HFS RECFM(COMP/CR/CRLF/CRNL/F/LF/NL/V) ===> NL FILE EXT ===>
----------------- COMPONENT LIST OPTIONS ------------------
FWD/REV DELTA(F/R) ===> F AUTO CONSOL (Y/N) Y CONSOL AT LVL 96
LVLS TO CONSOL 50
------------------------- LIBRARIES -----------------------
BASE/IMAGE LIBRARY ===> iprfx.iqual.TEST.BASE1
DELTA LIBRARY ===> iprfx.iqual.TEST.DELTA1
INCLUDE LIBRARY ===>
SOURCE O/P LIBRARY ===> iprfx.iqual.SOL1
EXPAND INCLUDES(Y/N) ===> N
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Define the processor group defintion:
CURRENT ENV: environ STAGE ID: 1 SYSTEM: system TYPE: LOADONLY
NEXT ENV: environ STAGE ID: 2 SYSTEM: system TYPE: LOADONLY
PROCESSOR GROUP: LOADONLY PROCESSOR O/P TYPE: LOADONLYLOADONLY
DESCRIPTION: TESTCASE PROCESSOR
NEXT PRCS GROUP: LOADONLY
UPDATED: 28JUL06 13:12 BY ########
----------------------- OUTPUT MANAGEMENT INFORMATION -------------------
PROCESSOR TO USE FOR MOVE ACTION: M (M/G)
PROCESSOR TO USE FOR TRANSFER ACTION: G (M/G)
S - Browse Symbolics L - List Processor
FOREGROUND EXECUTION
GENERATE PROCESSOR: LOADONLY : Y (Y/N)
DELETE PROCESSOR: *NOPROC* : Y (Y/N)
MOVE PROCESSOR: LOADONLY : Y (Y/N)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
This is the processor that will be used in both the add and move processors.
********************************* Top of Data *******************
//***************************************************************
//** LOAD MODULE PROCESSOR FOR THE GENERATE **
//***************************************************************
//LOADONLY PROC LOADSRC='iprfx.iqual.LOAD',
// LOADTGT='iprfx.iqual.LOADLIB1',
// LISTSRC='iprfx.iqual.LISTING',
// LISTTGT='iprfx.iqual.LISTING1',
// PGM=BSTCOPY
//*
//***************************************************************
//INIT EXEC PGM=BC1PDSIN
//C1INIT01 DD DISP=(,PASS),DSN=&©OUT,
// UNIT=SYSDA,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//***************************************************************
//IF1 IF ((&C1ACTION=ADD) OR (&C1ACTION=UPDTE)) THEN
//ADD EXEC PGM=&PGM
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,5))
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(1,5))
//INDD DD DSN=&LOADSRC,DISP=SHR
//OUTDD DD DSN=&LOADTGT,DISP=SHR
//SYSIN DD *
COPY O=OUTDD,I=INDD
SELECT MEMBER=((&C1USRMBR,&C1ELEMENT,R))
//END1 ENDIF
//*
//***************************************************************
//IF2 IF ((&C1ACTION=TRANSFER) OR (&C1ACTION=MOVE)) THEN
//TRANSFER EXEC PGM=&PGM
//SYSPRINT DD DSN=&©OUT,DISP=(OLD,PASS)
//SYSOUT DD SYSOUT=*
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,5))
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(1,5))
//INDD DD DSN=&LOADSRC,DISP=SHR
//OUTDD DD DSN=&LOADTGT,DISP=SHR
//SYSIN DD *
COPY O=OUTDD,I=INDD
SELECT MEMBER=((&C1USRMBR,&C1ELEMENT,R))
//END1 ENDIF
//*
The way this works is the load library member is analyzed and the information
from that member is then added into Endevor Base/delta as the source code.
After the source has been added the processor is then run to move or add
the loadmodule into a controlled Endevor load library.
Additional Information
To find more information for defining a type definition:
https://techdocs.broadcom.com/us/en/ca-mainframe-software/devops/ca-endevor-software-change-manager/19-0/installing/implementation-and-customization/defining-maps-and-inventory-structures/defining-inventory-structures/defining-types.html
To find more information for add / move / delete processors:
https://techdocs.broadcom.com/us/en/ca-mainframe-software/devops/ca-endevor-software-change-manager/19-0/administrating/processors/sample-processors.html
Feedback
