SQL Edit Macro

The SQL edit macro has been setup to dynamically execute DSNTEP2 from TSO ISPF edit or view.

To Use:

From TSO ISPF edit or view, enter <SQL DB2 subsystem name> in the command line. The edit macro

will execute all SQL statements in the dataset being edited or viewed. The dataset should only contain

SQL statements and each SQL statement should end with an semi-colon. Your SQL statement may

span lines. And you can have multiple SQL statements.

Example:

File Edit Confirm Menu Utilities Compilers Test Help

VIEW MY.PDS(X) - 01.53 Columns 00001 00080

Command ===> sql dbt1 Scroll ===> CSR

****** ********************************* Top of Data **********************************

000001 SELECT CUST_NAME

000002 FROM DBAADMIN.TCO88001

000003 WHERE STATE = 'NY';

000004 SELECT COUNT(*) FROM DBAADMIN.TCO88002;

Output Results

PAGE 1

***INPUT STATEMENT:

SELECT CUST_NAME

FROM DBAADMIN.TCO88001

WHERE STATE = 'NY';

+--------------------------------+

| CUST_NAME |

+--------------------------------+

1_| ALPINE FLOOR COVERING CORP |

2_| ANJO CARPETING |

3_| ART FLOCK & SCREEN INC |

4_| JOHN BUCHANAN CARPET CO INC |

5_| CALIFORNIA WATERBEDS |

6_| CARPET COORDINATES INC |

7_| CARPETLAND INC |

8_| CARPET TRENDS INC |

9_| CARPET YARD INC |

10_| CORAM RUG WORKS INC |

11_| CRYSTAL FLOORS |

12_| A DAVIDSON & BROS INC |

56_| ALCOL INT'L INC |

57_| BROOK HOUSE FURN |

58_| J W Z DISTRIBUTOR INC |

59_| ANTHONE FURN CO INC |

60_| SYRACUSE DINETTE CENTRE INC |

61_| GOLDBERG FURN HOUSE |

62_| V J CANCEMI ASSOCIATES INC |

63_| ROYAL OF PORT JERVIS INC |

64_| SEAMANS FURNITURE CO INC |

65_| NEW DEAL TABLE |

+--------------------------------+

SUCCESSFUL RETRIEVAL OF 65 ROW(S)

PAGE 1

***INPUT STATEMENT:

SELECT COUNT(*) FROM DBAADMIN.TCO88002;

+----------------+

| |

+----------------+

1_| 1072 |

+----------------+

SUCCESSFUL RETRIEVAL OF 1 ROW(S)