~o=263 ~$>SKIP ~/***************************************************************************** ~/********* DBPUNCH.mac 1.3 - PUNCH SCENARIOS ********* ~/********* Copyright (C) INRO Consultants Inc. 1991, 1992 ********* ~/***************************************************************************** ~/ ~/ This macro allows a systematic punch of specified scenarios of a STAN data ~/ bank. ~/ Matrix groups, matrices, function definitions and demarcation lines ~/ are punched out whether or not scenario data is punched out as well. ~/ ~/ Usage: ~]...[] ~/ stan 000 -m dbpunch.mac []...[] ~/ ~/***************************************************************************** ~:SKIP ~/ ~/ ~/ DBPUNCH.mac 1.3 --- STAN Data Bank punch utility ~/ Copyright (C) INRO Consultants Inc. 1992 ~/ ~+|off=2|on=22 batchout=d%%%s%%%.%%%m%%% ~:punch_scenario_dependent_data ~+|~z=%0%|~?z=0|~$>punch_scenario_independent_data ~/ ~/ Punch scenario %1%: ~+|s=%1%|~?e|~$>scenario_error ~/ ... modes ~+|2.01|6|~?!e|y|q ~/ ... products ~+|2.02|6|~?!e|y|q ~/ ... vehicles ~+|2.03|~?q=0|~$>function_sets|6|*|*|q ~:function_sets ~/ ... function sets ~+|2.04|~?q=0|~$>network|6|1|~?q=1|y|6|2|~?q=1|y|q ~:network ~/ ... base network ~+|2.14|~?q=0|~$>next_scenario|5|~?q=1|y|~?q=1|y|q ~/ ... transfers ~+|2.24|~?q=0|~$>next_scenario|4|~?q=1|y|q|~$>next_scenario ~:scenario_error ~/ INVALID scenario number %1% ~:next_scenario ~/ Done. ~+|~%|~$punch_scenario_dependent_data ~:punch_scenario_independent_data ~+|batchout=^|batchout= ~/ ~/ Punch utility data ~+|1.23|4|q ~/ Punch demarcation lines ~+|1.34|2|~?q=1|y|q ~/ Punch function definitions ~+|4.14|3|~?q=1|y|q ~/ Punch zone group definitions ~+|3.01|~?q=0|~$>end_of_punch|3|2|1|all|q ~/ Punch matrices ~+|3.14|~?q=0|~$>end_of_punch|3|~p=58|~y=%%%p%%%|~x=0|~z=1 ~:next_matrix ~+|~x+1|~?x>%y%|~z+1|~?x>%y%|~x=0|~?z>4|~$>no_more_matrices ~+|~?z=1|ms%x%|~?e|~$next_matrix ~+|~?z=2|mo%x%|~?e|~$next_matrix ~+|~?z=3|md%x%|~?e|~$next_matrix ~+|~?z=4|mf%x%|~?e|~$next_matrix ~+| |~?q=1|no|~?q=1|no|~?q=1|no|3|~$next_matrix ~:no_more_matrices ~+| |q ~:end_of_punch ~/ ~/ Punch completed. ~/ ~+|batchout=^|batchout=|batchout=^|on=2|9