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
CODE
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.
MOVE 'usernam' to WSBB-USERID.
MOVE 'PASSWOR' to WSBB-PASSWORD.
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
Already tried with different TRUNC(xxx) with no luck.
Any ideas/suggestions welcome
Regards
Frederico Fonseca
ema il: frederico_fonseca at syssoft-int.com
|
