Frederico,
I am a little confused by where you have:
> CICS/ESA V6.2.0
> CICS Transaction Server Version 2.2.0
Does this mean you have tried it with both?
Anyway, have you seen the NEWER migration guide information at:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dfhefc00/1.5.7
That does mention changes to the EIBRESP code (with CICS TS 3.x).
Therefore,
there may be changes (with or without PTFs) at lower levels.
--
Bill Klein
wmklein <at> ix.netcom.com
"Frederico Fonseca" <real-email-in-msg-spam@[EMAIL PROTECTED]
> wrote in message
news:iklm14pfhmhshllio7drtni6ki7ssv1h9v@[EMAIL PROTECTED]
> 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
|
