Jo9|2.

022
CICS

SysINDA SpSF
PARM

FlLE FILE
Ps/VsAM COBOL
PsVSAM

lgic
DB
DB

CicS TES
AtNO.. SCRE E N

sCREEN
Customeat Infoanmalion Condaol Sqsern
CIc

Itis an
ab ontne stem in
mainfname Opeatng
Sysem
eics t+self act kke
operalina ystenm unde
mainfrane steno
INTERVIEN QU ESTION
BATCH ONLINE
) Thee is no use1 Iy The1e oTll be a
use
Inteackon. Inteaactfon.
a) 1 there 1S na cICS, 2) 1f thee ts a
1 s Called Batch . fs
cTCS,
called onlte
3 Cornpiled thyevouah JCL. 3) Compied hatogh JeL.
4Eecuted theoua TCL 4) Eteculad
tion ld.
thsaugh >ansac
5) Backend patocessing 5) Faent erd
pjce Ssing
is fngtant 6)TheAe
6There no s Tnstan t
esuH 1esult
 D a t a p1ocessîng fs fasheg q Data perocesSing s Slow
Due to no use due to useq fnte1 acio).
Tntetacffon.
eg: ATm, Reseauaion
ste
e Batch reposts IIPF Panel
ImPLnt in Cns
ABLESs IN cICcS
PCT Paopoam Contol Table
CT Table cotatns the trons ac ion id's andpte n lame.
PCT.S Cic,doble
fhci tble

TransoctHon | Pr0
table
,PPT Pprogaam PoOcegsna icd

home ancl Hs
XAOJ CALfm
PPT Contahs P1ogpan JANA DELPCGM
Cosacspondina loaclib' Names
am. dO Cheek.Po1,he PP
PROMANAr loRDUBpdnE
Sond
F C T File Contsol Toable CAUMG nosER-Jhtnag
FCT ontons he loga and physica
DELEfmpernsER PAAlo6 ug
fie nome s CS Can SUPO

, espe ioall vsnmler

logkalfle PhstoalRt
INILETasER-KD
RCT KesousICe Conlsol Table ACCTFILE erUseRPNA* 13

RCT COntaihs Poetom Name and

Coaelespondtng
plan Names.
heneves coBOL4C C S+ DB2 Pa0qan
p0amnlemEplanbme
CALD82PLeO
NOTE OPPm
Once he tansactin id entexcel on

the Sceen, the PCT Table coll be tiageed anol Hs

checks he konsa ction rd oand
Codstesponding froeme
Nome.
f poto mName to found in PCT hen fon, ostotsponeloy loodlks
tiaesled
w l be
PPT Toble used any Files, he FCT Hab e il be ne
>P the paxogoem Ts
the paioqIom is uec SQLQetieg hen RT Table ual be

lon Names
tofageed foa P
Tcacion d's) t i e s PioS P099ams aae însenteN .
The
Commands ike CEDA CEMT ctc.
table by using wnttey
-Conat afhen Raeie
Steps to implemert
a CoBOL CICS pa am.

Des he sceer/Map
a) Code he
3) Desta
Sceen/Map usg
the COBOL ps10am
BMS MACRO.
accondin to the scAeen
4) Cade +he
) Comple
coBoL
both
p101am to
Map and COBOL pagams.
the CoMe spord ScHee

9 Corg *he
Copy the ond modules -fom Bartch to Onlire lTso to CICcs)

eyustng CEMT Command.

) Execute
1) Execute he Pgam stng taansactron ID. ** .

Des he Scoqeen CMap)

TES
STNO
STNAME:
coURSE:
CoNTACT:
P3EXIT ENTER:cONTINOE

Code the
ScaeenMaP 46ing BMS MACRO.-
Map A sinmple sc>jeen AepsjesentaRon ez) epaesen-
taHon of Sceen

MapSet:- The set of Scateens Ts called Mapset.

BMS MACRD- CBastc Mapptg &uppot)
6 mplemierst any CICS ee theae corll be a
too oay8. . f.1

BMS MACRO .

By usina Tool sDF (6cojeen dispk factlrh)

 BMS deftoed with th9ree diett Macero

