.proc,cybipl.
.*
.*        attach file cyblock in write mode to lock other
.*        jobs away from file cybipl.
.*
.*        entry  sespack should have been called.
.*               getcmod must have been called.
.*               cybopl attached.
.*
.*
.*        generate *ignore directives.
.*
.*
.*        apply mods
.*
*ses. tempcor c=cybmods b=cybopl un=plato
*ses. tempcor c=cybmods b=cybopl un=cybis
.*
.*        now lock cybipl
.*
attach(cyblock/m=w,na)
ife,(file(cyblock,pm).ne.true),cyblock.
define(cyblock/na)
endif(cyblock)
.*
.*        create new cybipl file
.*
purge(cybipl/na)
define(cybipl)
rewind(cybopl)
copyei,cybopl,cybipl.
unload,cybopl.
.*
revert. cybipl
~