| Binyamin Dissen 2004-10-03, 3:55 pm |
| 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.
|