DFHMSD (Deftned -Aeld 4Hetanchy Map set defanåRoo

DEH MDI CDefined feld thestaschy Map deinion htepoele)
3)DFH MDF COesimed -feld Heuchy. Map deintkon eld).

-DEHMSD
It desc=1tbes he map. sef dehmitions

anarneters af DFHMSD
) DEHMSD TYPE SYSPARM/MAP DsECT
=

Map t
epiesents he phystaa Map(BMS MAcRO)
Physical Map H gerenates the sousxe code +o
fect Code irto he load
rbnat
DSECT
epstesernts he symbolfe Map.
Syobalie Map genestates a copybook based on the
Prel names ina Map
Preld
&SYSPARM + +1ep=1eseryts bch pysical ane
&ynboicr Maps
a) DFHMSD MODE INoUTTNoUT.
MODE lt deacsiibes he puspasse af the scoreen
IN INput pupose
oUT Output pupase
IoUT nput & Outpt puapase

3)TIOAPEX = YES CTeam+nal inpuf oatput Astea Puetiz)

3)
iabytes of Memcety s alloccrted to the tesofm
CSCREEN oA Map). to Cornt1o he data entested
by the usef.
H) STORAGE = AUTO

A
A &ysten orl allocate a sepaoate Mero
to eecute the Map set.
5) LANGUAGE = CoBOL| AsseM BLER PLI

dese1tbes the back end patogotamin

langugefo he scteen functronalrty

C)CTRL = [FREEKB , FRSET]

FREEKEYBOARD It unlocks he kegboaad before
CFREEKB)
erecutforn f Map.
FRSET TCFReldReset) -> t eset all the-freldsbelore exe
'cuton of Map.
DFHMDI-(Defned field Hreatancy Map demtion
Iteaete)
t descstbes the Map size
OFHMD) has paaamete»s
423 - - - 0
cOLDMN

) SIZE=C24, 80 HH
reS

HINE=1 CoLUMN= 1

NE
* DFHMDF:- CDefined feld iexastehy Map defors
freldD
descarbes +he eHs b a
Map.
t descoibes the destsed pos7tton to
) Pos =
U,20) -

place he Prald.
lrtezals the
INITIAL =TES' -
It
displays the on

ScAeen
the lerath f the seld.
3) LENGTH = 3 It dtsplays
4) coLOR =GREEN Itdeacibes the colo op the
Artesnals.

4TTRAt
*IMP
5) ATTRB =(UN PROT/PROT,
DRK BRT
ASKIP
Te)
freld thch c l not allooh
PROT + petotects he
erte +he data.

UNPROTIts fed rt allos to

an
unpiotected
ente he datoa Use

ORK + daakness the reld -to învrSTble to e

Coask) se
relo
BRT
1bttghtnessthe teld and e
be visrble +o he Useq
the next
ASKIPI+ sktps the cotael ove
to

feld once the

ergth is
eached
Tc-Cinsent Cuisod
+ fnsestte he cuso a destte feld

Scaeen Using BMS MACRO -

* Codina a Strople J
TES
STNO

STNAME

COURSE

F3 EXIT ENTER' cONTINUE

 PFX
TESMAP DFHMSD TYPE = &SYSPARM, MODE = INOUT, ""

YES, STORAGE- AUTO, LANG= COBOL)

CTRL= CEREEKB,FRSET)
TESMAP
TESMAP
DEHMDI SIZE=Ca4 80), HNË==I coLUMN= |
TESFLD DFHMDF PoS= C30), TNITIBL = 'TES, LENGTH= 3, X

caOR- 'RED, ATTRB

(PROT, BRT, ASKIP)
STFLD DEHMDF PoS=
C4,2), TNrTIAL ="STNO:, LEN GTH=5,
ATTRB CPROT, BRT, ASKIP)
STVALFLD DFHMDF PoS C4,8), TNITIAL =
LENGTH=4,
ATTRB CUNPROT, BRT, ASkiP, Tc)
NAMEFLD
DFHMDFPoS=(5,2), INTIAL= STNAME LEN6TH=
ATTRB CPROT, BRT, ASK IP
NAME VAL DFHMDF POS= (5,10) , EALENGTH=10, ATTRB CUNPROT,
BRT, ASK IP)
CRSFLD DEH MDF POS= (6,
2) , TNITIAL "COURSE:, LENGTH=*,
=

ATTRB CPROT, 8RT, ASKIP)

CRSVAL DEHMDF Pos= C), LENGTH= 5, ATTRB CUN PROT,
BRT, ASKIP)

F3PLD DFHMDF poS= (to,2), TNITIAL= "f3:EXIT',LENGTH=+,

ATTRB (PROT, 8RT, ASKIP)
EBITERELD DEHMDF POS (lo)15) , INITIAL =
"ENTER:CONTINUE
LENGTH= 14, ATTRB-CPROT, BRT, ASKIP

FINISH
END
 NOTE
these is no TC the cURSOR ofl be placed t
St byte of the ScAeen Cle ft top Conea)
I f you Cocded Moe IC's then the cURSOR Co1ll be placed
ad last npnotecfed fied.

kppe echntque
The CURSOR moves ovet to the nect freH once the
length s Reached. becouse of ASKIP

SToppe Techntque
1s
afte
the coteol the Macimum engh,
To StP
Aeachecl and CN+Dth byt cofll be used a u PROT

mAPSETCCAUMIS) G CrESI8
CEDA DEP
ma
a e t hAme.

LURSOR Posthioning Technques

Thesse ase 3 y s Jo place the cURsOR On the een

at dlesiaed pos fton

Stotfc CURSOR Positionting Technque.( .sheu
We aae coded o bere
3, Dynomie CURSOR Posiffanfng Techntque theCosd

Relafve. CURSOR Positionng Techntque .

Techntque
i
Stottc CURSOR POstfont na ehntque
ou place he cURSOR on the Scleeni a
destel
BMS Maco itseP by using Ic.
fied Ay
by coing
OFH MDF POS(2,1o) HTRB (NPROT, BRT, ASkIB1)
ynamic CoRSOR Posittonfng Tedhnfaue t-

O u P l a c the cORSOR On the Scaeen a desíoneed field

hetough COBoL Potogam

MOVE LO VALUES TO CALIMIO t

wrll plate the
CUs1SO the on thec
MOVE-I TO NOMILL
Pirst freld
4 oT
Phce the cSOo9
a paotfc ueia frel
HdesCtbei akout freld Hs e

eliive CORSOR PosT fonta cch

P you plae he cURSOR at desired posilton thaaugh
COBoL Poaam R e l e t i v e8 y t e a d d r e ss

Syntax Hh-
80
EXEC elcs

SEND m AP C'CAum)
+ u o f b e worb c o h
mAPsETC'cALImIs)
elative Bute ocldse
CURSORC25 3)
ENO-ExEC
tt ofll be hloak ao7th
+ descafbes abod Postfran Wfse that means
Relative Byte accress
SEND eND RECeive THE DATA

Hh Soen
SEND To display

Synta
EXEC Cics SEND

mAPC'mAAJAME)

mAPSE TC'mAPSETNAmE)
FROm CCoPBOok VARIABLe NamE )
END-EXtc.
 RECEiVE
XEC CIcs RECEIVE
mAP C'mAPNAmE')
mAPSETC'mAPSET NAmE')
INTO CcoPYBoOk vARIABLE NAME)
END-ExEC
RECEIVE
ExEC cIS sEND EXEC CI Cs

MAP C'CAum')
ma PC'CAUmI')
llslaenk
will beplacA, mA PSETCCALImIs'
mAPsETCCAumISS)
FROm C CAUmIO)
INTO LAUMI)
END-EXEC
END-ExEC
Contnuaion ram ables Cancep
CoBoL+cIcS PCT +PPT

COBOL + VSAM+ CICS PCT +PPTtFCT

CoBoL t DB2tcICS -PCT+ RCT+PPT
COBoLt Cicstvs AM+DB2 PCT+PPTtFCT+RCT

