EMPLOYMENT SECURITY DEPARTMENT

1
EMPLOYMENT SECURITY DEPARTMENT

• CICS RPC Server
• Muthu Ganesh
• 4/20/2006

2

WHY CICS RPC Server?

• E-Business Strategy
• Web Enabling
• Transform CICS into Powerful App Server

3
Why CICS RPC Server for ESD?

• Connectivity to SSA (Social Security
  Administration)
• TCP/IP or Existing Connection via ICON Hub
• Use Existing Connection
• Known technology
• No change to other production applications

4
Our Environment
5
Entirex Cobol IDL Generator
6
Linkage Section Conversion
7
Generated IDL
8
.Net Logon Code

• Private Shared Function LogonEntireX(ByRef
  AMIbroker As Broker, ByRef AMIEntirex As CICSSSA,
  ByRef errID As Integer, Optional ByRef ErrCd As
  String "", Optional ByRef ErrMsg As String
  "") As CICSSSA
• Try
• Dim ETXService As Service
• AMIbroker New Broker(SSABrokerID,
  SSABrokerUID)
• AMIbroker.Logon(EtxBrokerPSWD)
• ETXService New Service(AMIbroker,
  "RPC/" SSAServerName "/CALLNAT")
• AMIEntirex New CICSSSA(ETXService)
• Return AMIEntirex
• Catch exc As SoftwareAG.EntireX.NETWrapper
  .Runtime.XException
• '' brkID" EtxBrokerID "brkUID"
  EtxBrokerUID "brkPSWD" EtxBrokerPSWD
• errID AMIIC.AMICommon.ErrorRoutine.L
  ogError(exc, ErrEmail, , "Entirex.LogonEntireX(2)"
  , , ErrSrce)
• If CheckEntirexError(exc, Err, ErrCd,
  ErrMsg) 0 Then
• errID 0
• End If
• Return Nothing
• Catch exc As Exception
• errID AMIIC.AMICommon.ErrorRoutine.L
  ogError(exc, ErrEmail, , "Entirex.LogonEntireX(2)"
  , , ErrSrce)
• ErrCd Err.Number.ToString
• ErrMsg exc.Message

9
.Net Code Send Receive

• Public Shared Function SendToSSA(ByVal ClaimantID
  As Integer, ByVal UserName As String, ByRef ErrCd
  As String, ByRef ErrMsg As String) As Integer
• Dim AMIbroker As Broker
• Dim errID As Integer -1
• Try
• Dim AMIEntirex As CICSSSA
• LogonEntireX(AMIbroker, AMIEntirex,
  errID, ErrCd, ErrMsg)
• If errID gt -1 Then
• Return errID
• End If
• Dim oSSASend As New
  SoftwareAG.EntireX.NETWrapper.Generated.etxCICSSSA
  .Groups.C540UIQS.GUWLUIQS_LINKAGE
• AMIEntirex.C540UIQS(oSSASend)
• Return errID
• Catch exc As SoftwareAG.EntireX.NETWrapper
  .Runtime.XException
• errID AMIIC.AMICommon.ErrorRoutine.L
  ogError(exc, ErrEmail, CStr(ClaimantID),
  "Entirex.SendToSSA", , ErrSrce)
• If CheckEntirexError(exc, Err, ErrCd,
  ErrMsg) 0 Then
• ErrMsg "SSA Crossmatch Broker
  Down"
• Return AMIIC.AMICommon.ErrorRoutin
  e.LogError(ErrMsg, ErrMsg, ErrEmail,
  CStr(ClaimantID), "Entirex.SendToSSA", , ErrSrce)
• End If
• Return errID

10
.Net Log Off Code

• Private Shared Sub LogoffEntireX(ByRef AMIbroker
  As Broker)
• Try
• If IsNothing(AMIbroker) Then
• Exit Sub
• End If
• AMIbroker.Logoff()
• AMIbroker Nothing
• Catch
• End Try
• End Sub

11
COBOL Linkage Return

• ------------------- LINKAGE SECTION ---
• LINKAGE SECTION.
• 01 DFHCOMMAREA.
• COPY GUWLUIQS.
• COPY CICSTWA.
• - - - - - - - - - - PROCEDURE DIVISION
• PROCEDURE DIVISION USING DFHCOMMAREA.
• PROC0000-C540UIQS-MAIN.

12
Challenges

• Establishing Security
• Auditors requirement
• Billing
• New technology

13
IC GUI DEMO
14
IC GUI DEMO
15
IC GUI DEMO
16
Questions?