Keywords › Keyword Descriptions › NEXTREC › Parameters

Parameters

NEXTREC supports no parameters

Example

This example syntax writes records with a STATE-CODE value of C'KS' to ddname KSOUT, of C'OK' to OKOUT, of 'TX' to TXOUT and all other STATE-CODE values to 'OTHEROUT'.

READ,
  LAYOUTFILE(LAYOUT), 
  MOVE(CLEAR),
  MOVE(1,0,1),
  IF(STATE-CODE,EQ,C'KS'),
    WRITE(KSOUT),
    NEXTREC,
  IF(STATE-CODE,EQ,C'OK'),
    WRITE(OKOUT),
    NEXTREC,
  IF(STATE-CODE,EQ,C'TX'),
    WRITE(TXOUT),
    NEXTREC,
  IF(STATE-CODE,NE.C'TX'),
    WRITE(OTHEROUT)