Comando SORTSUBS no funciona para biblioteca QTEMP
Publicado por Roberto Arguelles (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) */
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
0