XCTL

1 XCTL  PROGRAM(name)
2? 
2 COMMAREA(data-area)
2.1? LENGTH(data-value)
2 CHANNEL(name)
3? 
3 INPUTMSG(data-area)
3.1? INPUTMSGLEN(data-value)