PLI 动态数组的例子
新写了一个PL/I程序，需要在程序里面用到动态数组来提高效率，所以总结了一下PL/I中动态数组(Dynamic Array)的用法：
1.申明一个Controlled的数组叫做WT_TMPARRAY_INFO,此时并不知道该数组的长度:
DCL INPUTFIL FILE RECORD INPUT;
DCL TMPARRAY_CTR FIXED BIN(31) INIT(0);
DCL TMPARRAY_SUB FIXED BIN(31) INIT(1);
DCL 01 TMPARRAY_RECORD,
05 INPUT_CUR CHAR(03) INIT(' '),
05 INPUT_ACCT CHAR(05) INIT(' ');
/*******定义未知长度的动态数组WT_TMPARRAY_INFO*************************/
DCL ...