/* REXX */
 'ISREDIT MACRO'
 CALL NORMAL  
 "ISREDIT DELETE ALL EXCLUDE"
 "ISREDIT RESET" 
 "ISREDIT CURSOR = 1 1"
 "ISREDIT FIND ' ---- ' 19 LAST"
 "ISREDIT RESET"
 EXIT           
 NORMAL:        
 "ISREDIT EXCLUDE ALL" 
 "ISREDIT FIND '----' 20 ALL"
 "ISREDIT FIND 'DSN' 21 ALL"
 "ISREDIT EXCLUDE 'DSNAME' 21 ALL"
 "ISREDIT DELETE ALL EXCLUDE"
 "ISREDIT EXCLUDE ' DSNB401I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB402I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB403I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB404I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB406I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB408I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB410I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB411I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB412I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB413I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB414I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB415I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB420I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB421I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB430I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB431I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB440I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB466I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB469I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB499I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB453I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB454I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB455I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB456I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB467I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB750I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB755I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB756I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB757I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB758I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB759I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB771I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB773I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB774I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB775I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB776I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB777I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB778I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB779I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB789I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB790I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB796I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB797I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB798I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNB891I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNI031I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNJ001I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNJ002I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNJ003I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNJ139I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNP007I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNT376I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNT501I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNU971I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSNU973I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSN3201I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSN9021I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSN9022I ' 20 ALL"
 "ISREDIT EXCLUDE ' DSN9023I ' 20 ALL"
 RETURN