* % DCL (RTNEXIT,PREEXIT,PSTEXIT,PRFEXIT) CHAR;                         00010002
* % DCL IELOPBAS CHAR;                                                  00020001
* % IELOPBAS = 'IELOPLST';                                              00030001
* % DCL IELEXBAS CHAR;                                                  00040001
* % IELEXBAS = 'IELEXIT';                                               00050001
* % RTNEXIT = ' ';                                                      00060001
* % PREEXIT = ' ';                                                      00070001
* % PSTEXIT = ' ';                                                      00080001
* % PRFEXIT = ' ';       /* @YM00047 */                                 00130002