[focus-l] Re: focus-l Digest V2 #1
- From: Robin Lovell <rlovell@xxxxxxxxx>
- To: focus-l@xxxxxxxxxxxxx
- Date: Thu, 20 Jan 2005 21:05:36 -0500
The Dialog Manager Decode requires a hyphen at the beginning of each line:
-SET &ODD_EVEN =3D DECODE &Y(1 ODD
- 3 ODD
- 5 ODD
- 7 ODD
- 9 ODD
- ELSE EVEN);
At 02:12 AM 1/20/2005, FreeLists Mailing List Manager wrote:
>focus-l Digest Wed, 19 Jan 2005 Volume: 02 Issue: 001
>
>In This Issue:
> [focus-l] focus ????
> [focus-l] I found it;
> [focus-l] RE [ ] - focus ???? - Email found in subject
> [focus-l] Re: focus ????
>
>----------------------------------------------------------------------
>
>From: <roberth@xxxxxxxxxxxx>
>Subject: [focus-l] focus ????
>Date: Wed, 19 Jan 2005 09:32:13 -0600
>
>I gotta tell you; sometimes FOCUS drives me nuts.
>I've been using a piece of boilerplate code for over 4 yrs and
>
>Tried to import it to another exec ;
>
>
>
>BANG
>
>
>
>Hangs on a -GOTO
>
>
>
>With (FOC283) IMPROPER USE OF 'GOTO'
>
>
>
>Here's the code
>
>
>
>-READ SIOAWK &ZEROES.A9.,&CCYY.A4.
>
>-TYPE AMPER CCYY IS &CCYY;
>
>-RUN
>
>-SET &Y =3D EDIT(&CCYY, '$$$9')
>
>-TYPE AMPER Y IS &Y ;
>
>
>
>-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 ;
>
>
>
>-RUN
>
>
>
>This gives
>
>
>
>AMPER Y IS 5 ;
>
> ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
>
>(FOC273) SYNTAX ERROR IN DECODE
>
>
>
>If I put single quotes around &Y in the DECODE then I get an error=
about
>-GOTO in a subsequent statement. . .
>
>
>
>
>
>If I string the DECODE out left-to-right I get!!!!!!!!!
>
>
>
>ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
>
>(FOC271) ODD NUMBER OF DECODE LIST ELEMENTS
>
>
>
>Go Figure
>
>
>
>I've always had trouble with DECODE - and FOCUS in General - but this
>baffles me. I'll swear this is working in
>
>Several other execs.
>
>
>
>If anyone can spot the problem, I will be most grateful; I've spent the
>entire night trying to figure this out. . . .
>
>
>
>Bob Hamilton
>
>
>
>FOCUS DRIVES ME NUTS. . .
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>------------------------------
>
>From: <roberth@xxxxxxxxxxxx>
>Subject: [focus-l] I found it;
>Date: Wed, 19 Jan 2005 09:46:01 -0600
>
>A stray ; at the far right of the line. . .
>
>
>bobh
>
>
>
>
>------------------------------
>
>Subject: [focus-l] RE [ ] - focus ???? - Email found in subject
>From: hcaparros@xxxxxxxxxxxxxxxxxxxx
>Date: Wed, 19 Jan 2005 10:48:34 -0500
>
>As any Dialog Manager (- something ) you need a semi-colon at the end of
>the line,
>That's it that's all Bob !!!
>
>
>-SET &Y =3D EDIT(&CCYY, '$$$9')
>
>
>-SET &Y =3D EDIT(&CCYY, '$$$9');
>
>Herv=E9
>
>
>
><roberth@xxxxxxxxxxxx>
>Envoy=E9 par : focus-l-bounce@xxxxxxxxxxxxx
>2005-01-19 10:32
>Veuillez r=E9pondre =E0
><focus-l@xxxxxxxxxxxxx>
>
>
>A
><FOCUS-L@xxxxxxxxxxxxx>
>cc
><FOCUS-L@xxxxxxx>
>Objet
>[ ] - [focus-l] focus ???? - Email found in subject
>
>
>
>
>
>
>I gotta tell you; sometimes FOCUS drives me nuts.
>I've been using a piece of boilerplate code for over 4 yrs and
>
>Tried to import it to another exec ;
>
>
>
>BANG
>
>
>
>Hangs on a -GOTO
>
>
>
>With (FOC283) IMPROPER USE OF 'GOTO'
>
>
>
>Here's the code
>
>
>
>-READ SIOAWK &ZEROES.A9.,&CCYY.A4.
>
>-TYPE AMPER CCYY IS &CCYY;
>
>-RUN
>
>-SET &Y =3D EDIT(&CCYY, '$$$9')
>
>-TYPE AMPER Y IS &Y ;
>
>
>
>-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 ;
>
>
>
>-RUN
>
>
>
>This gives
>
>
>
>AMPER Y IS 5 ;
>
> ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
>
>(FOC273) SYNTAX ERROR IN DECODE
>
>
>
>If I put single quotes around &Y in the DECODE then I get an error
>about
>-GOTO in a subsequent statement. . .
>
>
>
>
>
>If I string the DECODE out left-to-right I get!!!!!!!!!
>
>
>
>ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
>
>(FOC271) ODD NUMBER OF DECODE LIST ELEMENTS
>
>
>
>Go Figure
>
>
>
>I've always had trouble with DECODE - and FOCUS in General - but this
>baffles me. I'll swear this is working in
>
>Several other execs.
>
>
>
>If anyone can spot the problem, I will be most grateful; I've spent the
>entire night trying to figure this out. . . .
>
>
>
>Bob Hamilton
>
>
>
>FOCUS DRIVES ME NUTS. . .
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>------------------------------
>
>Subject: [focus-l] Re: focus ????
>Date: Wed, 19 Jan 2005 10:51:10 -0500
>From: "Appiah, Andrew" <aappiah@xxxxxxxxxx>
>
>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=3D20
>
>Tried to import it to another exec ;
>
>=3D20
>
>BANG
>
>=3D20
>
>Hangs on a -GOTO
>
>=3D20
>
>With (FOC283) IMPROPER USE OF 'GOTO'=3D20
>
>=3D20
>
>Here's the code
>
>=3D20
>
>-READ SIOAWK &ZEROES.A9.,&CCYY.A4.
>
>-TYPE AMPER CCYY IS &CCYY;
>
>-RUN
>
>-SET &Y =3D3D EDIT(&CCYY, '$$$9')
>
>-TYPE AMPER Y IS &Y ;
>
>=3D20
>
>-SET &ODD_EVEN =3D3D DECODE &Y(1 ODD
>
> 3 ODD
>
> 5 ODD
>
> 7 ODD
>
> 9 ODD
>
> ELSE EVEN);
>
>-RUN
>
>-TYPE ODD_EVEN IS &ODD_EVEN ;
>
>=3D20
>
>-RUN
>
>=3D20
>
>This gives
>
>=3D20
>
>AMPER Y IS 5 ;
>
> ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
>
>(FOC273) SYNTAX ERROR IN DECODE
>
>=3D20
>
>If I put single quotes around &Y in the DECODE then I get an error
>about
>-GOTO in a subsequent statement. . .
>
>=3D20
>
>=3D20
>
>If I string the DECODE out left-to-right I get!!!!!!!!!
>
>=3D20
>
>ERROR AT OR NEAR LINE 21 IN PROCEDURE EXTRACTMFOCEXEC
>
>(FOC271) ODD NUMBER OF DECODE LIST ELEMENTS
>
>=3D20
>
>Go Figure
>
>=3D20
>
>I've always had trouble with DECODE - and FOCUS in General - but this
>baffles me. I'll swear this is working in=3D20
>
>Several other execs.
>
>=3D20
>
>If anyone can spot the problem, I will be most grateful; I've spent the
>entire night trying to figure this out. . . .
>
>=3D20
>
>Bob Hamilton
>
>=3D20
>
>FOCUS DRIVES ME NUTS. . .=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>=3D20
>
>
>
>
>
>------------------------------
>
>End of focus-l Digest V2 #1
>***************************
Other related posts:
