|
Okay all source is embedded... TESTSQLPF: A R TESTSQLRF A IPUPC 15P 0 EDTWRD(' 0- - ') A COLHDG('UPC') A IPSTN 3P 0 COLHDG('Store') A IPSTDT L COLHDG('Start Date') A K IPUPC TESTSQL3: H DATFMT(*USA) D REC1 DS D ipupc 15p 0 D ipstn 3p 0 D ipstdt d datfmt(*USA) D REC DS OCCURS(3) D upc like(ipupc) D stn like(ipstn) D stdt like(ipstdt) C/EXEC SQL C+ SET OPTION DATFMT = *USA C/END-EXEC C/EXEC SQL C+ DECLARE CSR CURSOR FOR SELECT IPUPC, IPSTN, IPSTDT FROM TESTSQLPF C+ WHERE IPUPC=5100000011 C/END-EXEC C SQLSTT DSPLY C/EXEC SQL C+ OPEN CSR C/END-EXEC C SQLSTT DSPLY C/EXEC SQL C+ FETCH NEXT FROM CSR FOR 3 ROWS INTO :REC C/END-EXEC C SQLSTT DSPLY C DO 3 X 3 0 C X OCCUR REC C STDT DSPLY C ENDDO C EVAL *INLR = *ON C RETURN TESTSQLQY: INSERT INTO TESTSQLPF VALUES( 5100000011,1, '2005-01-23'); INSERT INTO TESTSQLPF VALUES( 5100000011,1, '2005-01-25'); INSERT INTO TESTSQLPF VALUES( 5100000011,1, '2005-02-15'); INSERT INTO TESTSQLPF VALUES( 5100000011,1, '2005-04-18'); INSERT INTO TESTSQLPF VALUES( 5100000011,1, '2005-04-18'); INSERT INTO TESTSQLPF VALUES( 5100000011,1, '2005-04-19'); INSERT INTO TESTSQLPF VALUES( 5100000011,2, '2003-10-05'); INSERT INTO TESTSQLPF VALUES( 5100000011,2, '2005-04-06'); INSERT INTO TESTSQLPF VALUES( 5100000011,2, '2005-04-18'); INSERT INTO TESTSQLPF VALUES( 5100000011,2, '2005-04-28'); INSERT INTO TESTSQLPF VALUES( 5100000011,3, '2005-01-30'); INSERT INTO TESTSQLPF VALUES( 5100000011,3, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,4, '2004-11-29'); INSERT INTO TESTSQLPF VALUES( 5100000011,4, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,4, '2005-04-19'); INSERT INTO TESTSQLPF VALUES( 5100000011,5, '2003-08-31'); INSERT INTO TESTSQLPF VALUES( 5100000011,5, '2004-11-08'); INSERT INTO TESTSQLPF VALUES( 5100000011,5, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,5, '2005-04-18'); INSERT INTO TESTSQLPF VALUES( 5100000011,5, '2005-04-25'); INSERT INTO TESTSQLPF VALUES( 5100000011,5, '2005-07-11'); INSERT INTO TESTSQLPF VALUES( 5100000011,6, '2005-01-23'); INSERT INTO TESTSQLPF VALUES( 5100000011,6, '2005-01-25'); INSERT INTO TESTSQLPF VALUES( 5100000011,6, '2005-02-15'); INSERT INTO TESTSQLPF VALUES( 5100000011,6, '2005-04-18'); INSERT INTO TESTSQLPF VALUES( 5100000011,6, '2005-04-18'); INSERT INTO TESTSQLPF VALUES( 5100000011,6, '2005-04-19'); INSERT INTO TESTSQLPF VALUES( 5100000011,6, '2005-05-25'); INSERT INTO TESTSQLPF VALUES( 5100000011,7, '2003-09-14'); INSERT INTO TESTSQLPF VALUES( 5100000011,7, '2004-09-19'); INSERT INTO TESTSQLPF VALUES( 5100000011,7, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,7, '2005-03-25'); INSERT INTO TESTSQLPF VALUES( 5100000011,7, '2005-04-10'); INSERT INTO TESTSQLPF VALUES( 5100000011,9, '2005-01-30'); INSERT INTO TESTSQLPF VALUES( 5100000011,9, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,9, '2005-04-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,11, '2003-10-12'); INSERT INTO TESTSQLPF VALUES( 5100000011,11, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,13, '2005-01-30'); INSERT INTO TESTSQLPF VALUES( 5100000011,13, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,14, '2005-01-30'); INSERT INTO TESTSQLPF VALUES( 5100000011,14, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,15, '2005-01-30'); INSERT INTO TESTSQLPF VALUES( 5100000011,15, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,18, '2004-11-21'); INSERT INTO TESTSQLPF VALUES( 5100000011,18, '2005-02-02'); INSERT INTO TESTSQLPF VALUES( 5100000011,18, '2005-02-16'); INSERT INTO TESTSQLPF VALUES( 5100000011,18, '2005-04-10'); INSERT INTO TESTSQLPF VALUES( 5100000011,18, '2005-04-17'); Thank you, Matt Tyler WinCo Foods, LLC mattt@xxxxxxxxxxxxxx
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.