TDENTHCATON DrVSION
PROGRAm-TD. CAUP
DATA DIVIS ON
WORKING-STOROGE SECTI ON
Copy CAuMIS.
oI
RESOLTH PIC q CG)
O RES OLTEDITI PIC
zzzzz9.
PROCEDORE DIVISION
MovE LOW-VAWES To CAUMIO
movE - To NUmIL

PERFORm loo-PARA
00-PARA .

EXEC cIs sEND

mAP CCAUM ')

mA PSET C'cAumis')
TROM CcAUM1O)
END EXxEC.
EXec ccs RECEVE
mepC'ceumt)
mAPSETC CAUmis)
INTO CceLImII)
END-EXEC
PERFORM 200-PARA:
30aPeRA
IF OPERI =
+)OR oR * OR
CONTINUvE
EISE
-MOVE "ENTER vAUD gPERATOR TO msGo

movE TO OPER
PERFORm 1o0 -PARA
END-IF
EVADATE OPERT

HEN+
RESOITH NOMII t NOm 2T
COMPUTE
MovE RESULTH To RESULTEDIT I
EDIT
movE AESULT HA TO RES ULTO

NHEN

comPUT6 RESOLT H= NOMI NOM 2

MoVERESULTH To RESULTO

HHEN
comPOTE RESULTH = NvmI ¥N OM2

MoVE RESOLT H TO RESULTO

 WHEN
CompUTE RESOLTH= NUmi/NUm
move RESOLT7H TO RESUL TO

END-EvALUATE
PERFORm 1oo-P ARA.
VTmp
ACTL L LINk

XCTL
i s used to pass the contaol faom one progam
to the
ptogsiamand the conlio doesnt Aetubh.
Syntax
ExEC CIcs
XCTL PROGRAM CPROGRAm NAME)
ENO-ExEC

Ea ATm machine eers

UNK
T s use to
pass the Conrol From One perogaam
+o othe pogicm ahd t c a n sieBuas
back.
Suntar
EXEG
Clcs
UNk PROG,RAMPROGRAn NAME
ENO-ExEC.

T s P F Panel
 DFHAID
fs a System dePmed Copybook, cohfch descatbes keys
infomodfon Cfuncifona keys)
Sndar

NORKING-STORAGGE SECTION
COPY DFHAID.

o1 ElBA1D
05 DFHENTER PIC x (4+),
05 DFHNOLL PIG XC4
05 DFH PFI
PIC XC4)
05 DFH PF2
PIc XCH
05 DH PF3 PIc XC4)

Screen erea h e

CH wrll check the entfoe

UFHCOMMAREA-
data ost not).

DFHComm AREA is a Communicadon Aprea bettoeen

tuoo tasks.
POams Co)
DEH comm AREA Ts declased undea lnkage Section

LINKAG E SECTION dala

the
to pass
DFHCOMmAREA PIc xCiooo) n tmoae a n 31C*

o1 TEou
wBil ueu
Acn we

Max fs 39,t6+
EBCALENSH I6 on ienicable tn oFHcoYmAeER Conce

The Macmum length of DFHCOM mAREA s 3216t

> (ExEC Tnterface Block communfcation Asea EI BCALENN

Vaaable to knoo ohelhea the use e t e d
tfs a
data od o1 on the Scoeen
I A rs used fo
Count the numbe of chosactesis ohteh
enteaed on the Scoeen,
s
I f EIBCALEN =0
uge does not ehBea the data, elge usea e n t e
+he data

Note
t h e DFHCOmm AR EA fs hof
declasted then Syskem takes
1Byte oP DFHCommAREA
b default
o1 DF HCOmmAREA PIC xC)
VImPy T
Ceach Vaiiabe wfs e doda entemeJ on
MDTCModtfed Data Tag) ).
mot r uotI checkj

T s a Aag bît to knoco whethes the usea entexed tha

Data Ot not
TE MOT=0 , the usen does not ertestecl the
Data
due to Fba bitSet as o ith ERSET

IF MDI = I , the use enteed the Data on +he

Sceen and Flag b?t Set as 1 [Link]. FsET

Nomi
o1 NUm1 Pic q(3) NM2
NUmILL OPER
Flag
bt NDICTOR
NUmiD ONloFF
P
PSUÐO ConveSattorn lechnfg ue
Sendma the dada Prom one Scaeen to anothe
Cmessoge)
Scaeen Called Co«) Sending he message Rom

