/* REXX */
 'ISREDIT MACRO'
 'ISREDIT (LL) = LINE .ZCSR '
 'ISREDIT (LC,CC) = CURSOR' 
 POSDEB = INDEX(LL,'DSN='); 
 IF POSDEB = 0 THEN DO      
                ZEDSMSG = 'DSN=?????'
                ZEDLMSG = 'COMMANDE VALABLE SUR LIGNE AVEC DSN='
                'ISPEXEC SETMSG MSG(ISRZ001)'
                'ISREDIT CURSOR =(LC,CC)'
                EXIT 12   
                END       
                          
                          
 LL2 = SUBSTR(LL,POSDEB+4)
 POSFIN = INDEX(LL2,',');
 IF POSFIN = 0 THEN DSN = WORD(LL2,1)
               ELSE DSN = SUBSTR(LL2,1,POSFIN-1)

 X = LISTDSI("'"DSN"'")
 IF X  = 4 THEN DO
                ZEDSMSG = 'ATTENTION '
                ZEDLMSG = DSN', EXISTE MAIS VéRIFIER'
                'ISPEXEC SETMSG MSG(ISRZ001)'
                'ISREDIT CURSOR =(LC,CC)'
                END
 ELSE
 IF X /= 0 THEN DO
                ZEDSMSG = 'NOT FOUND'
                ZEDLMSG = DSN', FICHIER INCONNU OU NOT-CATLG'
                'ISPEXEC SETMSG MSG(ISRZ001)'
                EXIT 12
                END   
                                
 'ISPEXEC CONTROL ERRORS RETURN'
 "ISPEXEC BROWSE DATASET('"DSN"') "
 IF RC /= 0 THEN DO  
                ZEDSMSG = 'RC=' RC
                ZEDLMSG = 'BROWSE FINI AVEC RC=' RC
                'ISPEXEC SETMSG MSG(ISRZ001)'
                'ISREDIT CURSOR =(LC,CC)'
                EXIT 12
                END

 'ISPEXEC CONTROL ERRORS CANCEL'
 'ISREDIT CURSOR =(LC,CC)'