Put a PARSE SOURCE statement at the beginning of the EXEC and see if it was loaded from the X disk.
____________________ Jim Hughes 603-271-5586 "It is fun to do the impossible." ________________________________ From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Sergio Lima Sent: Thursday, October 14, 2010 3:19 PM To: IBMVM@LISTSERV.UARK.EDU Subject: REXX that verify what MINIDISK is a file Hello List, We are changing a REXX here for that this EXEC execute only if reside on X acessed minidisk. So, try with STATE command without succesfull and now try with LISTFILE command. If execute like this : 9 *-* 'LISTFILE cataa exec x (DATE STACK LIFO' >>> "LISTFILE cataa exec x (DATE STACK LIFO" 10 *-* if rc = 0 >>> "1" *-* then *-* do 11 *-* pull x1 x2 x3 . >>> "CATAA" >>> "EXEC" >>> "X2" >.> "V 83 506 4 10/14/10 15:03:32" 12 *-* say x1 >>> "CATAA" CATAA 13 *-* say x2 >>> "EXEC" EXEC 14 *-* say x3 >>> "X2" X2 15 *-* exit But, when try execute with filemode *, lookslike the program go to a LOOPING : 9 *-* 'LISTFILE cataa exec * (DATE STACK LIFO' >>> "LISTFILE cataa exec * (DATE STACK LIFO" 10 *-* if rc = 0 >>> "1" *-* then *-* do 11 *-* pull x1 x2 x3 . >>> "CATAA" >>> "EXEC" >>> "X2" >.> "V 83 506 4 10/14/10 15:03:32" 12 *-* say x1 >>> "CATAA" CATAA 13 *-* say x2 >>> "EXEC" EXEC 14 *-* say x3 >>> "X2" X2 15 *-* exit 9 *-* 'LISTFILE cataa exec * (DATE STACK LIFO' >>> "LISTFILE cataa exec * (DATE STACK LIFO" 10 *-* if rc = 0 >>> "1" *-* then *-* do 11 *-* pull x1 x2 x3 . >>> "CATAA" >>> "EXEC" The command in the line show this : listfile cataa exec * CATAA EXEC A2 CATAA EXEC X2 Ready; T=0.01/0.01 16:17:00 Someone can help, how can verify if this EXEC is not running from X disk ? Thanks very much, Sergio Lima Costa Sao Paulo - Brazil
