用JCL来压缩dataset

来源：互联网发布：服务器状态监测软件编辑：程序博客网时间：2024/06/16 10:54

用JCL来压缩dataset的好处是，可以schedule，可以无视dataset被人占用（作业可以挂在上面等着）……

以下是用来压缩PDS的Job，很简单，就是把一个PDS拷到它自己里面……

//COMPPDS JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*THIS JOB IS USED TO COMPRESS A PDS
//COMP     EXEC PGM=IEBCOPY,PARM='SIZE=500K'
//SYSPRINT DD SYSOUT=*
//COMPDS   DD DSN=SIMONJ.IFA.REXX,UNIT=DISK,DISP=(OLD,KEEP,KEEP)
//SYSUT3   DD DUMMY
//SYSIN    DD *
           COPY OUTDD=COMPDS,INDD=COMPDS
/*

另：每个系统，都有默认的jcl等待的time out时间。这个值可以手工通过TIME参数来设置

TIME=    {([minutes][,seconds])}
                {144) }
                {NOLIMIT }
                {MAXIMUM }

根据MVS JCL Reference，如果用了TIME=NOLIMIT或TIME=1440，貌似可以over ride系统的默认设置，从而使JOB在线上等待最长1440分钟也即一天；如果用了TIME=MAXIMUM更是可以使JCL最大等待时间变为357912分钟，也即248.55天（大半年）了。不过本人未实际测试……