3270 FOR J=1 TO NCX