How about the following ? /* REXX */ X = LISTDSI("'SYS1.MODGEN'" DIRECTORY) SAY 'FUNCTION CODE FROM LISTDSI IS: ' X SAY 'THE DATA SET NAME IS: ' SYSDSNAME SAY 'THE DEVICE UNIT ON WHICH THE VOLUME RESIDES IS:' SYSUNIT SAY 'THE RECORD FORMAT IS: ' SYSRECFM SAY 'THE LOGICAL RECORD LENGTH IS: ' SYSLRECL SAY 'THE BLOCK SIZE IS: ' SYSBLKSIZE SAY 'THE ALLOCATION IN SPACE UNITS IS: ' SYSALLOC SAY 'TYPE OF RACF PROTECTION IS: ' SYSRACFA SAY 'THE NUMBER OF ALLOCATED BLOCKS IS: ' SYSADIRBLK SAY 'THE NUMBER OF USED BLOCKS IS: ' SYSUDIRBLK SAY 'THE NUMBER OF MEMBER IS: ' SYSMEMBERS
The result is as folows. FUNCTION CODE FROM LISTDSI IS: 0 THE DATA SET NAME IS: SYS1.MODGEN THE DEVICE UNIT ON WHICH THE VOLUME RESIDES IS: 3390 THE RECORD FORMAT IS: FB THE LOGICAL RECORD LENGTH IS: 80 THE BLOCK SIZE IS: 27920 THE ALLOCATION IN SPACE UNITS IS: 567 TYPE OF RACF PROTECTION IS: NONE THE NUMBER OF ALLOCATED BLOCKS IS: 57 THE NUMBER OF USED BLOCKS IS: 47 THE NUMBER OF MEMBER IS: 723 Best regards, Nobuhiko Furuya(古谷信彦) V-SOL Inc. On 2022/08/25 12:44, Farley, Peter x23353 wrote:
Posted earlier today on MVS-OE but got no responses there. I know this has probably been discussed previously but I can't seem to get the Marist MVS-OE archive search to work for me. Is there any way to use the LISTDSI TSO external function from "address tso" in a Rexx program run under the Unix shell? I can only get it to return RC = -3, "routine not found". Sample code below. RTFM seems to indicate that "address tso" in a REXX program run under the Unix shell will run a TSO TMP in a separate address space, which is OK, I can capture the output from that as needed, but I am not getting any execution of LISTDSI at all. Peter Sample code to get LISTDSI information on 'profilename.EXEC': /* Rexx */ Address tso Myrc = LISTDSI('EXEC') Say 'RC='Myrc',reason='SYSREASON This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN