[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | FOCUS, from INFORMATION BUILDERS |
|
| Moderator: | ZAYIUS::BROUILLETTE |
|
| Created: | Thu Feb 19 1987 |
| Last Modified: | Mon May 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 615 |
| Total number of notes: | 1779 |
91.0. "&vars->modify" by TOLKIN::HOLLOCHER () Wed Jul 13 1988 11:26
I have an IBI training manual that says the following can be
done, But it doesn't seem to work, any hints clues?
Master file description:
FILENAME=TESTDATA ,SUFFIX=FOC ,$
SEGNAME=SEG1 ,SEGTYPE=S1 ,$
FIELDNAME=FLD1 ,ALIAS=F1 ,FORMAT=A5 ,$
FIELDNAME=FLD2 ,ALIAS=F2 ,FORMAT=A5 ,$
FIELDNAME=FLD3 ,ALIAS=F3 ,FORMAT=A5 ,$
.FEX file
-SET &VAR1 = 'AAAAA';
-SET &VAR2 = 'BBBBB';
-SET &VAR3 = 'CCCCC';
MODIFY FILE TESTDATA
COMPUTE
F1 = '&VAR1';
F2 = '&VAR2';
F3 = '&VAR3';
MATCH F1
ON MATCH REJECT
ON NOMATCH INCLUDE
DATA
END
-RUN
It appears to hit do the on nomatch condition but does not include
the record. Anyone out there know if this works? Is IBI being
sneaky again?
Bruce
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 91.1 | TRY THIS | MEMV01::SHAPIRO | | Fri Jul 29 1988 12:12 | 33 |
| -*
-* NOTE THE DUMMY CRTFORM CASE. MODIFY'S REQUIRE AN I/O STATEMENT -- EVEN
-* IF IT IS CONTAINED IN A DUMMY CASE.
-*
-*
-SET &ECHO = ALL;
CREATE FILE TESTDATA
-RUN
-SET &VAR1 = 'AAAAA';
-SET &VAR2 = 'BBBBB';
-SET &VAR3 = 'CCCCC';
-RUN
MODIFY FILE TESTDATA TRACE
COMPUTE
F1 = '&VAR1';
F2 = '&VAR2';
F3 = '&VAR3';
GOTO ONE
CASE ONE
MATCH F1
ON MATCH REJECT
ON NOMATCH INCLUDE
ON NOMATCH GOTO EXIT
ENDCASE
-*
CASE DUMMY
CRTFORM
" <F1 "
" "
ENDCASE
DATA
END
-RUN
|