if you do an ACCEPT into a PIC x(02) field and only enter one character it
will put null into the second byte.
you can change your ACCEPT card-type to be
ACCEPT card-type FREE and it will pad out the field i believe.

thanks,
eric kundl
http://www.kundl.org
----- Original Message -----
From: "Richard Barker" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Tuesday, March 05, 2002 9:27 AM
Subject: Re: [HP3000-L] Cobol help - EVEN STRANGER


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

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