GET STRING(MM__PAR2) LIST(MM__FCX,MM__CODEX,MM__DENX,MM__REELX); PL/1 怎么使用
时间: 2023-10-14 13:04:58 浏览: 125
这是一个 PL/1 语言中的语句,它的作用是从一个名为 MM__PAR2 的字符串中解析出一些参数,并将它们存储在一个列表中,该列表包括 MM__FCX、MM__CODEX、MM__DENX 和 MM__REELX 四个变量。
在 PL/1 中,您可以按照以下方式使用该语句:
```
DCL MM__PAR2 CHAR(100);
DCL MM__FCX CHAR(10);
DCL MM__CODEX CHAR(10);
DCL MM__DENX CHAR(10);
DCL MM__REELX CHAR(10);
CALL GET(MM__PAR2, MM__FCX, MM__CODEX, MM__DENX, MM__REELX);
```
其中,DCL 用于声明变量,CALL GET 用于调用 GET 函数,从 MM__PAR2 中解析出参数,并将它们存储在 MM__FCX、MM__CODEX、MM__DENX 和 MM__REELX 中。请注意,您需要将变量声明为与 GET 函数返回的数据类型相同。
相关问题
GET STRING(MM__PAR2) LIST(MM__FCX,MM__CODEX,MM__DENX,MM__REELX); MM__PAR2的值应该是什么格式?
根据代码,变量 MM__PAR2 的赋值语句为 MM__PAR2 = 'T1,0,6250,12-34';,因此它的值应该是一个字符串,包含四个逗号分隔的元素,分别为:
1. 'T1',长度为 2 的字符型变量 MM__FCX 的初始值。
2. 0,整型变量 MM__CODEX 的初始值。
3. 6250,四位数字字符串转换为的整型变量 MM__DENX 的初始值。
4. '12-34',长度为 5 的字符型变量 MM__REELX 的初始值。
因此,GET STRING(MM__PAR2) 语句将 MM__PAR2 中的字符串解析并将值赋给相应的变量,LIST(MM__FCX,MM__CODEX,MM__DENX,MM__REELX) 语句将这些变量的值按顺序输出。
DCL (MM__MODE,MM__NAVIL,MM__EOF,MM__UNDEF,MM__TBLSW) BIT(1) INIT('0'B) STATIC, (MM__IXDEF,MM__IXREF,MM__K) INIT(0) STATIC, MM__FCX CHAR(2) INIT('T1') STATIC, MM__CODEX FIXED BIN(31,0) INIT(0) STATIC, MM__DENX PIC'9999' INIT(1600) STATIC, MM__REELX CHAR(5) INIT(' ') STATIC; MM__PAR2 = 'T1,0,6250,12-34'; GET STRING(MM__PAR2) LIST(MM__FCX,MM__CODEX,MM__DENX,MM__REELX); PL/1代码
这是一段 PL/1 代码,其中包含了变量的声明和初始化,以及一些操作。具体来说:
- DCL 表示变量的声明,括号中的内容为变量名和类型。
- INIT 表示变量的初始化值。
- BIT(1) 表示一个二进制位。
- (MM__IXDEF, MM__IXREF, MM__K) 表示三个整型变量。
- CHAR(2) 表示两个字符。
- FIXED BIN(31,0) 表示一个 32 位的二进制整数。
- PIC'9999' 表示长度为 4 的数字字符串。
- GET STRING 和 LIST 分别表示从字符串中获取值和将值列表输出。
整段代码的功能并不清楚,需要结合上下文来理解。