:S
XY 12 19
:<PICTURE PROCESSING IN PROCESS, PLEASE WAIT>
XY = 1
COPY $0.DO=CMD:VPIC.2BC
PEXPND $0 $0 $:$P
SUBMIT $0/OUTPUT:PICLOG
VTAM