XEQ CH <LIST.RNO >T.TMP '.COMMENT DOC '
RNO LIST.DOC=T.TMP
XEQ MAKLIST LIST.DOC
!COPY LIST.DOC LB:[22,2]*.*