| 1 | FSCQCS ;SLC/STAFF-NOIS Query Criteria Store ;4/22/94 11:55
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | STORE ; from FSCQB
|
|---|
| 5 | S PREVS=STEP,PREVF=FIELDCNT,FIELDCNT=FIELDCNT+1
|
|---|
| 6 | I ANDOR'="and" S STEP=STEP+1,FIELDCNT=1
|
|---|
| 7 | S $P(CRITERIA(0),U,2)=STEP,CRITERIA(STEP)=FIELDCNT
|
|---|
| 8 | S CRITERIA(STEP,FIELDCNT)=+FIELD_U_$P(COND,U,3)_U_$P(VALUE,U)
|
|---|
| 9 | S CRITERIA(STEP,FIELDCNT,0)=$P(FIELD,U,2)_" "_$P(COND,U,5)_$S($L($P(VALUE,U,2)):" ",1:"")_$P(VALUE,U,2)
|
|---|
| 10 | S CRITERIA(STEP,FIELDCNT,1)=ANDOR
|
|---|
| 11 | I ANDOR="or",PAREN="open" S CRITERIA(PREVS,PREVF,0)=CRITERIA(PREVS,PREVF,0)_")",PAREN="closed"
|
|---|
| 12 | I ANDOR="and",PAREN="ready" S CRITERIA(STEP,1,0)="("_CRITERIA(STEP,1,0),PAREN="open"
|
|---|
| 13 | I ANDOR="or",PAREN="closed" S PAREN="ready"
|
|---|
| 14 | Q
|
|---|
