proc.txt

send sink
%
% PLOCURE
% This program posts all the PLO lines
% on the switch.
% It then determines the number of lines posted
% It then force releases and returns each line to service.
% It then returns the user to the CI prompt
% PLEASE DO NOT MODIFY THIS PROGRAM IN ANY WAY
%
listsf all
erasesf PLOLINES
send sfdev PLOLINES
quit all;mapci nodisp;mtc;lns;ltp;post s PLO print
send previous
edit PLOLINES
end; linestr->lastline
quit
strsize lastline -> ssize
if (ssize < 38) then ('0'->num) else +
    (substr lastline 38 (ssize-38) -> num)
(decstrtonum num) -> nlines
repeat nlines (frls;rts;next)
erasesf PLOLINES
quit all
send previous
print 'The number of lines found PLO and force released = ' nlines