Edit dataset from JCL



IBM's Command List programming language & Restructured Extended Executor

Edit dataset from JCL

Postby David2k8 » Mon Mar 23, 2015 10:40 am

call usttlog "EF"                                                       
"ISREDIT MACRO"                                                         
"ISREDIT (LN,COL)=CURSOR"                                               
"ISREDIT (SRCLINE) = LINE .ZCSR"                                       
  PARSE VAR SRCLINE 'DSN=' DSNNAME ','                                 
  DSNNAME = WORD(DSNNAME,1)                                             
if  DSNNAME = '' then say 'Place cursor on the DD DSN   line'           
ELSE                                                                   
DATASETN = strip(DSNNAME)                                               
DO                                                                     
  IF  SYSDSN("'"||DATASETN||"'") <> OK THEN                             
     say  'Dataset' DATASETN 'not in catalog'                           
  ELSE                                                                 
     "ISPEXEC EDIT  DATASET('"||DATASETN||"')"                         
END                                                                     
EXIT


Code'd
David2k8
 
Posts: 7
Joined: Mon Mar 23, 2015 10:32 am
Has thanked: 0 time
Been thanked: 2 times

Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post