Re: MS-DOS calls in VARPG?

Here is how to do it with a Windows API call.  Not exactly what you asked
for, but it may work for you.

-- Scott Johnson


    *  Copy PC File
     D $CpyPCF         PR             5I 0
     D  Source                      255A
     D  Target                      255A
     D  Overwrite                    10I 0 Value
      *===================================================================*
      *      Copy PC File                                                 *
      *-------------------------------------------------------------------*
      *
     P $CpyPCF         B                   EXPORT
      *
     D $CpyPCF         PI             5I 0
     D  Source                      255A
     D  Target                      255A
     D  Overwrite                    10I 0 Value
      *
     D CopyFile        PR            10I 0 ExtProc('CopyFileA')
     D                                     dll('Kernel32.dll')
     D                                     LinkAge(*StdCall)
     D  Source                      255A
     D  Target                      255A
     D  Overwrite                    10I 0 Value
      *
     C                   Eval      Source = %Trim(Source) + Null
     C                   Eval      Target = %Trim(Target) + Null
     C                   Eval      apiRC =
CopyFile(Source:Target:Overwrite)
      *
      *  Check the api Return Code.
     C                   If        apiRC <> *Zeros
     C                   Eval      ProcRC = *Zeros
     C                   Else
     C                   Eval      ProcRC = 1
     C                   EndIf
      *
     C                   Return    ProcRC
      *
     P $CpyPCF         E





How can I call an MS-DOS command from VA-RPG?  Will QCMD do this from me?
System?  Is it possible?

I need to copy a file using MS-DOS in VA-RPG.  I can probably do this in
VA-RPG, but in this case I would like to use the DOS call since the file is
open by another workstation.

Thanks.

Regards,

Jim Langston