IBM Mainframe Forum

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