00001  IDENTIFICATION DIVISION.                                         04/05/04
00002  PROGRAM-ID.             DTSCU035.                                DTSCU035
00003  AUTHOR.                 TRW.                                        LV003
00004  DATE-WRITTEN.           APRIL 2003.                              DTSCU035
00005  DATE-COMPILED.                                                   DTSCU035
00006      SKIP3                                                        DTSCU035
00007 *****                                                             DTSCU035
00008 *                                                                 DTSCU035
00009 *    FUNCTION:  OWNER/OFFICER/PARTNER/CONTACT RECORD TYPE         DTSCU035
00010 *                                                                 DTSCU035
00011 *                                                                 DTSCU035
00012 *    MODIFICATION LOG:                                            DTSCU035
00013 *                                                                 DTSCU035
00014 *    04/23/2003  INITIAL DEVELOPMENT.                             DTSCU035
00015 *                REFERENCE:                                       DTSCU035
00016 *                                                                 DTSCU035
00017 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU035
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU035
00019 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCU035
00020 *                                                                 DTSCU035
00021 *                                                                 DTSCU035
00022 *    DESCRIPTION:                                                 DTSCU035
00023 *                                                                 DTSCU035
00024 *    DTSCU035 EDITS ACCOUNTING CODES AND INDICATORS.              DTSCU035
00025 *                                                                 DTSCU035
00026 *    DTSCU035 RETURNS A RESULT INDICATOR, A SHORT DESCRIPTION     DTSCU035
00027 *    OF THE CODE VALUE, AND A LONG DESCRIPTION OF THE CODE        DTSCU035
00028 *    VALUE.                                                       DTSCU035
00029 *                                                                 DTSCU035
00030 *    IF L035-OPTION IS NOT VALID, THEN ABEND THE TASK WITH AN     DTSCU035
00031 *    ABEND CODE OF 'U035'.                                        DTSCU035
00032 *                                                                 DTSCU035
00033 *    GO TO DEPENDING ON L035-OPTION TO GET TO THE PARAGRAPH       DTSCU035
00034 *    THAT CARRIES OUT EDITING FOR THE DATA ELEMENT SPECIFIED      DTSCU035
00035 *    BY L035-OPTION.  USE A SEARCH STATEMENT TO DETERMINE THE     DTSCU035
00036 *    VALIDITY OF L035-CD-*.                                       DTSCU035
00037 *                                                                 DTSCU035
00038 *    IF L035-CD-* IS A VALID VALUE                                DTSCU035
00039 *        MOVE '1' TO L035-RESULT-IND                              DTSCU035
00040 *        MOVE THE APPROPRIATE C035-*-SHORT-DSCR                   DTSCU035
00041 *          TO L035-SHORT-DSCR                                     DTSCU035
00042 *        MOVE THE APPROPRIATE C035-*-LONG-DSCR                    DTSCU035
00043 *          TO L035-LONG-DSCR                                      DTSCU035
00044 *    ELSE                                                         DTSCU035
00045 *        MOVE '2' TO L035-RESULT-IND                              DTSCU035
00046 *        MOVE 'NOT VALID' TO L035-SHORT-DSCR                      DTSCU035
00047 *                            L035-LONG-DSCR.                      DTSCU035
00048 *                                                                 DTSCU035
00049 *****                                                             DTSCU035
00050      SKIP3                                                        DTSCU035
00051  ENVIRONMENT DIVISION.                                            DTSCU035
00052      SKIP3                                                        DTSCU035
00053  DATA DIVISION.                                                   DTSCU035
00054      SKIP3                                                        DTSCU035
00055  WORKING-STORAGE SECTION.                                         DTSCU035
000555 77  PAN-VALET PICTURE X(24) VALUE '003DTSCU035  04/05/04'.       DTSCU035
00056      SKIP3                                                        DTSCU035
00057  01  WRK-AREA.                                                    DTSCU035
00058      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U035'.    DTSCU035
00059      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU035
00060      EJECT                                                        DTSCU035
00061  01  C035-LITERALS.                                               DTSCU035
00062  ++INCLUDE DTSIC035                                               DTSCU035
00063      EJECT                                                        DTSCU035
00064  LINKAGE SECTION.                                                 DTSCU035
00065      SKIP3                                                        DTSCU035
00066  01  DFHCOMMAREA.                                                 DTSCU035
00067  ++INCLUDE DTSIL035                                               DTSCU035
00068      EJECT                                                        DTSCU035
00069  PROCEDURE DIVISION.                                              DTSCU035
00070                                                                   DTSCU035
00071                                                                   DTSCU035
00072      SET L035-NOT-VALID TO TRUE.                                  DTSCU035
00073                                                                   DTSCU035
00074      MOVE 'NOT VALID' TO L035-SHORT-DSCR                          DTSCU035
00075                          L035-LONG-DSCR.                          DTSCU035
00076                                                                   DTSCU035
00077      MOVE ' NOT VALID' TO L035-SHORT-DSCR-RIGHT.                  DTSCU035
00078                                                                   DTSCU035
00079      PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSCU035
00080                                                                   DTSCU035
00081                                                                   DTSCU035
00082      EXEC CICS                                                    DTSCU035
00083          RETURN                                                   DTSCU035
00084      END-EXEC.                                                    DTSCU035
00085                                                                   DTSCU035
00086                                                                   DTSCU035
00087      GOBACK.                                                      DTSCU035
00088      EJECT                                                        DTSCU035
00089  P1000-PROCESS.                                                   DTSCU035
00090      GO TO P1000-01                                               DTSCU035
00091          DEPENDING ON L035-OPTION.                                DTSCU035
00092                                                                   DTSCU035
00093      PERFORM S899-ABEND THRU S899-EXIT.                           DTSCU035
00094      SKIP3                                                        DTSCU035
00095  P1000-01.                                                        DTSCU035
00096      SET C035-01-IDX TO 1.                                        DTSCU035
00097      SEARCH C035-01-ENTRY                                         DTSCU035
00098         VARYING                                                   DTSCU035
00099           C035-01-IDX                                             DTSCU035
00100          WHEN L035-CD-2 = C035-01-CD (C035-01-IDX)                DTSCU035
00101              MOVE '1' TO L035-RESULT-IND                          DTSCU035
00102              MOVE C035-01-SHORT-DSCR (C035-01-IDX)                DTSCU035
00103                TO L035-SHORT-DSCR                                 DTSCU035
00104              MOVE C035-01-SHORT-DSCR-RIGHT (C035-01-IDX)          DTSCU035
00105                TO L035-SHORT-DSCR-RIGHT                           DTSCU035
00106              MOVE C035-01-LONG-DSCR (C035-01-IDX)                 DTSCU035
00107                TO L035-LONG-DSCR.                                 DTSCU035
00108                                                                   DTSCU035
00109      GO TO P1000-EXIT.                                            DTSCU035
00110      SKIP3                                                        DTSCU035
00111  P1000-EXIT.                                                      DTSCU035
00112      EXIT.                                                        DTSCU035
00113      EJECT                                                        DTSCU035
00114  S899-ABEND.                                                      DTSCU035
00115                                                                   DTSCU035
00116      EXEC CICS                                                    DTSCU035
00117          ABEND                                                    DTSCU035
00118              ABCODE (WRK-ABEND-CODE)                              DTSCU035
00119      END-EXEC.                                                    DTSCU035
00120                                                                   DTSCU035
00121  S899-EXIT.                                                       DTSCU035
00122      EXIT.                                                        DTSCU035
