Before you can run your application, you must define and install it in CICS Transaction Server for MVS. Because the application definition is retained by CICS Transaction Server for MVS, this only needs to be done once for each new application.
On CICS Transaction Server for MVS, use the resource definition online (RDO) facility to define the load module you have built.
To define the sample program to CICS Transaction Server for MVS 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.
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