rexx script won't work in batch

From: user99 (user99_at_austin.rr.com)
Date: 09/22/04 

Date: 22 Sep 2004 09:15:04 -0700

tried this script in batch and I get the following error:

   ZSERVER
      6 *-* "VPUT (CNT, TP)"
        +++ RC(-3) +++
      7 *-* "EDIT DATASET('USER99.SPF.JCL($)')
        +++ RC(-3) +++
 READY
   END
 READY

my rexx script (ZSERVER):

/* REXX */
                                           
CNT = 1
TP = 12345678911
ADDRESS ISPEXEC
"VPUT (CNT, TP)"
"EDIT DATASET('USER99.SPF.JCL($)')
       MACRO(TSERVERM)"
RETURN

my job:
//TSERVER JOB (280000,AAO,T21),MSGCLASS=0
//*MAIN CLASS=T
//TSOBATCH EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=USER99.SPF.REXX,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
  ZSERVER
  END

ideas??????