Re: a small query

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

If you only mean just firm='J'.

CPYF       FROMFILE(QS36G/GPOSF1) + 
             TOFILE(QS36F/YPOSF1) + 
             MBROPT(*REPLACE) CRTFILE(*YES) + 
 
             INCREL((*IF PFIRM *EQ 'J')) FMTOPT(*NOCHK) 

If you mean office=980 and firm='J' 
CPYF       FROMFILE(QS36G/GPOSF1) + 
             TOFILE(QS36F/YPOSF1) + 
             MBROPT(*REPLACE) CRTFILE(*YES) + 
             INCREL((*IF POFFIC *EQ '980') (*AND PFIRM *EQ 'J')) 
FMTOPT(*NOCHK)

Hope that helps, I may not have understood what you wanted.
Bill Hopkins 

 




murali dhar <hydchap1@xxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
11/19/2003 04:27 AM
Please respond to Midrange Systems Technical Discussion

 
        To:     Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
        cc: 
        Subject:        a small query


Hi 
please help me here
CPYF       FROMFILE(QS36G/GPOSF1) + 
             TOFILE(QS36F/YPOSF1) + 
             MBROPT(*REPLACE) CRTFILE(*YES) + 
 
             INCREL((*IF POFFIC *EQ '980') (*AND PFIRM
+ 
             *EQ 'J') (*AND PEXCH *EQ '22') (*OR + 
 
             POFFIC *EQ '980') (*AND PFIRM *EQ 'J') + 
 
             (*AND PEXCH *EQ '24')) FMTOPT(*NOCHK) 
 
this is to select office=980 firm=J and Exch=22,24.
-----------------------------------------
Now I ve to include all records with firm=J...
How do i change my query,Iam bit confused,some one
confirm  me please !
Thanks for your help in adv,
Murali.

__________________________________
Do you Yahoo!?
Protect your identity with Yahoo! Mail AddressGuard
http://antispam.yahoo.com/whatsnewfree
_______________________________________________
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.