CMD        PROMPT('Compara Archivo físico')             
             PARM       KWD(OBJ1) TYPE(QUAL1) MIN(1) PROMPT('1er +   
                          Archivo Físico')                           
             PARM       KWD(OBJ2) TYPE(QUAL2) MIN(1) PROMPT('2do +   
                          Archivo físico')                           
             PARM       KWD(TIPO) TYPE(*CHAR) LEN(4) RSTD(*YES) +    
                          DFT(*FLD) VALUES(*FLD *KEY) MIN(0) +       
                          PROMPT('Tipo de comparación')              
 QUAL1:      QUAL       TYPE(*NAME) MIN(1)                           
             QUAL       TYPE(*CHAR) LEN(10) PROMPT('Biblioteca')     
 QUAL2:      QUAL       TYPE(*NAME) MIN(1)                           
             QUAL       TYPE(*CHAR) LEN(10) PROMPT('Biblioteca')