Unfortunately, no; this if structure is in the main procedural loop. By all
reasoning, it should test the condition, and if the two data names are
equal, just go to the next sentence. But it always sees them as unequal,
and I never figured out why.

Fortunately, a requirements change may make this test irrelevant.

I'm also having trouble with values stored in the DFHCOMMAREA. I store
three items: the account number, and the key of the first and last record I
just displayed on the last map I sent to the user.

As long as I am scrolling forward, this works perfectly, as expected. As
soon as I hit the key to begin the scroll backward, however, the first four
characters of the 24-byte key that contains the first record I displayed on
the map are suddenly replaced by spaces, and the fifth character with a B.
I don't know where the spaces or the B came from, as the key is numeric.
Once again, though, the data name holding the key is alphanumeric, because
the key is 24 bytes long.

But why would the value suddenly change? I don't know.

As I've learned that this list really shouldn't be addressing CICS
questions, I'll only post a code segment if folks wouldn't object, or if
someone who works with CICS is willing to take a look.



-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of John.Part@xxxxxxxxxxx
Sent: Monday, January 28, 2008 9:54 AM
To: COBOL Programming on the iSeries/AS400
Subject: Re: [COBOL400-L] CICS Problem

Is it possible that your program is just running into the paragraph? EG if
coming from a section, it will execute everything till the next section
unless you specify the THRU portion of the Perform command.

JP
Bank of Ireland - Enterprise Solutions & Services.
t:+353 (0)1 4804573
f:+353 (0)1 6040301

Bank of Ireland incorporated in Ireland with Limited Liability.
Registered Office - Head Office, Lower Baggot Street, Dublin 2. Registered
Number - C-1 Bank of Ireland is regulated by the Financial Regulator in
Ireland and authorised by the Financial Services Authority in the UK.
Security Classification - Amber Confidential to Bank of Ireland Group Staff
and authorised third parties ; Not for further distribution.





Harold Bearce

<hlbearce@rabinnovativeso To: COBOL
Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>
ftware.com> cc:

Sent by: Subject: Re:
[COBOL400-L] CICS Problem
cobol400-l-bounces@midran

ge.com





28/01/2008 16:39

Please respond to COBOL

Programming on the

iSeries/AS400









That is the logical place to check the values.\

Scott Lindstrom <SLindstrom@xxxxxxxxxx> wrote:
Can you display the contents of ACEMPNOI and WS-COMM-BEGIN after the ELSE
just to confirm what you think is true?

Scott Lindstrom
Unix and AS/400 Technical Support
847 482 7602



.net>
Sent by: To
cobol400-l-bounce "'COBOL Programming on the s@xxxxxxxxxxxx iSeries/AS400'"

cc
01/27/2008 08:05
PM Subject
[COBOL400-L] CICS Problem

Please respond to
COBOL Programming
on the
iSeries/AS400
nge.com>






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.



--
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.



<PRE>
**************************
</PRE>
This email and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed.
If you have received this email in error please notify us immediately at
MailMonitor@xxxxxxxxxxx and delete this E-mail from your system. Thank you.
It is possible for data transmitted by email to be deliberately or
accidentally corrupted or intercepted. For this reason, where the
communication is by email, the Bank of Ireland Group does not accept any
responsibility for any breach of confidence which may arise through the use
of this medium. This footnote also confirms that this email message has been
swept for the presence of known computer viruses.
<PRE>
Bank of Ireland incorporated in Ireland with Limited Liability.
Registered Office - Head Office, Lower Baggot Street, Dublin 2.
Registered Number - C-1.
</PRE>
Bank of Ireland is regulated by the Financial Regulator in Ireland and
authorised by the Financial Services Authority in the UK.
<PRE>
**************************
</PRE>



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.