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.
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))
Dig Deeper on iSeries programming commands
Related Q&A from Ken Graap
Find out if log files can be omitted during a save without causing problems in a full restore. Continue Reading
The BRMS Network feature allows a BRMS system to connect to other BRMS systems via a network, and enables a user to consolidate media such as backup ... Continue Reading
The only option to correct damage preventing file journaling is to use the RCLSTG command. Continue Reading