PPT Slide
Perl -- Informix-4GL
Perl - pass arguments
sub display_heading1 {
local ($HEADING_STR) = @_;
print “$HEADING_STR\n”;
}
Informix-4gl
FUNCTION display_heading1 (HEADING_STR)
define HEADING_STR CHAR(80)
display “$HEADING_STR”
END FUNCTION
Note: Perl functions receive input arguments from the “@_” array.
Variables are global unless defined as “local”.
Previous slide
Next slide
Back to first slide
View graphic version