Various OPNQRYF Examples

Using %VALUES
0030.00              CHGVAR     VAR(&SEL) VALUE('#depdt *ne 0 *and (#dedpa - +
0031.00                           #dedpu) > 0 *and #coacd = %VALUES(''A'' +   
0032.00                           ''B'' ''C'') *and #coltc="TM"')             


Using %RANGE
0106.00              CHGVAR     VAR(&SEL) VALUE('#COFBD *EQ %RANGE(' +         
0107.00                         *CAT &Fcymd *CAT ' ' *CAT &Tcymd +             
0108.00                         *CAT ')')                                      
0109.00                                                                        
0110.00              CHGVAR     VAR(&SEL) VALUE(&SEL *BCAT '*AND (#COACD *EQ' +
0111.00                           *BCAT '''' || &A || '''')                    
0112.00                                                                        
0113.00              CHGVAR     VAR(&SEL) VALUE(&SEL *BCAT '*AND #COTCD *EQ' + 
0114.00                           *BCAT '''' || &A || '''')                    
0115.00              CHGVAR     VAR(&SEL) VALUE(&SEL *BCAT '*AND #COTYP *NE' + 
0116.00                           *BCAT '''' || &LZ || '''' *cat ')')          

[report a broken link by clicking here]