Mainframe is Back

HELLO: PROCEDURE OPTIONS (MAIN); /* A PROGRAM TO OUTPUT HELLO WORLD */ FLAG = 0; LOOP: DO WHILE (FLAG = 0); PUT SKIP DATA('HELLO WORLD!'); END LOOP; END HELLO;

IDCAMS Utility中，还提供了一个’DELETE’命令，用于删除Cataloged Data Set。在删除Data Set的同时，对Data Set进行uncatalog操作。’DELETE’可以操作的包括： 1. Sequential Data Set 2. Partitioned Data Set 3. Partitioned Data Set中的member ‘DELETE’命令的语法： //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A //SYSIN DD *   DELETE data-set-name   DELETE data-set-name(member) /*   删除Data Set的例子： DELETE MIB.TEMP.DATA  [ Read More ]

IDCAMS的另一个常用功能就是Data Set的重命名。Data Set的重命名使用’ALTER’命令来完成。’ALTER’可以重命名操作的Data Set，除了Sequential Data Set外,还可以操作Partitioned Data Set，以及对Partitioned Data Set中member的重命名。 使用’ALTER’命令重命名Data Set的语法: ALTER old-data-set-name NEWNAME(new-data-set-name) 其中’ old-data-set-name’和’ new-data-set-name’既可以是’ Partitioned Data Set’，也可以是’ Sequential Data Set’。 使用’ALTER’命令重命名member的语法： ALTER data-set-name(old-member) NEWNAME(data-set-name(new-member)) 以下是一个在JCL中使用’ALTER’命令的例子： //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A //SYSIN DD * ALTER MIB.TEMP.DATA  [ Read More ]