RPG

135. CGI開発に有効な条件つきコンパイル

条件つきコンパイルの使用方法については先の「134. 条件つきコンパイルとリリース/ディパッグの分離」
紹介したが、CGI の開発では特に有効となる。
CGI では IFS に保管してあるHTMLテンプレートを使うことが多いがリリース用とディバッグ用では
使用する HTMLテンプレートも別のものとして分離したい場合に、条件つきコンパイルによる手法が
効果を発揮する。

ソースコード
0001.00 H DATEDIT(*YMD/) COPYRIGHT('(C) OfficeQuattro Co,.Ltd Japan 2002-')     
0002.00 F********************************************************************** 
0003.00 FSHOHIN    IF   E           K DISK    USROPN                            
0004.00 F                                     INFSR(*PSSR)                      
0005.00 F********************************************************************** 
0006.00  /IF DEFINED(DEBUG)                                                     
0007.00 D HTML            C                   CONST('/AS400-NET.USR/PROJECT/-   
0008.00 D                                     DEBUG/DSPHEAD.HTM')               
0009.00  /ELSE                                                                  
0010.00 D HTML            C                   CONST('/AS400-NET.USR/PROJECT/-   
0011.00 D                                     RELEASE/DSPHEAD.HTM')             
0012.00  /ENDIF                                                                 
0013.00 C*-----------------------------------------------------                 
0014.00 C                   MOVEL     HTML          TEMPLATE                    
                             :
【 解説 】

ここで同じ HTML という名前の固定情報としての HTMLテンプレートのフル・パス名を
指定しているが、条件 DEBUG が定義されているのと定義されていない場合とでは
使用するHTMLテンプレートが異なってくる。

ディバッグ用 ..... /AS400-NET.USR/PROJECT/DEBUG/DSPHEAD.HTM

リリース用 ....... /AS400-NET.USR/PROJECT/RELEASE/DSPHEAD.HTM