This section contains sample CICS definitions. You are recommended to define CICS connections, sessions, and profiles using RDO. In the following examples, the RDO group name is COMGRP and the LU names are SWSVLU01 (send) and SWSVLU02 (receive).
Figure 31. Sample CICS Connection Definition
OBJECT CHARACTERISTICS CEDA View Connection : SWC1 == connection name, Group : COMGRP see panel EQZMI02 CONNECTION IDENTIFIERS Netname : SWSVLU01 == SwitchServer/2 LU INDsys : CONNECTION PROPERTIES ACcessmethod : Vtam Protocol : Appc SInglesess : Yes Datastream : User Recordformat : U OPERATIONAL PROPERTIES AUtoconnect : All INService : Yes SECURITY SEcurityname : ATtachsec : Local Bindpassword : |
Figure 32 shows a CICS sessions definition. You need one sessions definition for each connection definition.
Figure 32. Sample CICS Sessions Definition
OBJECT CHARACTERISTICS CEDA View Sessions : SESSIONS Group : COMGRP SESSION IDENTIFIERS Connection : SWC1 == connection name SESSName : NETnameq : MOdename : LU62 == VTAM mode name SESSION PROPERTIES Protocol : Appc MAximum : 00001 , 00001 == bind winner RECEIVEPfx : RECEIVECount : No SENDPfx : SENDCount : No SENDSize : 00256 RECEIVESize : 00256 OPERATOR DEFAULTS OPERId : OPERPriority : 000 OPERRsl : 0 OPERSecurity : 1 USERId : SESSION USAGES Transaction : SESSPriority : 000 OPERATIONAL PROPERTIES Autoconnect : All == acquire on CICS INservice : start. Buildchain : Yes USERArealen : 000 IOarealen : 00000 , 00000 RELreq : No Discreq : No NEPclass : 000 RECOVERY RECOVOption : Sysdefault RECOVNotify : None |
Figure 33. Sample CICS Profile Definition
OBJECT CHARACTERISTICS CEDA View == profile name, PROFile : EQZ2REQH see panel ID EQZMI02 Group : COMGRP Scrnsize : Default MOdename : LU62 == VTAM mode PRIntercomp : No JOURNALLING Journal : No MSGJrnl : No PROTECTION MSGInteg : No Onewte : No PROtect : No PROTOCOLS Dvsuprt : Vtam Inbfmh : No RAq : No Logrec : No RECOVERY Nepclass : 000 RTimout : 0100 == timeout, 1 minute. |
Note: You must set the timeout parameter (RTimout) on the profile to 0100 (one minute).
This section contains sample VTAM and NCP definitions.
Note: The definitions supplied here are examples only. Use them as a guide for setting up your own definitions, with the help of your systems programmer.
Figure 34 shows an example of a VTAM entry for a CICS LU.
Figure 34. Sample VTAM Entry for a CICS LU
VBUILD TYPE=APPL
*
VICPRIME APPL ACBNAME=CICSVP, * Define Resource Name *
AUTH=(VPACE,ACQ,PASS), * Paced, Acquires,CLSDST PASS*
DLOGMOD=LU62, * == VTAM mode *
EAS=50, * Expect 50 Sessions *
MODETAB=USERMTAB, * == mode table *
PARSESS=YES, * Allow Parallel Sessions *
VPACING=5 * Max. Outstanding Requests *
|
Figure 35 shows an example of a VTAM mode table.
Figure 35. Sample VTAM Mode Table
USERMTAB TITLE '-- USER DEFINED LOGON MODE TABLE '
USERMTAB MODETAB
***********************************************************************
* *
* : LOGMODE TABLE ENTRIES FOR COMMSERVER/2, *
* USED FOR TOKEN RING, SDLC AND X.25 *
* *
***********************************************************************
LU62 MODEENT LOGMODE=LU62, SINGLE SESSION
TYPE=0, NEGOTIABLE BIND
FMPROF=X'13',
TSPROF=X'07',
PRIPROT=X'B0',
COMPROT=X'50B1',
SSNDPAC=X'00',
SRCVPAC=X'00',
RUSIZES=X'8585', 256,256
PSNDPAC=X'00',
PSERVIC=X'060200000000000000002C00'
*
MODEEND
END
|
Figure 36 shows example PU-LU definitions for a SwitchServer/2 token-ring connection.
Figure 36. Sample PU-LU VTAM Definitions for Token-Ring
***********************************************************************
* CALLPATH PROJECT (SPAN NAME = TACF ) *
* ----------- *
* VBUILD FOR NTRI SWITCHED DEFINITIONS FOR PHYSICAL *
***********************************************************************
*
AY2DCPS VBUILD TYPE=SWNET,
MAXGRP=4, # of PATH groups
MAXNO=4 # of unique phone numbers
*
***********************************************************************
* SWITCHSERVER/2 PS/2 *
***********************************************************************
*
*----------------- PHYSICAL UNIT DEFINITION --------------------------
SWITSER1 PU ADDR=C1, NOT USED
IDBLK=05D, COMMSERVER/2
IDNUM=A2001, DEVICE IDENTIFIER
DISCNT=NO, Don't deact PU at END
PUTYPE=2, PU TYPE 2.0
ISTATUS=ACTIVE, ACTIVATE
MAXDATA=265, Max PIU Size PU can receive
MAXOUT=7, Max PIU before ack
MAXPATH=1,
MODETAB=USERMTAB, USER MODETAB
SPAN=TACF,
SSCPFM=USSSCS, use character coded RUs
VPACING=0
*
PATH DIALNO=0104400002130001,
GRPNM=AY1GTRL1,
PID=1,
GID=1
*
*----------------- LOGICAL UNIT DEFINITION ---------------------------
SWSVLU01 LU LOCADDR=0, INDEPENDENT LU6.2
DLOGMOD=LU62, Single Session
MODETAB=USERMTAB, USER MODETAB
SPAN=TACF
SWSVLU02 LU LOCADDR=0, INDEPENDENT LU6.2
DLOGMOD=LU62, Single Session
MODETAB=USERMTAB, USER MODETAB
SPAN=TACF
*
|
Figure 37 shows example PU-LU definitions for a SwitchServer/2 network packed switching interface (NPSI) X.25 connection.
Figure 37. Sample PU-LU Definitions for NPSI X.25
**********************************************************************
* X.25 definition for SwitchServer/2 *
* *
**********************************************************************
X25.NET CPHINDX=1,DM=YES
*
X25.VCCPT INDEX=1, ON DCE/DTE LINKS TO IMPROVE THRUPUT
MAXPKTL=128, MAX. PACKET SIZE = 128
VWINDOW=7, MAX. WINDOW SIZE = 7
INSLOW=(100,50)
*
***********************************************************************
* CallPath project
* ----------------
* CASUAL CONNECTION PRIMARY
***********************************************************************
X25.MCH ADDRESS=020, CONTROLLER LINE ADDRESS
ANS=CONT,
CONNECT=NO, NO FAST CONNECT
DIRECT=NO, modem attach
DBIT=NO, packet received confirm - (non sna)
DSABLTO=3,
ENABLTO=3,
FRMLGTH=131, 128 + 3 modulo 8
ISTATUS=ACTIVE,
INTFAC=NO,
ITRACE=YES,
LCN0=NOTUSED,
LCGDEF=(0,8), 8 LC for LGN0
LLCLIST=(LLC2,LLC3),
MBITCHN=YES, MORE BIT CHAIN ALLOWED
MWINDOW=7, FRAME (LAYER-2) WINDOW
STATION=DCE, FOR TEST ENVIRONMENT
NPRETRY=7,
PAD=INTEG,
PKTMODL=8, PACKET MODULO
ROLE=NEG, Data link control role negotiable
NDRETRY=1,
TDTIMER=1,
TPTIMER=3,
SPAN=TACF, CPS PROJECT
SPEED=64000,
X21NTWK=1984, X.21 interface standard
X21SW=NO Not a switched x.21 interface
* STATOPT='CPS_X25_020'
*
X25.LCG LCGN=0 LOGICAL CHANNEL GROUP 0
*
AY3LX020 X25.LINE LCN=1, LOGICAL CHANNEL NUMBER
LLC=LLC3, BNN default
SPAN=TACF, CPS PROJECT
TYPE=P, PVC
VCCINDX=1 SEE X25.VCCPT DEFINITIONS
*
*------------------- Physical unit definition ------------------------
SWITSER1 X25.PU PUTYPE=2,
ADDR=01,
ANS=CONT,
ISTATUS=ACTIVE,
DATMODE=HALF,
SPAN=TACF, CPS PROJECT
VPACING=2,
XID=YES PU 2.1 LEN
* STATOPT='CPS_X25_PU '
*------------------- Logical unit definition -------------------------
SWSVLU01 X25.LU LOCADDR=0, INDEPENDENT LU6.2
DLOGMOD=LU62, Single Session
MODETAB=USERMTAB, USER MODETAB
RESSCB=4,
SPAN=TACF
SWSVLU02 X25.LU LOCADDR=0, INDEPENDENT LU6.2
DLOGMOD=LU62, Single Session
MODETAB=USERMTAB, USER MODETAB
SPAN=TACF
X25.END
|
Figure 38 shows example PU-LU definitions for a CallPath SwitchServer/2 SDLC connection.
Figure 38. Sample PU-LU definitions for NCP SDLC
***********************************************************************
* Callpath (SPAN NAME = TACF) *
* -------- *
* Line 035 SDLC attached SwitchServer/2 *
* APPN® LINK *
***********************************************************************
*
AY1L0035 LINE ADDRESS=(035,FULL), DUPLEX
ANS=CONTINUE, CONTINUE LINK SERVICE
CLOCKNG=EXT, MODEM/EXT SOURCE PROVIDES CLOCKING
DUPLEX=FULL, PERMANENT RTS
ETRATIO=30, ERROR-TO-TRANSMISSION-RATIO
HISPEED=NO, THIS LINE NOT OPERATES AT HIGH SPEED
IRETRY=NO, NOT TO REPOLL SECONDARY STATION
LUDR=YES, ABILITY TO DELETE LU FROM NETWORK
MAXPU=1, MAX NO. OF PU ASSOCIATED WITH LINK
MODULO=8, MAX NO. OF I-FRAME SENT BEFORE RESP
NRZI=YES, NOT-RETURN-TO-ZERO-INVERTED
PAUSE=(0.2,2.8), POLLING CYCLE TIME
RETRIES=(7,7,4), TRIES TO ESTABLISH SESS
SERVLIM=10, 10 SOT SCANS BEFORE SPECIAL SCAN
SPEED=9600, EXTERNAL SOURCE CLOCKING RATE
SRT=(,64), SEND RECMS AFTER 64 ERRORS
SPAN=TACF,
TRANSFR=32, NO. OF BUFFERS FOR SINGLE TRANSFER
TYPE=NCP, NETWORK CONTROL MODE
ISTATUS=ACTIVE (V) VTAM
* STATOPT='TACF-SDLC'
*
*----------------- Physical Unit definition -------------------------
SWITSER1 PU ADDR=C1, NOT USED
DISCNT=NO, Don't deact PU at END
PUDR=YES, ABILITY TO DELETE PU FROM NETWORK
PUTYPE=2, PU TYPE 2.0
ISTATUS=ACTIVE, ACTIVATE
MAXDATA=265, Max PIU Size PU can receive
MAXOUT=7, Max PIU before ack
SPAN=TACF,
SSCPFM=USSSCS, use character coded RUs
VPACING=0,
XID=YES
*
*----------------- Logical unit definitions -------------------------
SWSVLU01 LU LOCADDR=0, INDEPENDENT LU6.2
DLOGMOD=LU62, Single Session
MODETAB=USERMTAB, USER MODETAB
RESSCB=4,
SPAN=TACF
SWSVLU02 LU LOCADDR=0, INDEPENDENT LU6.2
DLOGMOD=LU62, Single Session
MODETAB=USERMTAB, USER MODETAB
SPAN=TACF
|
Notes:
Figure 39 shows example physical and logical definitions for NCP.
Figure 39. Sample NCP Token-Ring Definitions
***********************************************************************
* TOKEN RING PHYSICAL GROUP - DEFINE TIC TO 3745 *
***********************************************************************
AY1G89P1 GROUP ECLTYPE=(PHYSICAL,PERIPHERAL)
AY1L89P1 LINE ADDRESS=(1089,FULL),
ADAPTER=TIC2, 16 MBPS
LOCADD=400002130010, 3745 LAA
MAXTSL=692,
RCVBUFC=1440,
PORTADD=1
* STATOPT='TR_1089 '
AY1C89P1 PU TIC PU
AY1T89P1 LU ISTATUS=INACTIVE make inactive to avoid error msg
*
*
*
***********************************************************************
* TOKEN RING LOGICAL GROUP - FOR LINE 1089 *
***********************************************************************
AY1GTRL1 GROUP ECLTYPE=(LOGICAL,PERIPHERAL),
AUTOGEN=20,
CALL=INOUT,
DIAL=YES,
PHYPORT=1 DEFINES PHY PORT FOR THE LINE GRP
*
*
|
