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)