On
Dne paoqam
to ohea Paioptcam s Called psudo corve
technique
In psudo Conveagaton Tec nue yill
the CPO
use RETUR
to tes1mfnate Uttltz ahc).
KETORN 1S haeases the pesrfosmance and cbses the

paeviouS SCeens once i+ Ts moving to highea leve

Scaeen
CoBoL CoBRL COBol.

SCYeen SCREEN SCREEN

EXEC CicS
RETURNA
END-Extc

FRSET ojeseBs all the Vaues , no Values a e

Befoxe SCaeen is coming t
Coming on
Scren
feT 1f ihe data fo entened t selhevalue

NOR Nomal dispay to entea he Chanec

as numbeawne, to?ll not alloo
PIN paCsented
wil oalloos to CnteR eny numbea

FRSET
FSET
cics
DATeFRom.

CORREN7 EXEC cICS

gndcs
A s k DATE

ASK T I m E

doRRENT OATemME
oBoL
DAtE
FRom
ACCEPT ls-
TmE
FRom
ACCEPT s-B
 MAP-

CALCU LATOR MAIN MENU

A ADD

S-SOBTRACT

M-MULTI PLY
D-DIVIDE
ENTER cHOI CE
F3: EXIT ANYKEY CONTINUE

mAP2 meP-3

6UBTRACT SCREEN
ADD SCREEN

ENTER NUM1: ENTER NOM1

ENTER NUM2: ENTER NUM2

RESULT:
RESULT :

B:PREV ANYter CoNTAdUE

F3:PREV ANYKEY:CONTINDE

=SYSPARMMODE=INO0T)
LANG=coBoL, y
CAmIMIS DFHMSO TYPE
TOAPEX = YES
CTRL CEREEK B, FRSET),

CAmim OFHMDI
SIZE =
(24,80), LUNE=I, COLOMN =1,JOSTIFY= LEFT

DFHMDF
Pos-(5,3), LENGTH=20 , ATTRB CASkR BRTD, x
INITIAL 'CAWLATOR MAIN MENU

DFHMDF POS-(08,3), LENGTH=IO, ATTRB =(ASskP ND RM),

INITIAL- 'A- ADD

DFH MDF poS -C093D, LENGTH=10, ATTR- (AskIP,NORM)

INITIAL- S-s0BTRACT

DFHMPF PoS (10,30, LENGTH=10, ATTRB=(ASkIP,NoRM,|

TNIAL M MULTIPLY
 DFHMDF Pos- C1),31), LE NaTH =10, ATTR8 (ASKIR NORM), X
INITJAL- 'ENT8R CHOICE
D-DNIDE

DF HMDF Pos-(I,24), LENGTH 13, ATt RB=CASKIR NORm),

INITIAL 'ENTER CHOIcES

HOICE
DEH MDE POS (l4, 41) LENGTH=O1, ATTRB-CteONPROT,5RT, FSET)

DFHMDE Pas- (14,4), AENG T=Ol, AT rRB- CASkIP, AlORM)

MS DFHMDE Pas= C14,16), LENGTH=40, ATTPB-CAsP, NORM)

MS

DFH MD. PaS= CI8,30, LENGTH 30, T TRE= CASkI P), x

TNITIAL 'FBEXIT ANY KEY: CONTINUE

DFHMSD TyPE ANAL
END
mAP-2

CAM2MIs DFtMSD TYPE -SySPARM MODE= INOUT, TIOA FEX=YES, X

CTRLCFREEKB,FSET),LANG-cOBOL,
mAPAT TS= COLOR

DFHMDI SIZE-C4,80), LINE=1icoLUMN= JUSTIFY = EFT

CAmam

Pos C5,30), LENGTH,ATTRB-CASkIP BRT), X

DFHMDF
TNITIAL 'AOD SCREBN )

CAs1P)nlORM, X
DFHMDF POS C&9t), LENGTH: II, ArTRB-

TNITIAL ENTER NmP

