|
|
ACCEPT |
|
[IF]
logical-condition |
REJECT |
This document covers the following topics:
For explanations of the symbols used in the syntax diagram, see Syntax Symbols.
Related Statements: AT
BREAK | AT START OF
DATA | AT END OF
DATA | BACKOUT
TRANSACTION | BEFORE BREAK
PROCESSING | DELETE |
END TRANSACTION |
FIND |
HISTOGRAM |
GET |
GET SAME |
GET TRANSACTION DATA |
LIMIT |
PASSW |
PERFORM BREAK PROCESSING
| READ |
RETRY |
STORE |
UPDATE
Belongs to Function Group: Database Access and Update
The statements ACCEPT and REJECT are used
for accepting/rejecting a record based on user-specified logical criterion. The
ACCEPT/REJECT statement may be used in conjunction
with statements which read data records in a processing loop (FIND, READ, HISTOGRAM,
CALL FILE,
SORT or
READ WORK FILE). The
criterion is evaluated after the record has been selected/read.
Whenever an ACCEPT/REJECT statement is
encountered for processing, it will internally refer to the innermost currently
active processing loop initiated with one of the above mentioned
statements.
When ACCEPT/REJECT statements are placed
in a subroutine, in case of a record reject, the subroutine(s) entered in the
processing loop will automatically be terminated and processing will continue
with the next record of the innermost currently active processing loop.
| Syntax Element | Description |
|---|---|
IF |
IF Clause: An IF
clause may be used with an ACCEPT or REJECT statement
to specify logical condition criteria in addition to that specified when the
record was selected/read with a FIND, READ, or HISTOGRAM statement. The logical
condition criteria are evaluated after the record has been read and after
record processing has started.
|
logical-condition |
Logical Condition
Criterion: The basic criterion is a relational expression.
Multiple relational expressions may be combined with logical operators
(AND, OR) to form complex criteria.
Arithmetic expressions may also be used to form a relational expression. The fields used to specify the logical criterion may be database fields or user-defined variables. For additional information on logical conditions, see Logical Condition Criteria in the Programming Guide. Note: |
Normally, only one ACCEPT or REJECT
statement is required in a single processing loop. If more than one
ACCEPT/REJECT is specified consecutively,
the following conditions apply:
If consecutive ACCEPT and REJECT
statements are contained in the same processing loop, they are processed in the
specified order.
If an ACCEPT condition is satisfied, the record
will be accepted and consecutive ACCEPT/REJECT
statements will be ignored.
If a REJECT condition is satisfied, the record will
be rejected and consecutive ACCEPT/REJECT statements
will be ignored.
If the processing continues to the last
ACCEPT/REJECT statement, the last statement will
determine whether the record is accepted or rejected.
If other statements are interleaved between multiple
ACCEPT/REJECT statements, each
ACCEPT/REJECT will be handled independently.
If a LIMIT
statement or other limit notation has been specified for a processing loop
containing an ACCEPT or REJECT statement, each record
processed is counted against the limit regardless of whether or not the record
is accepted or rejected.
ACCEPT/REJECT processing does not cause a
held record to be released from hold status unless the profile parameter
RI (Release
ISNs) has been set to RI=ON.
** Example 'ACREX1': ACCEPT ************************************************************************ DEFINE DATA LOCAL 1 EMPLOY-VIEW VIEW OF EMPLOYEES 2 NAME 2 SEX 2 MAR-STAT END-DEFINE * LIMIT 50 READ EMPLOY-VIEW ACCEPT IF SEX='M' AND MAR-STAT = 'S' WRITE NOTITLE '=' NAME '=' SEX 5X '=' MAR-STAT END-READ END
NAME: MORENO S E X: M MARITAL STATUS: S NAME: VAUZELLE S E X: M MARITAL STATUS: S NAME: BAILLET S E X: M MARITAL STATUS: S NAME: HEURTEBISE S E X: M MARITAL STATUS: S NAME: LION S E X: M MARITAL STATUS: S NAME: DEZELUS S E X: M MARITAL STATUS: S NAME: BOYER S E X: M MARITAL STATUS: S NAME: BROUSSE S E X: M MARITAL STATUS: S NAME: DROMARD S E X: M MARITAL STATUS: S NAME: DUC S E X: M MARITAL STATUS: S NAME: BEGUERIE S E X: M MARITAL STATUS: S NAME: FOREST S E X: M MARITAL STATUS: S NAME: GEORGES S E X: M MARITAL STATUS: S
** Example 'ACREX2': ACCEPT/REJECT
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 NAME
2 FIRST-NAME
2 SALARY (1)
*
1 #PROC-COUNT (N8) INIT <0>
END-DEFINE
*
EMP. FIND EMPLOY-VIEW WITH NAME = 'JACKSON'
WRITE NOTITLE *COUNTER NAME FIRST-NAME 'SALARY:' SALARY(1)
/*
ACCEPT IF SALARY (1) LT 50000
WRITE *COUNTER 'ACCEPTED FOR FURTHER PROCESSING'
/*
REJECT IF SALARY (1) GT 30000
WRITE *COUNTER 'NOT REJECTED'
/*
ADD 1 TO #PROC-COUNT
END-FIND
*
SKIP 2
WRITE NOTITLE 'TOTAL PERSONS FOUND ' *NUMBER (EMP.) /
'TOTAL PERSONS SELECTED' #PROC-COUNT
END
1 JACKSON CLAUDE SALARY: 33000
1 ACCEPTED FOR FURTHER PROCESSING
2 JACKSON FORTUNA SALARY: 36000
2 ACCEPTED FOR FURTHER PROCESSING
3 JACKSON CHARLIE SALARY: 23000
3 ACCEPTED FOR FURTHER PROCESSING
3 NOT REJECTED
TOTAL PERSONS FOUND 3
TOTAL PERSONS SELECTED 1