サブルーチンのスケルトン

     C*====================================================
     C* XXXXXX : << ここに記述 >>
     C*====================================================
     C           XXXXXX    BEGSR
     C*
     C* 最初にエラーは発生しないことが前提 ....
     C*
     C                     MOVEL'Y'       DC@RET
     C*
     C* *** **************************************** ***
     C* ***      ここに組み込みロジックのコード      ***
     C* *** **************************************** ***
     C*
     C                     ENDSR