Informix - Instruccion Case

case (rpt.print_option)

    when "f"                # file                                             

        case (sortwas)   when "A"  start report I55R_Alist to rpt.output_file

            when "B"  start report I55R_Blist to rpt.output_file

            when "C"  start report I55R_Clist to rpt.output_file

            when "D"  start report I55R_Dlist to rpt.output_file

            when "T"  start report I55R_Tlist to rpt.output_file

            otherwise start report I55R_Clist  to rpt.output_file

        end case

    when "p"                # pipe/printer/screen                              

        case (sortwas)      when "A"  start report I55R_Alist to pipe rpt.cmd

            when "B"  start report I55R_Blist to pipe rpt.cmd

            when "C"  start report I55R_Clist to pipe rpt.cmd

            when "D"  start report I55R_Dlist to pipe rpt.cmd

            when "T"  start report I55R_Tlist to pipe rpt.cmd

            otherwise start report I55R_Clist to pipe rpt.cmd

        end case

end case

case

     when smdoccmp.tdoc_tipmon= 1  then  "DOLARES"

     when smdoccmp.tdoc_tipmon= 0  then  "QUETZALES "

 end   moneda