jagdishrv
New User
Joined: 21 Aug 2008 Posts: 2 Location: hyd
|
|
|
|
Code: |
/***********************REXX*********************************/
TRACE ?R
SAY ' START OF THE PGM'
SUBCOM DSNREXX
IF RC THEN
DO
S_RC = "RXSUBCOM('ADD','DSNREXX','DSNREXX')"
END
ADDRESS DSNREXX "CONNECT" db2admin |
This Is piece of code i have wriiten in Microfocus Rexx. But for last line it is giving +++RC(-3)+++
More info is that we are using IBMUDB |
|