救火！cics客户端出错！各位大虾救救我！在客户这里不好交待了！(页 1) - 中间件技术 - LoveUnix 最强AIX小机技术论坛,UNIX,Linux,存储,数据库,中间件,开发,管理

LoveUnix » 中间件技术 » 救火！cics客户端出错！各位大虾救救我！在客户这里不好交待了！

2005-9-5 19:22 wyjmasternj

救火！cics客户端出错！各位大虾救救我！在客户这里不好交待了！ 好几天了搞不定，晕了！下面还有很多活等着干呢，想到这泪流满面。。。。 =============================================================================== ERZ030051W/5002 08/26/05 18:51:20 AP11 : Unable to validate the password received with userid 'CICSUSER' from system '@KVS'. Using the region default u serid 'CICSUSER' instead ERZ030051W/5002 08/26/05 18:51:20 AP11 : Unable to validate the password received with userid 'CICSUSER' from system '@KVS'. Using the region default u serid 'CICSUSER' instead ERZ030051W/5002 08/26/05 18:51:20 AP11 : Unable to validate the password received with userid 'CICSUSER' from system '@KVS'. Using the region default u serid 'CICSUSER' instead ERZ030051W/5002 08/26/05 18:52:27 AP11 : Unable to validate the password received with userid 'CICSUSER' from system '@KVS'. Using the region default u serid 'CICSUSER' instead ERZ010030I/0204 08/26/05 18:55:36 AP11 : CICS self consistency checking started. ERZ010054I/0205 08/26/05 18:55:36 AP11 : CICS self consistency checking completed ================================================================================ = ERZ030051W/5002 08/26/05 19:01:23 AP11 : Unable to validate the password received with userid 'CICSUSER' from system '@KVS'. Using the region default u serid 'CICSUSER' instead ///////////////////////////////////////////////////////////////// vi CICSCLI.INI 这是客户端的配置文件，服务器端应该没有问题，因为电话银行刚测完 Server = AP11 ; Arbitrary name for the server Description = TCP/IP Server ; Arbitrary description for the server Protocol = TCPIP ; Matches with a Driver section below NetName = 139.0.0.33 ; The server's TCP/IP address Port = 6611 ; Use the default TCP/IP CICS port InitialTransid = CESN ///////////////////////////////////////////////////////////////////// vi cicstst.c int Response1(char *result, short Rc, char *Abend) { ........... } int EciSync( ) { char *Name = "ECI_SYNC"; short Rc; /*char CommArea [ECI_STATUS_LENGTH];*/ char CommArea [1024]; ECI_STATUS EciStatus; ECI_PARMS EciParms; char *p, *q, *r; char result[200]; /*memset (CommArea, '\0', ECI_STATUS_LENGTH);*/ memset (CommArea, '\0', 1024); strcpy( CommArea, "00<ap><MsgType>01</MsgType><TransCode>6507</TransCode><ReqDate>20050904</ReqDate><ReqTime>000000</ReqTime><ReqId>03079000</ReqId><ReqSeqNo>000000000000</ReqSeqNo><abib>07</abib><atti><qryflag>0</qryflag><qryitems>10</qryitems><qryfirst>1</qryfirst><qryctrl></qryctrl><prdid>01</prdid><markid>001</markid><goodisd></goodisd></atti></ap>" ); memset (&EciParms, 0, sizeof (ECI_PARMS)); EciParms.eci_version = ECI_VERSION_1A; /*EciParms.eci_version = ECI_VERSION_1;*/ EciParms.eci_call_type = ECI_SYNC; EciParms.eci_commarea = CommArea; EciParms.eci_commarea_length = strlen( CommArea ) ; EciParms.eci_extend_mode = ECI_NO_EXTEND; EciParms.eci_luw_token = ECI_LUW_NEW; EciParms.eci_timeout = 5; memcpy(&EciParms.eci_system_name, "AP11", 6); memcpy(&EciParms.eci_program_name, "CAABIBTZ" , 8 ); memcpy(&EciParms.eci_userid, "CICSUSER", 8); memcpy(&EciParms.eci_password,"CICSUSER", 8); Rc = CICS_ExternalCall (&EciParms); Response1(result, Rc, EciParms.eci_abend_code); /*printf( "CICS状态检测结果[%s]\n",result );*/ if (Rc == ECI_NO_ERROR) { printf( " 交易成功" , p,q,r ); } /* endif */ else { printf( "result=[%s]\neci_sys_return_code=[%d]\n", result, EciParms.eci_sys_return_code ); } return Rc; } main() { int ip,rc; for( ip=0;ip<1;ip++) { printf("检测CICS状态...\n" ); rc = EciSync( ); if (rc == ECI_NO_ERROR) break; if ( ip >= 2 ) printf("CICS状态错误,交易放弃\n" ); } } 执行了cicstst后结果显示： result=[ECI_ERR_TRANSACTION_ABEND ] eci_sys_return_code=[0]

