Consultor Eletrônico



Kbase 16998: AS/400 Error 98 With STRPROCLI: Authorization Problem
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   15/10/2008
Status: Verified

FACT(s) (Environment):

Progress/400 DataServer

SYMPTOM(s):

** Unable to open file: <file-name>.  Errno=<number>. (98)

** Unable to open file: PROGRAM.P.  Errno=3401. (98)

Error 98 is encountered when using Native 4GL STRPROCLI command to run or compile programs which have been transferred from Windows using the transfil.p or transdir.p utilities

CAUSE:

This could mean that your user profile has no *ALLOBJ special authority. Programs transferred with transfil.p or transdir.p get the AS/400 default authority settings, which is:

              Data     --Object Authorities--
User        Authority  Exist  Mgt  Alter  Ref
*PUBLIC     *W           X     X     X     X
USER        *NONE        X     X     X     X


FIX:

A) Change the authority using CHGAUT command.

B) Modify transfil.p and transdir.p adding these lines after the file has been transferred and the stream file closed:


CREATE qcmd.
ASSIGN cmd = "* CHGAUT OBJ('" + ifs-file + "') USER(" +
            USERID(LDBNAME(2)) + ") DTAAUT(*RWX) OBJAUT(*ALL)".
VALIDATE qcmd.
CREATE qcmd.
ASSIGN cmd = "* CHGAUT OBJ('" + ifs-file +
            "') USER(*PUBLIC) DTAAUT(*RWX) OBJAUT(*ALL)".
VALIDATE qcmd.