Creating a user profile from a file
iSeries i5/OS expert Ken Graap helps a user with creating a user profile from a file.
Here is how I built the parameters:
DCL &INLPGM TYPE(*CHAR) LEN(21)
Then I dumped the copy from user profile to an outfile:
If &UPINPG = '*NONE', then &INPPGM = *none Else do chgvar &INLPGM value(&upinpl *TCAT '/' *TCAT &upinpg)
What can I do to fix this error?
Change &INLPGM to LEN(10) ... If &INLPGM is being passed to the program as Library/ProgramName, then you will need to use the %SST function to break it into two parameters.
For example:
DCL VAR(&OUTQ) TYPE(*CHAR) LEN(20)
DCL VAR(&OUTQNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&OUTQLIB) TYPE(*CHAR) LEN(10)
CHGVAR VAR(&OUTQNAME) VALUE(%SST(&OUTQ 1 10))
CHGVAR VAR(&OUTQLIB) VALUE(%SST(&OUTQ 11 10))
Good Luck!
Dig Deeper on iSeries programming commands
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.
Meet all of our AS/400 experts
View all AS/400 questions and answers
Start the conversation
0 comments