matching 1:n cursor rutinizado

MATCHING 1:N CON REPOSICIONAMIENTO

1000-INICIO
	1100-ABRIRFICHEROS
	1200-GESTIONAR-REPOS
	1000-INICIO-EXIT
	.

1100-ABRIR-FICHEROS
***************************************
1200-GESTIONAR-REPOS
	MOVE 'PGM' TO D-PGM
	SELECT  ESTADO,
			REG
	INTO	:D-ESTADO,
			:D-REG
	FROM DAREPOS
	WHERE PGM = :D-PGM
	EVALUATE SQLCODE
		WHEN 0
			EVALUATE D-ESTADO
				WHEN 'OK'
					PERFORM LEER-ENTRADA1
					PERFORM LEER-ENTRADA2
				WHEN 'KO'
					MOVE D-REG-TEXT TO CLAVE-REPOS
					PERFORM LEER-ENTRADA1
					UNTIL COD-MEDICO = COD-MED-M

					PERFORM LEER-ENTRADA2
					UNTIL COD-MEDICO >= COD-MED-P AND
					ID-PAC > COD-PAC-P

					IF INDICADOR = 'S'
						SET SI-COINCIDE TO TRUE
					ELSE
						SET NO-COINCIDE TO TRUE
					END-IF
				WHEN OTHER
					DISPLAY 'ERROR FATAL'
			END-EVALUATE
***************************************
2000-PROCESO
	EVALUATE TRUE
		WHEN KMA = KMO
			SET SW-SI-COINCIDE TO TRUE
			PERFORM LEER-ENTRADA2
		WHEN KMA < KMO
			IF NO-COINCIDE
				ESCRIBIR SALIDA
				DELETE MEDICOS
				COMMIT
				MOVE CLAVE-REPOS TO D-REG-TEXT
				UPDATE DAREPOS
			END-IF
			PERFORM LEER-ENTRADA1
		WHEN KMA > KMO
			UPDATE PACIENTES
			COMMIT
			MOVE CLAVE-REPOS TO D-REG-TEXT
			UPDATE DAREPOS
		WHEN OTHER
			DISPLAY 'ERROR FATAL'
	.