00001 *****                                                             12/10/98
00002 *                                                                 DTSIL530
00003 *    DTSIL530  WRITE OFF/REVERSE WRITE OFF PROCESSING MODULE         LV003
00004 *              LINKAGE.                                              CL**2
00005 *                                                                    CL**2
00006 *              CALL 'DTSBU530' USING L530-LINK-AREA                  CL**2
00007 *                                    LBCM-LINK-AREA               DTSIL530
00008 *                                    MPRF-REC.                    DTSIL530
00009 *                                                                 DTSIL530
00010 *                                                                 DTSIL530
00011 *              12/10/1998  REVIEWED AND MODIFIED FOR DC.             CL**2
00012 *                                                                    CL**2
00013 *****                                                             DTSIL530
00014                                                                   DTSIL530
00015          10  L530-OPTION                 PIC  X(01).              DTSIL530
00016              88  L530-WRITE-OFF-88           VALUE '1'.              CL**2
00017              88  L530-REVERSE-WRITE-OFF-88   VALUE '2'.              CL**2
00018                                                                   DTSIL530
00019          10  L530-RESULT-IND             PIC  X(01).              DTSIL530
00020              88  L530-UPDATE-88              VALUE '1'.           DTSIL530
00021              88  L530-NO-UPDATE-88           VALUE '2'.           DTSIL530
00022                                                                   DTSIL530
00023          10  L530-WRITE-OFF-DATE         PIC S9(09)  COMP-3.         CL**3
00024                                                                   DTSIL530
00025          10  FILLER                      PIC  X(09).              DTSIL530