Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
fd xref-file.
01 xref-record.
02 a-unique-key.
03 unique-num pic s9(9) packed-decimal.
02 name-key pic x(50).
02 record-containing-name pic x(5).
01 a-word pic x(100).
do whatever you do to 'normalize' the NAME-FIELD (e.g. converting to upper case)
move main-file-key to record-containing-name
move 1 to I
perform until I > length of NAME-FIELD
unstring NAME-FIELD delimited by all spaces
into a-word count in J
pointer I
end-unstring
if J > 1
subtract 1 from J
perform varying K from 1 by 1 until K > J
add 1 to unique-key
move name-field (K:) to name-key
write xref-record
end-perform
end-if
end-perform
MOVE INPUT-STRING(1:CTR-1) TO NAME-KEY.
START xref-file KEY = NAME-KEY SIZE CTR-1
INVALID KEY
display "name does not exist"
END-START
IF NAME-KEY (1:CTR-1) not equal INPUT-STRING(1:CTR-1)
display "I've seen all the records containing name"
END-IF
NAME-KEY RECORD-CONTAINING-NAME
=====================================
AN A
AN C
ANIEL B
ATHAN A
ATHAN C
ATHANIEL B
EL B
HAN A
HAN C
HANIEL B
IEL B
JONATHAN A
NATHAN A
NATHAN C
NATHANIEL B
NIEL B
ONATHAN A
THAN A
THAN C
THANIEL B
MOVE INPUT-STRING(1:CTR-1) TO NAME-KEY.
START xref-file KEY = NAME-KEY SIZE CTR-1
INVALID KEY
display "name does not exist"
END-START
MOVE "NATHAN" TO NAME-KEY.
START xref-file KEY = NAME-KEY SIZE 6
INVALID KEY
display "name does not exist"
END-START
NAME-KEY RECORD-CONTAINING-NAME
=====================================
AN A
AN C
ANIEL B
ATHAN A
ATHAN C
ATHANIEL B
EL B
HAN A
HAN C
HANIEL B
IEL B
JONATHAN A
NATHAN A <=== file position after START
NATHAN C
NATHANIEL B
NIEL B
ONATHAN A
THAN A
THAN C
THANIEL B