以下是一个使用敏感游标和over()函数的RPGL嵌入式SQL的示例代码：

dcl-s empNo char(6);
dcl-s empName char(30);
dcl-s salary packed(9:2);

exec sql
    DECLARE empCur CURSOR FOR
    SELECT EMPNO, EMPNAME, SALARY
    FROM EMPLOYEE
    ORDER BY SALARY DESC;

exec sql
    OPEN empCur;

exec sql
    SET OPTION ALWBLK = *ALLREAD;

exec sql
    FETCH FIRST 5 ROWS ONLY
    INTO :empNo, :empName, :salary;

dow sqlcod = 0;

    exec sql
        SELECT COUNT(*)
        INTO :rowCount
        FROM EMPLOYEE;

    exec sql
        SELECT ROW_NUMBER() OVER ()
        INTO :rowNum
        FROM SYSIBM.SYSDUMMY1;

    // 输出员工信息
    dsply ('Employee No: ' + empNo);
    dsply ('Employee Name: ' + empName);
    dsply ('Salary: ' + %char(salary));

    exec sql
        FETCH NEXT FROM empCur
        INTO :empNo, :empName, :salary;

enddo;

exec sql
    CLOSE empCur;

该示例代码中使用了敏感游标（DECLARE CURSOR）来从EMPLOYEE表中获取员工信息，并按照薪水降序排序。然后，使用OVER()函数来计算总行数和每行的行号。

在循环中，使用FETCH NEXT语句从游标中获取下一行的员工信息，并将其输出到控制台上。循环将继续执行，直到没有更多的行可供获取（sqlcod = 0）。

请注意，此示例假设您已经在AS400上创建了名为EMPLOYEE的表，并且表中包含EMPNO（员工编号）、EMPNAME（员工姓名）和SALARY（薪水）列。请根据您的实际情况进行调整。