ISPEXEC TBGET TABLENAM SAVENAME(VAR-NAME) ROWID(ROWIDNAM) +
NOREAD POSITION(CRPNAME)
IF &LASTCC ¬= 0 THEN /* RETURN CODES */ +
DO /* 8 - KEYED TABLES: ROW DOES NOT EXIST,*/
END /* CRP SET TO TOP */
ELSE /* - NON-KEYED TABLES: CRP REMAINS AT */ +
/* TOP */
/* 12 - TABLE IS NOT OPEN */
/* 16 - DATA TRUNCATION OR INSUFFICIENT */
/* SPACE PROVIDED TO RETURN ALL */
/* EXTENSION VARIABLE NAMES */
/* 20 - SEVERE ERROR */
NOREAD POSITION(CRPNAME)
IF &LASTCC ¬= 0 THEN /* RETURN CODES */ +
DO /* 8 - KEYED TABLES: ROW DOES NOT EXIST,*/
END /* CRP SET TO TOP */
ELSE /* - NON-KEYED TABLES: CRP REMAINS AT */ +
/* TOP */
/* 12 - TABLE IS NOT OPEN */
/* 16 - DATA TRUNCATION OR INSUFFICIENT */
/* SPACE PROVIDED TO RETURN ALL */
/* EXTENSION VARIABLE NAMES */
/* 20 - SEVERE ERROR */
would be what the op needs, correct?
am I misunderstanding?
Peteer