RE: dds code to match program code

["Dwayne Allison" <Dwayne.Allison@xxxxxxxxx>]

It worked!

What does the 'O  All' do?

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Keith Carpenter
Sent: Wednesday, August 25, 2004 10:50 AM
To: midrange-l
Subject: Re: dds code to match program code


You might try

O PMKPPX                    COMP(EQ 'OMA ')
O PMKREI                    COMP(NE '  ')
S PMKNOH                    VALUES('Y')
S PMKHLD                    VALUES('Y')
S PMKN99                    VALUES('Y')
O                                      ALL



----- Original Message ----- 
From: "Dwayne Allison" <Dwayne.Allison@xxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Wednesday, August 25, 2004 8:10 AM
Subject: dds code to match program code


> I haven't coded DDS logical in a while and never used the Select function.
>
> I coded:
>
> S PMKPPX                    COMP(NE 'OMA ')
>   PMKREI                    VALUES(' ')
> S PMKNOH                    VALUES('Y')
>   PMKHLD                    VALUES('Y')
>   PMKN99                    VALUES('Y')
>
> The program has:
>
> PMKPPX        IFNE      'OMA '
> PMKREI        IFEQ      ' '
> PMKNOH        IFEQ      'Y'
> PMKHLD        OREQ      'Y'
> PMKN99        OREQ      'Y'
>
> Will my DDS code work?
>
>
> --
> 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.