Te reenvio los archivos con la utilidad CVTSAVF, se trata de un CMD, un CL y UN RPG.
Un saludo.
--------------------------
De todo sobre el AS/400 en
http://www.ajut400.com
From: "Villa, Rodrigo" <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: PKZIP OS/400
Date: Thu, 7 Nov 2002 07:47:53 -0500
Hola,
Me gustar�a saber como estais funcionando con el tema de la ley de
Protecci�n de Datos en lo referente a salvados de archivos de Nivel Alto los
cuales tienen que estar encriptados si salen al exterior, actualmente estoy
evaluando dos opciones, una de ellas me la coment� un colega durante un
seminario y era la instalaci�n de una tarjeta PCI Criptogr�fica, he
preguntado a IBM y el coste es de 7.097 Euros y por desgracia necesitar�a
una Torre de Expansi�n pues no tengo huecos disponibles la cual cuesta "nada
mas" que 20.572 Euros es decir 4 millomes y medio sin incluir la mano de
obra de la instalaci�n lo cual no est� nada mal considerando que solo tengo
1 archivo de nivel alto :-)
Otra solucci�n que voy a evaluar es el software PKZIP para OS/400 el cual
tiene un coste de 3.200 Euros y los backup los har�a de la siguiente forma
un *NONSYS de todo omitiendo la libreria donde est� el famoso archivito y
despues comprimir con contrase�a la librer�a excluida y salvarla a
continuaci�n del *NONSYS, de momento n he probado nada pero parece ser que
se puede hacer de forma desatendida.
�Alguien esta usando este software?, �Conoceis otra alternativa a utilizar?
Saludos, Rodrigo
========================================================================
This email message is for the sole use of the intended recipient (s) and may
contain confidential and privileged information. Any unauthorized review,
use, disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply email and destroy all copies
of the original message. To reply to our email administrator directly, send
an email to [EMAIL PROTECTED]
Toys "R" Us, Inc.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
_________________________________________________________________
MSN Fotos: la forma m�s f�cil de compartir e imprimir fotos. http://photos.msn.es/support/worldwide.aspx
CMD PROMPT('Convertir SAVF a/desde PF')
PARM KWD(FROM) TYPE(QUAL) MIN(1) PROMPT('Desde +
archivo')
PARM KWD(TYPE) TYPE(*NAME) LEN(4) RSTD(*YES) +
VALUES(SAVF PF) MIN(1) PROMPT('Tipo de +
archivo Desde')
PARM KWD(TO) TYPE(QUAL) MIN(1) PROMPT('A archivo')
QUAL: QUAL TYPE(*NAME) LEN(10) MIN(1)
QUAL TYPE(*NAME) LEN(10) DFT(*CURLIB) +
SPCVAL((*CURLIB)) PROMPT('Biblioteca')
PGM PARM(&FROM &TYPE &TO)
DCL VAR(&FROM) TYPE(*CHAR) LEN(20)
DCL VAR(&FF) TYPE(*CHAR) LEN(10)
DCL VAR(&FL) TYPE(*CHAR) LEN(10)
DCL VAR(&TYPE) TYPE(*CHAR) LEN(04)
DCL VAR(&TO) TYPE(*CHAR) LEN(20)
DCL VAR(&TF) TYPE(*CHAR) LEN(10)
DCL VAR(&TL) TYPE(*CHAR) LEN(10)
DCL VAR(&OBJATR) TYPE(*CHAR) LEN(10)
DCL &ERRORSW *LGL /* Standard error */
DCL &MSGID *CHAR LEN(7) /* Standard error */
DCL &MSG *CHAR LEN(512) /* Standard error */
DCL &MSGDTA *CHAR LEN(512) /* Standard error */
DCL &MSGF *CHAR LEN(10) /* Standard error */
DCL &MSGFLIB *CHAR LEN(10) /* Standard error */
DCL &KEYVAR *CHAR LEN(4) /* Standard error */
DCL &KEYVAR2 *CHAR LEN(4) /* Standard error */
DCL &RTNTYPE *CHAR LEN(2) /* Standard error */
MONMSG MSGID(CPF0000) EXEC(GOTO STDERR1) /* Std err */
CHGVAR VAR(&FF) VALUE(%SST(&FROM 1 10))
CHGVAR VAR(&FL) VALUE(%SST(&FROM 11 10))
CHGVAR VAR(&TF) VALUE(%SST(&TO 1 10))
CHGVAR VAR(&TL) VALUE(%SST(&TO 11 10))
CHKOBJ OBJ(&FL/&FF) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(SNDPGMMSG MSGID(CPF9898) +
MSGF(QCPFMSG) MSGDTA('El archivo ' *CAT +
&FF *TCAT ' de la biblioteca' *CAT &FL +
*TCAT ' no existe.') MSGTYPE(*ESCAPE))
RTVOBJD OBJ(&FL/&FF) OBJTYPE(*FILE) OBJATR(&OBJATR)
IF COND(&OBJATR *NE &TYPE) THEN(SNDPGMMSG +
MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('El +
archivo Desde' *CAT &FF *TCAT ' no es de +
tipo ' *CAT &TYPE *TCAT '.') +
MSGTYPE(*ESCAPE))
IF COND((&FF *EQ &TF) *AND (&FL *EQ &TL)) +
THEN(SNDPGMMSG MSGID(CPF9898) +
MSGF(QCPFMSG) MSGDTA('Archivos Desde/A no +
pueden ser iguales') MSGTYPE(*ESCAPE))
CHKOBJ OBJ(&TL/&TF) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(DO)
RCVMSG MSGTYPE(*EXCP)
IF COND(&TYPE *EQ 'SAVF') THEN(CRTPF +
FILE(&TL/&TF) RCDLEN(528) TEXT('Receptor +
de Archivo SAVF') SIZE(*NOMAX))
IF COND(&TYPE *EQ 'PF') THEN(CRTSAVF +
FILE(&TL/&TF) TEXT('Receptor de archivo PF'))
GOTO CMDLBL(ESOK)
ENDDO
RTVOBJD OBJ(&TL/&TF) OBJTYPE(*FILE) OBJATR(&OBJATR)
IF COND(&OBJATR *EQ &TYPE) THEN(SNDPGMMSG +
MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('El +
archivo A ' *CAT &TF *TCAT ' debe ser de +
tipo contrario al origen.') MSGTYPE(*ESCAPE))
IF COND(&TYPE *EQ 'SAVF') THEN(CLRPFM +
FILE(&TL/&TF) MBR(*FIRST))
IF COND(&TYPE *EQ 'PF ') THEN(CLRSAVF +
FILE(&TL/&TF))
ESOK:
IF COND(&TYPE *EQ 'SAVF') THEN(DO)
OVRSAVF FILE(INPUT) TOFILE(&FL/&FF)
OVRDBF FILE(OUTPUT) TOFILE(&TL/&TF)
ENDDO
ELSE DO
OVRDBF FILE(INPUT) TOFILE(&FL/&FF)
OVRSAVF FILE(OUTPUT) TOFILE(&TL/&TF)
ENDDO
CALL PGM(CVTSAVFR)
RETURN
STDERR1: /* Standard error handling routine */
IF &ERRORSW SNDPGMMSG MSGID(CPF9999) +
MSGF(QCPFMSG) MSGTYPE(*ESCAPE)
CHGVAR &ERRORSW '1' /* Set to fail on error */
RCVMSG MSGTYPE(*EXCP) RMV(*NO) KEYVAR(&KEYVAR)
STDERR2: RCVMSG MSGTYPE(*PRV) MSGKEY(&KEYVAR) RMV(*NO) +
KEYVAR(&KEYVAR2) MSG(&MSG) +
MSGDTA(&MSGDTA) MSGID(&MSGID) +
RTNTYPE(&RTNTYPE) MSGF(&MSGF) +
SNDMSGFLIB(&MSGFLIB)
IF (&RTNTYPE *NE '02') GOTO STDERR3
IF (&MSGID *NE ' ') SNDPGMMSG +
MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
IF (&MSGID *EQ ' ') SNDPGMMSG +
MSG(&MSG) MSGTYPE(*DIAG)
RMVMSG MSGKEY(&KEYVAR2)
STDERR3: RCVMSG MSGKEY(&KEYVAR) MSGDTA(&MSGDTA) +
MSGID(&MSGID) MSGF(&MSGF) +
SNDMSGFLIB(&MSGFLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
ENDPGM
FINPUT IPE F 528 DISK
FOUTPUT O F 528 DISK
D RCD DS 528
IINPUT SS 01
I 1 528 RCD
OOUTPUT D 01
O RCD
