IBM Mainframe Forum

SELECT ADDR_ID_NO,                         
       PNSLRR_EFF_DT,                     
       PNSLRR_EXPRTN_DT,                   
       PPO_FE_SCH_MDFR_CD,                 
       RMBRCP_TAXID_NO,                   
       RMBRCP_TXIDFRMT_CD,                 
       ADDRD_STRASTSH_ABR,                 
       PNSLRR_PCMCPC_CNT                   
FROM  PNSLRR A, ADDRD B                   
WHERE PRVDR_ID_NO      = :WS10-PRVDR-ID-NO
  AND NTWK_ID_NO       = :WS10-NETID       
  AND PNSLRR_EFF_DT   <= :WS20-SAVE-CURR-DT
  AND PNSLRR_EXPRTN_DT > :WS20-SAVE-CURR-DT
  AND SUPERCEDE_DATE   = '0001-01-01'     
  AND ADDRD_EFF_DT    <= :WS20-SAVE-CURR-DT
  AND ADDRD_EXPRTN_DT  > :WS20-SAVE-CURR-DT
  AND ADDRD_SPSD_DT    = '0001-01-01'     
  AND ADDR_ID_NO       = ADDR_NO           
WITH UR