DEFINE DATA
LOCAL
1 TABLE-VIEW VIEW OF DB2TABLE
2 TAB_COL_ONE
2 TAB_COL_TWO
END-DEFINE
SELECT * INTO VIEW TABLE-VIEW
FROM DB2TABLE
WHERE TAB_COL_TWO = XXXXXXXXX
IF NO RECORDS FOUND
WRITE 'NO RECS FOUND'
ESCAPE BOTTOM
END-NOREC
WRITE 'TAB COL ONE = ' TABLE-VIEW.TAB_COL_ONE
WRITE 'TAB COL TWO = ' TABLE-VIEW.TAB_COL_TWO
END-SELECT
WRITE 'AT END OF SELECT'
END
Return To Natural Directory
Return To JCLLIB