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

Sounds to me like you want to do the SQL select into a variable in your CL,
correct???

You *could*:

Use RCVF to get the record
Use OpnQryF if record selection is needed (ugh!)
Substring out the date piece
Do the compare


This falls under BFCT (Brute Force Coding Technique). There are definitely
better approaches if you avoid the "must be done 100% in CL" approach.


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Tuesday, July 30, 2013 4:45 PM
To: Midrange Systems Technical Discussion
Subject: Re: output date field from a flat file into a variable

1. I am assuming that you are getting the first variable from an RPG program
or HLL language as CL doesn't run SQL directly and that you must be calling
a CL program passing that value as a parameter defined as 8 *CHAR and the
second variable is defined in the CL as 8 *CHAR also.

So you code already says it already.

If (&VAR *EQ &DATE) DO
,,,
If (&VAR *LT &DATE) DO
...
If (&VAR *GT &DATE) DO

If you have a relatively modern OS you can do SELECT
WHEN (&VAR *EQ &DATE) THEN
..
WHEN (&VAR *LT &DATE) THEN
... ...
WHEN (&VAR *LT &DATE) THEN
...
ENDSELECT

Am I missing somthing?
...


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

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.

--
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.
--
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.

--
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.