Re: rexx script won't work in batch

On 22 Sep 2004 09:15:04 -0700 user99@austin.rr.com (user99) wrote:

:>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??????

In the event that you have not yet received an answer:

ISPF CMD(ZSERVER)

Of course, you will then get error messages about your missing allocations.

--
Binyamin Dissen <bdissen@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.