Re: Ovrsplf in rpgle program help

[Bill Wragg <bill_wragg@xxxxxxxx>]

While playing around with Alan's system command. Compiling it for testing I get 
the following:

Definition not found for symbol '_EXCP_MSGID'.     
Definition not found for symbol 'system'.          

Any idea?
 
Thnx
Bill
(All else fails READ THE INSTRUCTIONS)



----- Original Message ----
From: Alan Shore <AlanShore@xxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, June 6, 2007 2:47:29 PM
Subject: RE: Ovrsplf in rpgle program help


I tend to use the system() api. No calculation of length, and easy to code
for any errors
here's what you need

  // Execute Command (system) Subprocedure Variables
D As400cmd        PR            10I 0 ExtProc('system')
D  CmdText                        *   Value Options(*String)
D
D ErrorCPF        S              7A   Import('_EXCP_MSGID')
D ErrorFlag       S             10I 0 Inz(0)

C                   eval      Errorflag = As400cmd('CHKOBJ -
C                             QTEMP/RECONWRKF *FILE')
C                   if        ErrorFlag <> 0
C                   eval      Errorflag = As400cmd('CRTPF  -
C                             FILE(QTEMP/RECONWRKF)        -
C                             SRCFILE(HBMOPA/QDDSSRC)      -
C                             SRCMBR(RECONWRKF)            -
C                              OPTION(*NOLIST *NOSOURCE)   -
C                              LVLCHK(*NO)')
C                   else
C                   exsr      Clrtemp
C                   endif

obviously you would change the code to suit you own purpose.
If there is an error (and you are so inclined) you could look at the field
ErrorCPF to see what the particular message id was.



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/06/2007 02:29:20 PM:

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