Te envio el fichero, espero te sea ut�l.
Saludos.
5722SS1 V5R1M0 010525 COPIAR ARCHIVO QGPL/QAUOOPT
QAUOOPT
Desde archivo . . . : QGPL/QAUOOPT Miembro . . : QAUOOPT
Longitud registro . : 252
A archivo . . . . . : *PRINT
NUMREG *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5
...+... 6 .
1 APADDPRJLIBL PRJ(&ZP) GRP(&ZG) SCAN(&ZH) SCHPTH(&ZS)
2 CCALL &O/&N
3 AUCALL CISSYS/IFCCHGAUT (&L &N &T 0)
4 CCCHGCURLIB CURLIB(&L)
5 CDSTRDFU OPTION(2)
6 CLCHGCURLIB CURLIB(&N)
7 CMSTRSDA OPTION(2) SRCFILE(&L/&F) ??SRCMBR()
8 CSSTRSDA OPTION(1) SRCFILE(&L/&F) ??SRCMBR()
9 DBSTRISDB PGM(&O/&N) UPDPROD(*YES)
10 DMDSPMSG
11 EAEDTOBJAUT OBJ(&L/&N) OBJTYPE(&T)
12 GOGO &L/&N
13 IMIMPPART ??OBJ(&L/&F) ??OBJTYPE(*FILE) ??MBR(&N)
??PART(&N) ??LANG(&S) TEXT(&X)
14 IOIMPPART ??OBJ(&L/&N) ??OBJTYPE(&T) ??PRJ() ??GRP()
??TYPE(&S) ??PART(&N)
15 JLDSPJOBLOG
16 PLWRKPARTPDM PRJ(&ZP) GRP(&ZG) TYPE(*ALL) PART(*ALL)
LANG(*ALL) PARTL(&N)
17 RPRMVPRJLIBL
18 RQRUNQRY QRYFILE((&L/&N))
19 SLSBMJOB ??CMD(SAVLIB LIB(&N))
20 SMSBMJOB ??CMD(SAVOBJ OBJ(&F) LIB(&L) OBJTYPE(*FILE)
FILEMBR((&F (&N))))
21 SOSBMJOB ??CMD(SAVOBJ OBJ(&N) LIB(&L))
22 SPWRKSPLF
23 WSWRKSBMJOB
23 registros copiados al miembro o etiqueta *N del archivo QSYSPRT de la
biblioteca QSYS. 0 registros excluidos.
* * * * * F I N D E S A L I D A I M P R E S A
D E L S I S T E M A * * * * *
_____________________________________________________
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]
