Card Column

1

// E;;EC PGM=IEBGENER
//SY6PRINT DD SYSOUT=A
//SYSIN DD DUMMY
//SYSUT2 DD DSN=&&CARDS'UNIT=SYSDA,
// DISP=(,PASS),SPACE=(TRK, (3,1)),
// DCB=(LRECL=80,BLKSIZE=?)) 'RECFM=FB)
//SYSUTI DD *
BEGIN
ROWS
 $OBJ
 -RDC1
 -RDC2
 -RDC3
 -RSC1
 -RSC2
 -RSC3
END
MATRIX
 :~CI RDCl -1.
 XDCL XDC1 .1
 XDCL. OBJ -25.
 IDC2 RDC2 -1.
 XDC2 XDC2 .5
 XDC2 OBJ -30.
 XDC3i RDC3 -1.
 XDC3 XDC3 .7
 XDC3 OBJ -35.
 XSCI RSC1 1.
 XSC1 XSC1 .2
 XSCl OBJ 4.
 XSC2 RSC2 1.
 XSC2 XSC2 .3
 XSC2 OBJ 5.
 XSC3 RSC3 1.
 XSC3, XSC3 .4
 Xsci3 OBJ 3.
 XTC11 RDC1 1.
 XTC11 RSCl -1.
 XTC12 RDC2 1.
 XTC12 RSC1 -1.
 XTC12 OBJ 2.1
 XTC13 RDC3 1.
 XTC13 RSC1 -1.
 XTC13 OBJ 2.5
 XTC21 RDC1 .1.
 XTC23 R3C2 -1.
 XTC21 OBJ 2.1
 XTC22 RDC2 1.


,Figure 8.--Multiple solution version sample problem number 1.