Using the Strip Function
The strip function takes a string as input and returns another string which is the same as the original except that the leading and trailing blanks have been removed from it. Although commands such as print_lines and prt_data drop trailing blanks when the s format is used, they do not remove leading blanks. The strip function may be used in a variable definition, such as “no_blanks”.
Example Spec:
~comment&strip.doc~defno_blanks: strip([6.20$])proc= {proc1:modify [30.10$] = strip([6.20$])prt_data [40.10$] "s" [6.20$]prt_data [50.10$] "s" strip([6.20$])print " 1 2 3 4 5 6"print "123456789012345678901234567890123456789012345678901234567890"say [1.60$]say "The strip of cols 6-26 = " no_blanks}>filetodb strip #01 1234502 6789003 abcde>eof>dbtofile strip strip~input strip id=1.2 ascii=80~output strip caselength=80 write_now'' ~translate strip in=1.2 ascii~input strip allow_update~exc proc=proc1~end