Loading...
Select Version
*********************************************************************
*** K D C D E F - S T A T E M E N T S ***
*** FOR UTM-PROGRAM "TRAVEL" ***
*********************************************************************
ROOT TRAVROOT
OPTION GEN=ALL
FORMSYS
MESSAGE MODULE = KCSMSGS
MAX KDCFILE = (TRAVFILE, DOUBLE) -
,APPLINAME = APTRAVEL -
,APPLIMODE = S -
,TASKS = 7 -
,ASYNTASKS = 3 -
,GSSBS = 200 -
,PGPOOL = (2048) -
,CACHESIZE = (512,50) -
,CONN-USERS = 50 -
,TRACEREC = 30000 -
,RECBUF = (10,1024) -
,KEYVALUE = 20 -
,LSSBS = 9 -
,LPUTBUF = 10 -
,LPUTLTH = 1948 -
,NRCONV = 1 -
,TERMWAIT = (600) -
,DPUTLIMIT1 = (363,0,0,0) -
,DPUTLIMIT2 = (1,0,0,0) -
,KB = 1024 -
,NB = 2048 -
,SPAB = 4096 -
,CLRCH = X'FF' -
,SEMARRAY =(00001221,5) -
,IPCSHMKEY = 00012210 -
,KAASHMKEY = 00012220 -
,CACHESHMKEY = 00012230 -
,OSISHMKEY = 00012244 -
,XAPTPSHMKEY = 00012254
********************************************************
*** Read data which can be administrated dynamically ***
********************************************************
* if application ran before use create-control-statements
* CREATE-CONTROL-STATEMENTS *ALL, TO-FILE = dynamicTravel -
* , FROM-FILE = TRAVFILE/copied.KDCA
OPTION DATA=DynamicTravel
*
*********************************************************
*** RESERVE statement to allow dynamic administration ***
*********************************************************
RESERVE OBJECT=ALL
*********************************************************
*** RMXA ***
*********************************************************
RMXA XASWITCH=xaoswd
***********************************************
*** SHARED-OBJECT statements ***
***********************************************
SHARED-OBJECT TRAVEL, LIB=DYNPROGLIB, LOAD-MODE=STARTUP
SHARED-OBJECT BANK, LIB=DYNPROGLIB, LOAD-MODE=STARTUP
***********************************************
*** KSET statements ***
***********************************************
KSET MASTER , KEYS=MASTER "SUPERUSER"
KSET UTMADMIN, KEYS=1 "Administrator of application"
KSET OFFCHRG , KEYS=5 "official in charge / Sachbearbeiter"
***********************************************
*** TPOOL statements ***
***********************************************
TPOOL LTERM=TP#, NUMBER=100, PTYPE=TTY, KSET=MASTER
TPOOL LTERM=UPICR, NUMBER=100, PTYPE=UPIC-R, KSET=MASTER
***********************************************
*** Generation of syntax ***
***********************************************
ABSTRACT-SYNTAX EUROSI, OBJECT-IDENTIFIER = (1, 3, 9990, 1, 3, 12) -
, TRANSFER-SYNTAX = BER
***********************************************
* Generation of APPLICATION CONTEXTS ***
***********************************************
*
* Without CCR
APPLICATION-CONTEXT EUROSIAC, OBJECT-IDENTIFIER = (1, 3, 9990, 1, 4, 12) -
, ABSTRACT-SYNTAX = (EUROSI)
*
* Include CCR
APPLICATION-CONTEXT EUOSICCR, OBJECT-IDENTIFIER = (1, 3, 9990, 1, 4, 13) -
, ABSTRACT-SYNTAX = (EUROSI, CCR)
*
*******************************************************************
*** OSI TP generation ***
*******************************************************************
***********************************************
*** UTMD statements ***
***********************************************
UTMD MAXJR = 200, APT=(1,2,3,21), CONCTIME=25, PTCTIME=0
*+-------------------------------------------------------------------+
*| R M S - Connections |
*+-------------------------------------------------------------------+
ACCESS-POINT TRAVEL, T-SEL=C'TRAV', S-SEL= (C'STRV',ASCII) -
, P-SEL= (C'PTRV',ASCII), AEQ=1 -
, LISTENER-PORT=30003, T-PROT=RFC1006 , TSEL-FORMAT=T
*+-------------------------------------------------------------------+
*| From travel agency to RMS |
*+-------------------------------------------------------------------+
* travel-agency <========> RMS
OSI-CON RMS , LOCAL-ACCESS-POINT=TRAVEL, OSI-LPAP=RMS,N-SEL=C'HOST0001'-
,T-SEL=C'RMS',S-SEL= (C'SRMS',ASCII), P-SEL= (C'PRMS',ASCII)-
,LISTENER-PORT=102, T-PROT=RFC1006, TSEL-FORMAT=T
OSI-LPAP RMS, ASS-NAMES=RMS, ASSOCIATIONS=4, CONNECT=0, CONTWIN=4 -
, APPLICATION-CONTEXT=EUOSICCR, APT=(1,2,3,10),AEQ=1
*
*+-------------------------------------------------------------------+
*| B A N K - Connections |
*+-------------------------------------------------------------------+
SESCHA PLUC, PLU=Y, PACCNT=0, CONNECT=Y
LPAP LPBANK, SESCHA=PLUC
BCAMAPPL SMP30041 -
,T-PROT=RFC1006 -
,LISTENER-PORT=30004,TSEL-FORMAT=T
* Connection 1 for sending ---> BANK---------------*
CON SMP30114,PRONAM=local,BCAMAPPL=SMP30041,LPAP=LPBANK -
,T-PROT=RFC1006 -
,LISTENER-PORT=30001,TSEL-FORMAT=T
LSES SMP30141,RSES=SMP30141,LPAP=LPBANK
* Connection 2 for sending ---> BANK---------------*
CON SMP30214,PRONAM=local,BCAMAPPL=SMP30041,LPAP=LPBANK -
,T-PROT=RFC1006 -
,LISTENER-PORT=30001,TSEL-FORMAT=T
LSES SMP30241,RSES=SMP30241,LPAP=LPBANK
* Connection 3 for sending ---> BANK---------------*
CON SMP30314,PRONAM=local,BCAMAPPL=SMP30041,LPAP=LPBANK -
,T-PROT=RFC1006 -
,LISTENER-PORT=30001,TSEL-FORMAT=T
LSES SMP30341,RSES=SMP30341,LPAP=LPBANK
*---------------------------------------------------------------*
* LTAC's -------> BANK
*---------------------------------------------------------------*
LTAC bank, RTAC=BANK, WAITTIME=(10,30), LPAP=LPBANK
*---------------------------------------------------------------*
* LTAC's -------> RMS
*---------------------------------------------------------------*
LTAC AVALRESP, LPAP=RMS
LTAC RESRRESP, LPAP=RMS
LTAC CNCLRESP, LPAP=RMS
LTAC AUTHRESP, LPAP=RMS
LTAC INITRESP, LPAP=RMS
LTAC SHUTRESP, LPAP=RMS
LTAC ENQRRESP, LPAP=RMS
*
END