RPGLE: RNF2120, dont know why I keep getting this error -


i'm trying compile rpgle program , keep getting errors stating file declared @ top ignored due no external description. mean? i've been trying figure out , still can't come solution. errors below code.

 fshiftratesif   e             disk    rename(shiftrates:shiftrater)  fallshift  if   e           k disk    rename(allshift:allshifter)  fconfirmpaycf   e             workstn  fpayrpt    o    e             printer oflind(*in01)  dhoursover        s              3  0   /free     read shiftrates;    write title;    write colhdg;    read allshift;    dow not %eof;      exsr paysr;      if *in01;        write title;        write colhdg;        *in01 = *off;        endif;        write empdetail;        read allshift;    enddo;         write totals;        exfmt record1;        *inlr = *on;        return;         begsr paysr;        select;          when workshift = 'd';            hourlyrate = dayrate;            when workshift = 'a';              hourlyrate = aftrate;              when workshift = 'n';                hourlyrate = nightrate;        endsl;         select;          when paygrade = '1';            hourlyrate = hourlyrate * 1.07;            when paygrade = '2';              hourlyrate = hourlyrate * 1.05;              when paygrade = '3';                hourlyrate = hourlyrate * 0.95;        endsl;         if hrsworked > 40;          regularpay = 40 * hourlyrate;          hoursover = hrsworked - 40;          overpay = hoursover * hourlyrate * 1.5;          totregpay = totregpay + regularpay;          totovtpay = totovtpay + overpay;           else;            regularpay = hrsworked * hourlyrate;            totregpay = totregpay + regularpay;            totalpay = overpay + regularpay;            overpay = 0;            endif;            totemppay = totregpay + totovtpay;            endsr;             /end-free        fshiftratesif   e             disk    rename(shiftrates:shiftrater)  fallshift  if   e           k disk    rename(allshift:allshifter)  fconfirmpaycf   e             workstn  fpayrpt    o    e             printer oflind(*in01)  dhoursover        s              3  0   /free     read shiftrates;    write title;    write colhdg;    read allshift;    dow not %eof;      exsr paysr;      if *in01;        write title;        write colhdg;        *in01 = *off;        endif;        write empdetail;        read allshift;    enddo;         write totals;        exfmt record1;        *inlr = *on;        return;         begsr paysr;        select;          when workshift = 'd';            hourlyrate = dayrate;            when workshift = 'a';              hourlyrate = aftrate;              when workshift = 'n';                hourlyrate = nightrate;        endsl;         select;          when paygrade = '1';            hourlyrate = hourlyrate * 1.07;            when paygrade = '2';              hourlyrate = hourlyrate * 1.05;              when paygrade = '3';                hourlyrate = hourlyrate * 0.95;        endsl;         if hrsworked > 40;          regularpay = 40 * hourlyrate;          hoursover = hrsworked - 40;          overpay = hoursover * hourlyrate * 1.5;          totregpay = totregpay + regularpay;          totovtpay = totovtpay + overpay;           else;            regularpay = hrsworked * hourlyrate;            totregpay = totregpay + regularpay;            totalpay = overpay + regularpay;            overpay = 0;            endif;            totemppay = totregpay + totovtpay;            endsr;             /end-free    fshiftratesif   e             disk    rename(shiftrates:shiftrater)  fallshift  if   e           k disk    rename(allshift:allshifter)  fconfirmpaycf   e             workstn  fpayrpt    o    e             printer oflind(*in01)  dhoursover        s              3  0   /free     read shiftrates;    write title;    write colhdg;    read allshift;    dow not %eof;      exsr paysr;      if *in01;        write title;        write colhdg;        *in01 = *off;        endif;        write empdetail;        read allshift;    enddo;         write totals;        exfmt record1;        *inlr = *on;        return;         begsr paysr;        select;          when workshift = 'd';            hourlyrate = dayrate;            when workshift = 'a';              hourlyrate = aftrate;              when workshift = 'n';                hourlyrate = nightrate;        endsl;         select;          when paygrade = '1';            hourlyrate = hourlyrate * 1.07;            when paygrade = '2';              hourlyrate = hourlyrate * 1.05;              when paygrade = '3';                hourlyrate = hourlyrate * 0.95;        endsl;         if hrsworked > 40;          regularpay = 40 * hourlyrate;          hoursover = hrsworked - 40;          overpay = hoursover * hourlyrate * 1.5;          totregpay = totregpay + regularpay;          totovtpay = totovtpay + overpay;           else;            regularpay = hrsworked * hourlyrate;            totregpay = totregpay + regularpay;            totalpay = overpay + regularpay;            overpay = 0;            endif;            totemppay = totregpay + totovtpay;            endsr;             /end-free

rnf2120: external descriptions file allshift not found. file ignored

rnf2120: external desciptions file shiftrate not found. file ignored

the common cause files not on library list when compiling.


Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

inno setup - TLabel or TNewStaticText - change .Font.Style on Focus like Cursor changes with .Cursor -

is possible change .font.style on focus tlabel or tnewstatictext happens cursor when use .cursor ? there no built-in support track mouse hovering in inno setup @ time. however, intercepting window procedure of controls can track yourself. following example need innocallback library: [setup] appname=my program appversion=1.5 defaultdirname={pf}\my program outputdir=userdocs:inno setup examples output [files] source: "innocallback.dll"; destdir: "{tmp}"; flags: dontcopy [code] #ifdef unicode #define aw "w" #else #define aw "a" #endif const gwl_wndproc = -4; wm_mousemove = $0200; type wparam = uint_ptr; lparam = longint; lresult = longint; twindowproc = function(hwnd: hwnd; umsg: uint; wparam: wparam; lparam: lparam): lresult; function setcapture(hwnd: hwnd): hwnd; external 'setcapture@user32.dll stdcall'; function releasecapture: bool; external 'releasecapture@user32.dll stdcall'; func...
Read more