Re: I Give Up - CLP Question...

[rob@xxxxxxxxx]

In this case, instead of SBMJOB CMD(CALL...
would doing a CRTCMD SU036C2...
and then a SBMJOB CMD(SU036C2...
resolve the issue?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Mlpolutta@xxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/28/2004 11:03 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx (RPG programming on the AS400 / iSeries)
cc

Fax to

Subject
Re: I Give Up - CLP Question...






The issue is that you haven't built a "string" of your command to be 
submitted.  Likely the command processor is only sending the lengths of 
the actual values to the submitted job, rather than the total _possible_ 
length of each variable.  I'd bet that if you put a single character (say, 
*) at the end of the TEXT variable this would do exactly what you're 
expecting.

Michael

> K, I'm blind or something. I've looked and looked and cannot see what is
> wrong with this.
> 
> 
> 
> I have a command to create user profile. To get it to work properly (for 
a
> person that does not have *SECADM authority) I have created two CL's
> compiled and owned by QSECOFR. Also had to add some authority to these 
for
> the IT user). The first one is used by the actual command and does some
> other stuff (creating entries in some 3rd party applications, etc) and 
all
> the second one does it get submitted to batch to create the user 
profile.
> 
> 
> 
> Well this works fine. The profile gets created, etc. The only problem is 
the
> Text description on the newly created user profile has *SPLCTL stuck in 
the
> 34th through 40th positions of the Text.
> 
> 
> 
> The parameters passed to the second CL all are in the user profile 
correctly
> except for this deal.
> 
> 
> 
> Here is the part of the first CL that submits the second one:
> 
> 
> 
>     DCL        VAR(&PROFILE) TYPE(*CHAR) LEN(10)
> 
>     DCL        VAR(&GRPPRF) TYPE(*CHAR) LEN(10)
> 
>     DCL        VAR(&PWD) TYPE(*CHAR) LEN(10)
> 
>     DCL        VAR(&TEXT) TYPE(*CHAR) LEN(50)
> 
>     DCL        VAR(&ULOC) TYPE(*CHAR) LEN(20)
> 
>     DCL        VAR(&UDEP) TYPE(*CHAR) LEN(20)
> 
>     DCL        VAR(&BRANCH#) TYPE(*CHAR) LEN(3)
> 
>     DCL        VAR(&INITIALS) TYPE(*CHAR) LEN(3)
> 
>     DCL        VAR(&SPLAUT) TYPE(*CHAR) LEN(7)
> 
> 
> 
>     SBMJOB     CMD(CALL PGM(SU036C2) PARM(&PROFILE &PWD +
> 
>                  &TEXT &SPLAUT &GRPPRF)) JOB(PRF_CREATE) +
> 
>                  JOBD(CHUCK)
> 
> 
> 
> And here is the submitted CL:
> 
> 
> 
> PGM        PARM(&PROFILE &PWD &TEXT &SPLAUT &GRPPRF)
> 
> 
> 
>  DCL        VAR(&PROFILE) TYPE(*CHAR) LEN(10)
> 
>  DCL        VAR(&PWD) TYPE(*CHAR) LEN(10)
> 
>  DCL        VAR(&TEXT) TYPE(*CHAR) LEN(50)
> 
>  DCL        VAR(&SPLAUT) TYPE(*CHAR) LEN(7)
> 
>  DCL        VAR(&GRPPRF) TYPE(*CHAR) LEN(10)
> 
> 
> 
>  CRTUSRPRF  USRPRF(&PROFILE) PASSWORD(&PWD) PWDEXP(*YES) +
> 
>               STATUS(*ENABLED) INLPGM(DMLIB/DMINLPGM) +
> 
>               INLMNU(*SIGNOFF) LMTCPB(*YES) TEXT(&TEXT) +
> 
>               SPCAUT(&SPLAUT) GRPPRF(&GRPPRF) +
> 
>               OWNER(*GRPPRF) ACGCDE(&PROFILE) +
> 
>               DLVRY(*BREAK) OUTQ(*DEV)
> 
> 
> 
>  ENDPGM
> 
> 
> 
> WHAT the heck am I missing here ?
> 
> 
> 
> The fields passed are in the correct order and field lengths match, etc.
> There was never a problem with this until I had to change it to a submit 
to
> get around the authority issue (this all came about because we are a 
small
> shop and they want my coworker to be able to create user 
> profiles if I am
> not here.).
> 
> 
>
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.