× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I have a job that I am trying to resolve using wdsc and service entry 
points.  It seems to behave differently when I debug it.  RPGLE (no java, 
etc).  I have to change the SEP to look for user SSA52 instead of my user 
id.  When stepping over the line
     C                   If        0 <> SystemCmd(Cmd)
I start receiving a bunch of messages in the joblog that do not appear 
otherwise.  These are all MCH1001-Attempt to use permanent system object 
&1 without authority.  They are repeated for a plethora of objects: 
QCANPARS, QCADRV2, QCARULE, QCAPOS, QCAFLD, QCATRS, QCLRSLV, QCADRV, 
QCAIFLD, QMHSNSTA, QSYRTVUP, QLIMROIR, QSYEXGRM, QSZGTPRD, QSZEXPRD, 
QSYIEXIT, QMHPDEH, QSYEXTSL, QCLCNVNC, QCAFSCAN, QCLCLCPR, QCLCLNUP, 
QCAIEXIT
v5r3 of i5/os.

MCH1001    Escape                  40   05/31/06  08:51:11.927952 #auexcpt 
                000B80   QQDAPROC    QSYS        05E4
                                     Message . . . . :   Attempt to use 
permanent system object QCANPARS without 
                                       authority.    
                                     Cause . . . . . :   You tried to use 
the permanent system object QCANPARS 
                                       without having the correct 
authority. 



     C                   Eval      Cmd  = 'SNDEMAIL ADDRESSEE(('    +
     C                                    %Trim(eTAdr) + ' ' + Apos    +
     C                                    %Trim(eTNam) + Apos + ')) '    +
     C                                    'SENDER('    +
     C                                    %Trim(eFAdr) + ' '    +
     C                                    Apos + %Trim(eFNam) + Apos + ') 
'   +
     C                                    'SUBJECT(' + Apos    +
     C                                    %Trim(eSubj) + Apos + ') '    +
     C                                    'MESSAGE(' + Apos    +
     C                                    %Trim(Text) + Apos + ') '    +
     C                                    'FILENAME(' + Apos    +
     C                                    %Trim(Attach) + Apos + ')'
     C                   ExSr      $System
...
     C     $System       BegSr

     C                   Eval      ErrorCPF = *Blanks

     C                   If        0 <> SystemCmd(Cmd)
     C                   Move      Failed        Result            1
     C                   Else
     C                   Move      Okay          Result
     C                   EndIf

     C     #SystemZ      EndSr

Object . . . . . . . :   QCANPARS        Owner  . . . . . . . :   QSYS 
  Library  . . . . . :     QSYS          Primary group  . . . :   *NONE 
Object type  . . . . :   *PGM            ASP device . . . . . :   *SYSBAS
 
Object secured by authorization list  . . . . . . . . . . . . :   *NONE 
 
                         Object 
User        Group       Authority 
*PUBLIC                 *EXCLUDE 
QSYS                    *ALL 
QSRV                    *CHANGE 


Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.