工作总结之——CICS文件的操作（关闭、操作、打开）
在工作中，经常会遇到这样的情形——需要对一个CICS文件进行更新。但因为是CICS文件，需要先关闭了才能更新。
关闭CICS文件常有的两种办法：
1. CEMT V FILE(DPSFRATE) -> 查出文件后手工DISABLE、CLOSE(此种方法简单快捷，但需要有足够的权限)
2. 用JOB来关闭、操作、重新打开文件 -> 如果没有足够的权限，提交Request让有权限的team来RUN JOB就行
//*在CICS中的不同Region中关闭Online文件
//STEP01 EXEC PGM=APPCCLN1,PARM='MVSCICS1'
//SYSPRINT DD SYSOUT=*
//AUDPRINT DD SYSOUT=*
//SYSIN DD *
FILE DPSFRATE CLOSE,DISABLE
//STEP02 EXEC PGM=APPCCLN1,PARM='MVSCICS2'
//SYSPRINT DD SYSOUT=*
//AUDPRINT DD SYSOUT=*
//SYSIN DD *
FILE DPSFRATE CLOSE,DISABLE
//*关闭Online文件之后再DELETE, DEFINE
//STEP03 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE (TOUGH.TEST.L01.RATE) CL PUREGE
IF MAXCC=8 THEN SET MAXCC=0
DEFINE CL(NAME(TOUGH.TEST.L01.RATE)
LOG(UNDO)
SHR(2,3))
DATA(NAME(TOUGH.TEST.L01.RATE.DATA)
CLY(5,2)
FSPC(0,0)
KEY(10,0)
RECSZ(80,80)
CISZ(1024))
INDEX(NAME(TOUGH.TEST.L01.RATE.INDEX))
//*对Online文件做相应的操作
//STEP04 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=TOUGH.TEST.B01.RATE1
//SORTOUT DD DISP=SHR,DSN=TOUGH.TEST.L01.RATE
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(10,1,CH,EQ,C' ')
OUTREC FIEDLS=(1,11,
X'020100101F',
X'020101231F'
22,50)
END
//*操作完成之后打开相应的Online文件
//STEP05 EXEC PGM=APPCCLN1,PARM='MVSCICS1'
//SYSPRINT DD SYSOUT=*
//AUDPRINT DD SYSOUT=*
//SYSIN DD *
FILE DPSFRATE ENABLE
FILE DPSFRATE OPEN
//STEP06 EXEC PGM=APPCCLN1,PARM='MVSCICS2'
//SYSPRINT DD SYSOUT=*
//AUDPRINT DD SYSOUT=*
//SYSIN DD *
FILE DPSFRATE ENABLE
FILE DPSFRATE OPEN
//
