sub jil {
	my ($self) = @_;

	my $outstr = $self->_jilout('insert_job') .
			$self->_jilout('job_type');

	$outstr .= $_ foreach (map $self->_jilout($_), @{%$self}{@{$self->{_fields_in_seq}}});

	$outstr;
}

sub _jilout {
	my ($self,$attr) = @_;

	return '' if !exists($self->{$attr}) || !defined$self->{$attr};
	"$attr: ".$self->{$attr}."\n";
}


##</code><code>##


  DB<2> c
Bizarre copy of HASH in leave at Autosys.pm line 88.
______________________________________________________________________________

Exit Code = 0
______________________________________________________________________________

Debugged program terminated.  Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.  
  DB<2> 


##</code><code>##

  DB<2> x $_
0  Autosys::command=HASH(0x4019d918)
   '_fields_in_seq' => ARRAY(0x4019d93c)
      0  'command'
      1  'machine'
      2  'permission'
      3  'alarm_if_fail'
      4  'profile'
      5  'condition'
      6  'box_name'
   'alarm_if_fail' => 1
   'box_name' => 'OR_D_ID_ENR_RUL_BOX'
   'command' => 'run_script.ksh ost_rules.ksh -s FDR -e Stan_Raw_Adjust -B100000'
   'condition' => 'success(OR_D_ID_ADJUST_ENR)'
   'insert_job' => 'OR_D_ID_ADJUST_RULE'
   'job_type' => 'c'
   'machine' => 'fpdbln99'
   'permission' => 'gx'
   'profile' => '.auto_profile'
  DB<3>