COBOL语言总结(二)-COMP

目录

一、数据类型

1、数值类型COM

①、COMP/BINARY：二进制数

②、COM-1：是用来定义单精度浮点数的

③、COMP-2：是用来定义双精度浮点数的

1、主机是以纯小数并且十分位不为0的形式存储数据的

2、剖析一个内存数据，比如：C211570A

3、怎么从一个十六进制数据快速反推出我们想要的十进制

④、COM-3：内部十进制数：十进制数两位用一个字节表示

⑤、COMP-5/BINARY (固有2進数)--同COMP-X

2、赋值规则：

 COMP-5对于9和S9的位数和存储的bytes的个数

9型举例

S9型举例

X型举例

二、编码

---

一、数据类型

1、数值类型COM

①、COMP/BINARY：二进制数

只能存储数字，PIC定义中只能包含9，P，S，V。

数字以二进制形式存储。负数是以绝对值的2进制补码形式表示。

PIC定义长度	占有字节
1~4	2字节
5~9	4字节
10~18	8字节

②、COM-1：是用来定义单精度浮点数的

原文链接：https://blog.csdn.net/hlasm/article/details/42003483

COMP-1是用来定义单精度浮点数的，占四个字节（对应于HLASM/mainframe assembler里的E定义）

它以内部的指数形式（二进制的指数形式）来表示一个数，以固定长度的内存单元来存放一个数。

    如：以4个字节表示一个数，其中8位表示指数部分，24位表示数字部分。这称为短浮点形式。

③、COMP-2：是用来定义双精度浮点数的

COMP-2是用来定义双精度浮点数的，占八个字节（对应于HLASM/mainframe assembler里的D定义）

也可以用8个字节(64位)来表示一个数，指数部分仍为8位，数字部分为56位，称为长浮点形式。

长浮点形式比短浮点形式有更高的精确度（内部浮点形式的数值在内存中所占字节长度只有4字节和8字节两种），而且无论是短浮点还是长浮点，数值范围均为：5.4X10^-79   ~   0.72X10^76

具体内部存储见下图：

解析如下：

第0位（最左边的bit位为第0位，以此类推）是符号位，0为正，1为负。
第1~7位是指数位，初始值为X'40',如果小数点左移1位，则初始值加1，为X'41'；如果右移1位，则减1，为X'3F'。
第8~31/8~63位是尾数位，也可以说是组合位(8~31是针对COMP-1，8~63针对COMP-2)。

1、主机是以纯小数并且十分位不为0的形式存储数据的

1.主机是以纯小数并且十分位不为0的形式存储数据的

 地址  内存数据               常量名      常量数值

000064 427B74BC            14 A     DC   E'123.456' 
000068 427B0000            15 B     DC   E'123'    
00006C 4074BC6A            16 C     DC   E'.456'    
000070 C27B74BC            17 X     DC   E'-123.456' 
000074 00000000                           
000078 427B74BC6A7EF9DB    18 Y     DC   D'123.456'  

A,B和C我们都定义成常量，并且可以把A看成是B + C之和
 B: 123 = X'7B'按照要求应该变为0.7B * 16^2，由于指数为+2，所以指数的bit位就变成了X'40'+X'2'=X'42'，即内存为427B0000
 C: 0.456=X'0.74BC6A7EF9DB'=0.74BC6A7EF9DB * 16^0，其本身已经符合要求了，所以内存为4074BC6A（由于C最多四个字节，后面的存储不了自动舍弃，这和我们常说的小说点后精确到多少位含义是一样）

计算机在进行加减之前，首先要保证指数一致，然后再保证小数点对齐。要理解这个，我们可以参考下十进制，比如100*10^1+ 0.008*10^2，一般的算法为：100*10^1+ 0.008*10^2 = 1000 + 0.8 = 1000.8

其实这里隐含的约束也是先把指数变成一样，然后小数点对齐（只是这里指数部分为10^0）。 

