如何使用多个FILE PUT STATEMENT 在一个DATA STEP里面？代码如下，比如我想把TMP5.WRK里的数据输出到&MYLIB,TMP6.WRK里的数据输出到&MYLIB1, 大概需要输出20个文件，最后应该是TMP24.WRK写入到&MYLIB19，如何重复利用同一段代码？代码中只有标记黄色的地方不一样。

谢谢大家了！

       DATA _NULL_;

       FILE &MYLIB;

       SET TMP5.WRK;

       IF BEG = TERM THENDELETE;

   IF TERM = . THENTERM2 = '9901-01-01';

       ELSE TERM2 =PUT(TERM,YYMMDD10.);

       SPACE = '      ';

      PUT @001 MBR2   $2.

          @003 LNAME  $25.

          @028 FNAME  $18.

          .

          .

          .

                    ;

    RUN;

       DATA _NULL_;

       FILE &MYLIB1;

       SET TMP6.WRK;

       IF BEG = TERM THENDELETE;

   IF TERM = . THENTERM2 = '9901-01-01';

       ELSE TERM2 =PUT(TERM,YYMMDD10.);

       SPACE = '      ';

       PUT @001 MBR2   $2.

          @003 LNAME  $25.

          @028 FNAME  $18.

                    ;

    RUN;