Re: CICS Problem

["Jim Essinger" <dilbernator@xxxxxxxxx>]

Lora,

I think your questions are just fine here, as long as you realize that there
may be some differences between i5/OS COBOL (even the CICS version) and what
you are doing on a mainframe.  What we have to offer may or may not help.
Ask away, and if we can, we will answer to the best of our knowledge.

Jim

On Feb 2, 2008 9:43 AM, Lora <loravara@xxxxxxxxxxx> wrote:

> And I should take a moment to apologize here.  I signed up for this list
> about a year ago, when I began learning COBOL.  COBOL is my first
> programming language.  I program on a mainframe at work, and have no idea
> what kind of system is referred to here.  I just assumed COBOL was COBOL.
>
> Since CICS is not supported, should I ask my CICS questions elsewhere, or
> are there those out there who have programmed in CICS who wouldn't mind
> the
> occasional stray question?
>
> Thanks.
>
> Lora
>
>
> -----Original Message-----
> From: cobol400-l-bounces@xxxxxxxxxxxx
> [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Harold Bearce
> Sent: Tuesday, January 29, 2008 3:20 AM
> To: COBOL Programming on the iSeries/AS400
> Subject: Re: [COBOL400-L] CICS Problem
>
> I gess I am showing my ignorance about the AS400.  I never programmed on
> one.
>
> Bruce Vining <bvining@xxxxxxxxxxxxxxx> wrote:  > BTW. CICS is not run on
> the
> AS400 computers.
>
> That will be a surprise to a few people :-) You may want to look at
> product
> 5722-DFH: IBM CICSR Transaction Server for i5/OS
>
> Bruce
>
> Harold Bearce wrote:
> I believe your logic is flawless. Check your punctuation carefully. BTW.
> CICS is not run on the AS400 computers.
>
> loravara@xxxxxxxxxxx wrote: I'm a very new CICS programmer, and I'm
> running
> into a problem.
>
> I'm trying to compare two data items. Both are PIC X(09). Both will
> contain
> numbers, though.
>
> At one point in the CICS program, I have:
>
> IF ACEMPNOI = WS-COMM-BEGIN
> NEXT SENTENCE
> ELSE
> PERFORM 1100-START-BROWSE THRU 1100-EXIT.
>
> The problem is, the Else branch always triggers when the program reaches
> this statement, as though the two data values are different, even when I
> can
> verify that they are not.
>
> ACEMPNOI is the field that receives the account number from the CICS map.
> WS-COMM-BEGIN is the field in the DFHCOMMAREA that contains the last
> ACEMPNOI that was searched on. I save it to this COMMAREA data item
> whenever
> the program executes a successful STARTBR.
>
> What am I doing wrong here?
>
> Any advice would be appreciated.
>
> Thanks.
>
> Lora
>
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe,
> unsubscribe,
> or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a
> moment to review the archives at http://archive.midrange.com/cobol400-l.
>
>
>
>
> Harold Bearce
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>
>
>
> Bruce
> Bruce Vining Services
> 507-206-4178
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>
>
>
> Harold Bearce
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.