/* REXX OS/2 - PerfSO.CMD  perform a Save object function           */
/*-ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП
Г                                                                    Г
Г  (C) Copyright 1993-1997 Development Technologies, Inc.            Г
Г      Portions Copyright 1993 Gregory Czaja                         Г
Г      All rights reserved                                           Г
Г      DeskMan, DeskMan/2, DM2Setup, VUEMan, VUEMan/2 and DM2Image   Г
Г      are trademarks of Development Technologies, Inc. (DevTech),   Г
Г      a Pennsylvania Corporation                                    Г
Г                                                                    Г
Г  ver. 2.0 Use DM/2 Command Line Interface object  September 1995   Г
Г  ver. 2.01                              modified  August    1997   Г
РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ*/
/*ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП
Г        Saves the object of the name-object located in the          Г
Г        FolderName-folder in the specified archive file.            Г
Г        REXX generation and Save options depending on current       Г
Г        DeskMan/2 settings - can be set prior to PerformSave...     Г
Г                                                                    Г
Г        The folder and object names should be surrounded by "       Г
Г        if containing blanks.                                       Г
Г                                                                    Г
Г        The format is:                                              Г
Г        PerformSaveObject=x:\path\file.drp,name,FolderName;         Г
Г        PerformSaveObject=x:\path\file.drp,ALL,FolderName;          Г
Г                                                                    Г
Г        name can be:         . object title                         Г
Г                             . object ID                            Г
Г                             . fully qualified path                 Г
Г                             . ALL                                  Г
Г          note: if an object ID (i.e., a character string enclosed  Г
Г                in brackets <>) is used as the object name, the     Г
Г                object's location specified as FolderName will be   Г
Г                IGNORED! - but needs to be specified.               Г
Г          note: if ALL is specified, all object located in the      Г
Г                folder will be saved.                               Г
Г                Not allowed with ANYWHERE!                          Г
Г        FolderName can be:   . folder title                         Г
Г                             . object ID                            Г
Г                             . fully qualified path                 Г
Г                             . ANYWHERE                             Г
Г          note: if ANYWHERE is specified as the object's location,  Г
Г                the entire Desktop will be searched for the object  Г
Г                specified (top-down). First object found will be    Г
Г                used. Not allowed with ALL!                         Г
Г                                                                    Г
РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФ*/

/*ЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ
К  Note: the use of other DeskMan/2 setup strings and use of the     К
К        PerformSaveSettings=YES;                                    К
К        to save the current (after the SysSetObjectData) DeskMan/2  К
К        settings! If PerformSaveSettings is not used, the settings  К
К        are changed but not saved, so the user's settings (prior    К
К        to SysSetObjectData) will be restored on the next system    К
К        boot.                                                       К
ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭ*/

/* Execute as: PERFSO x:\deskman\test.drp Name Folder               */

Parse Arg args;
If Left(args,1) = '"'
   Then Parse Var args '"'DRCfile'"' args;
   Else Parse Var args    DRCfile    args;
args=Strip(args);
If Left(args,1) = '"'
   Then Parse Var args '"'object'"' args;
   Else Parse Var args    object    args;
args=Strip(args);
If Left(args,1) = '"'
   Then Parse Var args '"'folder'"' .;
   Else Parse Var args    folder    .;


If DRCfile = ''
   Then Do;
     Say 'DeskMan/2 PERFORM: the DRC file name is a required parameter.';
     Exit 99;
     End;
If object  = ''
   Then Do;
     Say 'DeskMan/2 PERFORM: the object name is a required parameter.';
     Exit 99;
     End;
If folder  = ''
   Then Do;
     Say 'DeskMan/2 PERFORM: the folder name is a required parameter.';
     Exit 99;
     End;


Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
Call SysLoadFuncs;

rc=SysSetObjectData('<DM2CLI>',,
                    'PerformSaveObject='DRCfile','object','folder';'||,
                    'PerformSaveSettings=YES;');
If rc <> 1
   Then Do;
     Say  "DeskMan/2 PERFORM: error performing Save object!";
     Exit 99;
     End;

Say 'DeskMan/2 PERFORM: Save object initiated successfully!';
Exit 0;
