レベル 88 項目の縮小表示

レベル 88 項目の縮小表示は、潜在的に多数あるが役立つことが少ない宣言を画面から抑止するのに使用できます。Associated Storage Areas 画面の例の「レベル 88 項目の縮小表示」見出しの直前にある負符号 (-) にカーソルを合わせて Enter キーを押すと、レベル 88 項目を縮小表示した「Associated Storage Areas」画面の例に示されている画面に変わります。

図 1. レベル 88 項目を縮小表示した「Associated Storage Areas」画面の例

  File  View  Services  Help                                                  
──────────────────────────────────────────────────────────────────────────────
Associated Storage Areas                                       Line 1 Col 1 80
JOBNAME: COBLVL88  SYSTEM ABEND: 0CB            FAE1      2021/09/20  15:48:38
                                                                              
Program Prolog Areas                                                          
                                                                              
WORKING-STORAGE SECTION                                                       
         + Expand hex   + Expand level 88                                     
  Offset Data Value         Source (Starting at Line # 000010 )               
STATIC storage at address 0000B3F0                                            
      A8 *WORKING-STORAGE *  01  FILLER                 PIC X(20)  VALUE 'WORK
      B8 *                *                                                   
Suppressed Copybook                                                           
     390 *....            *  01  FIELD-1                PIC 999999 COMP-3.    
     398 0                   01  FIELD-2                PIC 999999 COMP-4.    
     3A0 *......          *  01  FIELD-3                PIC 999999.           
                             01  TABLE-4.                                     
                                 03  TABLE-8 OCCURS 6 TIMES.                  
                                  04  TABLE-8A OCCURS 3 TIMES.                
     3A8 1.111100e+02              05 ELEMENT-1                           COMP
     3AC *....            *        05 ELEMENT-2 OCCURS 4 TIMES            PIC 
Level 88 Items                                                                
                                      ELEMENT-2(1,1,2) to ELEMENT-2(1,1,4) sam
     3BC *....            *        05 ELEMENT-3                  PIC 999999 CO
     3C0 0                         05 ELEMENT-4                  PIC 999999 CO

ここで、「Expand level 88」見出しの直前にある" 負符号 (-) のポイント・アンド・シュート・フィールドが正符号に変わっていること、およびこのポイント・アンド・シュート・フィールドにカーソルを合わせると、レベル 88 項目がインラインになっている最初の画面に戻ることに注意してください。

「Level 88 Items」ポイント・アンド・シュート・フィールドにカーソルを合わせて Enter キーを押すと、結果はレベル 88 項目画面の例に示す画面になります。

図 2. レベル 88 項目画面の例

  File  View  Services  Help                                                  
──────────────────────────────────────────────────────────────────────────────
Level 88 Items                                                 Line 1 Col 1 80
JOBNAME: COBLVL88  SYSTEM ABEND: 0CB            FAE1      2021/09/20  15:48:38
                                                                              
Source                                                                        
          88 JACK VALUE 'JACK'.                                               
          88 JILL VALUE 'JILL'.                                               
                                                                              
*** Bottom of data.

associated storage areas 画面に戻るには PF3 を押します。

最後に選択した「Collapse/Expand level 88」オプションは、ユーザーの ISPF プロファイルに保管され、それ以降に「Associated Storage Areas」画面を開くときのデフォルト表示モードとして使用されます。