Here is an example of a query

SELECT COUNT(*)

INTO WI-COUNT

FROM S_MID_MEM_IDENTIFIER

WHERE MID_MEM_UID = TO_NUMBER(:WI-MEM-UID)

AND MID_MIT_CODE = 'HCID'

AND MID_DATE_BEGIN <= TRUNC(SYSDATE)

AND NVL(MID_DATE_END,SYSDATE) >= TRUNC(SYSDATE)

AND ROWNUM = 1



“WI-MEM-UID” is defined as an alpha-numeric field of 10 bytes [X(10)]. You can add your own mem_uid to make it work but if the number is less than 10 digits, be sure to right pad with blanks as COBOL would.

Thanks