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