Re: output date field from a flat file into a variable

[A Paul <amandapaul1@xxxxxxxxxxx>]

1.I can get the date(&var) by using SQL given below (SELECT substr(admadmrec, 9,8)from admfile)
 
2.I get the date (&date) from an application by using RTVxxxxx command output to variable &date.
 
3. I need to compare them both in CL and do some further steps.
 

________________________________
 From: Alan Campin <alan0307d@xxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx> 
Sent: Tuesday, 30 July 2013, 18:41
Subject: Re: output date field from a flat file into a variable
  

If I am understanding your question correctly, why do you need to do
anything. Both field are in a CCYYMMDD format and are character fields so
just compare them unless you are saying that the field &DATE is a true date
type type from database table? CL doesn't support true date data types.


On Tue, Jul 30, 2013 at 4:25 PM, A Paul <amandapaul1@xxxxxxxxxxx> wrote:

> Hi
>
> I am looking to do date comparison in CL program.
>
>      I get the date from a flat file with the below SQL
> SELECT
>        substr(admadmrec, 9,8)
> from admfile
>
> the value is in format yyyymmdd.
>
>   How do you  output this date into a variable (&VAR) to compare with
> another variable(&DATE) that picks APPLICATION DATE in the same format
> 20130608(yyyymmdd).
>
>
> Below is the structure of my CL
> PGM
> DCL &VAR
> DCL &DATE
>
> -----
> -----
>
>
> IF &VAR = &DATE
> DO --------
> IF &VAR < &DATE
> DO ---------
> IF &VAR > &DATE
> DO --------
>
> ENDPGM
>
> Thanks!
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.