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');