使用Z/Os语言进行文件操作

这段示例代码演示了如何利用Z/Os语言在z/OS上进行文件操作，包括创建和读取文件。其中，使用了FILEDEF语句定义文件和SYSIN语句读取控制台输入。

//DEFINITION JOB.. 
//STEP010 EXEC PGM=IEBGENER 
//SYSIN DD * 
        VOL=SER=ABCD1234 
  /* 
//SYSUT1 DD DSN=inputfile,DISP=SHR 
//SYSUT2 DD SYSOUT=(,),UNIT=sysALLDA 
//SYSUT3 DD SYSOUT=(,),UNIT=sysALLDA 

//DEFINITION JOB.. 
//STEP020 EXEC PGM=IDCAMS 
//SYSPRINT DD SYSOUT=* 
//SYSIN DD * 
   DEFINE CLUSTER - 
       (NAME(INPUT.CLUSTER) - 
        DATA (NAME(inputfile) - 
      INDEX(NAME(inputfile))))) 

//DEFINITION JOB... 
//STEP030 EXEC PGM=COPY 
//SYSUT1 DD DSN=inputfile,disp=SHR
//SYSUT2 DD DSN=qual.outputds,DISP=(NEW,CATLG,DELETE), 
//        UNIT=UNIT.USER.X 
//SYSIN DD * 
COPY INDD=SYSUT1,OUTDD=SYSUT2

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com