CMD        PROMPT(' 置場別在庫照会 ')                              
             PARM       KWD(SHKBN) TYPE(*CHAR) LEN(1) RSTD(*YES) +              
                          DFT(1) VALUES(1 2 3) +                                
                          PROMPT('1= 本社 2= 工場 3= 営業所 ')                  
             PARM       KWD(KOJO) TYPE(*CHAR) LEN(2) RSTD(*YES) +               
                          VALUES(01 02) PMTCTL(KOJO) +                          
                          PROMPT('01= 神奈川工場 02= 浜松製作所 ')              
             PARM       KWD(EIGYO) TYPE(*CHAR) LEN(4) PMTCTL(EIGYO) +           
                          PROMPT(' 営業所コード ')                              
 KOJO:       PMTCTL     CTL(SHKBN)  COND((*EQ '2'))                             
 EIGYO:      PMTCTL     CTL(SHKBN)  COND((*EQ '3'))