DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
76
Copybook/DTSISED.cpy
Normal file
76
Copybook/DTSISED.cpy
Normal file
@ -0,0 +1,76 @@
|
||||
00001 ***** 11/25/98
|
||||
00002 * DTSISED - FIELD REPRESENTATIVE REPORT INQ/UPD SEND/RECEIVE DTSISED
|
||||
00003 ***** LV002
|
||||
00004 10 FILLER PIC X(12). DTSISED
|
||||
00005 10 MAP-SCR-TYPE-AREA. DTSISED
|
||||
00006 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSISED
|
||||
00007 15 MAP-SCR-TYPE-A PIC X(01). DTSISED
|
||||
00008 15 MAP-SCR-TYPE PIC X(02). DTSISED
|
||||
00009 10 MAP-TITLE-LINE-AREA. DTSISED
|
||||
00010 15 MAP-TITLE-LINE-NAME-L PIC S9(04) COMP. DTSISED
|
||||
00011 15 MAP-TITLE-LINE-NAME-A PIC X(01). DTSISED
|
||||
00012 15 MAP-TITLE-LINE-NAME PIC X(40). DTSISED
|
||||
00013 10 MAP-CICS-REGION-NAME-AREA. DTSISED
|
||||
00014 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSISED
|
||||
00015 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSISED
|
||||
00016 15 MAP-CICS-REGION-NAME PIC X(08). DTSISED
|
||||
00017 10 MAP-SYS-DATE-AREA. DTSISED
|
||||
00018 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSISED
|
||||
00019 15 MAP-SYS-DATE-A PIC X(01). DTSISED
|
||||
00020 15 MAP-SYS-DATE PIC X(08). DTSISED
|
||||
00021 10 MAP-SYS-TIME-AREA. DTSISED
|
||||
00022 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSISED
|
||||
00023 15 MAP-SYS-TIME-A PIC X(01). DTSISED
|
||||
00024 15 MAP-SYS-TIME PIC X(08). DTSISED
|
||||
00025 10 MAP-TOP-POS-AREA. DTSISED
|
||||
00026 15 MAP-TOP-POS-L PIC S9(04) COMP. DTSISED
|
||||
00027 15 MAP-TOP-POS-A PIC X(01). DTSISED
|
||||
00028 15 MAP-TOP-POS PIC X(04). DTSISED
|
||||
00029 15 MAP-TOP-POS-N REDEFINES MAP-TOP-POS PIC ZZZ9. DTSISED
|
||||
00030 10 MAP-TEXT-AREA. DTSISED
|
||||
00031 13 MAP-TEXT-TBL OCCURS 18 TIMES. DTSISED
|
||||
00032 15 MAP-TEXT-L PIC S9(04) COMP. DTSISED
|
||||
00033 15 MAP-TEXT-A PIC X(01). DTSISED
|
||||
00034 15 MAP-TEXT PIC X(72). DTSISED
|
||||
00035 DTSISED
|
||||
00036 15 MAP-LINE-ED-L PIC S9(04) COMP. DTSISED
|
||||
00037 15 MAP-LINE-ED-A PIC X(01). DTSISED
|
||||
00038 15 MAP-LINE-ED PIC X(04). DTSISED
|
||||
00039 15 MAP-LINE-CMND REDEFINES MAP-LINE-ED OCCURS 4 TIMES DTSISED
|
||||
00040 PIC X(01). DTSISED
|
||||
00041 15 MAP-LINE-CMND-N REDEFINES MAP-LINE-ED OCCURS 4 TIMES DTSISED
|
||||
00042 PIC 9(01). DTSISED
|
||||
00043 10 MAP-BOT-POS-AREA. DTSISED
|
||||
00044 15 MAP-BOT-POS-L PIC S9(04) COMP. DTSISED
|
||||
00045 15 MAP-BOT-POS-A PIC X(01). DTSISED
|
||||
00046 15 MAP-BOT-POS PIC X(04). DTSISED
|
||||
00047 15 MAP-BOT-POS-N REDEFINES MAP-BOT-POS PIC ZZZ9. DTSISED
|
||||
00048 10 FED2311. DTSISED
|
||||
00049 15 MAP-KEY-SAVE-L PIC S9(04) COMP. DTSISED
|
||||
00050 15 MAP-KEY-SAVE-A PIC X(01). DTSISED
|
||||
00051 15 MAP-KEY-SAVE PIC X(11). DTSISED
|
||||
00052 10 FED2334. DTSISED
|
||||
00053 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSISED
|
||||
00054 15 MAP-KEY-FIRST-A PIC X(01). DTSISED
|
||||
00055 15 MAP-KEY-FIRST PIC X(08). DTSISED
|
||||
00056 10 FED2344. DTSISED
|
||||
00057 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSISED
|
||||
00058 15 MAP-KEY-LAST-A PIC X(01). DTSISED
|
||||
00059 15 MAP-KEY-LAST PIC X(07). DTSISED
|
||||
00060 10 FED2353. DTSISED
|
||||
00061 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSISED
|
||||
00062 15 MAP-KEY-BACK-A PIC X(01). DTSISED
|
||||
00063 15 MAP-KEY-BACK PIC X(07). DTSISED
|
||||
00064 10 FED2362. DTSISED
|
||||
00065 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSISED
|
||||
00066 15 MAP-KEY-FWRD-A PIC X(01). DTSISED
|
||||
00067 15 MAP-KEY-FWRD PIC X(07). DTSISED
|
||||
00068 10 MAP-MSG-AREA. DTSISED
|
||||
00069 15 MAP-MSG-ID-AREA. DTSISED
|
||||
00070 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSISED
|
||||
00071 20 MAP-MSG-ID-A PIC X(01). DTSISED
|
||||
00072 20 MAP-MSG-ID PIC X(08). DTSISED
|
||||
00073 15 MAP-MSG-TEXT-AREA. DTSISED
|
||||
00074 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSISED
|
||||
00075 20 MAP-MSG-TEXT-A PIC X(01). DTSISED
|
||||
00076 20 MAP-MSG-TEXT PIC X(58). DTSISED
|
||||
Reference in New Issue
Block a user