free format COMMIT CONTROL

FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++

        *************** Beginning of data ***************************

0001.00 FPGMLOG    O    E             DISK    COMMIT   USROPN        

0002.00                                                              

0003.00 DQCMDEXC          PR                  EXTPGM('QCMDEXC')      

0004.00 D COMMAND                      100A   CONST OPTIONS(*VARSIZE)

0005.00 D LENGTH                        15P 5 CONST                  

0006.00                                                              

0007.00  /free                                                      

0008.00                                                              

0009.00   Eval PgmName='PGM14';                                      

0010.00   Eval InfoType='B';                                        

0011.00   Eval Info='pgm begin.';                                    

0012.00   Eval Ts=%timestamp();                                      

0013.00                                                              

0014.00   Callp QCMDEXC('STRCMTCTL LCKLVL(*ALL)': 22);              

0015.00   Open PGMLOG;                                              

0016.00   Write LogRec;                                              

0017.00   Close PGMLOG;                                              

0018.00   Commit;                                                    

0019.00   Callp QCMDEXC('ENDCMTCTL': 9);                            

0020.00                                                    

0021.00   Eval *inlr=*on;                                  

0022.00   Return;                                          

0023.00  /end-free                                        

        ****************** End of data ********************

注意

1. commit control写入的file需要STRJRNPF

2. 需要先STRCMTCTL才能对file进行更改, 可以在call程序之前用CL来STRCMTCTL, 也可在程序中STRCMTCTL, 如果在程序中实现, 则file要手动open, 因为这个命令在open file前有效

3. 在ENDCMTCTL之前必须得明确说明是commit还是rollback.