34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 11/04/98
|
|
00002 * DTSIL037
|
|
00003 * DTSIL037 MISCELLANEOUS CODES EDIT/DESCRIPTION LV002
|
|
00004 * MODULE LINKAGE. DTSIL037
|
|
00005 * DTSIL037
|
|
00006 ***** DTSIL037
|
|
00007 SKIP1 DTSIL037
|
|
00008 10 L037-OPTION PIC S9(04) COMP. DTSIL037
|
|
00009 88 L037-MTCK-TYPE VALUE +01. DTSIL037
|
|
00010 SKIP1 DTSIL037
|
|
00011 10 L037-RESULT-IND PIC X(01). DTSIL037
|
|
00012 88 L037-VALID VALUE '1'. DTSIL037
|
|
00013 88 L037-NOT-VALID VALUE '2'. DTSIL037
|
|
00014 SKIP1 DTSIL037
|
|
00015 10 L037-CD PIC X(05). DTSIL037
|
|
00016 10 FILLER REDEFINES L037-CD. DTSIL037
|
|
00017 15 L037-CD-1 PIC X(01). DTSIL037
|
|
00018 15 FILLER PIC X(04). DTSIL037
|
|
00019 10 FILLER REDEFINES L037-CD. DTSIL037
|
|
00020 15 L037-CD-2 PIC X(02). DTSIL037
|
|
00021 15 FILLER PIC X(03). DTSIL037
|
|
00022 10 FILLER REDEFINES L037-CD. DTSIL037
|
|
00023 15 L037-CD-3 PIC X(03). DTSIL037
|
|
00024 15 FILLER PIC X(02). DTSIL037
|
|
00025 10 FILLER REDEFINES L037-CD. DTSIL037
|
|
00026 15 L037-CD-4 PIC X(04). DTSIL037
|
|
00027 15 FILLER PIC X(01). DTSIL037
|
|
00028 10 L037-CD-5 REDEFINES L037-CD PIC X(05). DTSIL037
|
|
00029 SKIP1 DTSIL037
|
|
00030 10 L037-SHORT-DSCR PIC X(10). DTSIL037
|
|
00031 10 L037-LONG-DSCR PIC X(40). DTSIL037
|
|
00032 SKIP1 DTSIL037
|
|
00033 10 FILLER PIC X(04). DTSIL037
|