PGM        PARM(&DOCUMENTO &CARPETA)                  
 DCL        VAR(&DOCUMENTO) TYPE(*CHAR) LEN(10)        
 DCL        VAR(&CARPETA) TYPE(*CHAR) LEN(13)          
 DCL        VAR(&OBJETO) TYPE(*CHAR) LEN(10)           
 DCLF       FILE(QTEMP/SPLF134)                        
 MONMSG     MSGID(CPD0852)                             
DSPDLONAM  DLO(&DOCUMENTO) FLR(&CARPETA) OUTPUT(*PRINT)
 CRTPF      FILE(QTEMP/SPLF134) RCDLEN(132)            
 MONMSG     MSGID(CPF5813)                             
 MONMSG     MSGID(CPF7302)                             
 CPYSPLF    FILE(DSPDLONAM) TOFILE(QTEMP/SPLF134) +    
              SPLNBR(*LAST)                            
LEER:       RCVF                                                   
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))    
             IF         COND(%SST(&SPLF134 2 6) *EQ \'Nombre\') +     
                          THEN(GOTO CMDLBL(WRK))                    
             GOTO       CMDLBL(LEER)                                
 WRK:        CHGVAR VAR(&OBJETO) VALUE(%SST(&SPLF134 41 10))        
             WRKOBJLCK  OBJ(QDOC/&OBJETO) OBJTYPE(*DOC)             
 ENDPGM:     DLTSPLF    FILE(DSPDLONAM) SPLNBR(*LAST)               
             ENDPGM