RE: Embedded SQL - fetching a date

["Tyler, Matt" <mattt@xxxxxxxxxxxxxx>]

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