*        String length             06/07/2016
LEN      CSECT
         USING  LEN,15             base register
         LA     1,L'C              length of C
         XDECO  1,PG
         XPRNT  PG,12
         LA     1,L'H              length of H
         XDECO  1,PG
         XPRNT  PG,12
         LA     1,L'F              length of F
         XDECO  1,PG
         XPRNT  PG,12
         LA     1,L'D              length of D
         XDECO  1,PG
         XPRNT  PG,12
         LA     1,L'PG             length of PG
         XDECO  1,PG
         XPRNT  PG,12
         BR     14                 exit           length
C        DS     C                  character       1
H        DS     H                  half word       2
F        DS     F                  full word       4
D        DS     D                  double word     8
PG       DS     CL12               string         12
         END    LEN