HP3000-L Archives

September 2000, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Cobol, IF on size error question
From:
Duane Percox <[log in to unmask]>
Reply To:
Duane Percox <[log in to unmask]>
Date:
Fri, 1 Sep 2000 10:57:42 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (32 lines) 
Mark - any scope terminator terminates scope to the
most previous initiation of the scope in question.

So, if inside a compute/end-compute don't use another
compute within your on-size-error.

Change

            COMPUTE WS-WEIGHT-PCT =
 +4                (WS-ITEM-WEIGHT * 100) / WS-LEVEL-WEIGHT
 +5         ON SIZE ERROR
 +6            COMPUTE WS-WEIGHT-PCT = 0
 +7         END-COMPUTE
 +8         COMPUTE WS-PNH =
 +9                 FOB-AMT(1) * WS-WEIGHT-PCT / 100
 10         END-COMPUTE

to
            COMPUTE WS-WEIGHT-PCT =
 +4                (WS-ITEM-WEIGHT * 100) / WS-LEVEL-WEIGHT
 +5         ON SIZE ERROR
 +6            MOVE ZERO TO WS-WEIGHT-PCT
 +7         END-COMPUTE
 +8         COMPUTE WS-PNH =
 +9                 FOB-AMT(1) * WS-WEIGHT-PCT / 100
 10         END-COMPUTE

Duane Percox    wk: 650.372.0200x608  fax: 650.372.3386
[log in to unmask]
www.qss.com
qwebs.qss.com

ATOM RSS1 RSS2