##
##
##
5 update_desc PIC X(80).
##
##
000157 MOVE update_desc TO rec_desc.
##
##
000113 PERFORM VARYING i FROM 1 BY 1 UNTIL i = 80
000114 IF rec_desc(i:1) = `<`
000115 IF z + 4 < 80
000116 MOVE `<` TO temp_str(z:4)
000117 ADD 4 TO z
000118 ELSE
000119 MOVE ` ` TO temp_str(z:1)
000120 ADD 1 TO z
000121 END-IF
##
##