00001  IDENTIFICATION DIVISION.                                         05/22/01
00002  PROGRAM-ID.             DTSCU222.                                DTSCU222
00003  AUTHOR.                 TRW INC.                                    LV001
00004  DATE-WRITTEN.           JANUARY 2001.                            DTSCU222
00005  DATE-COMPILED.                                                   DTSCU222
00006      SKIP3                                                        DTSCU222
00007 *****                                                             DTSCU222
00008 *                                                                 DTSCU222
00009 *    FUNCTION:  PRF-UPDATE FIELDS MAINTENANCE.                    DTSCU222
00010 *                                                                 DTSCU222
00011 *                                                                 DTSCU222
00012 *    MODIFICATION LOG:                                            DTSCU222
00013 *                                                                 DTSCU222
00014 *    12/01/91  INITIAL DEVELOPMENT.                               DTSCU222
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCU222
00016 *                                                                 DTSCU222
00017 *    04/18/94  MODIFIED FOR MONTANA.                              DTSCU222
00018 *              WORK ORDER:                      PROGRAMMER: EHH   DTSCU222
00019 *                                                                 DTSCU222
00020 *    09/09/1998  REVIEWED AND MODIFIED FOR DC.                    DTSCU222
00021 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSCU222
00022 *                                                                 DTSCU222
00023 *    01/19/2001  REVISED AND CREATED FOR THE ELECTRONIC MEDIA     DTSCU222
00024 *                TRACKING SYSTEM. MODIFIED FROM DTSCU221.         DTSCU222
00025 *                REFERENCE: TAPE TRACKING DEVL. PROGRAMMER: RLW   DTSCU222
00026 *                                                                 DTSCU222
00027 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU222
00028 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU222
00029 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCU222
00030 *                                                                 DTSCU222
00031 *                                                                 DTSCU222
00032 *  DESCRIPTION:                                                   DTSCU222
00033 *                                                                 DTSCU222
00034 *    MAINTAIN THE EPRF-ONLINE-UPDATE-* FIELDS OF THE EPRF RECORD. DTSCU222
00035 *                                                                 DTSCU222
00036 *    IF L222-START-UPDATE                                         DTSCU222
00037 *        READ UPDATE EPRFRF RECORD                                DTSCU222
00038 *        IF FILE CLOSED                                           DTSCU222
00039 *            MOVE '9' TO L222-RESULT-IND                          DTSCU222
00040 *        ELSE                                                     DTSCU222
00041 *        IF NO RECORD FOUND                                       DTSCU222
00042 *            MOVE '4' TO L222-RESULT-IND                          DTSCU222
00043 *        ELSE                                                     DTSCU222
00044 *        IF EPRF-CICS-UPD-ACTIVE-88                               DTSCU222
00045 *            MOVE '2' TO L222-RESULT-IND                          DTSCU222
00046 *            REWRITE EPRF-RECORD                                  DTSCU222
00047 *        ELSE                                                     DTSCU222
00048 *        IF EPRF-PURGE-ALL-YES-88                                 DTSCU222
00049 *            MOVE '3' TO L222-RESULT-IND                          DTSCU222
00050 *            REWRITE EPRF-RECORD                                  DTSCU222
00051 *        ELSE                                                     DTSCU222
00052 *        IF L222-SCR-ABSTIME < EPRF-UPDATE-END-ABSTIME            DTSCU222
00053 *            MOVE '1' TO L222-RESULT-IND                          DTSCU222
00054 *            REWRITE EPRF-RECORD                                  DTSCU222
00055 *        ELSE                                                     DTSCU222
00056 *            MOVE '0' TO L222-RESULT-IND                          DTSCU222
00057 *            LINK TO DTSCU005 TO GET SYSTEM ABSTIME               DTSCU222
00058 *            MOVE SYSTEM ABSTIME TO EPRF-UPDATE-START-ABSTIME     DTSCU222
00059 *            MOVE ALL 9 TO MRPF-UPDATE-END-ABSTIME                DTSCU222
00060 *            MOVE L222-UPDATE-* FIELDS TO EPRF-UPDATE-* FIELDS    DTSCU222
00061 *            REWRITE EPRF RECORD                                  DTSCU222
00062 *    ELSE                                                         DTSCU222
00063 *        READ UPDATE EPRF RECORD                                  DTSCU222
00064 *        IF FILE CLOSED                                           DTSCU222
00065 *            MOVE '9' TO L222-RESULT-IND                          DTSCU222
00066 *        ELSE                                                     DTSCU222
00067 *        IF NO RECORD FOUND                                       DTSCU222
00068 *            MOVE '3' TO L222-RESULT-IND                          DTSCU222
00069 *        ELSE                                                     DTSCU222
00070 *            MOVE '0' TO L222-RESULT-IND                          DTSCU222
00071 *            MOVE 0 TO EPRF-UPDATE-START-ABSTIME                  DTSCU222
00072 *            LINK TO DTSCU005 TO GET SYSTEM ABSTIME               DTSCU222
00073 *            MOVE SYSTEM ABSTIME TO EPRF-UPDATE-END-ABSTIME       DTSCU222
00074 *            REWRITE EPRF-RECORD                                  DTSCU222
00075 *            WRITE R906 RECORD TO OLA FILE.                       DTSCU222
00076 *                                                                 DTSCU222
00077 *****                                                             DTSCU222
00078      SKIP3                                                        DTSCU222
00079  ENVIRONMENT DIVISION.                                            DTSCU222
00080      SKIP3                                                        DTSCU222
00081  DATA DIVISION.                                                   DTSCU222
00082      SKIP3                                                        DTSCU222
00083  WORKING-STORAGE SECTION.                                         DTSCU222
000835 77  PAN-VALET PICTURE X(24) VALUE '001DTSCU222  05/22/01'.       DTSCU222
00084      SKIP3                                                        DTSCU222
00085  01  WRK-AREA.                                                    DTSCU222
00086      05  WRK-ABEND-CD                PIC  X(04)  VALUE 'U222'.    DTSCU222
00087                                                                   DTSCU222
00088  01  MSG-LITERALS.                                                DTSCU222
00089      05  MSG-E201-AREA.                                           DTSCU222
00090          10  FILLER                  PIC  X(04)  VALUE 'E201'.    DTSCU222
00091          10  FILLER                  PIC  X(30)                   DTSCU222
00092              VALUE 'ELECTRONIC FILER LOCKED FOR BA'.              DTSCU222
00093          10  FILLER                  PIC  X(30)                   DTSCU222
00094              VALUE 'TCH UPDATE                    '.              DTSCU222
00095      EJECT                                                        DTSCU222
00096  01  L005-COMM-AREA.                                              DTSCU222
00097  ++INCLUDE DTSIL005                                               DTSCU222
00098      EJECT                                                        DTSCU222
00099  01  L835-COMM-AREA.                                              DTSCU222
00100      05  L835-CONTROL-BLOCK.                                      DTSCU222
00101  ++INCLUDE DTSIL835                                               DTSCU222
00102      SKIP3                                                        DTSCU222
00103      05  ESKL-REC.                                                DTSCU222
00104  ++INCLUDE DTSIESKL                                               DTSCU222
00105      SKIP3                                                        DTSCU222
00106      05  EPRF-REC REDEFINES ESKL-REC.                             DTSCU222
00107  ++INCLUDE DTSIEPRF                                               DTSCU222
00108      EJECT                                                        DTSCU222
00109  01  L825-COMM-AREA.                                              DTSCU222
00110      05  L825-CONTROL-BLOCK.                                      DTSCU222
00111  ++INCLUDE DTSIL825                                               DTSCU222
00112      SKIP3                                                        DTSCU222
00113      05  R906-REC.                                                DTSCU222
00114  ++INCLUDE DTSIR906                                               DTSCU222
00115      EJECT                                                        DTSCU222
00116  01  CECD-LITERALS.                                               DTSCU222
00117  ++INCLUDE DTSICECD                                               DTSCU222
00118      EJECT                                                        DTSCU222
00119  LINKAGE SECTION.                                                 DTSCU222
00120      SKIP3                                                        DTSCU222
00121  01  DFHCOMMAREA.                                                 DTSCU222
00122  ++INCLUDE DTSIL222                                               DTSCU222
00123      EJECT                                                        DTSCU222
00124  PROCEDURE DIVISION.                                              DTSCU222
00125                                                                   DTSCU222
00126      MOVE SPACES      TO L222-MSG-AREA.                           DTSCU222
00127                                                                   DTSCU222
00128      SET L835-READ-UPDATE-88 TO TRUE.                             DTSCU222
00129                                                                   DTSCU222
00130      MOVE LOW-VALUES TO EPRF-KEY-AREA.                            DTSCU222
00131                                                                   DTSCU222
00132      MOVE L222-ELF-ID TO EPRF-ELF-ID.                             DTSCU222
00133                                                                   DTSCU222
00134      MOVE L222-DATA-TYPE-CD TO EPRF-DATA-TYPE-CD.                 DTSCU222
00135                                                                   DTSCU222
00136      SET EPRF-PRF-88 TO TRUE.                                     DTSCU222
00137                                                                   DTSCU222
00138      IF L222-START-UPDATE                                         DTSCU222
00139         PERFORM P1000-START-UPDATE THRU P1000-EXIT                DTSCU222
00140      ELSE                                                         DTSCU222
00141      IF L222-END-UPDATE                                           DTSCU222
00142          PERFORM P2000-END-UPDATE THRU P2000-EXIT                 DTSCU222
00143      ELSE                                                         DTSCU222
00144          GO TO S899-ABEND.                                        DTSCU222
00145                                                                   DTSCU222
00146                                                                   DTSCU222
00147      EXEC CICS                                                    DTSCU222
00148          RETURN                                                   DTSCU222
00149      END-EXEC.                                                    DTSCU222
00150                                                                   DTSCU222
00151                                                                   DTSCU222
00152                                                                   DTSCU222
00153      GOBACK.                                                      DTSCU222
00154      EJECT                                                        DTSCU222
00155  P1000-START-UPDATE.                                              DTSCU222
00156      PERFORM S835-LINK-MSTR-IO THRU S835-EXIT.                    DTSCU222
00157                                                                   DTSCU222
00158      IF L835-FILE-CLOSED-88                                       DTSCU222
00159         SET L222-FILE-CLOSED TO TRUE                              DTSCU222
00160         MOVE L835-MSG-AREA TO L222-MSG-AREA                       DTSCU222
00161         GO TO P1000-EXIT.                                         DTSCU222
00162                                                                   DTSCU222
00163      IF L835-NO-REC-88                                            DTSCU222
00164         SET L222-NO-REC TO TRUE                                   DTSCU222
00165         MOVE EMSG-NO-RECORD TO L222-MSG-ID                        DTSCU222
00166         GO TO P1000-EXIT.                                         DTSCU222
00167                                                                   DTSCU222
00168      IF EPRF-CICS-UPD-ACTIVE-88                                   DTSCU222
00169         SET L222-EMP-LOCKED-CICS-UPD TO TRUE                      DTSCU222
00170         MOVE EMSG-EMP-LOCKED TO L222-MSG-ID                       DTSCU222
00171      ELSE                                                         DTSCU222
00172      IF EPRF-BATCH-UPD-ACTIVE-88                                  DTSCU222
00173         SET L222-EMP-LOCKED-BATCH-UPD TO TRUE                     DTSCU222
00174         MOVE MSG-E201-AREA   TO L222-MSG-AREA                     DTSCU222
00175      ELSE                                                         DTSCU222
00176      IF L222-SCR-ABSTIME < EPRF-UPDATE-END-ABSTIME                DTSCU222
00177         SET L222-SCR-NOT-CURRENT TO TRUE                          DTSCU222
00178         MOVE EMSG-NOT-CURRENT-UPDATE TO L222-MSG-ID               DTSCU222
00179      ELSE                                                         DTSCU222
00180         SET L222-OK TO TRUE                                       DTSCU222
00181         SET EPRF-CICS-UPD-ACTIVE-88 TO TRUE                       DTSCU222
00182         MOVE L222-UPDATE-TASK-ID    TO EPRF-UPDATE-TASK-ID        DTSCU222
00183         MOVE L222-UPDATE-OP-ID      TO EPRF-UPDATE-OP-ID          DTSCU222
00184         MOVE L222-UPDATE-TERMID     TO EPRF-UPDATE-TERMID         DTSCU222
00185         MOVE L222-UPDATE-NETNAME    TO EPRF-UPDATE-NETNAME        DTSCU222
00186         MOVE L222-UPDATE-START-DATE TO EPRF-UPDATE-START-DATE     DTSCU222
00187         MOVE L222-UPDATE-START-TIME TO EPRF-UPDATE-START-TIME     DTSCU222
00188         MOVE L222-UPDATE-SCR-ID     TO EPRF-UPDATE-SCR-ID         DTSCU222
00189         MOVE L222-UPDATE-FUNCTION   TO EPRF-UPDATE-FUNCTION.      DTSCU222
00190                                                                   DTSCU222
00191      SET L835-REWRITE-UPDATE-88 TO TRUE.                          DTSCU222
00192                                                                   DTSCU222
00193      PERFORM S835-LINK-MSTR-IO THRU S835-EXIT.                    DTSCU222
00194                                                                   DTSCU222
00195  P1000-EXIT.                                                      DTSCU222
00196      EXIT.                                                        DTSCU222
00197      EJECT                                                        DTSCU222
00198  P2000-END-UPDATE.                                                DTSCU222
00199      MOVE LENGTH OF R906-REC TO R906-LENGTH.                      DTSCU222
00200                                                                   DTSCU222
00201      MOVE L222-ELF-ID            TO R906-EMP-NO.                  DTSCU222
00202                                                                   DTSCU222
00203      MOVE L222-UPDATE-TASK-ID    TO R906-TASK-ID.                 DTSCU222
00204                                                                   DTSCU222
00205      MOVE L222-UPDATE-OP-ID      TO R906-OP-ID.                   DTSCU222
00206                                                                   DTSCU222
00207      MOVE L222-UPDATE-TERMID     TO R906-TERM-ID.                 DTSCU222
00208                                                                   DTSCU222
00209      MOVE L222-UPDATE-NETNAME    TO R906-NETNAME.                 DTSCU222
00210                                                                   DTSCU222
00211      MOVE L222-UPDATE-START-DATE TO R906-TASK-START-DATE.         DTSCU222
00212                                                                   DTSCU222
00213      MOVE L222-UPDATE-START-TIME TO R906-TASK-START-TIME.         DTSCU222
00214                                                                   DTSCU222
00215      MOVE L222-UPDATE-SCR-ID     TO R906-SCR-ID.                  DTSCU222
00216                                                                   DTSCU222
00217      MOVE L222-UPDATE-FUNCTION   TO R906-FUNCTION.                DTSCU222
00218                                                                   DTSCU222
00219      MOVE LOW-VALUES TO R906-PADDING-FOR-SYNCSORT.                DTSCU222
00220                                                                   DTSCU222
00221      SET L825-WRITE-88 TO TRUE.                                   DTSCU222
00222                                                                   DTSCU222
00223      PERFORM S825-LINK-OLA THRU S825-EXIT.                        DTSCU222
00224                                                                   DTSCU222
00225                                                                   DTSCU222
00226      SET L005-FROM-SYS TO TRUE.                                   DTSCU222
00227                                                                   DTSCU222
00228      PERFORM S005-LINK-TIME THRU S005-EXIT.                       DTSCU222
00229                                                                   DTSCU222
00230      COMPUTE L222-UPDATE-END-ABSTIME = L005-ABSTIME + 1.          DTSCU222
00231                                                                   DTSCU222
00232                                                                   DTSCU222
00233      PERFORM S835-LINK-MSTR-IO THRU S835-EXIT.                    DTSCU222
00234                                                                   DTSCU222
00235      IF L835-FILE-CLOSED-88                                       DTSCU222
00236         SET L222-FILE-CLOSED TO TRUE                              DTSCU222
00237         MOVE L835-MSG-AREA TO L222-MSG-AREA                       DTSCU222
00238         GO TO P2000-EXIT.                                         DTSCU222
00239                                                                   DTSCU222
00240      IF L835-NO-REC-88                                            DTSCU222
00241         SET L222-NO-REC TO TRUE                                   DTSCU222
00242         MOVE EMSG-NO-RECORD TO L222-MSG-ID                        DTSCU222
00243         GO TO P2000-EXIT.                                         DTSCU222
00244                                                                   DTSCU222
00245      MOVE L005-ABSTIME TO EPRF-UPDATE-END-ABSTIME.                DTSCU222
00246                                                                   DTSCU222
00247      SET L835-REWRITE-UPDATE-88 TO TRUE.                          DTSCU222
00248                                                                   DTSCU222
00249      PERFORM S835-LINK-MSTR-IO THRU S835-EXIT.                    DTSCU222
00250                                                                   DTSCU222
00251      IF L825-FILE-CLOSED-88                                       DTSCU222
00252          SET L222-FILE-CLOSED TO TRUE                             DTSCU222
00253          MOVE L825-MSG-AREA TO L222-MSG-AREA                      DTSCU222
00254          GO TO P2000-EXIT                                         DTSCU222
00255      ELSE                                                         DTSCU222
00256          SET L222-OK TO TRUE.                                     DTSCU222
00257  P2000-EXIT.                                                      DTSCU222
00258      EXIT.                                                        DTSCU222
00259      EJECT                                                        DTSCU222
00260  S005-LINK-TIME.                                                  DTSCU222
00261                                                                   DTSCU222
00262      EXEC CICS                                                    DTSCU222
00263          LINK                                                     DTSCU222
00264              PROGRAM('DTSCU005')                                  DTSCU222
00265              COMMAREA(L005-COMM-AREA)                             DTSCU222
00266      END-EXEC.                                                    DTSCU222
00267                                                                   DTSCU222
00268  S005-EXIT.                                                       DTSCU222
00269      EXIT.                                                        DTSCU222
00270      EJECT                                                        DTSCU222
00271  S835-LINK-MSTR-IO.                                               DTSCU222
00272                                                                   DTSCU222
00273      EXEC CICS                                                    DTSCU222
00274          LINK                                                     DTSCU222
00275              PROGRAM('DTSCU835')                                  DTSCU222
00276              COMMAREA(L835-COMM-AREA)                             DTSCU222
00277      END-EXEC.                                                    DTSCU222
00278                                                                   DTSCU222
00279  S835-EXIT.                                                       DTSCU222
00280      EXIT.                                                        DTSCU222
00281      EJECT                                                        DTSCU222
00282  S825-LINK-OLA.                                                   DTSCU222
00283                                                                   DTSCU222
00284      EXEC CICS                                                    DTSCU222
00285          LINK                                                     DTSCU222
00286              PROGRAM('DTSCU825')                                  DTSCU222
00287              COMMAREA(L825-COMM-AREA)                             DTSCU222
00288      END-EXEC.                                                    DTSCU222
00289                                                                   DTSCU222
00290  S825-EXIT.                                                       DTSCU222
00291      EXIT.                                                        DTSCU222
00292      EJECT                                                        DTSCU222
00293  S899-ABEND.                                                      DTSCU222
00294                                                                   DTSCU222
00295      EXEC CICS                                                    DTSCU222
00296          ABEND                                                    DTSCU222
00297              ABCODE (WRK-ABEND-CD)                                DTSCU222
00298      END-EXEC.                                                    DTSCU222
00299                                                                   DTSCU222
00300  S899-EXIT.                                                       DTSCU222
00301      EXIT.                                                        DTSCU222
