*COMDECK DEFOTEXT 
          CONTROL NOLIST; 
  # 
 OTEXTLE  EQU    63          LENGTH OF WSA IN WORDS 
 OUTBUF   EQU    0           LET CMM ASSIGN SPACE 
 ZZZZZ48  FILEB  OUTBUF,Z48BFS,(RTP=W)
  # 
  # #     DEF    OTEXTLEN  #63#;   #LENGTH OF OTEXT WSA#
          CONTROL LIST; 
