ISSUE WAIT

1 ISSUE WAIT
2? 
2 DESTID(data-value)
2.1? DESTIDLENG(data-value)
2 SUBADDR(data-value)
2.1! CONSOLE
2.1?
2.1 PRINT
2.1 CARD
2.1 WPMEDIA1
2.1 WPMEDIA2
2.1 WPMEDIA3
2.1 WPMEDIA4
3? 
3 VOLUME(data-value)
3.1? VOLUMELENG(data-value)