50






 Card Column

 1

 1 // EXEC PGM=IEBGENER
 2 //SYSPRINT DD SYSOUT=A
 3 //SYSIN DID DUMMY
 4 //SYSUT2 DD D.II-=.T.'. Y ,liII]'=SYSDA,
 5 // DI;.P=(,PASS), FAr TLE'T tH:,(3,1)),
 6 // ri'= LCL-.80,FL.KIT 0--O,.LCI irFB)
 7 //SYSUT1 DD *
 8 Rows
 [row data]
 9 END
 10 MATRIX
 [matrix data]
11 END
12 RHS
 [right hand side data]
13 END
14 EOF
15 // EXEC PGM=LCRAND
16 /'. t.rPLib DD DSN=A0011225.SEQ1.LCRAND,DISP=OLD
17 /,'ri', .F(,,ll DD SYSOUT=A
18 //FTOTF001 DD CEf.:lu;T=-b
19 //FT11FOO1 DD DSN=&&CARDS,DISP=(OC0,DFL.iF.)
?0 //f'O0i0 DD *
21 BEGIN
22 TAPE
23 SOLVE
24 BEGIN
25 TAPE
26 ALTERA
 [coefficient changes]
27 END
28 SOLVE
 BEGIN
 TAPE
 ALTERA
 (coefficient changes]
 END
 ALTER
 [coefficient changes]
 END
 SOLVE



 BEGIN
 TAPE
 ALTERA
 [coefficient changes]
 END
 29 ,'.-T
29 EXIT


Figure 7.--Multiple solution program deck.