00001 *****                                                             02/26/08
00002 *                                                                 DTSIL142
00003 *    DTSIL142  LINKAGE TO DTSBD142: ADD MPRF                         LV001
00004 *                                                                 DTSIL142
00005 *                                                                 DTSIL142
00006 *              06/01/2005  INITIAL DEVELOPMENT.            GD     DTSIL142
00007 *                                                                 DTSIL142
00008 *****                                                             DTSIL142
00009                                                                   DTSIL142
00010          10  L142-COMMAND                PIC  X(01).              DTSIL142
00011              88  L142-INITIATE-88            VALUE 'I'.           DTSIL142
00012              88  L142-PROCESS-88             VALUE 'P'.           DTSIL142
00013              88  L142-TERMINATE-88           VALUE 'T'.           DTSIL142
00014                                                                   DTSIL142
00015          10  L142-DATA-AREA.                                      DTSIL142
00016              15  L142-CURR-RUN-DATE      PIC S9(09)  COMP-3.      DTSIL142
00017                                                                   DTSIL142
00018          10  FILLER                      PIC  X(15).              DTSIL142