バージョン 6.3.3
 —  ステートメント  —

SET TIME

SET TIME

SETTIME

このドキュメントでは、次のトピックについて説明します。

構文図で使用されている記号については、「構文記号」を参照してください。


機能

SET TIME(または SETTIME)ステートメントは、Natural システム変数 *TIMD と組み合わせて、プログラムの特定のセクションを実行するために要した時間を計測するために使用します。

SET TIME ステートメントはプログラムの特定の位置に指定されます。*TIMD の値は、SET TIME ステートメントの実行時点からの経過時間です。

*TIMD には必ず SET TIME ステートメントへの参照を含める必要があります。そのためには、SET TIME ステートメントのソースコード行番号を使用するか、参照として使用できるラベルを SET TIME ステートメントに割り当てます。

Top of page

** Example 'STIEX1': SETTIME                                            
************************************************************************
DEFINE DATA LOCAL                                                       
1 EMPLOY-VIEW VIEW OF EMPLOYEES                                         
  2 NAME                                                                
END-DEFINE                                                              
*                                                                       
ST. SETTIME                                                      
WRITE 10X 'START TIME:' *TIME                                           
*                                                                       
READ (100) EMPLOY-VIEW BY NAME                                          
END-READ                                                                
*                                                                       
WRITE NOTITLE 10X 'END TIME:  ' *TIME                                   
WRITE         10X 'ELAPSED TIME TO READ 100 RECORDS'                    
                  '(HH:II:SS.T) :' *TIMD (ST.) (EM=99:99:99'.'9) 
*                                                                       
END

プログラム STIEX1 の出力:

START TIME: 16:39:07.6                                    
END TIME:   16:39:07.7                                    
ELAPSED TIME TO READ 100 RECORDS (HH:MM:SS.T) : 00:00:00.1

Top of page