I've got an OPNQRY thqt if I put the results into a file via CPYFRMQRYF the dataset is correct, but if I run DSPPFM on the file it doesn't.
The code I use:
DCL VAR(&SELECTA) TYPE(*CHAR) LEN(93) +
VALUE('CONO55 *EQ "DA" +
*AND DNSD55 *EQ 1130102 +
*AND (ORDN55 *GE "0607691" *AND +
ORDN55 *LE "0607691")')
OVRDBF FILE(OEP55) SHARE(*YES)
OPNQRYF FILE((OEP55 *FIRST *ONLY) (OEP55E *FIRST +
*ONLY)) OPTION(*INP) FORMAT(OEP55) +
QRYSLT(&SELECTA) KEYFLD((OEP55/CONO55 +
*ASCEND *N) (OEP55/ORDN55 *ASCEND *N) +
(OEP55/ORDL55 *ASCEND *N) +
(OEP55/CATN55 *ASCEND *N)) +
UNIQUEKEY(4) JFLD((OEP55/CONO55 +
OEP55E/CONO55 *EQ) (OEP55/ORDN55 +
OEP55E/ORDN55 *EQ) (OEP55/ORDL55 +
OEP55E/ORDL55 *EQ)) MAPFLD((CONO55 +
'OEP55/CONO55' *CALC *N *N *CALC) +
(ORDN55 'OEP55/ORDN55' *CALC *N *N +
*CALC) (ORDL55 'OEP55/ORDL55' *CALC *N +
*N *CALC)) SEQONLY(*NO)
The code I use:
DCL VAR(&SELECTA) TYPE(*CHAR) LEN(93) +
VALUE('CONO55 *EQ "DA" +
*AND DNSD55 *EQ 1130102 +
*AND (ORDN55 *GE "0607691" *AND +
ORDN55 *LE "0607691")')
OVRDBF FILE(OEP55) SHARE(*YES)
OPNQRYF FILE((OEP55 *FIRST *ONLY) (OEP55E *FIRST +
*ONLY)) OPTION(*INP) FORMAT(OEP55) +
QRYSLT(&SELECTA) KEYFLD((OEP55/CONO55 +
*ASCEND *N) (OEP55/ORDN55 *ASCEND *N) +
(OEP55/ORDL55 *ASCEND *N) +
(OEP55/CATN55 *ASCEND *N)) +
UNIQUEKEY(4) JFLD((OEP55/CONO55 +
OEP55E/CONO55 *EQ) (OEP55/ORDN55 +
OEP55E/ORDN55 *EQ) (OEP55/ORDL55 +
OEP55E/ORDL55 *EQ)) MAPFLD((CONO55 +
'OEP55/CONO55' *CALC *N *N *CALC) +
(ORDN55 'OEP55/ORDN55' *CALC *N *N +
*CALC) (ORDL55 'OEP55/ORDL55' *CALC *N +
*N *CALC)) SEQONLY(*NO)
Comment