其实计算机也是这么做的：
 1.先把前两位（指数位）变成相同：4074BC6A -> 41074BC6 -> 420074BC
 2.然后再进行C+B=A的计算：420074BC+ 427B0000 = 427B74BC

再来看下X和Y，X是A的相反数，Y和A只是精度不同
X是负数，所以其内存第一个bit位是1。
Y被定义成双精度浮点数类型（COMP-2），可以看出A和Y的内存数据仅仅是精度不同而已。

2、剖析一个内存数据，比如：C211570A

1.由于第一个bit是1，所以它是个负数，
2.由于指数位是X'42'，即后面三个字节中的11为整数部分，570A为小数部分
3.整数部分11变成十进制为17
4.小数部分0.570A变成十进制为0.339996337890625，约等于0.34

5.即这个数字为-17.34

3、怎么从一个十六进制数据快速反推出我们想要的十进制

1）快速反推（由十六进制推算出十进制）：
C211570A =（-X'11570A'/16^6）*16^2 
         = -X'11570A'/16^4 
         = -1136394/65536 
         = -17.34

C411570A = （-X'11570A'/16^6）* 16^4 
         = -X'11570A'/16^2 
         = -1136394/256
         = -4439.039

2）快速正推（由十进制推算出十六进制）:

17.34 = 0.1734 * 10^2
      = 1734/10^2
      = X'6C6'/ X'64'
      = （X'6C60000'/ X'64'）*（1/X'10000'）
      = 11570A*（1/ X'10000'）

这里为什么先让被除数乘X'10000',是因为笔记本自带的计算机在进行16进制除法的时候,只显示整数部分.实际上,计算机也是没法表示16进制的小数部分的,因为我们平时说的小数点,都是针对十进制的,又有谁见过16进制的小数点长什么样子?

所以记入内存时再缩小X'10000'倍即可：X'4211570A'（如果不缩小应该是X'4611570A'）

以上方法的总体思想都是把除数和被除数都变成整数，然后再进行运算。

④、COM-3：内部十进制数：十进制数两位用一个字节表示

        1.数据在计算机中以压缩十进制数的形式存储。每个字节放两个数字，但是最右边的字节内只放一个数字加符号字段。PIC定义中只能包含9,P,S,V.

        2.项目的位数（n）和项目所占字节数（m）之间的关系用“m＝n/2+1”的公式表示。

        3.符号作为独立的半字节位于最右端的4位，无符号数字为F，有符号数（S型）为正数的场合，最右端四位为C，负数的场合为D。

        4.数字项目在记录中属于组合项的场合，COBOL中组合项都是按照字符存储的，会进行变化

01  WK3  PIC S9(11) COMP-3.  //实际占6位 ,11/2 + 1 =6

01  WK1  PIC 9(1) COMP-3. 
01  WK2  PIC 9(1)V9(1) COMP-3. 
01  WK3  PIC S9(1) COMP-3. 
01  WK4  PIC S9(1)V9(1) COMP-3. 
01  WK5  PIC S9(8) COMP-3. 

01  WK6.                        
    03  WK7  PIC 9(7) COMP-3. 
    03  WK8  PIC S9(7) COMP-3. 
    03  WK9  PIC 9(7) COMP-3. 

MOVE  -1  	TO  WK1.
MOVE  1.23  	TO  WK2.
MOVE  -2  	TO  WK3.
MOVE  -1.2  	TO  WK4.
MOVE  -12345678 TO  WK5.
MOVE  -1234  	TO  WK7.
MOVE  +1234567  TO  WK8.
MOVE  3456789  	TO  WK9.
===========================
	    内存值		16进制值
WK1	    1		    1
			        F
WK2	    1.2		    02
			        1F
WK3	    -2		    2
			        D
WK4	    -1.2		02
			        1D
WK5	    -12345678	02468
			        1357D
WK6 对照码表对应字符	002413573579
			        013D246C468F

