Comments on: OPNQRYF HOW?

By: rudedog

rudedog — Wed, 07 Jul 2010 02:49:53 +0000

*CAT and %SST will get you what you need.

remember though, that you need to convert the numeric date to an alpha field because of the way *CAT, *BCAT and *TCAT, and %SST work.

-Sarge

By: philpl1jb

philpl1jb — Wed, 07 Jul 2010 02:23:03 +0000

Greatest movie line –
“Badges?… We don’t need no… stinkin’ badges!”
The Treasure of the Sierra Madre 1948

How did (Humphrey Bogart get into movies with such wonderful lines.
“You know how to whistle”
“the stuff that dreams are made of”
“Louis, I think this is the beginning of a beautiful friendship”
Phil

By: philpl1jb

philpl1jb — Wed, 07 Jul 2010 02:11:52 +0000

OK .. If wndate was 20100706 Then is qryslt could be …
mvdatl *GE 20100701 *and mvdatl *LE 20100731

dcl wndatec *char 8
dcl wndat01 *char 8
dcl windat31 *char 8
chgvar wndatec windate
chgvar wndat01 (%sst(windatec 1 6) *tcat ’01)
chgvar wndat31 (%sst(windatec 1 6) *tcat ’31)
…
qryslt (‘mvdatl *GE ‘ *cat wndat01 *cat ‘*and mvdatl *LE’ *cat wndat31)

This time we don’t need no stinkin ”’ because the field mvdatl isn’t character.
Phil

By: znason

znason — Tue, 06 Jul 2010 13:35:27 +0000

OPNQRYR compare example............... Bob OPNQRYF FILE(DBALIB/GWHFMSTR) + OPTION(*INP) + FORMAT(DBALIB/GWHFMSTR) + QRYSLT('MBLIB *EQ + "' *CAT &LIBNAME *CAT '" *AND + MBFILE *EQ "' *CAT &FILENAME *CAT '"') /* */ CPYFRMQRYF FROMOPNID(GWHFMSTR) TOFILE(DBALIB/GWHBYFILE) + MBROPT(*REPLACE) CRTFILE(*YES) + FMTOPT(*NOCHK)