00001 *****                                                             11/11/02
00002 *    DTSSIS8B  ONLINE JOB SUBMISSION INQUIRY                      DTSIS8B
00003 *****                                                                LV001
00004      10  FILLER                                  PIC  X(12).      DTSIS8B
00005                                                                   DTSIS8B
00006      10  MAP-SCR-TYPE-AREA.                                       DTSIS8B
00007          15  MAP-SCR-TYPE-L                      PIC S9(04) COMP. DTSIS8B
00008          15  MAP-SCR-TYPE-A                      PIC  X(01).      DTSIS8B
00009          15  MAP-SCR-TYPE                        PIC  X(02).      DTSIS8B
00010                                                                   DTSIS8B
00011      10  MAP-CICS-REGION-NAME-AREA.                               DTSIS8B
00012          15  MAP-CICS-REGION-NAME-L              PIC S9(04) COMP. DTSIS8B
00013          15  MAP-CICS-REGION-NAME-A              PIC  X(01).      DTSIS8B
00014          15  MAP-CICS-REGION-NAME                PIC  X(08).      DTSIS8B
00015                                                                   DTSIS8B
00016      10  MAP-SYS-DATE-AREA.                                       DTSIS8B
00017          15  MAP-SYS-DATE-L                      PIC S9(04) COMP. DTSIS8B
00018          15  MAP-SYS-DATE-A                      PIC  X(01).      DTSIS8B
00019          15  MAP-SYS-DATE                        PIC  X(08).      DTSIS8B
00020                                                                   DTSIS8B
00021      10  MAP-SYS-TIME-AREA.                                       DTSIS8B
00022          15  MAP-SYS-TIME-L                      PIC S9(04) COMP. DTSIS8B
00023          15  MAP-SYS-TIME-A                      PIC  X(01).      DTSIS8B
00024          15  MAP-SYS-TIME                        PIC  X(08).      DTSIS8B
00025                                                                   DTSIS8B
00026      10  MAP-JOB-DESC-AREA.                                       DTSIS8B
00027          15  MAP-JOB-DESC-L                      PIC S9(04) COMP. DTSIS8B
00028          15  MAP-JOB-DESC-A                      PIC  X(01).      DTSIS8B
00029          15  MAP-JOB-DESC                        PIC  X(47).      DTSIS8B
00030                                                                   DTSIS8B
00031      10  MAP-TABLE.                                               DTSIS8B
00032                                                                   DTSIS8B
00033        13  MAP-LINE-AREA OCCURS 16 TIMES.                         DTSIS8B
00034          15  MAP-LINE-L                          PIC S9(04) COMP. DTSIS8B
00035          15  MAP-LINE-A                          PIC  X(01).      DTSIS8B
00036          15  MAP-LINE-DATA                       PIC  X(79).      DTSIS8B
00037                                                                   DTSIS8B
00038          15  FILLER REDEFINES MAP-LINE-DATA.                      DTSIS8B
00039              20  MAP-LINE-NO                     PIC Z9.          DTSIS8B
00040              20  FILLER                          PIC X(02).       DTSIS8B
00041              20  MAP-PARM-DESC                   PIC X(32).       DTSIS8B
00042              20  FILLER                          PIC X(02).       DTSIS8B
00043              20  MAP-PARM-VALUE                  PIC X(32).       DTSIS8B
00044              20  FILLER                          PIC X(09).       DTSIS8B
00045                                                                   DTSIS8B
00046      10  MAP-SELECT-LINE-NO-AREA.                                 DTSIS8B
00047          15  MAP-SELECT-LINE-NO-L                PIC S9(04) COMP. DTSIS8B
00048          15  MAP-SELECT-LINE-NO-A                PIC  X(01).      DTSIS8B
00049          15  MAP-SELECT-LINE-NO                  PIC  X(02).      DTSIS8B
00050              88  MAP-SELECT-LINE-NO-VALID VALUE '01' THRU '16'.   DTSIS8B
00051          15  MAP-SELECT-LINE-NO-N REDEFINES                       DTSIS8B
00052              MAP-SELECT-LINE-NO                  PIC  9(02).      DTSIS8B
00053                                                                   DTSIS8B
00054      10  F8B2320.                                                 DTSIS8B
00055          15  MAP-KEY-SUBMIT-L                    PIC S9(04) COMP. DTSIS8B
00056          15  MAP-KEY-SUBMIT-A                    PIC  X(01).      DTSIS8B
00057          15  MAP-KEY-SUBMIT                      PIC  X(09).      DTSIS8B
00058                                                                   DTSIS8B
00059      10  MAP-MSG-AREA.                                            DTSIS8B
00060          15  MAP-MSG-ID-AREA.                                     DTSIS8B
00061              20  MAP-MSG-ID-L                   PIC S9(04) COMP.  DTSIS8B
00062              20  MAP-MSG-ID-A                   PIC  X(01).       DTSIS8B
00063              20  MAP-MSG-ID                     PIC  X(08).       DTSIS8B
00064          15  MAP-MSG-TEXT-AREA.                                   DTSIS8B
00065              20  MAP-MSG-TEXT-L                 PIC S9(04) COMP.  DTSIS8B
00066              20  MAP-MSG-TEXT-A                 PIC  X(01).       DTSIS8B
00067              20  MAP-MSG-TEXT                   PIC  X(58).       DTSIS8B
00068                                                                   DTSIS8B
00069      10  MAP-GOTO-AREA.                                           DTSIS8B
00070          15  MAP-GOTO-L                         PIC S9(04) COMP.  DTSIS8B
00071          15  MAP-GOTO-A                         PIC  X(01).       DTSIS8B
00072          15  MAP-GOTO                           PIC  X(02).       DTSIS8B