如何在COBOL85程序中使用Unisys Cande命令（例如：“Show”）？

我们可以使用SHOW命令在WFL或Cande（Unisys大型机）中显示名称、CPUTIME、IOTIME、READYQTIME、INITPBITTIME。有没有办法在Unisys cobol 85程序中使用该SHOW命令来计算我的程序占用了多少CPUTIME或IOTIME

显示混合名称、CPUTIME、IOTIME、READYQTIME、INITPBITTIME

MixNo CPUTime---IOTime---ReadyQTime InitPBit---Name-----------

8465 14:32:00 1:17:00磁盘上无任何内容

8411 2:35:04:45:06系统/测试

8438 1:14:01:24:09系统/LCF

8441 1:05:00:24:02*系统/通信

我的节目：

身份查验司。

程序司。

“我必须在这里使用Show命令来显示CPUTIME或IOTIME”

…

您可能可以使用

CALL SYSTEM WFL USING literal-1
                      identifier-1

但这是通过Unisys COBOL-74手册的快速浏览得出的。不确定它是否仍然适用，但我打赌，是的。

您可能可以使用

CALL SYSTEM WFL USING literal-1
                      identifier-1

---

但这是通过Unisys COBOL-74手册的快速浏览得出的。不确定它是否仍然适用，但我打赌，是的。

如果您想模拟CANDE SHOW命令，您将使用ASERIES_INFO获取PMIX信息。这可能会涉及其中，因此了解您是想获取其他任务的此信息，还是要获取正在运行的任务的此信息会有所帮助

如果要访问自己程序的CPU时间，请使用我自己的属性ACCUMPROCTIME。ACCUMIOTIME也是如此（两者都记录在

将我自己的属性ACCUMPROCTIME移动到WS-CPUTIME。

将为您提供程序的CPUTIME

---

请注意，除了WFL中以秒为单位的属性外，该属性是以滴答（2.4微秒）为单位给出的。

如果要模拟CANDE SHOW命令，可以使用ASERIES_INFO来获取PMIX信息。这可能会涉及其中，因此它将有助于了解您是否要获取其他任务或正在运行的任务的此信息

如果您想访问自己程序的CPU时间，那么使用我自己的属性ACCUMPROCTIME

将我自己的属性ACCUMPROCTIME移动到WS-CPUTIME。

将为您提供程序的CPUTIME

---

请注意，属性以刻度（2.4微秒）表示除WFL中以秒为单位的情况外。

如果要收集有关您自己程序的信息，您不想使用要访问任务属性的

SHOW

命令。有关所有可用的

任务属性的说明，请参阅Unisys任务属性编程参考手册ode>可以检索。有些还可以修改

请参阅UnisysCOBOL ANSI-85编程参考手册，第1卷：基本实现，了解有关操作任务属性的信息

——尤其是

我自己

和

我的作业

保留字

我的COBOL有点生锈了，我没有一个方便的系统来测试，但是下面的大部分内容都是从手册中抄来的，所以应该不会太远

IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING-STORAGE SECTION.  
01 WS-NAME         PIC X(50).
01 WS-INITPBIT     PIC 9(11) BINARY. 
PROCEDURE DIVISION. 
MAIN SECTION. 
MAIN-PARA.          
    MOVE ATTRIBUTE NAME OF MYSELF TO WS-NAME.     
    DISPLAY WS-NAME.   

    MOVE ATTRIBUTE INITPBITTIME OF MYSELF TO WS-INITPBIT.     
    DISPLAY WS-INITPBIT.  

    MOVE ATTRIBUTE INITPBITTIME OF MYJOB TO WS-INITPBIT.     
    DISPLAY WS-INITPBIT.

    IF MYSELF.OTHERPBITTIME > 100     
       --- etc ---
STOP RUN.

---

如果您想收集有关您自己程序的信息，您不想使用要访问任务属性的

SHOW

命令。请参阅Unisys任务属性编程参考手册以了解所有可用的

任务属性

的说明，这些属性可以检索。有些还可以可以修改

请参阅UnisysCOBOL ANSI-85编程参考手册，第1卷：基本实现，了解有关操作任务属性的信息——尤其是

我自己

和

我的作业

保留字

我的COBOL有点生锈了，我没有一个方便的系统来测试，但是下面的大部分内容都是从手册中抄来的，所以应该不会太远

IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING-STORAGE SECTION.  
01 WS-NAME         PIC X(50).
01 WS-INITPBIT     PIC 9(11) BINARY. 
PROCEDURE DIVISION. 
MAIN SECTION. 
MAIN-PARA.          
    MOVE ATTRIBUTE NAME OF MYSELF TO WS-NAME.     
    DISPLAY WS-NAME.   

    MOVE ATTRIBUTE INITPBITTIME OF MYSELF TO WS-INITPBIT.     
    DISPLAY WS-INITPBIT.  

    MOVE ATTRIBUTE INITPBITTIME OF MYJOB TO WS-INITPBIT.     
    DISPLAY WS-INITPBIT.

    IF MYSELF.OTHERPBITTIME > 100     
       --- etc ---
STOP RUN.

---

哇，那不是你每天都能看到的东西，那不是你每天都能看到的东西