00001 *****                                                             12/10/98
00002 *                                                                 DTSIL501
00003 *    DTSIL501  INTERNALLY GENERATED ACCOUNTING TRANSACTION           LV002
00004 *              DRIVER MODULE LINKAGE.                             DTSIL501
00005 *                                                                 DTSIL501
00006 *              CALL 'DTSBU501' USING L501-LINK-AREA                  CL**2
00007 *                                    LBCM-LINK-AREA                  CL**2
00008 *                                    MPRF-REC                        CL**2
00009 *                                    ASKL-REC.                       CL**2
00010 *                                                                 DTSIL501
00011 *                                                                    CL**2
00012 *              12/10/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00013 *                                                                 DTSIL501
00014 *****                                                             DTSIL501
00015                                                                      CL**2
00016          10  L501-OPTION                 PIC  X(01).              DTSIL501
00017              88  L501-EXT-TO-ACCT-88         VALUE 'E'.           DTSIL501
00018              88  L501-INT-TO-ACCT-88         VALUE 'I'.           DTSIL501
00019                                                                      CL**2
00020          10  L501-ORIGIN                 PIC  X(08).              DTSIL501
00021                                                                      CL**2
00022          10  L501-TRN-RESULT-IND         PIC  X(01).              DTSIL501
00023              88  L501-TRN-OK-88              VALUE '0'.           DTSIL501
00024              88  L501-TRN-NOT-OK-88          VALUE '1'.           DTSIL501
00025                                                                      CL**2
00026          10  FILLER                      PIC  X(22).              DTSIL501