DFH MDF Pos CE 31), LENGTH=3, ATTRB(Te,UNARDTNOM,8RJFSEX

NoMi
PCIN: '999
DFHMDF Pbs C8 43), LENGTH 7bI ,
AIIRB = (nSkIP) NoRM
 DFH MDF POS= (0Ta7) LENGTH=1), ATTRB -CASKIP,NORM), X

TNITIAL 'ENTER NOM2

NOM2 DFHMDF pos-(O)3),ENGTH 3, ATTRB=(UNPROT, NOM,EBR, FSED, y

PiCIN I999
DFHMDF POSC43), LENGTH=I, ATTRB=CASHPSNOE

ATTR =CAskIPNORM), X
DFHMDF Pos-(113), LEN6TH =07,
TNITIAL- 'RESULT

RESULT DFH MDF POS= (W,3), LENGTH =4, ATTRB-CAS KIP;NORM)

picoutg919

MS6 DFHMDE POs=C13, 24), LENGTH =40,ATTRB-CASKP BRT)

LENGTH 30,
ATTRB-CASEIPBRT) X
DFHMDF PDs =
(i5,24),
INITIAL'FB: PRE ANY KEY CoNTIAJDE'
DFH MSD TYPE= FINAL
END

mP-3 Sarne as map

CAases

CHmiP Pao7tam
TDENTIACATION DVISION.

PROGRAmID CAmP.
DATA DrvisioN.
NORK ING-STORAGE SECTONN

COPY:
CAmim!5
CoPy DFHAID,

PRocEDUR E DIVSION.

m b v E LOo VALOES to, CAMmI

move-l TO cHOICEL

PeRFORMi0b-PARA
00-PARA
EXE C CICS sEND
MAP CICcAmImI)
mAPSET C'cemim1s')
FROM CcAmImlo )
ERASE
END-EXEC
EXEC cics RECEIVE
mAPC'cAmIm
mAPSETC'CAmImls')
TNTO CCamlm:T)
END-EXEC,
PERFORM 200-PARA
200- PARA
TP EIBAID DFHPF3
CIcs SEND CONTROL
EXEC
ERASE FREEKB k
END-ExEC
A
E ND-TF
EVALVATE CHOICET

HEN A'
EXEC acs
XCTL PROGRAMC'cAmP)

END-EXEc
HEN 's'
EXEC clcs

XCTL PROGRAM ('cAm3P

END-EXE C

HEN M
Extc Cics
XCTL PROGRAMC'CAmLP )
END ExEC
HHEN D
EXEC cics

xCTL PROGRAM ("ComsP')

END- EXEC
 hWHEN OTHER
To MSGD
CHOICE
MOVE tENTERvALID

PERFORm 00-PARA
END-EVALUATE

CAM2P

LDENNHCATION DIVISI ON
PROGRAm-JO. CAm2P

OATA DIVISION
NORKING STORAGE SECTION

COPY cAMamlS
COPY DFHAI D.

O RESOLTH PIC S9C6) V9a)

OOwS-RESOLTEDITI PIC zzz?."
PROEDURE DIVISION
mOVE Low-vALUES TO CAm2miO

MOVE-I TO NOmIL
pERFORM 00-PARA
Oo-PARA.

EXEC cIcs SEND

mAP C CAmmmI')

mAPSETC 'CAMmis')
FROM CCAmLmIo
ERASE
END-ExEC.
ExEC Cics RECEIVE
mAPC'CAmzm)

mAPsET CAm2m 1S )

TNTOCCAmmII)

END-EXEC

PERFORM 200- PARA

200-PaRA
= PFHPF3'
TF EIBAID
 ExEC CICS
XCTL PROGRAM C'cemtP')
END-EXEC,
END-IE
NUM2T.
RESOLTH= NUM1T +
COMPUTE

MoVE RESULTH TO S -RESULT EDIT 1

MOVE WS-RESULTEDIT1 TO RESOLTO

MOve . To. Nm IL
PERFORM 100-PARA.

as above foA cam3p, cAmyP and also foa Am5p

Same
 XcePTION HANDUNG
t fs an enON 3ovfng mechanfsm and "Sending
he est1O
descaiption înto the Scaeen
Usen Ex ception
2 System Excepion by usTog RESP
1Use Exception
hese the
Exceptions handlet by the Useq b
ase

