I have broker attributes file as such:
NODE = 220
BROKER-ID = ETBTEC
So, I was thinking that my Natural parms would then be:
RPC=(RPCSIZE=32,MAXBUFF=28,AUTORPC=ON,COMPR=2,DFS=(TECXML1,ETBTEC,L))
and that I would setup USR2071:
1 PARM-INPUT
2 I-FUNCTION (A08) INIT <‘LOGON’>
2 I-BROKER-ID (A32) INIT <‘ETBTEC’>
2 I-USER-ID (A08) INIT <‘RPC0011’>
2 I-PASSW (A08) INIT <‘PASSWORD OMITTED FOR THIS LOG’>
2 I-NEWPASSW (A08)
1 PARM-OUTPUT
2 O-RC (N04)
2 O-ERRTEXT (A80)
Results:
“00200216 API: Invalid BROKER-ID”
…hmmm, kinda seems funny to have to do that bt ???
So I changed my RPC parms to 220 and the calling program uses 220 as this:
1 PARM-INPUT
2 I-FUNCTION (A08) INIT <‘LOGON’>
2 I-BROKER-ID (A32) INIT <‘220’>
2 I-USER-ID (A08) INIT <‘RPC0011’>
2 I-PASSW (A08) INIT <‘PASSWORD OMITTED FOR THIS LOG’>
2 I-NEWPASSW (A08)
That has got me this far, but don’t know if that has been causing me these issues too???
################################################################################
Now, per your suggestions I have my parms as:
RCA=(BROKER),
RPC=(RPCSIZE=32,MAXBUFF=28,AUTORPC=ON,COMPR=2,ACIVERS=8,
DFS=(TECXML1,220,L))’
Results:
C-NODE: 220
C-NAME: TECXML1
C-ERROR-TEXT: 00200208 * No message text associated with this error code *
ESIGN 0260 NAT6971 Connection error on Client, reason 9 ,TECXML1
So I think ACI problem so I make it:
ACIVERS=4
Results:
C-NODE: 220
C-NAME: TECXML1
C-ERROR-TEXT:
00200379 API: Inconsistent Security Installation
ESIGN 0260 NAT6971 Connection error on Client, reason 9 ,TECXML1
Then:
ACIVERS=2
Results:
C-NODE: 220
C-NAME: TECXML1
C-ERROR-TEXT:
00080003 Access Denied password not authorized
ESIGN 0260 NAT6971 Connection error on Client, reason 9 ,TECXML1
################################################################################
Here’s the remaining code for your review.
…
END-DEFINE
*
EXAMINE I-PASSW TRANSLATE INTO UPPER
EXAMINE I-NEWPASSW TRANSLATE INTO UPPER
*
CALLNAT ‘USR2071N’ USING PARM-INPUT PARM-OUTPUT
/*
/*
CALLNAT ‘TECXML1’
BORR-SSN-I
NAME
*
WRITE
‘=’ BORR-SSN-I
‘=’ NAME
*
ON ERROR
CALLNAT ‘RPCINFO’ SERVER-PARMS CLIENT-PARMS
WRITE
/ ‘=’ C-NODE
/ ‘=’ C-NAME
/ ‘=’ C-ERROR-TEXT (AL=78)
END-ERROR
END
#Mainframe-Integration#webMethods#EntireX