[Duda] Copia de seguridad desde PowerCOBOL 9

[jjcol]

Buenas noches alguien conoce algún comando de power cobol 9 para copiar carpetas con todos sus archivos es para crear copias de seguridad .
gracias por su tiempo

[Joseg]

❞ Buenas noches alguien conoce algún comando de power cobol 9 para copiar carpetas con todos sus archivos es para crear copias de seguridad . gracias por su tiempo

Eu uso o 7zip!

Ficheiros ISAM:

     MOVE EMPFBACKUP TO WEMPFBACKUP       *> destination folder 
     MOVE "Text" OF DataSistema TO WDATA
     DIVIDE WDIA BY 2 GIVING Q REMAINDER R.
 
     IF R = 0
        MOVE "PAR" TO WDATAx       *> backup dias pares
     ELSE 
        MOVE "IMP" TO WDATAx      *> backup dias impar
     END-IF
 
     move SPACES TO wFolderDate wcmdl02
 
     string WEMPFBACKUP delimited by "     "  "" delimited by size WDATAx delimited by size into wFolderDate.
 
     string "7z a -tzip -y -pMypassword " delimited by size wFolderDate delimited by "     "  
                             "\file_to_create.zip " delimited by size 
                              '"' delimited by size WEMPFBACKUP delimited by "    "  "\f*.dat" delimited by size 
                               '"' delimited by size into wcmdl02
                               INVOKE POW-SELF "ExecuteSync" USING wcmdl02  POW-SWHIDE
     end-string

Backup MySql/MariaDB

        string 'CMD /c mysqldump.exe -u' delimited by size
            WEMPUSERSQL delimited by '    '         *> user
            ' -p' delimited by size
            WEMPPASSSQL delimited by '    '         *> password
            ' --databases ' delimited by size
            WDBNAME delimited by '    '                  *> database name
            '| 7Z a -si -y -pMyPassword ' delimited by size
            WEMPFBACKUP delimited by '    '         *> WEMPFBACKUP --> destination folder 
             '\EuroSQL.7z' delimited by size            *> zip name
        INTO wcmdl02     
        INVOKE pow-self "ExecuteSync" USING wcmdl02 POW-SWHIDE