00001  IDENTIFICATION DIVISION.                                         09/29/98
00002  PROGRAM-ID.             DTSBU009.                                DTSBU009
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV004
00004  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBU009
00005  DATE-COMPILED.                                                   DTSBU009
00006                                                                      CL**4
00007 *****                                                             DTSBU009
00008 *                                                                 DTSBU009
00009 *    FUNCTION:  CONVERT MIXED CASE TO UPPER CASE.                 DTSBU009
00010 *                                                                 DTSBU009
00011 *                                                                 DTSBU009
00012 *    MODIFICATION LOG:                                            DTSBU009
00013 *                                                                 DTSBU009
00014 *    08/04/98  INITIAL DEVELOPMENT.     MODIFIED FROM MACBU009.      CL**2
00015 *              WORK ORDER:                      PROGRAMMER: ZL1      CL**2
00016 *                                                                 DTSBU009
00017 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU009
00018 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU009
00019 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBU009
00020 *                                                                 DTSBU009
00021 *                                                                 DTSBU009
00022 *    DESCRIPTION:                                                 DTSBU009
00023 *                                                                 DTSBU009
00024 *****                                                             DTSBU009
00025                                                                      CL**4
00026  ENVIRONMENT DIVISION.                                            DTSBU009
00027                                                                      CL**4
00028  DATA DIVISION.                                                   DTSBU009
00029                                                                      CL**4
00030  WORKING-STORAGE SECTION.                                         DTSBU009
000305 77  PAN-VALET PICTURE X(24) VALUE '004DTSBU009  09/29/98'.       DTSBU009
00031                                                                      CL**4
00032  01  WRK-AREA.                                                    DTSBU009
00033      05  WRK-ABEND-CD        PIC S9(04) COMP VALUE +009.          DTSBU009
00034      EJECT                                                        DTSBU009
00035  LINKAGE SECTION.                                                 DTSBU009
00036      SKIP3                                                        DTSBU009
00037  01  LINK-AREA.                                                   DTSBU009
00038  ++INCLUDE DTSIL009                                                  CL**3
00039      SKIP3                                                        DTSBU009
00040  PROCEDURE DIVISION USING LINK-AREA.                              DTSBU009
00041      SKIP2                                                        DTSBU009
00042      INSPECT L009-DATA CONVERTING 'abcdefghijklmnopqrstuvwxyz'    DTSBU009
00043                                TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.   DTSBU009
00044      SKIP2                                                        DTSBU009
00045      GOBACK.                                                      DTSBU009