Date:         Wed, 10 Mar 1999 09:12:11 -0500
Reply-To:     WHITLOI1 <WHITLOI1@WESTAT.COM>
Sender:       "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From:         WHITLOI1 <WHITLOI1@WESTAT.COM>
Subject:      Re: ERROR
Comments: To: Girish Patel <gspatel@PEPCO.COM>
Content-Type: text/plain; charset=US-ASCII

Girish,
 
My guess is that in the real code you are generating the format name from macro
variables and that the the token is getting screwed up.  Try putting %UNQUOTE( )
arround the construction of the format name.
If the guess is wrong then supply the real code, one cannot debug test code that
doesn't have the problem in it.
 
Ian Whitlock <whitloi1@westat.com>
 
____________________Reply Separator____________________
Subject:    ERROR
Author: Girish Patel <gspatel@PEPCO.COM>
Date:       3/9/1999 2:52 PM
 
error ::
 
PUT / @1 STATUS  S54T.
                 -
                 386
 
386-185  :  EXPECTING AN ARITHMETIC EXPRESSION.
 
 
---------------------- Forwarded by Girish S Patel/TEB/CEC on 03/09/99
02:52 PM ---------------------------
 
 
Girish Patel <gspatel@PEPCO.COM> on 03/09/99 02:48:05 PM
 
Please respond to gspatel@PEPCO.COM
 
To:   SAS-L@UGA.CC.UGA.EDU
cc:    (bcc: Girish S Patel/TEB/CEC)
Subject:  ERROR
 
 
 
 
UPON SUBMITTING THESE TEST CODE, I DON'T SEE ANY ERROR;
 
HOWEVER SUBMITTING WITH REAL DATA, I AM GETTING  AN ERROR MESSAGE
"EXPECTING AN  ARITHMETIC EXPRESSION "
CAN ANYBODY SHED SOME LIGHTS ON ???
 
PROC FORMAT;
 VALUE  S54T  1  = '* CHANGE'
              OTHER = '   ADD'
              ;
RUN;
 
%MACRO REPT1;
DATA _NULL_ ; SET NEW540C END=EOF; FILE PRINT ;
PUT / @1 STATUS  S54T. @10 'THIS IS MY TEST'
 ;
%MEND REPT1 ;
DATA  TEST   ;
INPUT SOCIAL NAME $;
CARDS;
1111 JOHN
2222 JACK
8888 PETE
;
DATA  NEW540X;
INPUT SOCIAL NAME $ AGE $ ;
CARDS;
1111 JOHN 10
2222 JACK 20
3333 JOSE 30
;
DATA  NEW540B;
INPUT SOCIAL NAME $;
CARDS;
1111 JOHN
2222 JACK
4444 JULE
;
DATA NEW540C;
MERGE TEST
      NEW540X(IN=IN540)
      NEW540B(IN=INOLD)
      ;
      BY SOCIAL;
STATUS=INOLD; CURRENT=IN540;
IF CURRENT;
%REPT1   ;