DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
83
Copybook/DTSIS8A.cpy
Normal file
83
Copybook/DTSIS8A.cpy
Normal file
@ -0,0 +1,83 @@
|
||||
00001 ***** 11/11/02
|
||||
00002 * DTSSIS8A ONLINE JOB SUBMISSION INQUIRY DTSIS8A
|
||||
00003 ***** LV001
|
||||
00004 10 FILLER PIC X(12). DTSIS8A
|
||||
00005 DTSIS8A
|
||||
00006 10 MAP-SCR-TYPE-AREA. DTSIS8A
|
||||
00007 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS8A
|
||||
00008 15 MAP-SCR-TYPE-A PIC X(01). DTSIS8A
|
||||
00009 15 MAP-SCR-TYPE PIC X(02). DTSIS8A
|
||||
00010 DTSIS8A
|
||||
00011 10 MAP-CICS-REGION-NAME-AREA. DTSIS8A
|
||||
00012 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS8A
|
||||
00013 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS8A
|
||||
00014 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS8A
|
||||
00015 DTSIS8A
|
||||
00016 10 MAP-SYS-DATE-AREA. DTSIS8A
|
||||
00017 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS8A
|
||||
00018 15 MAP-SYS-DATE-A PIC X(01). DTSIS8A
|
||||
00019 15 MAP-SYS-DATE PIC X(08). DTSIS8A
|
||||
00020 DTSIS8A
|
||||
00021 10 MAP-SYS-TIME-AREA. DTSIS8A
|
||||
00022 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS8A
|
||||
00023 15 MAP-SYS-TIME-A PIC X(01). DTSIS8A
|
||||
00024 15 MAP-SYS-TIME PIC X(08). DTSIS8A
|
||||
00025 DTSIS8A
|
||||
00026 10 MAP-BUSINESS-AREA. DTSIS8A
|
||||
00027 15 MAP-BUS-AREA-L PIC S9(04) COMP. DTSIS8A
|
||||
00028 15 MAP-BUS-AREA-A PIC X(01). DTSIS8A
|
||||
00029 15 MAP-BUS-AREA PIC X(02). DTSIS8A
|
||||
00030 88 MAP-VALID-BUS-AREA VALUE DTSIS8A
|
||||
00031 '01', ' 1', '1 ',DTSIS8A
|
||||
00032 '03', ' 3', '3 ',DTSIS8A
|
||||
00033 '04', ' 4', '4 ',DTSIS8A
|
||||
00034 '06', ' 6', '6 ',DTSIS8A
|
||||
00035 '07', ' 7', '7 '.DTSIS8A
|
||||
00036 DTSIS8A
|
||||
00037 10 MAP-TABLE. DTSIS8A
|
||||
00038 DTSIS8A
|
||||
00039 13 MAP-LINE-AREA OCCURS 12 TIMES. DTSIS8A
|
||||
00040 15 MAP-LINE-L PIC S9(04) COMP. DTSIS8A
|
||||
00041 15 MAP-LINE-A PIC X(01). DTSIS8A
|
||||
00042 15 MAP-LINE-DATA PIC X(79). DTSIS8A
|
||||
00043 DTSIS8A
|
||||
00044 15 FILLER REDEFINES MAP-LINE-DATA. DTSIS8A
|
||||
00045 20 MAP-LINE-NO PIC Z9. DTSIS8A
|
||||
00046 20 FILLER PIC X(02). DTSIS8A
|
||||
00047 20 MAP-JOB-NAME PIC X(04). DTSIS8A
|
||||
00048 20 FILLER PIC X(06). DTSIS8A
|
||||
00049 20 MAP-JOB-DESC PIC X(34). DTSIS8A
|
||||
00050 20 FILLER PIC X(31). DTSIS8A
|
||||
00051 DTSIS8A
|
||||
00052 10 MAP-SELECT-LINE-NO-AREA. DTSIS8A
|
||||
00053 15 MAP-SELECT-LINE-NO-L PIC S9(04) COMP. DTSIS8A
|
||||
00054 15 MAP-SELECT-LINE-NO-A PIC X(01). DTSIS8A
|
||||
00055 15 MAP-SELECT-LINE-NO PIC X(02). DTSIS8A
|
||||
00056 88 MAP-SELECT-LINE-NO-VALID VALUE '01' THRU '12'. DTSIS8A
|
||||
00057 15 MAP-SELECT-LINE-NO-N REDEFINES DTSIS8A
|
||||
00058 MAP-SELECT-LINE-NO PIC 9(02). DTSIS8A
|
||||
00059 DTSIS8A
|
||||
00060 10 F8A2320. DTSIS8A
|
||||
00061 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS8A
|
||||
00062 15 MAP-KEY-BACK-A PIC X(01). DTSIS8A
|
||||
00063 15 MAP-KEY-BACK PIC X(07). DTSIS8A
|
||||
00064 DTSIS8A
|
||||
00065 10 F8A2329. DTSIS8A
|
||||
00066 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS8A
|
||||
00067 15 MAP-KEY-FWRD-A PIC X(01). DTSIS8A
|
||||
00068 15 MAP-KEY-FWRD PIC X(07). DTSIS8A
|
||||
00069 DTSIS8A
|
||||
00070 10 MAP-MSG-AREA. DTSIS8A
|
||||
00071 15 MAP-MSG-ID-AREA. DTSIS8A
|
||||
00072 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS8A
|
||||
00073 20 MAP-MSG-ID-A PIC X(01). DTSIS8A
|
||||
00074 20 MAP-MSG-ID PIC X(08). DTSIS8A
|
||||
00075 15 MAP-MSG-TEXT-AREA. DTSIS8A
|
||||
00076 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS8A
|
||||
00077 20 MAP-MSG-TEXT-A PIC X(01). DTSIS8A
|
||||
00078 20 MAP-MSG-TEXT PIC X(58). DTSIS8A
|
||||
00079 DTSIS8A
|
||||
00080 10 MAP-GOTO-AREA. DTSIS8A
|
||||
00081 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS8A
|
||||
00082 15 MAP-GOTO-A PIC X(01). DTSIS8A
|
||||
00083 15 MAP-GOTO PIC X(02). DTSIS8A
|
||||
Reference in New Issue
Block a user