00001 *****                                                             10/22/98
00002 *                                                                 DTSIL027
00003 *    DTSIL027  DC DEPT OF REVENUE BUSINESS TAX NUMBER FROM           LV005
00004 *              SCREEN EDIT/FORMAT MODULE LINKAGE.                    CL**3
00005 *                                                                 DTSIL027
00006 *****                                                             DTSIL027
00007      SKIP1                                                        DTSIL027
00008          10  L027-RESULT-IND             PIC  X(01).                 CL**3
00009              88  L027-NO-ENTRY               VALUE '0'.              CL**3
00010              88  L027-VALID                  VALUE '1'.              CL**3
00011              88  L027-NOT-VALID              VALUE '2'.              CL**3
00012      SKIP1                                                        DTSIL027
00013          10  L027-S-BTN-AREA.                                        CL**3
00014                  20  L027-S-BTN-L        PIC S9(04)      COMP.       CL**3
00015                  20  L027-S-BTN-A        PIC  X(01).                 CL**3
00016                  20  L027-S-BTN          PIC  X(09).                 CL**3
00017                  20  L027-S-BTN-N                                    CL**5
00018                         REDEFINES L027-S-BTN                         CL**5
00019                                          PIC  9(09).                 CL**5
00020      SKIP1                                                        DTSIL027
00021          10  L027-BTN                    PIC S9(09)      COMP-3.     CL**5
00022      SKIP1                                                        DTSIL027
00023          10  FILLER                      PIC  X(12).                 CL**3