*DECK S$STLEN 
          IDENT  S$STLEN
          COMMENT GENERATE- SET LENGTH FIELD
          TITLE  S$STLEN - SET LENGTH FIELD 
*CALL LBLPTR
          SPACE  4
          ENTRY  S$STLEN
 S$STLEN  SUBR
          SB1    1
          SA1    X1 
          SB5    X1 
          GEN    (SX7 0),B5 
          GEN    (SA7 "ORECLEN")
          EXIT
          END 
