Para quem quiser usar o 7zip.
Funciona muito bem.
Solução que cria uma cópia de segurança para pastas diferentes automaticamente, se for dia par ou ímpar.
COBOL Código:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WDATA PIC 9(08).
01 WDATA0 REDEFINES WDATA.
03 WANO PIC 9999.
03 WMES PIC 99.
03 WDIA PIC 99.
01 Q PIC 9(07).
01 R PIC 9(07).
01 WDATAx PIC X(03).
01 wFolderDate pic x(200) .
01 wcmdl02 pic x(400).
01 status-code PIC S9(4) COMP-5.
PROCEDURE DIVISION.
MOVE "Text" OF CmText1 TO WDATA
DIVIDE WDIA BY 2 GIVING Q REMAINDER R.
IF R = 0
MOVE "PAR" TO WDATAx
ELSE
MOVE "IMP" TO WDATAx
END-IF
MOVE "Text" OF CmText1 TO WDATA
move SPACES TO wFolderDate
FBACKUP *> pasta predefinida
string FBACKUP delimited by " " "" delimited by size WDATAx delimited by size into wFolderDate
string "7z a -tzip -y -pMyPassword " delimited by size wFolderDate delimited by " "
"\backup.zip " delimited by size
'"' delimited by size FBACKUP delimited by " " "\f*" delimited by size
'"' delimited by size into wcmdl02
INVOKE POW-SELF "ExecuteSync" USING wcmdl02 POW-SWHIDE.
EXIT PROGRAM.
Marcadores