Conveveing coa) Conveating Erro codes to Usea

Ondestable me ssages
nso fficient Balance
TnValid Pîn.
Recoad not found
Alread exisied the Data
m0 DB22Rec HoST VARIABLES DeuEN

PSTN0
STNAmE
OURSE
XEC SQL EMAiL

INSERT INTO STU DENT VALVE (:STNO, NA ME ,. -

EVALWATE SQLcoDE
HEN O

MOvE Data fnseated' to MSGO

WHEN - 803

MoVE Duplicate REcoRD To MsGO

System xcept ton S sia REsP

fs
EIBRESP a
SyS tem deffned ex ceptfon Handlmg
Vaatable to Valtdate System esist

e qM A P FAIL

NOT OPENED
TRANSID ERROR
 EvALUATE S-RESP- CODE
WHE DEHRESPCNORMAL)
.
CONTINUE
NHEN OFHRESPCMAPFAIL)
To MESSAGEO
MOVEFIL STUDENT DETAILS
PERFORM 900 SEND-MAPI
JHEN O THER
RESPCODE:
MOVE RECEIVE mAP D B22MIs 1S FAlED AlITH

TO NS-ERR-MSG
To WS-ERR- C0DE
MOVE WS-RESP-CODE
MOvE WS-ERR To MESSAGEC
PERFORM 00- SEND-mAP1
ENO-EVAWATE

Multtask îng
p1OgIams o tasks Simultane ously
recufing Multfple
Is called Multrta sking
code ét lood)
e ATr
w e
Same'
use
(1time wfl

MulH Thaeadfng
and

Multfple paogHams Smultaneous oith Same

Exe cutna
COPys of hoad Medules
is a Subfect of MoHr Thte ading
Mulitaskn

to fnitrate o execute CICS coBOL pMOgHam

tow
B y usmg TRANS ic
By 'usna Psudo Con ven Saion tethniquc
us ng XCTL andLink .
nhaHon)
ATI (Automatc ransa ctfon
By usfna
 COmmANDS IN CICS

EOA CCIce EXECUION DYNAMIC_ALLOCATION)

în stall he Maps, Mapsets

T i s usal to deffme ancl

paoaam tvansID etc.

the OiCS Regio.
CEDA
tenfea

CEDA DEF MAPSETCMAPSETNAME) GCGIRPNJAME)

CommAND TNTERPRETER)
CECL CCICS EXECUTIO
corthout COBOL
is used to execute the Map
CECT

paxogam
MAPSET(MAPSETNRME),
CECT sEND MAP MAPNAME)

ExECUTION M ASTER TERMINAL)

CEMTCCICS =

Batch
to the Load Modules forom
I+ fs .used Copy
to onlfne

PROGRAM CPROGRAM NAME) NENCOPY

CEMT DSNNamE

>New Copg load Medule corh New

4Ove1ides the exYstina
module
on
transackon Td's
know the no-of
u s e d +0
I t fs
One ps109Aanm

PROGRAM CPROG RAM NAmE

INQUIRE TRAAIS
CEMT

SIGN ON)
XECUTION
CESNCCics
CSF CCICs Exccuhion Sign oFF)

Amd codes in CIcs

APCT

2, AVIE

3, ASRA

6ueues n Cics
IF fe a standastd aecOmd stuctuae Of the fie

DEHCOMmArEA Ts uSed to pass 3k, f you uoant fo

Pass mOae than 32k oTl use Queues

Thee aae too tgpes of Queues

bTSQ CTempoaaay Stoaaqe Q u e u e ) i e n nbe)
s oTh em

2 TD CTeans ft Data Queue) wilhod umja

TSQ TDQ
Access fng hWhout
Access ed by usina
ten Nombea ftem Nonbea.

Accessfng Sequentiall, a Only Sequeniallt

Rendomly and
Dr namically
is Stoned n OCT
3, TD
T s Stomed fo Table. CDestfnatTon Contaol
TST Tabe.
table)
CTemponaay Sloraqe PA09 man Ouee
Hable) Queue temno

omp
Ics