Windows 플랫폼에서 COBOL의 getpid

Question

Windows 플랫폼에서 실행되는 COBOL 코드를 통해 프로세스 ID 또는 상위 프로세스 ID를 얻는 방법은 무엇입니까? 마이크로 포커스 COBOL 가정

Answer 1

이전에 OpenCOBOL 인 GNU Cobol에 대한 답변입니다.

주식 라이브러리의 일환으로 CALL "C $ GETPID"의 반품 정수 값 END-CALL

있습니다. 기본적으로는()

당신은 표준 C 라이브러리에 연결 만의 Kernel32.dll에 액세스 할 수없는 경우가의 WinAPI를이 GetCurrentProcessId있다() (GETPID) 또는 _getpid

Answer 2

, 구글이 마이크로 포커스 COBOL의 사용자로서 당신에게 http://community.microfocus.com/microfocus/cobol/net_express__server_express/w/knowledge_base/6539.obtaining-the-process-id-for-cobol-application.aspx

을 얻을 것이다, 당신은 지원 로그를-에 얻을 수 있습니다 및/지역 사회를 문의하십시오.

링크는 표준 C 함수 getpid에 대한 간단한 CALL을 제안합니다.

Obtaining the process ID for COBOL application 

This article explains how to capture the process ID for the currently running COBOL application. 
Problem: 

How can the process ID (PID) within a running COBOL program be captured? 
Resolution: 

To capture the process ID for a currently running COBOL application, you can code a COBOL CALL statement to use the system function getpid(). The standard C libraries contain the function getpid(), which can easily be called/used from within a COBOL program. 

Sample COBOL code fragments 
Sample program fragment 
Include the ctypes copy file from within the COBOL product directory as the first line in the COBOL program. 

copy '$COBDIR/demo/c-cobol/ctypes.cpy' 

WORKING-STORAGE SECTION 

DATA DIVISION 
Define the data item where the process id should be returned 

01 current-pid long 

PROCEDURE DIVISION 
Call 'getpid' returning current-pid 

The returned integer can be used as a part of temporary filenames, or to identify log file entries etc. 

Old KB# 14408