Report YUNIX000

This reports obtains a total control of file/s with the original Unix commands( move, rename, delete, list, etc. ) : please, pay attention about a correct use of this fuction ! It's very powerfull !

Parameters:
comma : Unix command ( example CP, REN )
file1 : complete path of first file + file name
file2 : complete path of second file + file name ( if it is necessary )

Output:
depending of type of command ( example LS => list; CP only copy
the file). Itsn't possible to have a return code back.

[for Download or 'cut and paste']

REPORT YUNIX000 LINE-SIZE 250.        "20000831, Release 3.*, 4.*
*
**********************         HEADER                    **************
*
* Copyright (c) 2000 by xxxx xxx, 44318 Anywhere, http://xxxxx
* or: Copyright (c) 2000 by Luigi Mandas from Engineering Group - Italy
*
*     You can use or modify this report for your own work as long
*               as you don't try to sell or republish it.
*      In no event will the author be liable for indirect, special,
*        Incidental, or consequental damages (if any) arising out of
*                       the use of this report.
*//////////////////////////////////////////////////////////////////////*
DATA:
      BEGIN OF TABL OCCURS 0,
        LINE(200),
      END OF TABL.
DATA:
      PARCOM(180).

PARAMETERS:
      COMMA(30) LOWER CASE,
      FILE1(75) LOWER CASE,
      FILE2(75) LOWER CASE.

START-OF-SELECTION.

  PARCOM+00(30) = COMMA.
  PARCOM+30(75) = FILE1.
  PARCOM+105(75) = FILE2.

  CONDENSE PARCOM.

  PERFORM EXECUNIX.

END-OF-SELECTION.

  EDITOR-CALL FOR TABL DISPLAY-MODE.

*---------------------------------------------------------------------*
*       FORM EXECUNIX                                                 *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM EXECUNIX.
  REFRESH TABL. CLEAR TABL.
  CALL 'SYSTEM' ID 'COMMAND' FIELD PARCOM
                ID 'TAB'     FIELD TABL-*SYS*.
ENDFORM.