Citación del post de
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
|
Eu uso o 7zip!
Ficheiros ISAM:
Código COBOL:
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
Código COBOL:
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