LPAR ID の取得

LPAR のシステムでパーティション ID を取ってくるプログラムです。

PGM                                                       
 DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(256)            
 DCL        VAR(&FORMAT) TYPE(*INT) VALUE(1)               
 DCL        VAR(&SIZE) TYPE(*INT) VALUE(256)               
 DCL        VAR(&LPARNBR) TYPE(*CHAR) LEN(10)              
 CALLPRC    PRC('dlpar_get_info') PARM((&RECEIVER) +       
              (&FORMAT *BYVAL) (&SIZE *BYVAL))             
 CHGVAR     VAR(&LPARNBR) VALUE(%BIN(&RECEIVER 41 4))      
 SNDPGMMSG  MSG(&LPARNBR) TOPGMQ(*EXT)                     
ENDPGM

プログラム・メッセージに表示されます。

ちなみにパーティション ID は SST で確認することができます。

[Top Pageに戻る]

Ads by TOK2