Re: dds code to match program code

["Keith Carpenter" <CarpCon@xxxxxxx>]

omit all remaining records that were not selected or omitted.


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


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