Subroutine Skeleton

     C*====================================================
     C* XXXXXX : << Description goes here >>
     C*====================================================
     C           XXXXXX    BEGSR
     C*
     C* Initially assume that no error will occur ....
     C*
     C                     MOVEL'Y'       DC@RET
     C*
     C* *** **************************************** ***
     C* ***      Code Builtin Logic here             ***
     C* *** **************************************** ***
     C*
     C                     ENDSR