RE: 4gl question
> -----Original Message-----
> From: informix-list-bounces@iiug.org [mailto:informix-list-
> bounces@iiug.org] On Behalf Of Denham, Mark
> Sent: Friday, February 01, 2008 11:54 AM
> To: informix-list@iiug.org
> Subject: 4gl question
>
> IBM INFORMIX-4GL Version 7.32.FC2X5
> Pcode Version 732
>
> This test sample prints "OA" when executed which surprised me. The
> code_desc table is empty. I would have expected a null value.
>
> main
>
> define ws_input char(2),
> ws_sec_type char(2)
>
> let ws_sec_type = 'OA'
>
> select desc
> into ws_sec_type
> from code_desc
> where code = 1
> and type = 'SECTYP'>
> display ws_sec_type
>
> end main
That's the behavior I would expect. Try this:
main
define ws_input char(2),
ws_sec_type char(2)
let ws_sec_type = 'OA'
select desc
into ws_sec_type
from code_desc
where code = 1
and type = 'SECTYP'
IF ( SQLCA.SQLCODE = 100 ) THEN
LET ws_sec_type = NULL
END IF
display ws_sec_type
end main
>
> Or am I losing it?
>
> Mark Denham
> Senior Technical Developer
> Lincoln Financial
> 603-226-5483
>
>
>
>
> Notice of Confidentiality: **This E-mail and any of its attachments
may
> contain
> Lincoln National Corporation proprietary information, which is
privileged,
> confidential,
> or subject to copyright belonging to the Lincoln National Corporation
> family of
> companies. This E-mail is intended solely for the use of the
individual or
> entity to
> which it is addressed. If you are not the intended recipient of this
E-
> mail, you are
> hereby notified that any dissemination, distribution, copying, or
action
> taken in
> relation to the contents of and attachments to this E-mail is strictly
> prohibited
> and may be unlawful. If you have received this E-mail in error, please
> notify the
> sender immediately and permanently delete the original and any copy of
> this E-mail
> and any printout. Thank You.**
> _______________________________________________
> Informix-list mailing list
> Informix-list@iiug.org
> http://www.iiug.org/mailman/listinfo/informix-list