Before you can run your application, you must define and install it in CICS for MVS/ESA. Because the application definition is retained by CICS for MVS/ESA, this only needs to be done once for each new application.
Note: | If you have packaged your application to run as a dual module (base and dependent), both the base and the dependent modules must be defined to CICS. The base module does not require a transaction definition if it is to be called by another CICS program. The dependent module requires a transaction definition. The program definitions along with the dependent module's transaction definition must be installed. |
On CICS for MVS/ESA, use the resource definition online (RDO) facility to define the load module you have built.
To define the sample program to CICS for MVS/ESA using RDO, you need to define and install both the program and the transaction. If you are changing an existing load module, see Changing an existing CICS load module.
CEDA DEF PROG(ABTCSAMP) GR(ABT)
The following screen appears. Change the description, language, and data location as highlighted below.
OVERTYPE TO MODIFY CICS RELEASE = 0410 CEDA DEFine PROGram : ABTCSAMP Group : ABT DEscription ==> SAMPLE SMALLTALK PROGRAM Language ==> LE370 CObol | Assembler | Le370 | C | Pli | Rpg RELoad ==> No No | Yes RESident ==> No No | Yes USAge ==> Normal Normal | Transient USElpacopy ==> No No | Yes Status ==> Enabled Enabled | Disabled RSl : 00 0-24 | Public Cedf ==> Yes Yes | No DAtalocation ==> ANY Below | Any EXECKey ==> User User | Cics REMOTE ATTRIBUTES REMOTESystem ==> REMOTEName ==> APPLID=S29CICS1 DEFINE SUCCESSFUL TIME: 15.35.00 DATE: 95.205 PF 1 HELP 2 COM 3 END 6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL
CEDA DEF TRAN(SAMP) GR(ABT)
The following screen appears. Change the description, program, and task data location as highlighted below.
Note: | If you are running CICS/ESA 3.3 and accessing DB2, you must specify the TASKDATALOC as BELOW. If you are either running CICS/ESA 4.1 or not accessing DB2, you can specify the TASKDATALOC as ANY. |
OVERTYPE TO MODIFY CICS RELEASE = 0330 CEDA DEFine TRansaction ==> SAMP Group ==> ABT DEscription ==> SAMPLE SMALLTALK APPLICATION PROGram ==> ABTCSAMP TWasize ==> 00000 0-32767 PROFile ==> DFHCICST PArtitionset ==> STatus ==> Enabled Enabled | Disabled PRIMedsize : 00000 0-65520 TASKDATALoc ==> ANY Below | Any TASKDATAKey ==> User User | Cics REMOTE ATTRIBUTES DYnamic ==> No No | Yes REMOTESystem ==> REMOTEName ==> TRProf ==> + Localq ==> No | Yes APPLID=S29CICS1 DEFINE SUCCESSFUL TIME: 15.40.00 DATE: 95.205 PF 1 HELP 2 COM 3 END 6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL
CEDA INS PROG(ABTCSAMP) GR(ABT)
The following screen appears. The program has been installed.
OVERTYPE TO MODIFY CEDA Install Connection ==> File ==> Lsrpool ==> Mapset ==> PARTItionset ==> PARTNer ==> PROFile ==> PROGram ==> ABTCSAMP TErminal ==> TRansaction ==> TYpeterm ==> Group ==> ABT APPLID=S29CICS1 INSTALL SUCCESSFUL TIME: 15.43.46 DATE: 95.205 PF 1 HELP 3 END 6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL
CEDA INS TRAN(SAMP) GR(ABT)
The following screen appears. The transaction has been installed.
OVERTYPE TO MODIFY CEDA Install Connection ==> File ==> Lsrpool ==> Mapset ==> PARTItionset ==> PARTNer ==> PROFile ==> PROGram ==> TErminal ==> TRansaction ==> SAMP TYpeterm ==> Group ==> ABT APPLID=S29CICS1 INSTALL SUCCESSFUL TIME: 15.42.17 DATE: 95.205 PF 1 HELP 3 END 6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL
If you have made a change to the image and re-created the CICS load module, you will need to tell CICS that there is a new version of the load module on the disk. To do this, enter:
CEMT SET PROG(ABTCSAMP) NEW
The following screen appears.
SET PROG(ABTCSAMP) NEW STATUS: RESULTS - OVERTYPE TO MODIFY Prog(ABTCSAMP) Len(0390664) Le3 Pro Ena Pri Ced NORMAL Res(000) Use(000000) Any Uex Ful SYSID=CICS APPLID=S30CICS2 RESPONSE: NORMAL TIME: 12.58.42 DATE: 12.11.95 PF 1 HELP 3 END 7 SBH 8 SFH 9 MSG 10 SB 11 SF