Hola Fernando:
Yo tengo los fuentes de la QUSRTOOL de esos comandos pero no los puedo
generar porque hace falta tener el compilador de PL/I y nosotros no lo
tenemos. Si te sirven s�lo fuentes d�melo que te los envio.
Un saludo.
Loinaz.
Fernando Martinez ha escrito:
> 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=AVE
DUPTAPIN DUPLICATE A TAPE WITH A SINGLE TAPE DRIVE TAATAPE
-------- ----------------------------------------- -------
This tool allows duplicating a tape using a single tape drive.
The tool only supports tapes written by Save commands or IBM
distribution. Tapes written in data interchange format are not
supported.
The PTF tape has a combination of Save format and interchange format.
DUPTAPIN can be used, but the handling of the data interchange files
will not be correct.
Two commands are provided:
DUPTAPIN copies a tape (it could be multi-volumes) into a data base
file. A list of labels (libraries) may be named to duplicate. A member
is created for each file duplicated.
A typical command would be:
DUPTAPIN DEV(TAPE01)
The command copies the tape to the DUPTAPP data base file. You must
have sufficient DASD capacity to store the tape information in the
data base file.
DUPTAPOUT can be used one or more times to make a copy from the data
base file to a tape. A different tape media (cartridge or reel) can be
used for the output.
A typical command would be:
DUPTAPOUT DEV(TAPE01)
The command copies the DUPTAPP data base file to the tape device.
When the tapes are written, all files will have a permanent expiration
date. The first sequence number will be 1. An option exists to avoid
checking for active files.
After running DUPTAPOUT, you should consider deleting the DUPTAPP file
(or removing all members) to free up space. Unless you intend to use
DUPTAPOUT for the same tape again, you should free up the space.
If a multi-volume set is to be duplicated, you must use all of the
volumes with a single DUPTAPIN command. You cannot use DUPTAPIN on a
single volume of a multi-volume set. During DUPTAPIN processing, you
will be prompted by the normal tape mount inquiry message when it is
necessary to mount another tape.
**NEWPAGE
The DUPTAPP file is a multi member file with a record length of 32762.
The member names follow a convention of MBR00001, MBR00002, etc. The
text description of each member contains the tape file name to be
used. The member name sequence (not the create date/time sequence) is
the sequence in which the files will be written to tape.
Adding or removing files before using DUPTAPOUT
-----------------------------------------------
It would be possible to add/remove members or rearrange the order in
the file before using DUPTAPOUT.
A typical use in modifying the file would be if you may want to
duplicate the IBM distribution tape, but leave out certain products.
After using DUPTAPIN, you can remove members from the DUPTAPP file for
the products that you do not want to duplicate. To do this, you will
need to know the file names that are associated with each product. The
AS/400 Central Site Distribution Guide (GA21-9993) describes the
distribution tape. Use this and DSPFD TYPE(*MBRLIST) of DUPTAPP to
determine what members to remove.
To add members, you would normally use DUPTAPIN to bring in the tape
files to be added as members to a DUPTAPP file in a different library.
You would then rename the member names so they will appear in the
appropriate sequence and copy them to the appropriate DUPTAPP file.
The member names are created in sequence so that the creation
date/time of the members will be in the same sequence as the files
appear on the tape. However, when DUPTAPOUT is used, the member list
is built with DSPFD TYPE(*MBRLIST) which causes the members to appear
in alphabetical sequence. If no members are added, this will be the
same sequence as the original tape. If you wanted to add some members
so they would appear on the output tape between MBR0011 and MBR0012,
you could create the members as MBR0011A, MBR0011B etc.
DUPTAPIN command parameters *CMD
---------------------------
DEV The device to be used. Only a single device can be
named.
DUPTAPLIB The library which contains the DUPTAPP file. If the
file does not exist, an actual library must be named
and the file will be automatically created. If the
file does exist, *LIBL may be specified (it is the
default). Any members will be cleared at the
beginning of the command. A member is added for each
file which appears on the tape. It is possible to use
the DUPTAPIN command and store multiple tapes on the
system each in its own library.
**NEWPAGE
ENDOPT The end of tape option. The default is *REWIND.
*UNLOAD or *LEAVE may also be specified.
LIB A list of libraries (labels) to duplicate. The
default is *ALL. Up to 40 libraries may be named.
Only those named libraries will be duplicated.
DUPTAPOUT command parameters *CMD
----------------------------
DEV The device to be used. Only a single device can be
named.
DUPTAPLIB The library which contains the DUPTAPP file. *LIBL is
the default.
CHKACT Whether to check for active files on the tape. The
default is *NO. By entering *YES, the operator will
not be prompted for the CPA4278 message if active
files exist.
ENDOPT The end of tape option. The default is *REWIND.
*UNLOAD or *LEAVE may also be specified.
Restrictions
------------
** Tapes written in data interchange format cannot be used. Only
tapes written by Save commands, IBM distribution tapes or PTF
distribution tapes may be used.
** If a multi-volume set is to be duplicated, the entire set must
be processed by a single use of DUPTAPIN. You cannot use
DUPTAPIN to duplicate a single volume of a multi-volume set.
** The tool requires that two PL/I programs be created. You must
either have the PL/I compiler on your system or obtain object
code for the programs. RPG cannot be used because the record
size exceeds 10,000 bytes.
** The DUPTAPIN command will require considerable DASD space to
duplicate the entire contents of tape(s).
**NEWPAGE
Prerequisites
-------------
The following TAA Tools must be on your system:
EDTVAR Edit variable
EXTLST Extract list
Implementation
--------------
If the tool does not already exist, it can be partially created with
the command:
CRTTAATOOL TOOL(DUPTAPIN)
This will create the commands and CL programs. The PL/I programs must
be created manually using the following commands:
CRTPLIPGM PGM(TAATOOL/TAATAPEM) SRCFILE(QUSRTOOL/QPL1SRC)
CRTPLIPGM PGM(TAATOOL/TAATAPEM2) SRCFILE(QUSRTOOL/QPL1SRC)
If you do not have the PL/I compiler on your system, it is possible to
create the programs on a system that does have the PL/I compiler and
restore the object code to your system.
Objects used by the tool
------------------------
-------- TAATOOL library --------- ---- QUSRTOOL library ----
Object Type Attribute Src member Src file
------ ----- --------- ---------- -----------
DUPTAPIN *CMD TAATAPE QATTCMD
DUPTAPOUT *CMD TAATAPE2 QATTCMD
TAATAPEC *PGM CLP TAATAPEC QATTCL
TAATAPEC2 *PGM CLP TAATAPEC2 QATTCL
TAATAPEM *PGM PLI TAATAPEM QATTPL1
TAATAPEM2 *PGM PLI TAATAPEM2 QATTPL1
