Clicky
Skip to Content
Custom Search

Reply to comment

The Exact Code

/* REXX  PDS */                                 
THEPDS = "'USERID.ABC.XYZ'"                
X = OUTTRAP('ML.')                              
"LISTDS '"THEPDS"' MEMBERS"                       
X = OUTTRAP('OFF')                              
DO N = 7 TO ML.0                                
  PARSE VAR ML.N MEMBER                         
  MEMBER=STRIP(MEMBER)                          
SAY "MEMBER NAME IS ==>" MEMBER                 
END                                             
EXIT 0  

Reply

  • Allowed HTML tags:
      1. Lines and paragraphs break automatically.

    More information about formatting options

    CAPTCHA
    This question is for testing whether you are a human visitor and to prevent automated spam submissions.

Navigation

Click the +1 button  below to share it with your friends and colleagues

 

Share this if you liked it!

 

Disclaimer



Number of Registered users 713
Theme by Dr. Radut.