如何在PL1编程语言中使用指针

Question

我正在尝试学习 PL1 中指针的使用。然而，以下方法不起作用

  DCL MYPTR PTR;                               
    DCL MYVAR CHAR(10) INIT('1234567890');       
    PUT SKIP(2) LIST('DISPLAY MYVAR: ',MYVAR);   
    MYPTR = ADDR(MYVAR);                             
    PUT SKIP(2) LIST('DISPLAY MYPTR: ',MYPTR);  

输出：

 DISPLAY MYVAR:          1234567890               
                                                 
DISPLAY MYPTR:                                   

Answer 1

指针是包含存储地址的变量。您可以使用它们来重新映射具有不同布局的存储区域。例如，假设单个数据集中有具有不同布局的记录，例如：

dcl 1 RecordType1,
      2 RecType        char( 01 ),
      2 Field01        char( 10 ),
      2 Field02        char( 20 ),
      2 Number01       decimal packed( 10,2 ),
      2 Field03        char( 10 );

dcl 1 RecordType2,
      2 RecType        char( 01 ),
      2 Field01        char( 05 ),
      2 *              char( 02 ), 
      2 Number01       bin fixed( 31 ),
      2 Numner02       bin fixed( 31 ),
      2 Field02        char( 100 );

这些声明预留两个不同的存储区域，每个类型一个。请注意，记录具有不同的长度。如果您只知道类型以及读取记录后的长度，您将如何读取记录？您需要执行以下操作：

• 读入足够长的区域以容纳最长的类型，
• 检查类型，
• 移动到结构
• 根据类型处理各个字段

。这涉及到许多不必要的数据移动。

使用指针以及声明中关联的 based() 属性，您可以将结构定义为映射，即无需底层存储。然后，您可以对所有映射使用单个指针。

dcl 1 RecordType1      based( pRecord ),
      2 RecType        char( 01 ),
      2 Field01        char( 10 ),
      2 Field02        char( 20 ),
      2 Number01       decimal packed( 10,2 ),
      2 Field03        char( 10 );

dcl 1 RecordType2      based( pRecord ),
      2 *              char( 01 ),
      2 Field01        char( 05 ),
      2 *              char( 02 ), 
      2 Number01       bin fixed( 31 ),
      2 Numner02       bin fixed( 31 ),
      2 Field02        char( 100 );

dcl pRecord            prt;
dcl LongestRecord      char( 116 );

pRecord = addr( LongestRecord );

现在，您执行如下操作：

• 将记录读入 LongestRecord 字段，
• 通过检查类型字段 RecType 来测试类型（假设类型指示器位于相同位置）每种类型）。
• 通过限定变量引用访问各个文件，例如 RecordType1.Field01 或 RecordType2.Number02

不再有不必​​要的数据从输入区域移动到映射区域。

如果您读取记录从数据集中，您甚至可以避免第一次移动并直接访问输入缓冲区中的记录；只需告诉读取语句设置指针，而不是将数据移至 LongestRecord 字段：

dcl fInput             external file record input;
...
read file( fInput ) set( pRecord );

您现在可以删除 LongestRecord 变量的声明，并将语句设置 < code>pRecord 到该变量的地址。

为了完整起见：PL/I 提供了另一种方法来映射具有两个或多个不同布局的存储区域：UNION，但这不是这里的问题。