COBOL - IBM - VSAM - Perguntas e respostas - www.cadcobol.com.br
IF LASTCC(or MAXCC) >(or <,= etc..) value - THEN - DO -
ELSE - DO -
// step01 EXEC pgm = IDCAMS // SYSIN DD * DEFINE CLUSTER (NAME (userid.name.sample) - VOLUMES (MVS801) - RECORDSIZE (100 150) - TRACKS (10 20) KEYS (10 0) - INDEXED) - DATA (NOME (ID do usuário.nome.sample.data)) - ÍNDICE (NOME (ID do usuário.nome.sample.index)) - / * //