19.5.3 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