Re: Ovrsplf in rpgle program help

With the help of all of you I am now getting closer.
I am now getting the following error: 'The call to *LIBL/QCMDEXC ended in error'
When I look at the JOBLOG the following MSG is: 'Command length not valid'.
When I look at the dump, the @CMD has the correct data. How do I find the
correct length and will I have to change it for the next 'QCMDEXC'?
Here is the code I am using.

C move *blanks @cmd 23
C if %Open(ADITALABRP)
C Close ADITALABRP
C ENDIF
C*
C EVAL @CMD = 'DLTOVR FILE(ADITALABRP)'
C CALL 'QCMDEXC'
C PARM @CMD
C PARM LEN 15 5

Thanks,
Willie..

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Wayne McAlpine
Sent: Wednesday, June 06, 2007 10:47 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Ovrsplf in rpgle program help


You will need to assign a value to LEN also. Either hard code it or use
the CHECKR op code to dynamically determine the length of the command
string.

Willie J. Moore wrote:
> I want to use the ovrsplf option in an rpgle program. I need to override the
number of 'copies'. The number of 'copies' (labno) will be from a field entered
on a display.
> Here is what I have come up with so far:
>
> F ADITALABRPO E PRINTER OFLIND(*IN91)
>
> EVAL @CMD = 'OVRSPLF FILE(ABCFILE) COPIES(LABNO)'
> CALL 'QCMDEXC'
> PARM @CMD
> PARM LEN 15 5
>
> C WRITE DTEORDNO
> C WRITE DTEORDN1
>
> I can do this in a CL program. Have the number of labels in the display
program pass to the print program. But would like to do it all in one program.
> Any help or examples would be greatly appreciated.
> Thanks,
> William Moore
>
>
--
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.


--
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.