⑤、COMP-5/BINARY (固有2進数)--同COMP-X

        ①COMP-5可存储的数值不限于PIC后定义的长度。
        ②COMP-5对于9和S9有区分，S9时，第一个bit是符号位，9型时没有符号位，所以可存储的数值的范围不一样。

        ③外部10进制，内部二进制表示。可表示的最大长度，取决与可表示的字节数。9型描述符的场合，根据有无符号，表示的字节数不同。X型描述符的场合，X的个数为对应的字节数。

2、赋值规则：

COMP型赋值：短赋长，先补位，转2进制存储
                         长赋短，先截位，转2进制存储
COMP型的负数：补位或截位后对对应正数的反码加1（正数为0，负数为1）
COMP-5型赋值：短赋长（正数），先转2进制存储，再补位
                             长赋短（正数），先转2进制存储，再截位
                             短赋长（负数），先将对应正数转2进制，再补位，再反码加1
                             长赋短（负数），先将对应正数转2进制，再反码加1，再截位

 COMP-5对于9和S9的位数和存储的bytes的个数

	COMP-5
	数字9型个数
有符号		无符号		bytes
1-2		    1-2		    1
3-4		    3-4		    2
5-6		    5-7		    3
7-9		    8-9		    4
10-11		10-12		5
12-14		13-14		6
15-16		15-16		7
17-18		17-19		8
19-21		20-21		9
22-23		22-24		10
24-26		25-26		11
27-28		27-28		12
29-31		29-31		13
32-33		32-33		14
34-35		34-36		15
36-38		37-38		16

 COMPUTATIONAL-5：
        ①定义的场合:可使用的描述符：S,9,V,X
(“x”的数目表示该数据项的字节数。)
        ②COMPUTATIONAL-5的定义描述符中包含"X"的场合，必须为无符号数。
        ③COMPUTATIONAL-5的定义描述符中包含"X"的场合，必须为无符号整数数。
        ④COMPUTATIONAL-5可全部使用X进行定义

官网说明：COMP-5型，PIC描述符使用 X或9。不存在使用混合X和9。代码也无混合使用的。
        ①COMPUTATIONAL-5描述符为S，V，9的场合，9的个数最多为38个，S和V不占位。
        ②COMPUTATIONAL-5描述符为X的场合，X的个数最多为16个。

9型举例

01  WK1  PIC 9(7) 	COMP-5. 
01  WK2  PIC 9(7) 	COMP-5. 
01  WK3  PIC 9(7) 	COMP-5. 
01  WK4  PIC 9(7) 	COMP-5. 

MOVE  16777215  	TO  WK1.
MOVE  16777216  	TO  WK2.
MOVE  -98765432  	TO  WK3.
MOVE  98765432  	TO  WK4.

	内存值		16进制值
WK1	16777215	FFF
			    FFF
WK2	00000000	000
			    000
WK3	01897864	1F8
			    C58
WK4	14879352	E07
			    3A8

WK1和WK2说明：
9型无符号整数赋值正数的场合，9的个数决定Byte个数，Byte的个数决定变量的取值范围。
PIC 9(7)对应的字节数为3，最大值为2＾(3*8)-1=16777215。大于2＾(3*8)-1=16777215，产生截取。
16777215：二进制：111111111111111111111111(24位)
16777216：二进制：1000000000000000000000000(25位)

