Local Rowset &RsStatus;
&RsStatus = CreateRowset(Record.PSXLATITEM);
&RsStatus.Flush();
&RsStatus.Fill("WHERE FIELDNAME = 'L_COORDINTR_STATUS' AND FIELDVALUE = :1 AND %EFFDTCHECK(PSXLATITEM, FILL, %CURRENTDATEIN) AND EFF_STATUS = 'A'", L_MINOR_APP_FRM.L_COORDINTR_STATUS.Value);
For &l = 1 To &RsStatus.ActiveRowCount
&ValueDescr = &RsStatus(&l).PSXLATITEM.XLATLONGNAME.Value;
End-For;
No comments:
Post a Comment