Por si te sirve, son de la version 4.2
<<cl.txt>> <<cmd.txt>>
Saludos
Juanjo Aldave
Tel. 948-133300
Fax. 948-133332
e-mail: [EMAIL PROTECTED]
> -----Mensaje original-----
> De: Fernando Martinez [SMTP:[EMAIL PROTECTED]]
> Enviado el: viernes 5 de abril de 2002 8:16
> Para: Foro AS/400 (E-mail)
> Asunto: DUPTAP
>
> Hola a todos
>
> �Alguien puede tener las utilidades DUPTAPIN y DUPTAPOUT de la
> QUSRTOOLs de versiones antiguas?
>
> Gracias anticipadas
>
> Fernando Martinez
>
>
>
>
> _____________________________________________________
> 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
5769PW1 V4R2M0 980228 LISTADO FUENTE SEU
05/04/02 09:54:54 P�G. 1
ARCHIVO FUENTE . . . . . SISTEMAS/QCLSRC
MIEMBRO . . . . . . . . . TAATAPAC
NUMSEC*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
100 /* TAATAPAC - CPP for DUPSAVTAP - Duplicates a Save/Restore tape */
200 PGM PARM(&FROMDEV &TODEV)
300 DCL &FROMDEV *CHAR LEN(10)
400 DCL &TODEV *CHAR LEN(10)
500 DCL &COUNTA *CHAR LEN(22)
600 DCL &MSGKEY *CHAR LEN(4)
700 DCL &SEQNBR *DEC LEN(4 0) VALUE(1)
800 DCL &ERRORSW *LGL /* Std err */
900 DCL &MSGID *CHAR LEN(7) /* Std err */
1000 DCL &MSGDTA *CHAR LEN(100) /* Std err */
1100 DCL &MSGF *CHAR LEN(10) /* Std err */
1200 DCL &MSGFLIB *CHAR LEN(10) /* Std err */
1300 MONMSG MSGID(CPF0000) EXEC(GOTO STDERR1) /* Std err */
1400 IF (&FROMDEV *EQ &TODEV) DO /* Same dev */
1500 SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGTYPE(*ESCAPE) +
1600 MSGDTA('The FROMDEV and TODEV cannot be +
1700 the same')
1800 ENDDO /* Same dev */
1900 CPYNEXT: OVRTAPF FILE(QTAPE) DEV(&FROMDEV) VOL(*NONE) +
11/12/91
2000 REELS(*SL) SEQNBR(&SEQNBR) RCDLEN(*CALC) +
11/12/91
2100 BLKLEN(*CALC) RCDBLKFMT(*U) +
11/12/91
2200 ENDOPT(*LEAVE) SECURE(*YES)
11/12/91
2300 OVRTAPF FILE(QSYSTAP) SECURE(*YES)
11/12/91
2400 CPYTOTAP FROMFILE(QTAPE) TOFILE(QSYSTAP) +
11/12/91
2500 TOSEQNBR(&SEQNBR) TODEV(&TODEV) +
11/12/91
2600 TOREELS(*SL) TORCDLEN(*FROMFILE) +
11/12/91
2700 TOENDOPT(*LEAVE) TOVOL(*NONE) +
11/12/91
2800 TOBLKLEN(*CALC) TORCDBLK(*U) TOEXPDATE(*PERM)
11/12/91
2900 MONMSG MSGID(CPF2952) CMPDTA('QTAPE ') EXEC(GOTO +
3000 CPYEND)
3100 CHGVAR &SEQNBR (&SEQNBR + 1)
3200 GOTO CPYNEXT
3300 CPYEND: RCVMSG MSGTYPE(*DIAG) RMV(*NO) KEYVAR(&MSGKEY) +
3400 MSGID(&MSGID)
3500 IF (&MSGID *EQ ' ') GOTO STDERR1
3600 IF (&MSGID *NE 'CPF4114') GOTO CPYEND
3700 RMVMSG MSGKEY(&MSGKEY)
3800 RCVMSG MSGTYPE(*EXCP)
3900 CHKTAP DEV(&FROMDEV) ENDOPT(*REWIND)
11/12/91
4000 CHKTAP DEV(&TODEV) ENDOPT(*REWIND)
4100 CHGVAR &SEQNBR (&SEQNBR - 1)
4200 /* EDTVAR &COUNTA &SEQNBR */
11/12/91
4300 SNDPGMMSG MSG(&COUNTA *TCAT ' files copied from ' +
4400 *CAT &FROMDEV *TCAT ' to ' *CAT &TODEV)
4500 RETURN /* Normal end of program */
4600 STDERR1: /* Standard error handling routine */
4700 IF &ERRORSW SNDPGMMSG MSGID(CPF9999) +
4800 MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk */
4900 CHGVAR &ERRORSW '1' /* Set to fail ir error occurs */
5000 STDERR2: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID) +
5100 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
5200 IF (&MSGID *EQ ' ') GOTO STDERR3
5300 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
5769PW1 V4R2M0 980228 LISTADO FUENTE SEU
05/04/02 09:54:54 P�G. 2
ARCHIVO FUENTE . . . . . SISTEMAS/QCLSRC
MIEMBRO . . . . . . . . . TAATAPAC
NUMSEC*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
5400 MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
5500 GOTO STDERR2 /* Loop back for addl diagnostics */
5600 STDERR3: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID) +
5700 MSGF(&MSGF) MSGFLIB(&MSGFLIB)
5800 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
5900 MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
6000 ENDPGM
* * * * F I N D E F U E N T E * * * *
5769PW1 V4R2M0 980228 LISTADO FUENTE SEU
05/04/02 09:54:45 P�G. 1
ARCHIVO FUENTE . . . . . SISTEMAS/QCMDSRC
MIEMBRO . . . . . . . . . TAATAPA
NUMSEC*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
100 /* TAATAPA - Duplicate S/R tape - DUPSAVTAP cmd */
200 /*PARMS PGM(TAATAPAC) PRDLIB(TAATOOL) */
300 /* */
400 /* DUPSAVTAP command duplicates a tape written in Save/Restore */
500 /* format. It should not be used on tapes written in data */
600 /* interchange format. */
700 /* */
800 CMD PROMPT('Duplicate S/R tape')
900 PARM KWD(FROMDEV) TYPE(*NAME) LEN(10) MIN(1) +
1000 PROMPT('From device')
1100 PARM KWD(TODEV) TYPE(*NAME) LEN(10) MIN(1) +
1200 PROMPT('To device')
* * * * F I N D E F U E N T E * * * *
