🚀 go-pugleaf

On  Wed, 20 May 92 12:25:13 ADT  "John R. Grout" <grout@CSRD.UIUC.EDU>
writes:
> Try doubling the ampersand (e.g., DC CL4'C&&T ').

This is true and will fix the original problem, however, deserves an
aside (well at least I think it deserves one :-) about the situation
when an ampersand is required in conditional assembly.  Let's assume
that you want to check whether a SETC expression contains a single
ampersand,  you have to do something like the following:

         AIF   ('expression'(&CTR,1) EQ '&&'(1,1)).seqsym

It is necessary to use a doubled ampersand then take a substr in order
to have only one of them because the SETC string will carry them as
a pair of ampersands.  Try the following at home:

         MACRO
         TEST
         LCLA  &L1,&L2
         LCLC  &A,&B
&A       SETC  '&&'
&B       SETC  '&A'(1,1)
&L1      SETA  K'&A
&L2      SETA  K'&B
         MNOTE *,'LENGTH OF &&A="&A" IS &L1, AND OF &&B="&B" IS &L2'
         MEND
         TEST
         END

Trivia question: About which ampersamd is IEV127 complaining?

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-  J. Anthony Fitzgerald                  Phone:     (506) 453-4573
   Computing Services                     NetNorth:  JAF@UNB.ca
   The University of New Brunswick              or   JAF@UNB
   PO Box 4400
   Fredericton, N.B.  Canada
   E3B 5A3