ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C
In The Network
Horst Kinzinger
Software AG
Dieter Storr
SAG User Group Germany
Presentation from
April 1996
c:\user\ppt\ki\usergrou
-1-
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Contents
 ADABAS C On The Mainframe
 ADABAS C In The Network
 Several Problem Descriptions
 Used Software
 Problem Solutions
 Examples From The Praxis
 Data Security
 Scenario in SAG world
Note: Now, connections are possible
with NET-WORK or TCP/IP
c:\user\ppt\ki\usergrou
-2-
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ENTIRE NET-WORK and ADABAS STAR
CPU
CPU
1
2
COM-
ENTIR
ENTIR
PLETE
E NET-
E NET-
WORK
WORK
ID
ROUTER
CICS
ID
A
A
D
D
ROUTER
ADA-
A
ADA-
A
ADA-
NUC
S
NUC
S
NUC
T
DBID=
T
DBID=
DBID=
1
A
2
A
R
3
R
Datenbank
Datenbank
Datenbank
1
2
3
A
D
W
c:\user\ppt\ki\usergrou
A
D
W
A
-3-
D
W
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Entire Network and ADABAS STAR
CPU
CPU
1
2
COM-
ENTIRE
ENTIRE
PLETE
NET-
NET-
WORK
WORK
ID
ROUTER
CICS
ID
A
A
D
D
ROUTER
ADA-
A
ADA-
A
ADA-
NUC
S
NUC
S
NUC
T
DBID=2
T
DBID=3
DBID=1
A
A
R
R
Datenbank
Datenbank
Datenbank
1
2
3
A
D
W
c:\user\ppt\ki\usergrou
A
D
W
A
-4-
D
W
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
MAINFRAME
Wer hat zu mir gesagt:
„Steckerkompatibel!“
Who the hell talked about ‘plug and play’
c:\user\ppt\ki\usergrou
-5-
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C at the MF with PC access (RDA)
c:\user\ppt\ki\usergrou
-6-
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Remote Direct Access using NATURAL Lightstorm
ADABAS C
ENTIRE NET-WORK
ENTIRE NET-WORK
NATURAL lightstorm
c:\user\ppt\ki\usergrou
-7-
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C at the MF with PC access (RPC)
c:\user\ppt\ki\usergrou
-8-
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Remote Procedure Call
ADABAS C
NATURAL RPC
Server
ENTIRE Broker
ENTIRE NET-WORK
ENTIRE NET-WORK
NATURAL lightstorm
c:\user\ppt\ki\usergrou
-9-
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
1.1 NATURAL Remote-Procedure-Call (RPC)
How to create RPC program
PC Level
No
What to do
Responsible
1
Write NATURAL programm with CALLNAT 'host-pgm' on the
PC
2
Call NATURAL on the PC, LOGON SYSRPC, MENU or click
on menu,
- SERVICE-MAINTENANCE
- STUB-GENERATION
HOST Level
No
What to do
4
Create NATURAL subprogram 'host-pgm' on the host. Define
the values to pass with ‘DEFINE PARAMETER‘. DISPLAY
and WRITE statements are not permitted.
5
SYSRPC must be included into the STEPLIB chain of the
program creater.
6
Start ENTIRE ENTIRE NET-WORK
7
Start ENTIRE BROKER
c:\user\ppt\ki\usergrou
Responsible
- 10 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Details of RPC
SERVER NATURAL-Programm
'HOST-PGM'
DEFINE PARAMETER ...
RPC-SERVICE-TASKS
SERVER-STUB (SYSRPC)
bei ZDF vorhanden ??
SYSRPC ==> STEPLIB
ENTIRE BROKER
(ETB155)
ENTIRE NET-W ORK
HOST-Seite
PC-Seite
ENTIRE NET-W ORK
CLIENT STUB (SYSRPC)
- SERVICE MAINTENANCE
N
S
L
P
O D E = E T B 1 5 5
E R V E R = R P C S E R V 1
IB R A R Y = S Y S T E M
R O G R A M = H O S T -P G M
- STUB GENERATE
F e ld lä n g e n d e r P a r a m e te r
i m P r o g r a m m : H O S T -P G M
CLIENT NATURAL PROGRAM
CALLNAT 'HOST-PGM' #PARM1 #PARM2 #PARM3 ........
c:\user\ppt\ki\usergrou
- 11 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Stored Procedures & Triggers (ADABAS C 6.2)
ADABAS C
stored Procedures &
Triggers
ENTIRE NET-WORK
ENTIRE NET-WORK
NET-WORK
ENTIRE
NATURAL / 3GL
c:\user\ppt\ki\usergrou
- 12 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C on the MF and on the PC with PC access
c:\user\ppt\ki\usergrou
- 13 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C on the MF and the PC with PC access
LAN
OS/2
UNIX
WIN/NT
c:\user\ppt\ki\usergrou
- 14 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C on the MF and on the PC witht PC access
Store
ADABAS C
ENTIRE NET-WORK
Remote
Direct
Access
ENTIRE NET-WORK
ENTIRE NET-WORK
NATURAL lightstorm
NATURAL lightstorm
LAN
Read
ENTIRE NET-WORK
ENTIRE NET-WORK
NATURAL lightstorm
NATURAL lightstorm
ADABAS C
OS/2
UNIX
WIN/NT
ADABAS C
NODE=4711
c:\user\ppt\ki\usergrou
- 15 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C on the MF, download data for PC
c:\user\ppt\ki\usergrou
- 16 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
File - Transfer
ADABAS C
NATURAL
ENTIRE CONNECTION
ASCII
File
3270
ENTIRE CONNECTION Emulation
Data format
- Winword Mail Merge
- EXCEL Tables
c:\user\ppt\ki\usergrou
- 17 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C MF, SQL access from PC with RDA
ADABAS C
ENTIRE NET-WORK
ENTIRE NET-WORK
ADABAS SQL
EXPRESS
Application
c:\user\ppt\ki\usergrou
- 18 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS SQL Server
ADABAS C
ADABAS SQL Server
ENTIRE NET-WORK
ENTIRE NET-WORK
Application
c:\user\ppt\ki\usergrou
- 19 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C on the MF
Access with ESPERANT from the PC
c:\user\ppt\ki\usergrou
- 20 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Access to ADABAS C via ESPERANT
ADABAS C
ADABAS SQL Server
ENTIRE NET-WORK
ENTIRE NET-WORK
ODBC Driver
ESPERANT
c:\user\ppt\ki\usergrou
- 21 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
End-user tools for VSAM and DL/1
ADABAS C
SQL
DL/1 Bridge
VSAM Bridge Server
ENTIRE NET-WORK
ENTIRE NET-WORK
NET-WORK
ENTIRE
ODBC Driver
ESPERANT
c:\user\ppt\ki\usergrou
- 22 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ADABAS C on the PC
HOST accesses (RDA) to the PC
c:\user\ppt\ki\usergrou
- 23 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Remote Direct Access zum PC
NATURAL
ENTIRE NET-WORK
ENTIRE NET-WORK
ADABAS C
c:\user\ppt\ki\usergrou
- 24 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
RPC from MF to PC
NATURAL
ENTIRE BROKER
ENTIRE NET-WORK
ENTIRE NET-WORK
WIN NT
OS/2
UNIX
NATURAL RPC Server
ADABAS C
c:\user\ppt\ki\usergrou
- 26 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Data Replication
ADABAS C
ENTIRE
TRANSACTION
PROPAGATOR
ENTIRE NET-WORK
ENTIRE NET-WORK
ADABAS C
c:\user\ppt\ki\usergrou
- 28 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Application of DDE communication