2005-9-5 20:35 强人

<img src='style_emoticons/default/happy.gif' border='0' style='vertical-align:middle' alt='happy.gif' />

2005-9-5 23:39 jxufe

server端的password也是CICSUSER吗?请我做枪手吧,保证一小时帮你搞定,一小时内搞不定不收钱还倒找钱给你

2005-9-6 08:41 wyjmasternj

忘了说了，据客户讲server端的密码是CICSUSER啊，我现在想知道的是： 1、SERVER端密码怎么知道是CICSUSER-----确认一下！！！！！ 2、客户端程序怎么写才能让SERVER端不检查密码呢 3、我明明用的是USERID = CICSUSER USERPWD=CICSUSER 怎么还是报密码不对呢 希望大家发扬一下互相帮助的精神吧在客户这里没着了，急死了我。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 <img src='style_emoticons/default/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /> <img src='style_emoticons/default/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /> <img src='style_emoticons/default/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /> <img src='style_emoticons/default/sad.gif' border='0' style='vertical-align:middle' alt='sad.gif' /> <img src='style_emoticons/default/mad.gif' border='0' style='vertical-align:middle' alt='mad.gif' /> <img src='style_emoticons/default/mad.gif' border='0' style='vertical-align:middle' alt='mad.gif' /> <img src='style_emoticons/default/mad.gif' border='0' style='vertical-align:middle' alt='mad.gif' /> <img src='style_emoticons/default/mad.gif' border='0' style='vertical-align:middle' alt='mad.gif' /> <img src='style_emoticons/default/mad.gif' border='0' style='vertical-align:middle' alt='mad.gif' /> <img src='style_emoticons/default/mad.gif' border='0' style='vertical-align:middle' alt='mad.gif' /> <img src='style_emoticons/default/mad.gif' border='0' style='vertical-align:middle' alt='mad.gif' />

2005-9-6 13:52 wcp2004

用CICSCLI 重新置用户。 CICSCLI /C=server /U=userid /P=password。

2005-9-14 16:56 hubb-1

<div class='quotetop'>QUOTE(jxufe @ 2005-09-06 00:39:13)</div><div class='quotemain'>server端的password也是CICSUSER吗?请我做枪手吧,保证一小时帮你搞定,一小时内搞不定不收钱还倒找钱给你 [right][snapback]488932[/snapback][/right] </div> 你想要多少钱？

2005-9-14 17:19 wcp2004

你试了没有。用CICSCLI

2005-9-15 08:59 sosowang

<img src='style_emoticons/default/huh.gif' border='0' style='vertical-align:middle' alt='huh.gif' /> <img src='style_emoticons/default/huh.gif' border='0' style='vertical-align:middle' alt='huh.gif' /> <img src='style_emoticons/default/huh.gif' border='0' style='vertical-align:middle' alt='huh.gif' /> 你的客户是农行？ server端底PD加了吗？

页: [1]

查看完整版本: 救火！cics客户端出错！各位大虾救救我！在客户这里不好交待了！