Yes, we use it for example when counting lines on a page in a report, so
that we know when to print the new page header.
05 Ws-Line-Count Pic 99.
88 Ws-Max-Lines Value 55.
Then in the program we add 1 to Ws-Line-Count inside of a loop, which is
performed until WS-MAX-LINES or EOF. Then in the page header section we
reset Ws-Line-Count to zeros.
I think you may also be able to use the 88 with a set statement, to force
the value into the 05 variable. eg Set Ws-Max-Lines to True, which will
cause Ws-Line-Count to instantly become 55.
Hope this helps.
JP
Bank of Ireland - Enterprise Solutions & Services.
Please log all calls with the helpdesk first, phone: 01 638 6316.
t:+353 (0)1 616 7909
f:+353 (0)1 856 0315
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.
Tommy.Holden@ThompsonMa
chinery.com To: COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>
Sent by: cc:
cobol400-l-bounces@midr Subject: Re: [COBOL400-L] quick and easy question
ange.com
30/04/2008 15:38
Please respond to COBOL
Programming on the
iSeries/AS400
so 88 indicates a boolean which correspond to true when the constant value
is met?
Thanks,
Tommy Holden
From:
John.Part@xxxxxxxxxxx
To:
COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>
Date:
04/30/2008 09:27 AM
Subject:
Re: [COBOL400-L] quick and easy question
The 88 is a logical variable you can use it in an IF statement.
If ERROR-CODE-CS50004 contains a value of ON, then OBJECT-NOT-FND-CS50004
is true.
Hope this helps,
JP
Bank of Ireland - Enterprise Solutions & Services.
Please log all calls with the helpdesk first, phone: 01 638 6316.
t:+353 (0)1 616 7909
f:+353 (0)1 856 0315
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.
Tommy.Holden@ThompsonMa
chinery.com To:
cobol400-l@xxxxxxxxxxxx
Sent by: cc:
cobol400-l-bounces@midr Subject: [COBOL400-L]
quick and easy question
ange.com
30/04/2008 15:23
Please respond to COBOL
Programming on the
iSeries/AS400
if my failing memory is correct:
01 PASSED-PARAMETERS-CS50004.
05 ERROR-CODE-CS50004 PIC XX.
88 OBJECT-NOT-FND-CS50004 VALUE "ON".
88 USER-NOT-FND-CS50004 VALUE "UN".
88 ENTRY-NOT-FND-CS50004 VALUE "NF".
the 88 is always a constant value correct?
Thanks,
Tommy Holden
--
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>
--
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.
<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>
midrange.com
