PLI打印出PIC类型输出

使用PLI打印输出信息,最常见的是:

PUT SKIP(1) EDIT ('CODE = ',ERR_CODE)(A,A);

这里是打印PIC类型的输出,不怎么常用。今天用到了,所以记在这:

PUT EDIT('ACCOUNT PROCESSED : ',ACCOUNT_CTR)      
                  (SKIP(1),COL(1),A,P'999999999'); 

PUT SKIP FILE(OUTFILE) EDIT('CHENGDU: ',SOURCE) 
      (A,P'ZZ,ZZZV.ZZ');

Comments !