WK3说明：
1.PIC 9(7)对应的字节数为3，最大值为2＾(3*8)-1
最大值为16777215，共8位数字，共24位。
2.赋值为负数，并且绝对值大于最大值的场合。
负数使用对应正数的绝对值的反码+1表示。
先将-987654321的绝对正值转化为对应二进制，再转化位反码，反码再加1，
再转化为二进制，从右向左截取24位，进行储存。
十进制                   16进制                   2进制
01897864             1CF588               000111001111010110001000
98765432             E30A78            101111000110000101001111000(27位)
98765432补码                           010000111001111010110000111
98765432补码 +1                        010000111001111010110001000
                                          000111001111010110001000(24位：01897864）
3.9型无符号  

WK4说明：
1.PIC 9(7)对应的字节数为3，最大值为2＾(3*8)-1
最大值为16777215，共8位数字，共24位。
2.赋值为正数，并且大于最大值的场合，
先将值98765432转化为对应的2进制，然后再从右向左截取24bit位，进行储存。

十进制                   16进制          2进制
98765432             E30A78     111000110000101001111000(27位)
                                111000110000101001111000(截取24位) =14879352(10进制)
3.9型无符号，所有的bit均表示数值 

S9型举例

01  WK5  PIC S9(7) 	COMP-5. 
01  WK6  PIC S9(7) 	COMP-5. 
01  WK7  PIC S9(7) 	COMP-5. 
01  WK8  PIC S9(7) 	COMP-5. 

MOVE  2147483647  	TO  WK5.
MOVE  2147483648  	TO  WK6.
MOVE  123456  		TO  WK7.
MOVE  -123456  		TO  WK8.

	内存值		    16进制值
WK5	+2147483647	    7FFF
			        FFFF
WK6	00000000	    000
			        000
WK7	+0000123456	    00E4
			        C120
WK8	-0000123456	    FF1C
			        FED0

WK5和WK6的说明：
COMP-5型赋值场合，9的个数决定Byte个数，Byte的个数决定变量的取值范围，
最高一位为符号位,0表示正数，1表示负数。
PIC S9(7)对应的字节数为4，最大值为2＾(4*8-1)-1=2147483647。
10进制            16进制           2进制
+2147483647     7FFFFFFF     01111111111111111111111111111111
-2147483648      8000000     10000000000000000000000000000000(最左端为1，为负数)

WK7说明：
1.PIC  S9(7)对应的字节数为4，最大值为2＾(4*8-1)-1
最大值为2147483647，共10位数字，共31bit位（最左端一位表示符号位）。
2.赋值为正数，并且绝对值小于最大值的场合，为原值。
先将值123456转化为对应的2进制，然后再左侧补0至31bit位。
十进制      16进制            2进制
123456      1E240               11110001001000000(17位)
                 00000000000000011110001001000000(32，左侧补0，最左侧为0，正数)
3.最左端一位为符号位，0表示正数，1表示负数。

WK8说明：
1.最大值为2147483647，共10位数字，共31bit位（最左端一位表示符号位）。
2.赋值为负数，并且绝对值小于最大值的场合，
负数使用对应正数的绝对值的反码+1表示。
先将值-123456的绝对正值转化为对应的2进制(32位)，再转化为反码，反码再加1。
十进制             16进制                   2进制
-0000123456       FFFE1DC0   11111111111111100001110111000000
123456            1E240                     11110001001000000(17位)                                                                                          
                             00000000000000011110001001000000(32，左侧补0)
反码                            11111111111111100001110110111111
反码+1           FFFE1DC0      11111111111111100001110111000000(32位，最左侧为1，负数)
3.最左端一位为符号位，0表示正数，1表示负数。

X型举例

01  WK9  PIC X(1) 	COMP-5. 
01  WK10  PIC X(1) 	COMP-5. 
01  WK11  PIC X(1) 	COMP-5. 
01  WK12  PIC X(1) 	COMP-5. 
01  WK13  PIC X(1) 	COMP-5. 

MOVE  123  		    TO  WK9.
MOVE  -123  		TO  WK10.
MOVE  255  		    TO  WK11.
MOVE  4321  		TO  WK12.
MOVE  -4321  		TO  WK13.

	    内存值		16进制值
WK9	    123		    7
			        B
WK10	133		    8
			        5
WK11	255		    F
			        F
WK12	225		    E
			        1
WK13	031		    1
			        F

WK9说明：
1.PIC  X(1) COM-5,无符号，X(1)对应的字节数为1，8bit位，最大值为2＾(8)-1=255
2.赋值为正数，并且小于最大值的场合，为原值。
3.PIC 　X(1)　COM-P：无符号数字，全部的Bit位均表示数值

WK10说明：
1.PIC  X(1) COM-5,无符号，X(1)对应的字节数为1，8bit位，最大值为2＾(8)-1=255
2.赋值为负数。
负数为绝对值的反码加1表示，无符号位。
10进制           16进制            2进制
123              7B                01111011
123反码                            10000100
123反码 +1                         10000101 = 133
3.如果在COMP-5数据项目用的PICTURE句中指定“x”，则该数据项目被视为无符号，不被赋予符号。

WK11说明：
PIC  X(1) COM-5,无符号，X(1)对应的字节数为1，8bit位，最大值为2＾(8)-1=255

WK12说明：
1.PIC  X(1) COM-5,无符号，X(1)对应的字节数为1，8bit位，最大值为2＾(8)-1=255
2.赋值为正数，并且大于最大值的场合。
先将4321转换为对应的2进制，再从右向左截取8位。
10进制                    16进制            2进制
 4321                      10e1            1000011100001(13位）
                                           11100001(8位) = 255
WK13说明：
1.PIC  X(1) COM-5,无符号，X(1)对应的字节数为1，8bit位，最大值为2＾(8)-1=255
可表示3位数字
2.赋值为负数,并且绝对值大于最大值的场合。
负数为绝对值的反码加1表示，无符号位。
先将转换为负数的绝对值的二进制码，再转换相应的反码，再加1，再从右向左截取8位

10进制           16进制        2进制
4321               10e1      1000011100001(13位）
                                  11100001(8位) = 255
4321反码                     0111100011110
4321反码 +1                  0111100011111 = 133
再从左向右截取8位                  00011111 = 31

二、编码

EBCDIC (Extended Binary Coded Decimal Interchange Code) 为国际商用机器公司(IBM)于1963年-64年间推出的字符编码表，根据早期打孔机式的二进制编码的十进制数(BCD, Binary Coded Decimal)排列而成。

EBCDIC编码中：符号位，无符号数字为F，有符号数（S型）为正数的场合为C，负数的场合为D。

Shift-JIS编码中：符号位在最后1byte的上4bit，3代表正数，7代表负数。(指定SIGN时符号占位)

EBCDIC缺点是：英文字母不是连续地排列，中间出现多次断续，为撰写程序的人带来了一些困难。

0x81 to 0x89 represent characters ‘a’ to ‘i’
0x91 to 0x99 represent characters ‘j’ to ‘r’
0xA2 to 0xA9 represent characters ‘s’ to ‘z’
0xC1 to 0xC9 represent characters ‘A’ to ‘I’
0xD1 to 0xD9 represent characters ‘J’ to ‘R’
0xE2 to 0xE9 represent characters ‘S’ to ‘Z’

EBCDIC

ASCII<===>EBCDIC

Dec	Hex	ASCII		EBCDIC
0	00	NUL	Null	NUL	Null
1	01	SOH	Start of Heading (CC)	SOH	Start of Heading
2	02	STX	Start of Text (CC)	STX	Start of Text
3	03	ETX	End of Text (CC)	ETX	End of Text
4	04	EOT	End of Transmission (CC)	PF	Punch Off
5	05	ENQ	Enquiry (CC)	HT	Horizontal Tab
6	06	ACK	Acknowledge (CC)	LC	Lower Case
7	07	BEL	Bell	DEL	Delete
8	08	BS	Backspace (FE)
9	09	HT	Horizontal Tabulation (FE)
10	0A	LF	Line Feed (FE)	SMM	Start of Manual Message
11	0B	VT	Vertical Tabulation (FE)	VT	Vertical Tab
12	0C	FF	Form Feed (FE)	FF	Form Feed
13	0D	CR	Carriage Return (FE)	CR	Carriage Return
14	0E	SO	Shift Out	SO	Shift Out
15	0F	SI	Shift In	SI	Shift In
16	10	DLE	Data Link Escape (CC)	DLE	Data Link Escape
17	11	DC1	Device Control 1	DC1	Device Control 1
18	12	DC2	Device Control 2	DC2	Device Control 2
19	13	DC3	Device Control 3	TM	Tape Mark
20	14	DC4	Device Control 4	RES	Restore
21	15	NAK	Negative Acknowledge (CC)	NL	New Line
22	16	SYN	Synchronous Idle (CC)	BS	Backspace
23	17	ETB	End of Transmission Block (CC)	IL	Idle
24	18	CAN	Cancel	CAN	Cancel
25	19	EM	End of Medium	EM	End of Medium
26	1A	SUB	Substitute	CC	Cursor Control
27	1B	ESC	Escape	CU1	Customer Use 1
28	1C	FS	File Separator (IS)	IFS	Interchange File Separator
29	1D	GS	Group Separator (IS)	IGS	Interchange Group Separator
30	1E	RS	Record Separator (IS)	IRS	Interchange Record Separator
31	1F	US	Unit Separator (IS)	IUS	Interchange Unit Separator
32	20	SP	Space	DS	Digit Select
33	21	!	Exclamation Point	SOS	Start of Significance
34	22	"	Quotation Mark	FS	Field Separator
35	23	#	Number Sign, Octothorpe, "pound"
36	24	$	Dollar Sign	BYP	Bypass
37	25	%	Percent	LF	Line Feed
38	26	&	Ampersand	ETB	End of Transmission Block
39	27	'	Apostrophe, Prime	ESC	Escape
40	28	(	Left Parenthesis
41	29	)	Right Parenthesis
42	2A	*	Asterisk, "star"	SM	Set Mode
43	2B	+	Plus Sign	CU2	Customer Use 2
44	2C	,	Comma
45	2D	-	Hyphen, Minus Sign	ENQ	Enquiry
46	2E	.	Period, Decimal Point, "dot"	ACK	Acknowledge
47	2F	/	Slash, Virgule	BEL	Bell
48	30	0	0
49	31	1	1
50	32	2	2	SYN	Synchronous Idle
51	33	3	3
52	34	4	4	PN	Punch On
53	35	5	5	RS	Reader Stop
54	36	6	6	UC	Upper Case
55	37	7	7	EOT	End of Transmission
56	38	8	8
57	39	9	9
58	3A	:	Colon
59	3B	;	Semicolon	CU3	Customer Use 3
60	3C	<	Less-than Sign	DC4	Device Control 4
61	3D	=	Equal Sign	NAK	Negative Acknowledge
62	3E	>	Greater-than Sign
63	3F	?	Question Mark	SUB	Substitute
64	40	@	At Sign	SP	Space
65	41	A	A
66	42	B	B
67	43	C	C
68	44	D	D
69	45	E	E
70	46	F	F
71	47	G	G
72	48	H	H
73	49	I	I
74	4A	J	J	¢	Cent Sign
75	4B	K	K	.	Period, Decimal Point, "dot"
76	4C	L	L	<	Less-than Sign
77	4D	M	M	(	Left Parenthesis
78	4E	N	N	+	Plus Sign
79	4F	O	O	|	Logical OR
80	50	P	P	&	Ampersand
81	51	Q	Q
82	52	R	R
83	53	S	S
84	54	T	T
85	55	U	U
86	56	V	V
87	57	W	W
88	58	X	X
89	59	Y	Y
90	5A	Z	Z	!	Exclamation Point
91	5B	[	Opening Bracket	$	Dollar Sign
92	5C	\	Reverse Slant	*	Asterisk, "star"
93	5D	]	Closing Bracket	)	Right Parenthesis
94	5E	^	Circumflex, Caret	;	Semicolon
95	5F	_	Underline, Underscore	¬	Logical NOT
96	60	`	Grave Accent	-	Hyphen, Minus Sign
97	61	a	a	/	Slash, Virgule
98	62	b	b
99	63	c	c
100	64	d	d
101	65	e	e
102	66	f	f
103	67	g	g
104	68	h	h
105	69	i	i
106	6A	j	j
107	6B	k	k	,	Comma
108	6C	l	l	%	Percent
109	6D	m	m	_	Underline, Underscore
110	6E	n	n	>	Greater-than Sign
111	6F	o	o	?	Question Mark
112	70	p	p
113	71	q	q
114	72	r	r
115	73	s	s
116	74	t	t
117	75	u	u
118	76	v	v
119	77	w	w
120	78	x	x
121	79	y	y
122	7A	z	z	:	Colon
123	7B	{	Opening Brace	#	Number Sign, Octothorp, "pound"
124	7C	|	Vertical Line	@	At Sign
125	7D	}	Closing Brace	'	Apostrophe, Prime
126	7E	~	Tilde	=	Equal Sign
127	7F	DEL	Delete	"	Quotation Mark
128	80		Reserved
129	81		Reserved	a	a
130	82		Reserved	b	b
131	83		Reserved	c	c
132	84	IND	Index (FE)	d	d
133	85	NEL	Next Line (FE)	e	e
134	86	SSA	Start of Selected Area	f	f
135	87	ESA	End of Selected Area	g	g
136	88	HTS	Horizontal Tabulation Set (FE)	h	h
137	89	HTJ	Horizontal Tabulation with Justification (FE)	i	i
138	8A	VTS	Vertical Tabulation Set (FE)
139	8B	PLD	Partial Line Down (FE)
140	8C	PLU	Partial Line Up (FE)
141	8D	RI	Reverse Index (FE)
142	8E	SS2	Single Shift Two (1)
143	8F	SS3	Single Shift Three (1)
144	90	DCS	Device Control String (2)
145	91	PU1	Private Use One	j	j
146	92	PU2	Private Use Two	k	k
147	93	STS	Set Transmit State	l	l
148	94	CCH	Cancel Character	m	m
149	95	MW	Message Waiting	n	n
150	96	SPA	Start of Protected Area	o	o
151	97	EPA	End of Protected Area	p	p
152	98		Reserved	q	q
153	99		Reserved	r	r
154	9A		Reserved
155	9B	CSI	Control Sequence Introducer (1)
156	9C	ST	String Terminator (2)
157	9D	OSC	Operating System Command (2)
158	9E	PM	Privacy Message (2)
159	9F	APC	Application Program Command (2)
160	A0
161	A1
162	A2			s	s
163	A3			t	t
164	A4			u	u
165	A5			v	v
166	A6			w	w
167	A7			x	x
168	A8			y	y
169	A9			z	z
170	AA
171	AB
172	AC
173	AD
174	AE
175	AF
176	B0
177	B1
178	B2
179	B3
180	B4
181	B5
182	B6
183	B7
184	B8
185	B9			`	Grave Accent
186	BA
187	BB
188	BC
189	BD
190	BE
191	BF
192	C0
193	C1			A	A
194	C2			B	B
195	C3			C	C
196	C4			D	D
197	C5			E	E
198	C6			F	F
199	C7			G	G
200	C8			H	H
201	C9			I	I
202	CA
203	CB
204	CC
205	CD
206	CE
207	CF
208	D0
209	D1			J	J
210	D2			K	K
211	D3			L	L
212	D4			M	M
213	D5			N	N
214	D6			O	O
215	D7			P	P
216	D8			Q	Q
217	D9			R	R
218	DA
219	DB
220	DC
221	DD
222	DE
223	DF
224	E0
225	E1
226	E2			S	S
227	E3			T	T
228	E4			U	U
229	E5			V	V
230	E6			W	W
231	E7			X	X
232	E8			Y	Y
233	E9			Z	Z
234	EA
235	EB
236	EC
237	ED
238	EE
239	EF
240	F0			0	0
241	F1			1	1
242	F2			2	2
243	F3			3	3
244	F4			4	4
245	F5			5	5
246	F6			6	6
247	F7			7	7
248	F8			8	8
249	F9			9	9
250	FA
251	FB
252	FC
253	FD
254	FE
255	FF

计算机编码与解码&编码表

COBOL语言总结(一)

COBOL语言总结(三)--JCL扩展

干我们这行，啥时候懈怠，就意味着长进的停止，长进的停止就意味着被淘汰，只能往前冲，直到凤凰涅槃的一天！