Alrighty then, how about this? 'PIPE Strliteral /15 crcs001-REG-WORKER-ID$PIC X(00023)./', '| Xlate Substr 2-* of', ' Substr Fs - F2 of', ' Substr W2 of', ' Substr Fs $ F1 of 1-* Lower', '| Console'
All the other solutions posted look like they will work as well, but I believe my formulation follows your original specification the closest. It truly will only work on chars 2-* of the second field delimited by dash of the second word of the first field delimited by $ (i.e. the specs read almost literally like what you asked for). On the other hand it may be horribly inefficient :-) bc
