H DFTNAME(TESTPRM2) DATEDIT(*YMD/)                                                             
     F********** パラメータの受取りのテスト ********************************                        
     F**********************************************************************                        
    +C*----------------------------------------------------+                                        
     C*    パラーメータの受取り                                                                     
     C*----------------------------------------------------+                                        
     C     *ENTRY        PLIST                                                  |                   
     C                   PARM                    SHCODE           10            |                   
     C                   PARM                    HNSCOD            4            |                   
     C*----------------------------------------------------+                                        
     C                   IF        %PARMS = 2                                                       
     C     'HNSCOD='     CAT(P)    HNSCOD:0      DSP40            40                                
     C     DSP40         DSPLY                   ANS               1                                
     C                   ELSE                                                                       
     C     'NO ENTRY'    DSPLY                   ANS               1                                
     C                   ENDIF                                                                      
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C     END           TAG