Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- EXECUTE FUNCTION curr_sess(2009,'SP')
- CREATE TEMP TABLE t12(yr smallint, sess char(4));
- INSERT INTO t12 EXECUTE FUNCTION curr_sess(2009,'SP');
- begin procedure
- DEFINE _yr smallint;
- DEFINE _sess char(4);
- SELECT
- DISTINCT
- sess_vw.yr,
- sess_vw.sess,
- sess_vw.sess_sort
- FROM
- sess_vw
- ORDER BY
- sess_vw.sess_sort DESC
- INTO temp tmp_sess WITH NO LOG;
- SELECT
- FIRST 1
- tmp_sess.yr,
- tmp_sess.sess
- FROM
- tmp_sess
- WHERE
- tmp_sess.sess_sort = sess_sort(iYear,sSess)
- INTO temp tmp_final WITH NO LOG;
- FOREACH cursor1 FOR
- SELECT
- tmp_final.yr,
- tmp_final.sess
- INTO
- _yr,
- _sess
- FROM
- tmp_final
- RETURN _yr, _sess WITH RESUME;
- END FOREACH;
- DROP TABLE tmp_sess;
- DROP TABLE tmp_final;
- end procedure
- SELECT
- FIRST 1
- sess_vw.sess_sort
- FROM
- sess_vw
- WHERE
- sess_vw.sess_sort > sess_sort(2009,'SP')
- ORDER BY
- sess_vw.sess_sort ASC
- SELECT
- *
- FROM
- TABLE(next_sess(2009,'SP'))
- CREATE PROCEDURE r12() RETURNING INT, INT;
- RETURN 1, 2 WITH RESUME;
- RETURN 2, 3 WITH RESUME;
- END PROCEDURE;
- CREATE TEMP TABLE t12(c1 INT, c2 INT);
- INSERT INTO t12 EXECUTE PROCEDURE r12();
- CREATE TEMP TABLE t12(yr smallint, sess char(4));
- CREATE PROCEDURE curr_sess(yearnum SMALLINT, sesscode CHAR(2))
- RETURNING SMALLINT AS yr, CHAR(4) AS sess;
- RETURN yearnum, (sesscode || 'AD') WITH RESUME;
- RETURN yearnum, (sesscode || 'BC') WITH RESUME;
- END PROCEDURE;
- CREATE PROCEDURE r12(yearnum SMALLINT, sesscode CHAR(2))
- DEFINE yr SMALLINT;
- DEFINE sess CHAR(4);
- FOREACH EXECUTE PROCEDURE curr_sess(yearnum, sesscode) INTO yr, sess
- INSERT INTO t12 VALUES(yr, sess);
- END FOREACH;
- END PROCEDURE;
- EXECUTE PROCEDURE r12(2009,'SP');
- SELECT * from t12;
Add Comment
Please, Sign In to add comment