PUNCH ' ALIAS RETCODE0'
         PUNCH ' ALIAS RETCODE4'
         PUNCH ' ALIAS RETCODE8'
         PUNCH ' ALIAS RETCODEC'
         PUNCH ' ALIAS RETCODEX'
         PUNCH ' ALIAS ABEND100'
RETCODE  CSECT
         ENTRY RETCODE0
         ENTRY RETCODE4
         ENTRY RETCODE8
         ENTRY RETCODEC
         ENTRY RETCODEX
         ENTRY ABEND100
RETCODE0 DS    0H
         USING RETCODE0,15
         SR    15,15
         BR    14
         DROP  15
RETCODE4 DS    0H
         USING RETCODE4,15
         L     15,=A(4)
         BR    14
         DROP  15
RETCODE8 DS    0H
         USING RETCODE8,15
         L     15,=A(8)
         BR    14
         DROP  15
RETCODEC DS    0H
         USING RETCODEC,15
         L     15,=A(12)
         BR    14
         DROP  15
RETCODEX DS    0H
         USING RETCODEX,15
         L     15,=A(16)
         BR    14
         DROP  15
ABEND100 DS    0H
         USING ABEND100,15
         ABEND 100,DUMP
         DROP  15
         END  RETCODE