NATURAL transfers data to EXCEL
Start NATURAL server applications via PC
macros
c:\user\ppt\ki\usergrou
- 29 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Data exchange via DDE
ADABAS C
ENTIRE NET-WORK
ENTIRE NET-WORK
NATURAL
lightstorm
DDE Interface
MS EXCEL
MS ACCESS
c:\user\ppt\ki\usergrou
- 30 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Start of server applications via PC macros
ADABAS C
NATURAL
RPC-Server
ENTIRE BROKER
ENTIRE NET-WORK
ENTIRE NET-WORK
NATURAL lightstorm
Makro
MS EXCEL
MS WINWORD
c:\user\ppt\ki\usergrou
- 31 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Data Security of the mainframe database
TOP-Secret
RACF
ACF2
ADABAS C
ADAESI
ENTIRE NET-WORK
ENTIRE
NET-WORK
ENTIRE NET-WORK
ADAESI
c:\user\ppt\ki\usergrou
- 33 -
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
ASSO
DATA
WORK
ADABAS
ADASEC
VSAM
Direkt
COBOL
NATURAL
RPC-Server
RPCSERV1-n
NATURAL
Broker
RPC
NET-WORK
SQL, RPC,
ADABAS
ADABAS
SQL-Server
NODE=4711
ADABASCALLS
RPCSERV
NET-WORK
NODE=4711
GATEWAY
PC- FS
NATURAL
NET-WORK
NODE=2222
NODE=Netzwerkkartenadresse
LANNOVELL
WINDOWS
ACCESS
ODBC(SQL)
c:\user\ppt\ki\usergrou
- 34 -
PC- FS
NATURAL
NET-WORK
NODE=1140
12/1/2015
ADABAS C im Netz
Benutzergruppe
Kinzinger / Storr
Problems


No writes to multiple databases in the
entire network in one transaction

ASCII / EBCDIC translation
 Binary definition of alpha fields is
not possible
Error handling

Localize errors
c:\user\ppt\ki\usergrou
- 35 -
12/1/2015

ADABAS C im Netz - Storr Consulting