Job Description

[Guest.Visitor]

Hai, every body My System Admin. has the problem in defining the job description in AS/400. The scenario is like this, we have created a job description for Programmer use, and added in the desired library (eg. GISSRC), however when we sign in and display the library list (dsplibl), the library GISSRC is not there. Any help will be very appreciated.

[Guest.Visitor]

Did you change your user profiles like this? CHGUSRPRF USRPRF(YOURUSER) JOBD(YOURLIB/YOURJOBD)

[Guest.Visitor]

Christoph, We have actully done as what you said, but still couldn't see the library (dsplibl) Hope you can help me on this, TQ.

[Guest.Visitor]

Did you define any INLPGM in the user profile as well? If so, are you sure this pgm doesn't call any CHGLIBL?

[Guest.Visitor]

Foo, The most common way to add the library is to add it in the initial program. One technique I have used is to retrieve library list of the jobd associated with the job and issue a rpllibl. I'll post that code here if that sounds like what you want to do. David

[Guest.Visitor]

Christoph, David Thank you for both of your kindly help, we found out that there is a INLPGM in the user profile, but unfortunately we don't have the source code, so I would like to get the code that David you have mentioned in order to solve our problem. Regards ... Foo

[cwscholbe@dstsystems.com]

If it's a CL program, try using the RTVCLSRC command to retreive the source.

[Guest.Visitor]

Foo, Here are the relevant parts:

 DCL &JOBD *CHAR 20 DCL &RETURNLEN *CHAR 4 DCL &ERRORSTRUC *CHAR 8 + VALUE(X'0000000000000000') DCL &INLLIBL *CHAR 275 DCL &LIBOFF *DEC 5 DCL &LIBLEN *DEC 3 DCL &CMD *CHAR 350 RTVUSRPRF JOBD(%SST(&JOBD 1 10)) JOBDLIB(%SST(&JOBD 11 10)) CALL QWDRJOBD (&JOBD0100 &RETURNLEN 'JOBD0100' &JOBD + &ERRORSTRUC) CHGVAR &LIBOFF (%BINARY(&JOBD0100 361 4) + 1) CHGVAR &LIBLEN (%BINARY(&JOBD0100 365 4) * 11) CHGVAR &INLLIBL %SST(&JOBD0100 &LIBOFF &LIBLEN) CHGVAR &CMD ('RPLLIBL LIBL(' *CAT &INLLIBL *TCAT ')') CALL QCMDEXC (&CMD 350) 

David Morris

[Guest.Visitor]

Would a CL program to set the library list not do the same thing, using the CHGLIBL command, and set that to run when the user logs on? Katy

[Guest.Visitor]

Katy, Yes it could do the same thing. I find it more convenient use my job description to set my initial signon library list. That way I only have to change my job description and I am done. Using a program you have to change the job desription and also change and re-compile the program. I command to set my library list from a jobd about 15 years ago, I modified it when I moved to the AS/400 and once again when the retreive JOBD information API became available. I know I have saved myself dozens of compiles. I also have a command AJDLIBLE and RJDLIBLE that I use when a new library is added or deleted to the system. David Morris