Check if the serial numbers are same in two roster

[Tsheringcee]

I have two rosters where I have to check if the serial numbers are same . For example I have in dm1 serial number 1 3 5 7 and in dm31 1 3 5 7 ...how do I check if the two serial numbers are same ...for example if the Keyer puts 1 2 3 4 in dm31 then it should generate an error

Thanks

[Gregory Martin]

If the serial numbers will appear on the same row, you could write logic like this:

PROC DM31

    if DM31 <> DM1(curocc()) then
        errmsg("The serial number must be %d",DM1(curocc()));
        reenter;
    endif;

[Tsheringcee]

Thank u so much