
So I went off and looked at my website hits for Jan 2009:
#reqs search term
...
5509 cobol
...
4005 pl/sql
Hmm, don't think I'll depend on pl/sql for work after all.

main-loop.
read input-file at end go to main-exit.
* a bit of record manipulation here, but not much
write output-file.
go to main-loop.
main-exit.
close input-file.
close output-file.
main-program.
perform main-loop thru end-main-loop
until 88-input-file-end.
close input-file.
close output-file.
stop run.
main-loop.
perform sub-read-input thru end-sub-read-input.
if not 88-input-file-end
then
* a bit of record manipulation here, but not much
write output-file.
end-main-loop.
exit.
sub-read-input
read input-file at end move 'x' to 77-input-file-end.
end-sub-read-input.
exit.
PROGRAM_ID. EXPAT01.
main-loop.
read input-file at end go to main-exit.
* a bit of record manipulation here, but not much
write output-file.
go to main-loop.
main-exit.
close input-file.
close output-file.


Leave a comment: