Code:
- D cursor1DS ds qualified
- D sum 6 0
- D maxFLD2 10
-
- D rs s 52
-
- /free
- exec sql set option datfmt=*iso, commit=*none;
-
- exec sql create table QTEMP/TESTPF (FLD1 dec ( 5, 0), FLD2 char (10 ));
-
- exec sql insert into QTEMP/TESTPF values(10, 'HELL10'),
- (20, 'HELL20'),
- (NULL, 'ZZZZZZZZZZ'),
- (30, 'HELL30');
-
- exec sql
- declare cursor1 scroll cursor for
- select sum(fld1),max(fld2) from TESTPF;
-
- exec sql open cursor1;
-
- exec sql fetch from cursor1 into :cursor1DS;
-
- rs = 'SQLSTATE=' + SQLSTATE + '; ' + 'SQLCODE=' + %char(SQLCODE) + '; '+
- 'Result=' + %char(cursor1DS.sum) + ', ' + cursor1DS.maxfld2;
-
- dsply rs;
-
- exec sql close cursor1;
-
- *inlr = *on;
-
- /end-free
|
|