00001 *****                                                             07/27/98
00002 *                                                                 DTSIL131
00003 *    MACIL131    JOB SERVICE CODE AND AREA CODE /                    LV001
00004 *                JOB SERVICE OFFICE MODULE LINKAGE.               DTSIL131
00005 *                                                                 DTSIL131
00006 *****                                                             DTSIL131
00007      SKIP1                                                        DTSIL131
00008          10  L131-LENGTH         PIC S9(04)   COMP  VALUE +32.    DTSIL131
00009      SKIP1                                                        DTSIL131
00010          10  L131-JS-ZIP                 PIC  X(10).              DTSIL131
00011          10  L131-AREA-CD                PIC S9(03)  COMP-3.      DTSIL131
00012      SKIP1                                                        DTSIL131
00013          10  L131-RESULT-IND             PIC  X(01).              DTSIL131
00014              88  L131-OK                     VALUE '1'.           DTSIL131
00015      SKIP1                                                        DTSIL131
00016          10  L131-JS-OFFICE-ID           PIC S9(03)  COMP-3.      DTSIL131
00017      SKIP1                                                        DTSIL131
00018          10  FILLER                      PIC  X(15).              DTSIL131