Either way. here is a nifty code sequence to execute a family of parts with few changing dimensions. Using do/until, select and case.
C1 =COMMENT/INPUT,NO,'Operator Clock #'
C2 =COMMENT/INPUT,NO,'Job #'
C3 =COMMENT/INPUT,NO,'Sample #'
SIZE INPUT =LABEL/
C4 =COMMENT/INPUT,NO,'Size of Part. 00-5003-0XX, 5XX-60, XX = Size'
COMMENT/REPT,"Today's Date: " + SYSTEMDATE("dddd', 'MM''dd''yyyy'")
COMMENT/REPT,"Today's Time: " + SYSTEMTIME("HH':'mm':'ss'")
COMMENT/REPT,"Operator: " + C1.INPUT
COMMENT/REPT,"Job #: " + C2.INPUT
COMMENT/REPT,"Part Size: " + C4.INPUT
VARIABLES =LABEL/
DO/
ASSIGN/SIZE=C4.INPUT
SELECT/SIZE
CASE/38
ASSIGN/A=1.070
ASSIGN/B=1.496
ASSIGN/C=.040
END_CASE/
CASE/39
ASSIGN/A=1.089
ASSIGN/B=1.535
ASSIGN/C=.055
END_CASE/
CASE/40
ASSIGN/A=1.109
ASSIGN/B=1.575
ASSIGN/C=.055
END_CASE/
CASE/41
ASSIGN/A=1.129
ASSIGN/B=1.614
ASSIGN/C=.085
END_CASE/
CASE/42
ASSIGN/A=1.149
ASSIGN/B=1.654
ASSIGN/C=.105
END_CASE/
CASE/43
ASSIGN/A=1.169
ASSIGN/B=1.693
ASSIGN/C=.105
END_CASE/
CASE/44
ASSIGN/A=1.267
ASSIGN/B=1.732
ASSIGN/C=.015
END_CASE/
CASE/45
ASSIGN/A=1.287
ASSIGN/B=1.772
ASSIGN/C=.035
END_CASE/
CASE/46
ASSIGN/A=1.306
ASSIGN/B=1.811
ASSIGN/C=.055
END_CASE/
CASE/47
ASSIGN/A=1.324
ASSIGN/B=1.850
ASSIGN/C=.075
END_CASE/
CASE/48
ASSIGN/A=1.344
ASSIGN/B=1.890
ASSIGN/C=.095
END_CASE/
CASE/49
ASSIGN/A=1.363
ASSIGN/B=1.929
ASSIGN/C=.105
END_CASE/
CASE/50
ASSIGN/A=1.383
ASSIGN/B=1.969
ASSIGN/C=.070
END_CASE/
CASE/51
ASSIGN/A=1.405
ASSIGN/B=2.008
ASSIGN/C=.090
END_CASE/
CASE/52
ASSIGN/A=1.422
ASSIGN/B=2.047
ASSIGN/C=.110
END_CASE/
CASE/53
ASSIGN/A=1.442
ASSIGN/B=2.087
ASSIGN/C=.130
END_CASE/
CASE/54
ASSIGN/A=1.462
ASSIGN/B=2.126
ASSIGN/C=.150
END_CASE/
CASE/55
ASSIGN/A=1.481
ASSIGN/B=2.165
ASSIGN/C=.150
END_CASE/
CASE/57
ASSIGN/A=1.521
ASSIGN/B=2.244
ASSIGN/C=.150
END_CASE/
CASE/58
ASSIGN/A=1.541
ASSIGN/B=2.283
ASSIGN/C=.150
END_CASE/
CASE/60
ASSIGN/A=1.582
ASSIGN/B=2.362
ASSIGN/C=.085
END_CASE/
CASE/62
ASSIGN/A=1.620
ASSIGN/B=2.441
ASSIGN/C=.105
END_CASE/
CASE/63
ASSIGN/A=1.641
ASSIGN/B=2.480
ASSIGN/C=.115
END_CASE/
CASE/64
ASSIGN/A=1.659
ASSIGN/B=2.520
ASSIGN/C=.125
END_CASE/
CASE/66
ASSIGN/A=1.689
ASSIGN/B=2.598
ASSIGN/C=.150
END_CASE/
CASE/68
ASSIGN/A=1.738
ASSIGN/B=2.677
ASSIGN/C=.150
END_CASE/
CASE/70
ASSIGN/A=1.779
ASSIGN/B=2.760
ASSIGN/C=.150
END_CASE/
CASE/72
ASSIGN/A=1.816
ASSIGN/B=2.835
ASSIGN/C=.150
END_CASE/
END_SELECT/
ASSIGN/END=1
UNTIL/END == 1
IF/SIZE >= 38 AND SIZE <= 43
COMMENT/REPT,Part Rev: K
ASSIGN/BOTPLND=.450
ASSIGN/BOTPLNZ=-.912
ASSIGN/ISRZ=-.348
ASSIGN/ISR=.663
ASSIGN/ID=1.274
ASSIGN/IGD=1.368
ASSIGN/LIPWIDTH=.290
ASSIGN/SLOTRD=.550
END_IF/
IF/SIZE >= 44 AND SIZE <= 46
COMMENT/REPT,Part Rev: L
ASSIGN/BOTPLND=.590
ASSIGN/BOTPLNZ=-1.111
ASSIGN/ISRZ=-.405
ASSIGN/ISR=.767
ASSIGN/ID=1.513
ASSIGN/IGD=1.607
ASSIGN/LIPWIDTH=.445
ASSIGN/SLOTRD=.690
END_IF/
IF/SIZE >= 47 AND SIZE <= 49
COMMENT/REPT,Part Rev: L
ASSIGN/BOTPLND=.550
ASSIGN/BOTPLNZ=-1.168
ASSIGN/ISRZ=-.378
ASSIGN/ISR=.767
ASSIGN/ID=1.513
ASSIGN/IGD=1.607
ASSIGN/LIPWIDTH=.445
ASSIGN/SLOTRD=.690
END_IF/
IF/SIZE >= 50 AND SIZE <= 58
COMMENT/REPT,Part Rev: L
ASSIGN/BOTPLND=.590
ASSIGN/BOTPLNZ=-1.193
ASSIGN/ISRZ=-.458
ASSIGN/ISR=.836
ASSIGN/ID=1.624
ASSIGN/IGD=1.715
ASSIGN/LIPWIDTH=.445
ASSIGN/SLOTRD=.690
END_IF/
IF/SIZE >= 60 AND SIZE <= 72
COMMENT/REPT,Part Rev: L
ASSIGN/BOTPLND=.590
ASSIGN/BOTPLNZ=-1.317
ASSIGN/ISRZ=-.374
ASSIGN/ISR=1.033
ASSIGN/ID=2.014
ASSIGN/IGD=2.108
ASSIGN/LIPWIDTH=.445
ASSIGN/SLOTRD=.690
END_IF/
IF/SIZE < 38 OR SIZE > 72 OR SIZE == 56 OR SIZE == 59 OR SIZE == 61 OR SIZE == 65 OR SIZE == 67 OR SIZE == 69 OR SIZE == 71
COMMENT/OPER,NO,Verify Size input.
GOTO/SIZE INPUT
END_IF/
PROGRAM START=LABEL/
