RE: Problems with adopting authority.

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Rob,

Is this in some way part of an exit program?  Could this job be running a
swapped profile handle?  I recall having problems adopting authority on a
swapped profile, but I can't really remember the particulars....

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Friday, March 21, 2003 2:12 PM
To: Midrange Systems Technical Discussion
Subject: Re: Problems with adopting authority.


The run option is set to 0.

     D qcapcmdds       ds                  qualified
     D  SourceCmd                 32702a   inz(*blanks)
     D  SourceCmdLen                 10i 0 inz(0)
     D  OptCtlBlck                         like(CPOP0100ds)
     D  OptCtlBlckLen                10i 0 inz(%len(qcapcmdds.OptCtlBlck))
     D  OptCtlBlckFmt                 8a   inz('CPOP0100')
     D  ChgCmd                    32702a   inz(*blanks)
     D  ChgCmdLenAv                  10i 0 inz(%len(qcapcmdds.ChgCmd))
     D  ChgCmdLenRet                 10i 0 inz(0)
     D CPOP0100ds      ds                  qualified
     D  cpType                       10i 0 inz(0)      0=Cmd running
     D*      1=Cmd syntax chk
     D*      2=Cmd line running
     D*      3=Cmd line Syn chk
     D*      4=CL pgm statement
     D*      5=CL input stream
     D*      6=Cmd Definitin stmt
     D*      7=Binder Def Stmt
     D*      8=User Def option
     D*      9=ILE CL pgm source
     D*      10=Cmd prompt str
     D  DBCSHandling                  1a   inz('0')      0=Ignore DBCS 
data
     D*      1=Handle DBCS data
     D  PrompterAct                   1a   inz('0')      0=Never Prompt
     D*      1=Always Prompt
     D*      2=If prompt char...
     D*      3=Show Help
     D  CmdSyntax                     1a   inz('0')      0=System Syntax
     D*      1=Sys/38 Syntax
     D  MsgRtvKey                     4a   inz(*loval)
     D  Reserved                      9a   inz(*loval)
...
     P LclCmd          B
     D LclCmd          PI
     D  cmdparm                            const like(cmd) 
options(*varsize)
      /free
       reset qcapcmdds;
       reset cpop0100ds;
       qcapcmdds.OptCtlBlck=CPOP0100ds;
       qcapcmdds.SourceCmd=cmdparm;
       qcapcmdds.SourceCmdLen=%len(%trim(qcapcmdds.SourceCmd));
       qcapcmd(qcapcmdds.SourceCmd:
               qcapcmdds.SourceCmdLen:
               qcapcmdds.OptCtlBlck:
               qcapcmdds.OptCtlBlckLen:
               qcapcmdds.OptCtlBlckFmt:
               qcapcmdds.ChgCmd:
               qcapcmdds.ChgCmdLenAv:
               qcapcmdds.ChgCmdLenRet:
               errc0100);

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




"Carel Teijgeler" <coteijgeler@xxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
03/21/2003 12:39 PM
Please respond to Midrange Systems Technical Discussion
 
        To:     midrange-l@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        Re: Problems with adopting authority.


Rob,

How is the runoption of the API set? Is it set to command line checking or 
not?

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 21-3-03 at 11:32 rob@xxxxxxxxx wrote:

>I have a program that tried to use system().  Now I am using QCAPCMD and 
>having the same results.
>
>The command I am passing is:
>           cmd='CRTUSRPRF USRPRF('+userprefix+id400seq+') ' +
>                         'PASSWORD(*NONE) ' +
>                         'INLMNU(*SIGNOFF) ' +
>                         'LMTCPB(*YES) ' +
>                         'TEXT(FTP) ' +
>                         'SPCAUT(*NONE) ' +
>                         'LMTDEVSSN(*YES) ' +
>                         'GRPPRF(' + USERPREFIX + ') ' +
>                         'OWNER(*GRPPRF) ' +
>                         'ACGCDE(FTP)';



_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.