AS/400 - Comando SORTSUBS no funciona para biblioteca QTEMP

   
Vista:

Comando SORTSUBS no funciona para biblioteca QTEMP

Publicado por Roberto Arguelles roberto.arguelles@tcs.com (1 intervención) el 29/10/2015 22:29:56
En un programa CL quiero modificar un archivo con instrucciones de SORT. Si tengo el archivo en una biblioteca particular el comando funciona. Si el archivo está en QTEMP el comando no hace nada.


CPYF FROMFILE(PWOLIB/QFMTSRC) +
TOFILE(QTEMP/QFMTSRCP) FROMMBR(PWO50801) +
TOMBR(*FIRST) MBROPT(*REPLACE) +
CRTFILE(*YES)
/* CPYF FROMFILE(PWOLIB/QFMTSRC) +
TOFILE(PWOLIB/QFMTSRCP) FROMMBR(PWO50801) +
TOMBR(*FIRST) MBROPT(*REPLACE) CRTFILE(*YES)

SORTSUBS SUBS(&SORT01)

FMTDTA INFILE((*LIBL/AJPHDR *FIRST)) +
OUTFILE(*LIBL/PWO508ST *FIRST) +
SRCFILE(QTEMP/QFMTSRCP) SRCMBR(*FIRST) +
OPTION(*NOPRT)
/* FMTDTA INFILE((*LIBL/AJPHDR *FIRST)) +
OUTFILE(*LIBL/PWO508ST *FIRST) +
SRCFILE(PWOLIB/QFMTSRCP) SRCMBR(*FIRST) +
OPTION(*NOPRT) */
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder