FMT *   *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...
        ******************データの始め**************************************
0001.00  *社員情報の照会                                                    
0002.00  *社員番号をキーとして社員マスタを検索し、該当する社員の情報を返す  
0003.00 HPGMINFO(*PCML:*MODULE:*DCLCASE)                                      
0004.00 FBDSYAINP  IF   E           K DISK    PREFIX(SY)                      
0005.00                                                                       
0006.00 D*パラメータ                                                        
0007.00 D syaibn          S              4P 0                                 
0008.00 D resStatus       S             10I 0                                 
0009.00 D name            S             30A                                   
0010.00 D kana            S             20A                                   
0011.00 D email           S             64A                                   
0012.00 D                                                                     
0013.00  *エントリー・パラメータ                                            
0014.00 C     *ENTRY        PLIST                                             
0015.00 C                   PARM                    syaibn                    
0016.00 C                   PARM                    resStatus                 
0017.00 C                   PARM                    name                     
0018.00 C                   PARM                    kana                     
0019.00 C                   PARM                    email                    
0020.00 C                                                                    
0021.00 C     syaibn        CHAIN     BDSYAINP                               
0022.00 C                   IF        %FOUND                                 
0023.00 C                   Z-ADD     200           resStatus                
0024.00 C                   MOVEL(P)  SYSYAINM      name                     
0025.00 C                   MOVEL(P)  SYSYAIKN      kana                     
0026.00 C                   MOVEL(P)  SYMAILMA      email                   
0027.00 C                   ELSE                                            
0028.00 C                   Z-ADD     404           resStatus               
0029.00 C                   MOVEL(P)  *BLANK        name                    
0030.00 C                   MOVEL(P)  *BLANK        kana                    
0031.00 C                   MOVEL(P)  *BLANK        email                   
0032.00 C                   ENDIF                                           
0033.00 C                                                                   
0034.00 C                   SETON                                        LR 
0035.00 C                   RETURN                                           
0036.00 C                                                                    
        *****************データの終わり************************************