3 Replies Latest reply: Jul 20, 2010 5:34 AM by 690504 RSS

    Alpha -> IA64 DMQ_CLS_T_7092 Process goes into tight loop

    785571
      Working for years on alpha. INstalled DMQ on IA64. Copied DMQ$init.txt, set server logicals and quotas to IA64 user directory.
      run startup everything looks ok,
      CLS process is in a CPU loop and 7092 socket is not created.

      rx6600 vms 8.3-1h1


      CLS LOG FILE
      ELXBT2:SYSTEM> type DMQ$CLS_T_7092_4001_11001.LOG
      $ @DISK$DMQ_USER_DSK:[DMQ$V50.EXE]dmq$detach_process 4001 11001 DMQ$EXE:DMQ$CLS_TGV.EXE DISK$DMQ_USER_DSK:[DMQ$V50.EXE] "-e 7092 -m
      16 -s dmq$user:cl_7092.sf"
      $!*++
      $!** Copyright (c) 1997-2003 BEA Systems, Inc.
      $!** All Rights Reserved.
      $!**
      $!** Unpublished rights reserved under the copyright laws of the
      $!** United States.
      $!**
      $!** The software contained on this media is proprietary to and
      $!** embodies the confidential technology of BEA Systems, Inc.
      $!** Possession, use, duplication or dissemination of the soft-
      $!** ware and media is authorized only pursuant to a valid writ-
      $!** ten license from BEA Systems, Inc.
      $!**
      $!** RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by
      $!** the U.S. Government is subject to restrictions as set forth
      $!** in Subparagraph (c)(1)(ii) of DFARS 252.227-7013, or in FAR
      $!** 52.227-19, as applicable.
      $!**
      $!*--
      $! ===========================================================
      $! DMQ$DETACH_PROCESS.COM
      $!
      $! P1 ==> bus_id
      $! P2 ==> grp_id
      $! P3 ==> full image file spec
      $! P4 ==> location of DMQ$EXE
      $! P5 ==> foreign command input (optional)
      $!
      $! ===========================================================
      $!
      $! set noverify
      $
      $ on warning then exit $status
      $ ss$_nopriv = 36
      $ ss$_badparam = 20
      $ ss$_nosuchdev = 2312
      $ say = "write sys$output"
      $ tab = " "
      $ quote = """
      $
      $ if p1 .eqs. "" then exit 20
      $ if p2 .eqs. "" then exit 20
      $ if p3 .eqs. "" then exit 20
      $ if p4 .eqs. "" then exit 20
      $
      $ bus_id = "4001"
      $ grp_id = "11001"
      $ image_file = "DMQ$EXE:DMQ$CLS_TGV.EXE"
      $ dmq_exe = "DISK$DMQ_USER_DSK:[DMQ$V50.EXE]"
      $
      $ save_ver = f$verify(0)

      %DMQ-S-SETLNM, Set to MessageQ LNM table DMQ$LNM_4001_11001
      $
      $ logical_proc = f$search("DMQ$USER:DMQ$SET_SERVER_LOGICALS.COM")
      $ IF "DISK$DMQ_USER_DSK:[DMQ$V50.USER.4001_11001]DMQ$SET_SERVER_LOGICALS.COM;3" .nes. ""
      $ THEN
      $ @dmq$user:dmq$set_server_logicals
      $ ver = f$verify()
      $!=
      $! Copyright (c) 1997-2000 BEA Systems, Inc.
      $! All Rights Reserved.
      $!
      $! Unpublished rights reserved under the copyright laws of the
      $! United States.
      $!
      $! The software contained on this media is proprietary to and
      $! embodies the confidential technology of BEA Systems, Inc.
      $! Possession, use, duplication or dissemination of the soft-
      $! ware and media is authorized only pursuant to a valid writ-
      $! ten license from BEA Systems, Inc.
      $!
      $! RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by
      $! the U.S. Government is subject to restrictions as set forth
      $! in Subparagraph (c)(1)(ii) of DFARS 252.227-7013, or in FAR
      $! 52.227-19, as applicable.
      $!
      $!=
      $!
      $! *** DMQ$SET_SERVER_LOGICALS.COM - A user modifiable command procedure to set
      $! stream output and tracing switches for all
      $! MessageQ Server processes.
      $!
      $! NOTE: See the MQ VMS Installation and Configuration guide for additional
      $! information before altering these values.
      $!
      $!=
      $
      $ SS$_NORMAL = 1
      $ SS$_NOLOGNAM = 444
      $ SS$_ABORT = 44
      $ SS$_BADPARAM = 20
      $
      $ put = "write sys$output"
      $ valid_servers = ",COM,MRS,SBS,JRN,EVL,TCPIP_LD,DECNET_LD,XFR,NA ,"
      $ valid_servers_id = ",C ,M ,S ,J ,L ,T ,D ,Q ,N ,"
      $
      $ on warning then exit $status
      $ on control_y then exit 44
      $
      $ process_name = f$getjpi("", "PRCNAM")
      $ server_ident = f$extract(4,1,"DMQ_CLS_T_7092")
      $
      $ if f$extr(0,8,"DMQ_CLS_T_7092") .eqs. "DMQ_CLS_"
      $ then
      $ goto CLS
      $ CLS:
      $ trace_output = "SYSOUT"
      $ group_output = "EVL_LOG,CONSOLE"
      $ process_output = "SYSOUT"
      $ debug = ""
      $ headers = ""
      $ server_trace = ""
      $ user_log = ""
      $
      $ !*********************************************************************
      $ !define DMQ$CLS_TRACEBACK 1
      $ !** If this logical name is defined CLS will not establish the default
      $ !** signal handlers. This allows a run-time error to generate a
      $ !** traceback instead of being trapped by the signal handler.
      $ !**
      $ define DMQ$CLS_NOLOGLINKS 1
      $ !** If this logical name is defined CLS will not log link connection
      $ !** messages for multiuser mode. This reduces the additional
      $ !** informational messages written to the EVL log file.
      $ !*********************************************************************
      $ goto SET_LOGICALS
      $ SET_LOGICALS:
      $ IF ("SYSOUT" .nes. "")
      $ THEN define DMQ$TRACE_OUTPUT 'trace_output'
      $ ENDIF
      $
      $ IF ("EVL_LOG,CONSOLE" .nes. "")
      $ THEN define DMQ$GROUP_OUTPUT 'group_output'
      $ ENDIF
      $
      $ IF ("SYSOUT" .nes. "")
      $ THEN define DMQ$PROCESS_OUTPUT 'process_output'
      $ ENDIF
      $
      $ IF ("" .nes. "")
      $ ENDIF
      $
      $ IF ("" .nes. "")
      $ ENDIF
      $
      $ IF ("" .nes. "")
      $ ENDIF
      $
      $ IF ("" .nes. "")
      $ ENDIF
      $
      $ FINISHED:
      $ ver = f$verify(ver)
      $ exit
      $ ENDIF
      $
      $ show logical dmq$*

      (LNM$PROCESS_TABLE)

      "DMQ$CLS_NOLOGLINKS" = "1"
      "DMQ$ENTRYRTL" = "DMQ$EXE:DMQ$ENTRYRTLV50.EXE"
      "DMQ$EXECRTL" = "DMQ$EXE:DMQ$EXECRTLV50.EXE"
      "DMQ$GROUP_OUTPUT" = "EVL_LOG"
      = "CONSOLE"
      "DMQ$LIBFML32" = "DMQ$EXE:DMQ$LIBFML32V50.EXE"
      "DMQ$LIBGP" = "DMQ$EXE:DMQ$LIBGPV50.EXE"
      "DMQ$PROCESS_OUTPUT" = "SYSOUT"
      "DMQ$PSSRTL" = "DMQ$EXE:DMQ$ENTRYRTLV50.EXE"
      "DMQ$TRACE_OUTPUT" = "SYSOUT"
      "DMQ$VPS_EXEC" = "DMQ$EXE:DMQ$VPS_EXECV50.EXE"
      "DMQ$VPS_USER" = "DMQ$EXE:DMQ$VPS_USERV50.EXE"

      (DMQ$LNM_4001_11001)

      "DMQ$ACCESS" = "DSA4:[DMQ$V50.USER.4001_11001]"
      "DMQ$BUS_GROUP" = "4001_11001"
      "DMQ$CHKPT_FILE" = "DMQ$USER:DMQ$CHKPT_4001_11001.DAT"
      "DMQ$COM_SERVER_UP" = "YES"
      "DMQ$DISK" = "DISK$DMQ_USER_DSK:"
      "DMQ$DOC" = "DMQ$DISK:[DMQ$V50.DOC]"
      "DMQ$ENTRYRTL" = "DMQ$EXE:DMQ$ENTRYRTLV50.EXE"
      "DMQ$EVENT_LOGGER_MBX" = "MBA50082:"
      "DMQ$EXAMPLES" = "DMQ$DISK:[DMQ$V50.EXAMPLES]"
      "DMQ$EXE" = "DMQ$DISK:[DMQ$V50.EXE]"
      "DMQ$EXECRTL" = "DMQ$EXE:DMQ$EXECRTLV50.EXE"
      "DMQ$INIT_FILE" = "DMQ$USER:DMQ$INIT.TXT"
      "DMQ$LIB" = "DMQ$DISK:[DMQ$V50.LIB]"
      "DMQ$LIBFML32" = "DMQ$EXE:DMQ$LIBFML32V50.EXE"
      "DMQ$LIBGP" = "DMQ$EXE:DMQ$LIBGPV50.EXE"
      "DMQ$LIC_FILE" = "DMQ$DISK:[DMQ$V50.UDATAOBJ]LIC.TXT"
      "DMQ$LOG" = "DMQ$DISK:[DMQ$V50.LOG.4001_11001]"
      "DMQ$MRS" = "DMQ$DISK:[DMQ$V50.MRS.4001_11001]"
      "DMQ$MSGSHR" = "DMQ$EXE:DMQ$MSGSHRV50.EXE"
      "DMQ$PSSRTL" = "DMQ$EXE:DMQ$ENTRYRTLV50.EXE"
      "DMQ$ROOT" = "DMQ$V50"
      "DMQ$SET_LNM" = "DMQ$USER_DSK:[DMQ$V50.EXE]DMQ$SET_LNM_TABLEV50.EXE"
      "DMQ$TCPIP_LD" = "TGV"
      "DMQ$TERMINATION_MBX" = "MBA50083:"
      "DMQ$USER" = "DMQ$DISK:[DMQ$V50.USER.4001_11001]"
      "DMQ$VERSION" = "V5.01-12(RP13)"
      "DMQ$VPS_EXEC" = "DMQ$EXE:DMQ$VPS_EXECV50.EXE"
      "DMQ$VPS_USER" = "DMQ$EXE:DMQ$VPS_USERV50.EXE"

      (LNM$JOB_910BB180)

      (LNM$GROUP_000001)

      (LNM$SYSTEM_TABLE)

      "DMQ$EXE" [super] = "DMQ$USER_DSK:[DMQ$V50.EXE]"
      "DMQ$EXE" [exec] = "DMQ$USER_DSK:[DMQ$V50.EXE]"
      "DMQ$USER_DSK" = "DSA4:"

      (LNM$SYSCLUSTER_TABLE)

      (DECW$LOGICAL_NAMES)
      $ show process/all

      16-JUL-2010 09:35:15.91 User: SYSTEM Process ID: 202804A4
      Node: ELXBT2 Process name: "DMQ_CLS_T_7092"

      Terminal:
      User Identifier: [SYSTEM]
      Base priority: 6
      Default file spec: DMQ$DISK:[DMQ$V50.USER.4001_11001]
      Number of Kthreads: 1

      Process Quotas:
      Account name: SYSTEM
      CPU limit: Infinite Direct I/O limit: 5000
      Buffered I/O byte count quota: 4999232 Buffered I/O limit: 5000
      Timer queue entry quota: 4999 Open file quota: 5007
      Paging file quota: 14990192 Subprocess quota: 64
      Default page fault cluster: 64 AST quota: 4999
      Enqueue quota: 6192 Shared file limit: 0
      Max detached processes: 0 Max active jobs: 0

      Accounting information:
      Buffered I/O count: 79 Peak working set size: 4448
      Direct I/O count: 47 Peak virtual size: 209248
      Page faults: 379 Mounted volumes: 0
      Images activated: 3
      Elapsed CPU time: 0 00:00:00.04
      Connect time: 0 00:00:00.05

      Authorized privileges:
      CMKRNL EXQUOTA NETMBX OPER SYSGBL SYSLCK
      SYSNAM SYSPRV TMPMBX WORLD

      Process privileges:
      CMKRNL may change mode to kernel
      EXQUOTA may exceed disk quota
      NETMBX may create network device
      OPER may perform operator functions
      SYSGBL may create system wide global sections
      SYSLCK may lock system wide resources
      SYSNAM may insert in system logical name table
      SYSPRV may access objects via system protection
      TMPMBX may create temporary mailbox
      WORLD may affect other processes in the world

      Process rights:
      SYSTEM resource
      INTERACTIVE
      LOCAL
      NET$MANAGE

      System rights:
      SYS$NODE_ELXBT2

      Auto-unshelve: on

      Image Dump: off

      Soft CPU Affinity: off

      Parse Style: Traditional

      Case Lookup: Blind

      Units: Blocks

      Token Size: Traditional

      Home RAD: 0

      Scheduling class name: none

      Process Dynamic Memory Area
      Current Size (KB) 528.00 Current Size (Pagelets) 1056
      Free Space (KB) 501.54 Space in Use (KB) 26.45
      Largest Var Block (KB) 496.00 Smallest Var Block (bytes) 16
      Number of Free Blocks 6 Free Blocks LEQU 64 bytes 3

      There is 1 process in this job:

      DMQ_CLS_T_7092 (*)
      $
      $
      $ @DISK$DMQ_USER_DSK:[DMQ$V50.EXE]dmq$get_architecture
      $ if "" .nes. "" then exit 1 !enter once only
      $!
      $! DMQ$GET_ARCHITECTURE
      $!
      $! Sets architecture symbols for BMQ build procedures
      $!
      $ SET SYMBOL/SCOPE=(LOCAL,GLOBAL)
      $
      $ arch == f$edit(f$getsyi("ARCH_NAME"), "UPCASE")
      $
      $!
      $! klewdge... until we globally clean-up "IA64" - elli
      $!
      $ if arch .eqs. "IA64" then arch == "I64"
      $
      $ host_arch == arch
      $
      $ if f$trnlnm("CROSSCOMPILING_FOR_I64") then arch == "I64"
      $
      $ pltfrm == arch
      $ platform == arch
      $
      $ if arch .eqs. "ALPHA"
      $ endif
      $
      $ if arch .eqs. "I64"
      $ then
      $ i64 == "YES"
      $ vax == "NO"
      $ notvax == "YES"
      $ alpha == "NO"
      $ endif
      $
      $ if arch .eqs. "VAX"
      $ endif
      $
      $ exit 1
      $ page_name = "pages"
      $
      $ os_type = "VAX/VMS "
      $
      $ if .not. vax
      $ then
      $ alpha = "YES"
      $ page_name = "pagelets"
      $ os_type = "OpenVMS Alpha "
      $ endif
      $
      $ swvers = f$getsyi("node_swvers")
      $ if f$extract(1,1,"V8.3") .eqs. "5"
      $ else
      $ oldvms = "NO"
      $ endif
      $
      $ say ""

      $ say tab,"------------------------------------------------"
      ------------------------------------------------
      $ say tab,"~~~~~~~~~~~~ System Description ~~~~~~~~~~~~~~~~"
      ~~~~~~~~~~~~ System Description ~~~~~~~~~~~~~~~~
      $ say tab,"------------------------------------------------"
      ------------------------------------------------
      $ say tab," System name: ",f$getsyi("nodename")
      System name: ELXBT2
      $ say tab," Harware type: ",f$getsyi("hw_name")
      Harware type: HP rx2660 (1.67GHz/9.0MB)
      $ say tab," Software type: ",os_type,f$edit(f$getsyi("version"),"trim")
      Software type: OpenVMS Alpha V8.3-1H1
      $ if .not. oldvms
      $ then
      $ sysmem = f$getsyi("memsize")
      $ if alpha then sysmem = sysmem * 16
      $ say tab," Physical memory: ",sysmem," ",page_name," (",sysmem/2048,"Mb)"
      Physical memory: 33553664 pagelets (16383Mb)
      $ endif
      $ say tab," CPUs (total/active): ",f$getsyi("availcpu_cnt"),"/",f$getsyi("activecpu_cnt")
      CPUs (total/active): 4/4
      $ if .not. f$getsyi("cluster_member")
      $ else
      $ say tab," Cluster: Yes, ", f$getsyi("cluster_nodes")," nodes"
      Cluster: Yes, 2 nodes
      $ endif
      $ say tab," Global pages free: ",f$getsyi("free_gblpages")
      Global pages free: 19637520
      $ say tab,"Global sections free: ",f$getsyi("free_gblsects")
      Global sections free: 470
      $ say tab," Pagefile free: ",f$getsyi("pagefile_free")
      Pagefile free: 3519993
      $ say tab," Global page file: ",f$getsyi("gblpagfil")
      Global page file: 1574108
      $ say tab," Bug check fatal: ",f$getsyi("bugcheckfatal")
      Bug check fatal: FALSE
      $ say tab," Virtual page count: ",f$getsyi("virtualpagecnt")
      Virtual page count: 2147483647
      $ say tab,"------------------------------------------------"
      ------------------------------------------------
      $ say ""

      $
      $ call WRITE_MBX "-e 7092 -m 16 -s dmq$user:cl_7092.sf"
      $ WRITE_MBX: subroutine
      $ on warning then exit $status
      $
      $ known_pn = "S,M,D,L,T,J,Q,N,"
      $ server_pn = "SBS,MRS,DNA,EVL,TCP,JRN,QXF,NA ,"
      $
      $ my_pn = f$getjpi("","PRCNAM")
      $ bg = f$trnlnm("DMQ$BUS_GROUP") - "_"
      $ if f$element(0,"_",my_pn) .nes. "DMQ" then goto WM_EXIT
      $
      $ if "DMQ_C_400111001" .nes. "DMQ_CLS_T_7092" .and. -
      .not. f$getdvi("DMQ$TERMINATION_MBX","EXISTS")
      $ endif
      $
      $ if f$extr(0,8,"DMQ_CLS_T_7092") .eqs. "DMQ_CLS_"
      $ then
      $ t = "T"
      $ if f$locate("-d", p1) .lt. f$length(p1) then t = "D"
      $ f = "T -e 7092 -m 16 -s dmq$user:cl_7092.sf" - "-e " - "-m " - "-d "
      $ f = f$edit(f,"COMPRESS")
      $ open/share=write/append mbx DMQ$TERMINATION_MBX
      $ write mbx "DMQ PROC:CLS PID:" + f$getjpi("","PID") + " " + quote + "T 7092 16 -s dmq$user:cl_7092.sf" + quote
      $ close mbx
      $ goto WM_EXIT
      $ WM_EXIT:
      $ exit
      $
      $ set verify
      $ fcmd := $DMQ$EXE:DMQ$CLS_TGV.EXE
      $ fcmd -e 7092 -m 16 -s dmq$user:cl_7092.sf
      Copyright © BEA Systems, Inc. 2005. All rights reserved.
        • 1. Re: Alpha -> IA64 DMQ_CLS_T_7092 Process goes into tight loop
          690504
          Hi,

          Firstly I suppose you are using TGV Multinet TCP/IP and it has been successfully installed, right?

          Could you please show me the EVL log related with this error?

          And if you want, you can send me your init file so that I can check if anything is ok. My email: leo.wang@oracle.com

          Regards,
          Leo
          • 2. Re: Alpha -> IA64 DMQ_CLS_T_7092 Process goes into tight loop
            785571
            Hi,
            I believe i found the problem.
            I'm missing a module when relinking.

            %ILINK-W-NOSUCHMOD, module QIO_TCPIP_TGV not found
            in library DISK$DMQ_USER_DSK:[DMQ$V50.LIB]CLS.OLB;2
            %ILINK-W-NUDFSYMS, 1 undefined symbol:
            %ILINK-I-UDFSYM, QIO_TCPIP_INITIALIZE
            %ILINK-W-USEUNDEF, undefined symbol QIO_TCPIP_INITIALIZE referenced
            section: $CODE$
            offset: %X0000000000000130 slot: 0
            module: NIO_OBJECT
            file: DISK$DMQ_USER_DSK:[DMQ$V50.LIB]CLS.OLB;2

            anyone know how I can get a copy of the obj??



            ELXBT2:SYSTEM> lib/lis elxprf::disk$dmq_user_dsk:[DMQ$V50.LIB]CLS.OLB.1
            Directory of ELF OBJECT library ELXPRF::DISK$DMQ_USER_DSK:[DMQ$V50.LIB]CLS.OLB;1 on 19-JUL-2010 12:54:12
            Creation date: 17-MAY-2006 06:28:52 Creator: Librarian I01-33
            Revision date: 17-MAY-2006 06:28:52 Library format: 6.0
            Number of modules: 17 Max. key length: 1024
            Other entries: 227 Preallocated index blocks: 95
            Recoverable deleted blocks: 0 Total index blocks used: 24
            Max. Number history records: 20 Library history records: 0

            CLS_CREPROC
            CLS_HANDLERS
            CLS_MACHINE
            CLS_MAIN
            CLS_MISC
            CLS_PAMSREQ
            CLS_PARSE
            CLS_SECURITY
            CLS_SELECT
            CLS_SERVER
            CLS_TIMER
            CL_MSG
            NIO_OBJECT
            PAMS_CLS_SET_SRV_TRACE
            QIO_DECNET
            QIO_TCPIP_STUB
            QIO_TCPIP_UCX



            the module QIO_TCPIP_TGV is missing from this library.

            when I link this on a HP TCPIP services system, it being the cls process for endpoint 7092 correctly creates the port ,,,, works fine.

            Edited by: 782568 on Jul 19, 2010 2:33 PM
            • 3. Re: Alpha -> IA64 DMQ_CLS_T_7092 Process goes into tight loop
              690504
              Yes, Seems the QIO_TCPIP_TGV module is missed in the current package. Could you please ask your Oracle support engineering to file a bug to me?
              If any question else, please feel free to let me know.

              Regards,
              Leo