[focus-l] Re: focus ????
- From: "Appiah, Andrew" <aappiah@xxxxxxxxxx>
- To: <focus-l@xxxxxxxxxxxxx>
- Date: Wed, 19 Jan 2005 10:51:10 -0500
I am looking for a Webfocus consultant for one of my clients in the
Reston area. Do you know anybody?
Andrew Appiah
Recruiter
Kforce Technology Staffing
703-342-3131 Direct
703-342-3197 Fax
aappiah@xxxxxxxxxx
-----Original Message-----
From: focus-l-bounce@xxxxxxxxxxxxx [mailto:focus-l-bounce@xxxxxxxxxxxxx]
On Behalf Of roberth@xxxxxxxxxxxx
Sent: Wednesday, January 19, 2005 10:32 AM
To: FOCUS-L@xxxxxxxxxxxxx
Cc: FOCUS-L@xxxxxxx
Subject: [focus-l] focus ????
I gotta tell you; sometimes FOCUS drives me nuts.
I've been using a piece of boilerplate code for over 4 yrs and=20
Tried to import it to another exec ;
=20
BANG
=20
Hangs on a -GOTO
=20
With (FOC283) IMPROPER USE OF 'GOTO'=20
=20
Here's the code
=20
-READ SIOAWK &ZEROES.A9.,&CCYY.A4.
-TYPE AMPER CCYY IS &CCYY;
-RUN
-SET &Y =3D EDIT(&CCYY, '$$$9')
-TYPE AMPER Y IS &Y ;
=20
-SET &ODD_EVEN =3D DECODE &Y(1 ODD
3 ODD
5 ODD
7 ODD
9 ODD
ELSE EVEN);
-RUN
-TYPE ODD_EVEN IS &ODD_EVEN ;
=20
-RUN
=20
This gives
=20
AMPER Y IS 5 ;
ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
(FOC273) SYNTAX ERROR IN DECODE
=20
If I put single quotes around &Y in the DECODE then I get an error
about
-GOTO in a subsequent statement. . .
=20
=20
If I string the DECODE out left-to-right I get!!!!!!!!!
=20
ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
(FOC271) ODD NUMBER OF DECODE LIST ELEMENTS
=20
Go Figure
=20
I've always had trouble with DECODE - and FOCUS in General - but this
baffles me. I'll swear this is working in=20
Several other execs.
=20
If anyone can spot the problem, I will be most grateful; I've spent the
entire night trying to figure this out. . . .
=20
Bob Hamilton
=20
FOCUS DRIVES ME NUTS. . .=20
=20
=20
=20
=20
=20
=20
=20
=20
=20
=20
=20
Other related posts:
