C*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= C* $DispSFL01 - Survey Type LookUp C*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= C $DispSFL01 begsr C* C exsr $ClearSFL01 C exsr $LoadSFL01 C exsr $CLRMSG C* C dow @Scrn01 = 'Y' C* C write SUB01FKEY C write MSGCTL 99 C exfmt SUB01CTL C* C if CURREC <> *zeros C eval RRn01 = CURREC C eval ScRRn01 = CURREC C endif C* C eval SavScRRn01 = 1 C if ScRRn01 > 0 C eval SavScRRn01 = ScRRn01 C endif C* C exsr $CLRMSG C* C select C* C* F3 pressed end the program C* C when *in03 = *on C eval @Scrn01 = 'N' C* C* F6=Add C* C when *in06 = *on C eval ChangedRecord = 'Y' C eval ScreenMode = 'ADD' C exsr $Screen01 * * F12=Return * C when *in12 = *on C eval @Scrn01 = 'N' * * other * C other C if RRn01 > 0 C exsr $Process01 C endif * C endsl * C if ChangedRecord = 'Y' and ScreenError = 'N' C exsr $ClearSFL01 C exsr $LoadSFL01 C eval ScreenError = 'N' C eval ChangedRecord = 'N' C eval ScRRn01 = SavScRRn01 C endif * C enddo * C endsr *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-