28 lines
2.1 KiB
COBOL
28 lines
2.1 KiB
COBOL
00001 ***** 09/29/98
|
|
00002 * DTSIL991
|
|
00003 * MACIL991 FORMAT HEX DISPLAY. LV002
|
|
00004 * DTSIL991
|
|
00005 * CL**2
|
|
00006 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIL991
|
|
00009 CL**2
|
|
00010 10 L991-REQ-CHAR-CNT PIC S9(04). DTSIL991
|
|
00011 CL**2
|
|
00012 10 L991-REQ-AREA. DTSIL991
|
|
00013 15 L991-REQ-CHAR OCCURS 64 TIMES DTSIL991
|
|
00014 PIC X(01). DTSIL991
|
|
00015 CL**2
|
|
00016 10 L991-REPLY-AREA. DTSIL991
|
|
00017 15 L991-REPLY-HEX-1-AREA. DTSIL991
|
|
00018 20 L991-REPLY-HEX-1-CHAR OCCURS 64 TIMES DTSIL991
|
|
00019 PIC X(01). DTSIL991
|
|
00020 CL**2
|
|
00021 15 L991-REPLY-HEX-2-AREA. DTSIL991
|
|
00022 20 L991-REPLY-HEX-2-CHAR OCCURS 64 TIMES DTSIL991
|
|
00023 PIC X(01). DTSIL991
|
|
00024 CL**2
|
|
00025 15 L991-REPLY-AN-AREA. DTSIL991
|
|
00026 20 L991-REPLY-AN-CHAR OCCURS 64 TIMES DTSIL991
|
|
00027 PIC X(01). DTSIL991
|