| 2713 | // |
| 2714 | |
| 2715 | static void gen_ready(const act* action) |
| 2716 | { |
| 2717 | const TEXT* vector = status_vector(); |
| 2718 | |
| 2719 | for (rdy* ready = (rdy*) action->act_object; ready; ready = ready->rdy_next) |
| 2720 | { |
| 2721 | const gpre_dbb* db = ready->rdy_database; |
| 2722 | const TEXT* filename = ready->rdy_filename; |
| 2723 | if (!filename) |
| 2724 | filename = db->dbb_runtime; |
| 2725 | if (action->act_error && (ready != (rdy*) action->act_object)) |
| 2726 | printa(COLUMN, "IF (ISC_STATUS(2) .EQ. 0) THEN"); |
| 2727 | make_ready(db, filename, vector, ready->rdy_request); |
| 2728 | status_and_stop(action); |
| 2729 | if (action->act_error && (ready != (rdy*) action->act_object)) |
| 2730 | printa(COLUMN, "END IF"); |
| 2731 | } |
| 2732 | } |
| 2733 | |
| 2734 | |
| 2735 | //____________________________________________________________ |
no test coverage detected