IQofaGerbil
Active User
Joined: 05 May 2006 Posts: 183 Location: Scotland
|
|
|
|
by searching for it?
in this case looking for a comma ','
Code: |
SCAN-COMMA-NAME 1 30 A
SCAN-FIELD SCAN-COMMA-NAME 1 A OCCURS 30
SUB W 3 N VALUE 1
JOB
SCAN-COMMA-NAME = ' '
SCAN-COMMA-NAME = field to be tested
PERFORM STRIP-COMMA
STRIP-COMMA. PROC
SUB = 1
DO WHILE SUB < 31
IF SCAN-FIELD (SUB) = ','
do something
END-IF
SUB = SUB + 1
END-DO
END-PROC
*
|
|
|