For reasons Mark Z. cited, you cannot do this. Why not try using the
CONSOLE command in a batch execution of TSO. Here's my flavor to do
this:
/******************************* REXX *********************************/
/* RXCONS - Invoke CONSOLE command from REXX */
/* */
/* Program Description:- */
/* --------------------- */
/* This program acts like a REXX Function. It is invoked by Rexx */
/* execs that need to use CONSOLE services and trap the returning */
/* output. Invoke like this: RXCONS(con_input) or in another REXX */
/* exec like this: cmd_line = RXCONS(con_input) */
/**********************************************************************/
Arg con_input
Address TSO
j = 0
con_name = USERID()
msg_status = MSG("OFF");
'FREE FI(DD1)'
'FREE ATTRLIST(DCB)'
msg_status = MSG("ON");
"ATTRIB DCB RECFM(F B) LRECL(80) BLKSIZE(0) DSORG(PS)";
/* allocate temp VIO file */
"ALLOC FILE(DD1) UNIT(VIO) SP(1,1) TRACK USING(DCB) NEW"
msg_status = MSG("OFF");
"TSOEXEC CONSOLE DEACTIVATE" /* deactivate console */
msg_status = MSG("ON");
Cart_V = 'CONS1'random(100,) /* build CART value */
pass_arg. = "CONSOLE SYSCMD("con_input") CART("Cart_V")"
"TSOEXEC CONSPROF SOLDISP(NO) SOLNUM(400)"
/* activate Console services*/
"TSOEXEC CONSOLE ACTIVATE NAME("con_name") CART("Cart_V")"
pass_arg. /* present cmd to console */
getcode = 0
Do while getcode = 0 /* get console message */
getcode = GETMSG('issue_back.','SOL',Cart_V,,5)
If getcode = 0 then
Do
Do i = 1 to issue_back.0
k = i + j
wto.k = issue_back.i
End
j = j + issue_back.0
End
End
DROP issue_back. /* unassigns variable */
'EXECIO * DISKW DD1 (STEM wto.' /* write message to a STEM */
'EXECIO 0 DISKW DD1 (FINIS'
DROP wto. /* unassigns variable */
msg_status = MSG("OFF");
"TSOEXEC CONSOLE DEACTIVATE" /* deactivate console */
msg_status = MSG("ON");
Address ISPEXEC /* library services */
'LMINIT DATAID(DATAID) DDNAME(DD1)'
'BROWSE DATAID('DATAID')'
'LMFREE DATAID('DATAID')'
Address TSO
'FREE FI(DD1)'
'FREE ATTRLIST(DCB)'
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Robin van Westendorp
Sent: Thursday, June 25, 2009 9:58 AM
To: IBM-MAIN@bama.ua.edu
Subject: SDSF Batch command size limit
I would like to submit a batch job to issue a catalog command. However,
I
find that the total command exceeds the size that one can issue on SDSF
command line. Is there a way to issue a slash in SDSF batch to get to
the
System Command Extention?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
