工作总结之——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

//