CICS Verify password issue

[fredericofonseca]

Hi all,

I'm having a bit of a problem with checking the return codes from a EXEC CICS VERIFY PASSWORD command.

Code as follows

 WORKING-STORAGE SECTION. 
 01  WSBB-PASSWORD        PIC X(8) VALUE SPACES. 
 01  WSBB-USERID          PIC X(8) VALUE SPACES. 
 01  WSBB-RESP-CODE       PIC S9(8) COMP VALUE ZEROS. 
 01  WSBB-RESP-CODE1      PIC S9(8) COMP VALUE ZEROS. 
 01  WSBB-RESP-CODE2      PIC S9(8) COMP VALUE ZEROS. 
 01  WSBB-RETURN-CODE     PIC S9(8) COMP VALUE ZEROS. 
 01  WSBB-DAYS-LEFT       PIC S9(4) COMP VALUE ZEROS. 
 01  WSBB-RET-CODE        PIC -9(10).
 01  WSBB-CHANGETIME      PIC S9(15) COMP-3.
 01  WSBB-INVALIDCOUNT    PIC S9(4) COMP VALUE ZEROS. 
 01  WSBB-LASTUSETIME     PIC S9(15) COMP-3.
 01  WSBB-EXPIRYTIME      PIC S9(15) COMP-3.
 01  WSBB-TIME            PIC X(64) VALUE SPACES.
 PROCEDURE DIVISION. 
*
 100-MAINLINE SECTION.
**********************
*
 101-PARA. 
     EXEC CICS VERIFY PASSWORD(WSBB-PASSWORD) USERID(WSBB-USERID) 
          DAYSLEFT(WSBB-DAYS-LEFT)
          EMSRESP(WSBB-RESP-CODE1)
          EMSREASON(WSBB-RESP-CODE2)
          CHANGETIME(WSBB-CHANGETIME)
          INVALIDCOUNT(WSBB-INVALIDCOUNT)
          LASTUSETIME(WSBB-LASTUSETIME)
          EXPIRYTIME(WSBB-EXPIRYTIME)
          RESP(WSBB-RESP-CODE) 
          RESP2(WSBB-RETURN-CODE) 
     END-EXEC.

All done according to the manuals.
Command works fine, but the values of RESP AND RESP2 are always invalid values. This is still the case if I use the cics precompiler eibresp and eibresp2 fields.

In all cases the values returned on these 2 fields are
RESP= -0268166945
RESP2= 1342181408
even if the command was sucessefull, on which case RESP should be equal zero.

All other return fields are correct upon execution.

This is Z/OS 1.07
CICS/ESA V6.2.0
CICS Transaction Server Version 2.2.0
ENTERPRISE COBOL FOR Z/OS 3.4.1 0402

compile options in place
ADV,NOAWO,BUFSIZE(22528),NOCOMPILE(S),DATA(31)
NODBCS,NODECK,NODUMP,NODYNAM,FASTSRT
FLAG(I),NOFLAGSTD
LANGUAGE(UE),LIB,LINECOUNT(60),LIST,MAP,NONAME
NONUMBER,NUMPROC(NOPFD),OBJECT,NOOFFSET,OPTIMIZE
OUTDD(SYSOUT),RENT,NOSEQUENCE,SIZE(MAX)
SOURCE,SPACE(1),NOSSRANGE,NOTERM,NOTEST,TRUNC(STD)
NOVBREF,NOWORD,XREF(FULL),NOZWB,APOST

Any ideas/suggestions welcome


Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

FAQ219-2884
FAQ181-2886

 

[Glenn9999]

Manual on VERIFY PASSWORD QFR

Dilbert is not a fictional cartoon. It is a documentary.

 

[fredericofonseca]

Glenn,

I am perfectly aware of the manual, and all the code above was done according to it.

It works fine as i said, and all fields get populated with the correct values should I supply a valid username/password, EXCEPT for the RESP and RESP2 fields. This is the issue.

If I supply wrong data, then EMSRESP(WSBB-RESP-CODE1) and EMSREASON(WSBB-RESP-CODE2) also return the correct error codes, but RESP and RESP2 STILL return wrong values, which is against what the manual says in both cases.

Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

FAQ219-2884
FAQ181-2886

 

[Glenn9999]

I definitely apologize. I was just trying to be helpful in posting a link to the manual for whoever else might look at it (QFR = quoted for reference), not you (since you already did state you looked at it). Personally I didn't see anything outwardly strange jump out at me when I looked it over, so that's all I really had to say.

Hope you figure this out.

Dilbert is not a fictional cartoon. It is a documentary.

 

[fredericofonseca]

My apologies also. didn't want to sound rash.

As this is Z/OS the correct link is

http://publibz.boulder.ibm.com/cgi-...r_OS390/libraryserver/zosv1r9/&SYNCPOINT=BOOK

from the main library

http://publibz.boulder.ibm.com/bookmgr_OS390/libraryserver/zosv1r9/

scroll down until CICS Transaction server for z/OS V3R2, then CICX Application programming reference.

There are subtle differences between the Z/OS versions and the other OS'es.

Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

FAQ219-2884
FAQ181-2886

 

[fredericofonseca]

Found the problem.

Code above is perfectly correct. problem was on one of the programs higher on the calling stack that was not passing down the correct linkage dfheiblk, so when my program tries to reference it, it gives invalid results.

For others info, CICS precompiler programs will replace
RESP(WSBB-RESP-CODE)
with
"Move eibresp to WSBB-RESP-CODE" where eibresp is supplied on the linkage.

Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

FAQ219-2884
FAQ181-2886