To see all of the variables that are available when you process shop docs add this proc to your *.tcl file that you are running, and call it from:
proc MOM_End_Part_Documentation {} {
#=============================================================================
proc get_globals_and_commands...
To calcualte tape length add this to your end of program block:
MOM_output_literal "#3006=1(PTP file size = $ptp_size bytes [format "%5.1f" $ptp_feet] feet)"
You can use this to calculate the machine run time:
MOM_output_literal "#3006=1(TOTAL Machine Time: [format "%.0f" $mom_machine_time]...