COBOL Manual for TNS and TNS/R Programs
Procedure Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
43-43
REWRITE for Line Sequential Files
REWRITE for Line Sequential Files
SEARCH VARYING
REWRITE
END-REWRITE
record-name
FROM data-name
VST721.vsd
table indexerSEARCH VARYING
AT
WHEN condition
imperative-stmt-1
END-SEARCH
END
SENTENCE
imperative-stmt-2
NEXT
VST206.vsd