Você pode usar Net.Data for OS/390 com DataJoiner para acessar bancos de dados remoto tais como DB2/6000, Oracle, e Sybase. Esta seção descreve como configurar seu sistema para usar com DataJoiner for AIX Versão 1.2 com PTF U447593 ou DataJoiner for HP-UX Versão 1.1.
Passos da Configuração:
ENVIRONMENT (DTW_SQL) dtwsql (IN LOCATION)
Macros de Net.Data que acessam dados remotos usando DataJoiner devem especificar um valor para LOCATION. Este exemplo de macro de Net.Data consulta um banco de dados remoto através de DataJoiner:
%{ ****************** Define Block ******************************** %}
%DEFINE {
DB2SSID="NDA1"
LOCATION="QMFDJ00"
DTW_DEFAULT_REPORT="YES"
%}
%{ ****************** Function Definition Block ******************* %}
%FUNCTION(DTW_SQL) selectall() {
SELECT * FROM $(tabnam)
%}
%{ ****************** HTML Block: Table_Input ********************* %}
%HTML(Table_Input) {
<Title>DJ Test #1</Title>
<Body>
<h1 align=center>Table Selection</h1>
<br>
<form method="post" action="Column_Output">
<p>Enter Table Name: <input type="text" name="tabnam"></p>
<p><input type="submit"></p>
</form>
</Body>
%}
%{ ****************** HTML Block: Column_Output ******************* %}
%HTML(Column_Output) {
<Title>DJ Test #1</Title>
<Body>
@selectall()
</Body>
%}