Hi All,

I have a VB application that is running on the same machine with MS SQL Server. This application is also connection to IBM AS400 server to query data out from AS400 and do some calculation and the data is stored into MS SQL Server.
Currently all this server are keep in the same server room.

But now...
I have this problem. One of my servers that is the one that contain the MS SQL Server and VB application will be shifted into a data center where security is very tight. The data center requested the specific port number to be open for the firewall. I do not know what are the port needed to communicate with the AS400 cause the VB code that written does not specify the port number.

I have tried using a sniffer program to trace the port use. But the port is not fixed and keep changing. Why is this so?

Can anyone help me identify what are the ports needed?



Below is the sample code
-------------------------------------------------------------
strConMSSQL = "Provider=MSDASQL.1;Password=password;Persist Security Info=True;User ID=mssqlserver;Extended Properties=" & Chr(34) & "DSN=Pidemco;Description=Pidemco Call Center;SERVER=PORSCHE;UID=mssqlserver;PWD=password ;APP=Visual Basic;WSID=CALLCEN3;DATABASE=pidemco;Network=DBMSS OCN;Address=PORSCHE,1433;StatsLog_On=0" & Chr(34)

    Set conSQL = New Connection
    conSQL.Open strConMSSQL, "mssqlserver", "password"

    Msg "Ms SQL: Connection Established."
    WriteLn
    On Error GoTo err400
    strConAS400 = "Provider=MSDASQL.1;Password=password;Persist Security Info=True;User ID=as400;Extended Properties=" & Chr(34) & "DSN=AS400DSN-LIVE;SYSTEM=S655FCAB;CMT=0;DBQ=PSSFLIB;NAM=0;DFT=5 ;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLO CKSIZE=32;SCROLLABLE=0;TRANSLATE=0;LAZYCLOSE=1;LIB VIEW=0;REMARKS=0;CONNTYPE=0;SORTTYPE=0;LANGUAGEID= ENU;SORTWEIGHT=0;PREFETCH=1;DFTPKGLIB=QGPL;MGDSN=0 ;" & Chr(34)

Set conAS400 = New Connection
    conAS400.Open strConAS400, "as400", "password"

Anyone who know the solution. Pls kindly email me to [email protected]
Greatly appreciated