          SUBROUTINE (PN)
** Version# 5.0002[6] - 08/13/2012 - 03:33pm - TSMITH - eclipse
*** V5.0002 Change - Custom Coding CUSTOM - 08/13/2012 - TSMITH - eclipse
** Copied from BP PRD.XREF.VIEW Version# 5 - 11/10/2000 - 05:49pm - DONS - develop

          PRD.XREF.VIEW.GET.DATA PN,XDATA,XREFS
          ROWS  = DCOUNT(XREFS,VM)
          IF ROWS < 1 THEN PRINT BELL:; RETURN
          IF ROWS > 10 THEN ROWS = 10
          MENU.TABLE WORD,,,1,ROWS,25,,,XREFS,'Product External Refs'
          IF WORD='' THEN RETURN
          LOCATE WORD IN XREFS<1> SETTING LINE ELSE PRINT BELL:; RETURN

*          AGENT = PRD(93)<1,1,1>
*          FILE = PRD(93)<1,1,3>
          XDATA = PRD(93)


          PRD.XREF.VIEW.CALL.SPEC XDATA,LINE,RESULTS
*** Display the return message.
          IF RESULTS THEN
             PRINT BELL:
             MESS 2,2,RESULTS
IN.RES:      INP A
          END

          RETURN
!TSMITH~08/13/12~15:33
