NULL 形象定数を用いてポインターを初期設定する

NULL 形象定数は、USAGE IS POINTER、USAGE IS PROCEDURE-POINTER、ADDRESS OF、または ADDRESS OF 特殊レジスターに有効なアドレスがないことを示すために使用される値を表します。 たとえば、次のとおりです。

 
 WORKING-STORAGE SECTION.
  77 APTR  USAGE POINTER VALUE NULL.
 PROCEDURE DIVISION.
     IF APTR = NULL THEN
        DISPLAY 'APTR IS NULL'
     END-IF.

この例の WORKING-STORAGE SECTION で、ポインター APTR は NULL に設定されています。 手続き部の比較は真になり、DISPLAY ステートメントが実行されます。

AS/400 システムでは、ポインター・データ項目やプロシージャー・ポインター・データ項目の初期値は、VALUE 文節が NULL であるかどうかに関係なく NULL になります。