rexx arror maybe for tso, psl help



IBM's Command List programming language & Restructured Extended Executor

rexx arror maybe for tso, psl help

Postby wuyunjiefov » Mon Dec 08, 2014 3:09 pm

i write a rexx to check who is using the dataset. use 'TSO TT RAFOV.TSOE.REXX' is fine(pic 01& pic 02) but failed with 'TT RAFOV.TSOE.REXX(pic 03&04). Pls help, i prefer the second way. Pls help . Source pic 05.

pic 01:

DSLIST - Data Sets Matching RAFOV.TSOE 29 Members processed
Command ===> TSO TT RAFOV.TSOE.REXX Scroll ===> CSR

Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
RAFOV.TSOE.CLIST DMTP02
RAFOV.TSOE.JCL.ST06 DMTP02

PIC 02:

BROWSE IBMUSER.ENQ.ENQLIST Line 00000000 Col 001 080
Command ===> Scroll ===> CSR
********************************* Top of Data **********************************
IBMUSER DEMOPKG SHARE OWN SYSTEM SYSDSN RAFOV.TSOE.
******************************** Bottom of Data ********************************

PIC 03:

DSLIST - Data Sets Matching RAFOV.TSOE Row 4 of 5
Command ===> Scroll ===> CSR

Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
TT RAFOV.TSOE.REXX Viewed DMTP03
RAFOV.TSOE.TEST DMTP01
***************************** End of Data Set list ****************************

PIC 04: but the file is in use, so the rexx abend for queryenq

ASNAME: 'RAFOV.TSOE.REXX'
QUERYENQ RC=8
THE FILE IS FREE
***

Source pic 05:

VIEW RAFOV.TSOE.REXX(TT) - 01.32 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 /* REXX */
000002 /* SAMPE TSO DSNQ RAFOV.TSOE.REXX */
000003 ARG DSNNAME
MAY = '*'
000004 ADDRESS ISPEXEC
000005 "QUERYENQ TABLE(QUERYENQ) QNAME(MAY) RNAME(DSNNAME) REQ(*) SAVE(ENQ)"
000006 /* THE VALUE OF PATTERN IS THE ACTUAL PATTERN, AND NOT A
000007 VARIABLE NAME. */
000008 SAY 'ASNAME: ' DSNNAME
000009 IF RC <> 0 THEN SAY 'QUERYENQ RC='RC
000010 IF RC = 8 THEN
000011 DO
000012 SAY 'THE FILE IS FREE'
000013 EXIT
000014 END
000015 "TBEND QUERYENQ"
000016 "BROWSE DATASET('"USERID()".ENQ.ENQLIST')"
****** **************************** Bottom of Data ****************************
wuyunjiefov
 
Posts: 10
Joined: Sun Dec 07, 2014 7:58 pm
Has thanked: 1 time
Been thanked: 0 time

Re: rexx arror maybe for tso, psl help

 

Re: rexx arror maybe for tso, psl help

Postby enrico-sorichetti » Mon Dec 08, 2014 10:23 pm

why not just type in the command line of ANY panel TSO ISRDDN ENQ

and follow the instructions

the chances of getting help when reinventing the wheel are usually pretty small
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort

These users thanked the author enrico-sorichetti for the post:
Peter_Mann (Mon Dec 08, 2014 11:37 pm)
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: rexx arror maybe for tso, psl help

Postby wuyunjiefov » Tue Dec 09, 2014 8:31 am

thanks, it was solved already.
wuyunjiefov
 
Posts: 10
Joined: Sun Dec 07, 2014 7:58 pm
Has thanked: 1 time
Been thanked: 0 time


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post