HP3000-L Archives

March 2002, 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 help - EVEN STRANGER
From:
Richard Barker <[log in to unmask]>
Reply To:
Richard Barker <[log in to unmask]>
Date:
Tue, 5 Mar 2002 17:27:54 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (44 lines) 
I think a new emergency patch we applied must be causing lots of Cobol
problems, or I am going mad:

card-type pic XX.

if pay-payment-batch = "PENDING"
    DISPLAY "pay-payment-code" pay-payment-code
    DISPLAY "Card type" "'"card-type"'"
 if pay-payment-code = card-type or card-type = "@"
  display "true"
  display "Post " pay-rec-loc-line " " pay-payment-code " "
           pay-payment-text " " pay-payment-batch " "
           pay-payment-time
  move payments to ccardin-rec
  write ccardin-rec
 end-if
end-if

When I run this:

Enter card type: @


pay-payment-codeVI
Card type'@'
pay-payment-codeVI
Card type'@'
pay-payment-codeDI
Card type'@'

etc....

The program hasn't been changed for over a year and always worked, if I
change the logic to:

 if pay-payment-code = card-type or card-type = "XX"

Enter card type: XX

It works.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2