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
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
IBM's iSeries Backup and Recovery manual answers many questions related to system backup and disaster recovery. Continue Reading
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.