Loading...
Select Version
*********************************************************************
*** K D C D E F - S T A T E M E N T S ***
*** FOR UTM-D-PROGRAM "RMS" ***
*********************************************************************
ROOT RMSROOT
OPTION GEN=ALL
ACCOUNT ACC = YES
FORMSYS
MESSAGE MODULE = KCSMSGS, LOCALE=(EN)
MESSAGE MODULE = MSGSGER, LOCALE=(DE, EU)
MESSAGE MODULE = MSGSFRA, LOCALE=(FR, EU)
MAX LOCALE = (EN)
MAX KDCFILE = (RMS, DOUBLE) -
,APPLINAME = APRMS -
,APPLIMODE = S -
,TASKS = 10 -
,ASYNTASKS = 3 -
,GSSBS = 200 -
,PGPOOL = 2048 -
,CACHESIZE = (512,50,RES) -
,CONN-USERS = 50 -
,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'
*********************************************************
*** RESERVE statement to allow dynamic administration ***
*********************************************************
RESERVE OBJECT=ALL
*********************************************************
*** DATABASE CONTROL statements ***
*********************************************************
DATABASE TYPE=UDS
DATABASE TYPE=XA, ENTRY=XAOSWD
*
***********************************************
*** SFUNC CONTROL statements ***
***********************************************
SFUNC F1 , TAC = INITRESP
SFUNC F2 , TAC = SHUTRESP
SFUNC F5 , TAC = ENQRRESP
SFUNC F6 , TAC = AUTHRESP
SFUNC F7 , TAC = RESRRESP
SFUNC F8 , TAC = AVALRESP
SFUNC F20, TAC = CNCLRESP
***********************************************
*** KSET statements ***
***********************************************
KSET MASTER , KEYS=MASTER "SUPERUSER"
KSET UTMADMIN, KEYS=1 "Administrator of application"
KSET OPRSNNL , KEYS=2 "office personnel / Büropersonal"
KSET MPRSNNL , KEYS=3 "personnel manager / Personalchef"
KSET CPRSNNL , KEYS=4 "computer personnel / DV-Mitarbeiter"
KSET OFFCHRG , KEYS=5 "official in charge / Sachbearbeiter"
KSET OFFADMIN, KEYS=6 "administrator of office data"
KSET BOOKKEEP, KEYS=7 "book keeper"
KSET TRVAGNCY, KEYS=8 "travel agencies"
***********************************************
*** LOAD-MODULE statements ***
***********************************************
LOAD-MODULE BOOKKEEP, VERSION=@, LIB=DYNPROGLIB, LOAD-MODE=STARTUP
LOAD-MODULE PERSNNL , VERSION=@, LIB=DYNPROGLIB, LOAD-MODE=STARTUP
LOAD-MODULE RMS , VERSION=@, LIB=DYNPROGLIB, LOAD-MODE=STARTUP
LOAD-MODULE OFFICE , VERSION=@, LIB=DYNPROGLIB, LOAD-MODE=STARTUP
***********************************************
*** EXIT statements ***
***********************************************
EXIT PROGRAM=HNDLEXIT, USAGE=START
EXIT PROGRAM=HNDLEXIT, USAGE=SHUT
**********************************************************
*** Read data which could be administered dynamically ***
**********************************************************
* use create-control-statements if application ran before
* CREATE-CONTROL-STATEMENTS *ALL, TO-FILE = DYNAMIC.RMS.DATA -
* , FROM-FILE = COPIED.RMS.KDCA
OPTION DATA=DYNAMIC.RMS
*
***********************************************
*** TACCLASS statements ***
***********************************************
* not used
***********************************************
*** TLS statements ***
***********************************************
TLS TLSA
***********************************************
*** ULS statements ***
***********************************************
ULS ULSA
ULS ULSB
***********************************************
*** TPOOL statements ***
***********************************************
TPOOL LTERM=TP#, NUMBER=100, PRONAM=*ANY, PTYPE=*ANY, KSET=MASTER
TPOOL LTERM=UPICR, NUMBER=100, PRONAM=*ANY, PTYPE=UPIC-R, KSET=MASTER
***********************************************
*** UTMD statements ***
***********************************************
UTMD MAXJR = 200, APT=(1,2,3,10), CONCTIME=25, PTCTIME=0
***********************************************
*** 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 ***
*******************************************************************
*+-------------------------------------------------------------------+
*| T R A V E L - Connections |
*+-------------------------------------------------------------------+
ACCESS-POINT RMS, T-SEL=C'RMS', S-SEL=('SRMS',ASCII) -
, P-SEL=('PRMS',ASCII), AEQ=1
*
* travel-agency MUNICH <========> RMS
OSI-CON MUNICH, LOCAL-ACCESS-POINT=RMS, OSI-LPAP=MUNICH -
, N-SEL=C'HOST0001', T-SEL=C'TRAV', S-SEL=(C'STRV',ASCII) -
, P-SEL= (C'PTRV',ASCII)
*
* travel-agency PARIS <========> RMS
OSI-CON PARIS , LOCAL-ACCESS-POINT=RMS, OSI-LPAP=PARIS -
, N-SEL=C'ISO09', T-SEL=C'TRAV', S-SEL=(C'STRV',ASCII) -
, P-SEL=(C'PTRV',ASCII)
*
* travel-agency NEWYORK <========> RMS
OSI-CON NEWYORK, LOCAL-ACCESS-POINT=RMS, OSI-LPAP=NEWYORK -
, N-SEL=C'ISO10', T-SEL=C'TRAV', S-SEL=('2',ASCII) -
, P-SEL=('2',ASCII)
*
* travel-agency LONDON <========> RMS
OSI-CON LONDON , LOCAL-ACCESS-POINT=RMS, OSI-LPAP=LONDON -
, N-SEL=C'ISO06', T-SEL=C'TRAV', S-SEL=('2',ASCII) -
, P-SEL=('2',ASCII)
*
OSI-LPAP MUNICH , ASS-NAMES=MUNICH, ASSOCIATIONS=4, CONNECT=0 -
, CONTWIN=0, APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,21),AEQ=1, KSET=TRVAGNCY
OSI-LPAP PARIS , ASS-NAMES=PARIS, ASSOCIATIONS=4, CONNECT=0 -
, CONTWIN=0, APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,22), AEQ=1, KSET=TRVAGNCY
OSI-LPAP NEWYORK, ASS-NAMES=NEWYORK, ASSOCIATIONS=1, CONNECT=0 -
, CONTWIN=0, APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,23), AEQ=1, KSET=TRVAGNCY
OSI-LPAP LONDON , ASS-NAMES=LONDON, ASSOCIATIONS=1, CONNECT=0 -
, CONTWIN=0, APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,24), AEQ=1, KSET=TRVAGNCY
*
*+-------------------------------------------------------------------+
*| From RMS to all servers |
*+-------------------------------------------------------------------+
* RMS <========> Server
*
OSI-LPAP BANK , ASS-NAMES=BANK, ASSOCIATIONS=4, CONNECT=4 -
, CONTWIN=4, APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,30), AEQ=1
OSI-LPAP GOLF , ASS-NAMES=GOLF, ASSOCIATIONS=4, CONNECT=4 -
, CONTWIN=4, APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,30), AEQ=2
OSI-LPAP HOTEL , ASS-NAMES=HOTEL, ASSOCIATIONS=4, CONNECT=4 -
, CONTWIN=4, APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,30), AEQ=3
OSI-LPAP AIRLINE, ASS-NAMES=FLIGHT, ASSOCIATIONS=4, CONNECT=4 -
, CONTWIN=4,APPLICATION-CONTEXT=EUOSICCR -
, APT=(1,2,3,30), AEQ=4
*
LTAC BANK, LPAP=BANK, RTAC=BANK, STATUS=ON, TYPE=D
*
OSI-CON BANK , LOCAL-ACCESS-POINT=RMS, OSI-LPAP=BANK -
, N-SEL=C'HOST0001', T-SEL=C'BANK', S-SEL=('SBNK',ASCII) -
, P-SEL=(C'PBNK',ASCII)
OSI-CON GOLF , LOCAL-ACCESS-POINT=RMS, OSI-LPAP=GOLF -
, N-SEL=C'HOST0001', T-SEL=C'GOLF', S-SEL=('SGLF',ASCII) -
, P-SEL=('PGLF',ASCII)
OSI-CON HOTEL , LOCAL-ACCESS-POINT=RMS, OSI-LPAP=HOTEL -
, N-SEL=C'HOST0001', T-SEL = C'HOTL' -
, S-SEL = ('SHTL',ASCII), P-SEL = ('PHTL',ASCII)
OSI-CON AIRLINE, LOCAL-ACCESS-POINT=RMS, OSI-LPAP=AIRLINE -
, N-SEL=C'HOST0001', T-SEL = C'FLGH' -
, S-SEL=('SFLG',ASCII), P-SEL=('PFLG',ASCII)
END