         PROC  P,1,CACH=,TYPE=,DIALER=                                  SG$00010
SG$CACH  NAME                                                           SG$00020
//       IF    ('&TYPE' EQ '').LAB1                                     SG$00030
//PLINESP JSET &TYPE(1)                                                 SG$00040
//       IF    ('&TYPE(2)' EQ '')NEXT                                   SG$00050
//P2     JSET  ',&TYPE(2)'                                              SG$00060
//NEXT   IF    ('&TYPE(3)' EQ '')NEXT                                   SG$00070
//P3     JSET  ',&TYPE(3)'                                              SG$00080
//NEXT   IF    ('&TYPE(4)' EQ '')NEXT                                   SG$00090
//P4     JSET  ',&TYPE(4)'                                              SG$00100
//NEXT   IF    ('&TYPE(5)' EQ '')NEXT                                   SG$00110
//P5     JSET  ',&TYPE(5)'                                              SG$00120
//NEXT   IF    ('&TYPE(6)' EQ '')NEXT                                   SG$00130
//P6     JSET  ',&TYPE(6)'                                              SG$00140
//NEXT   IF    ('&TYPE(7)' EQ '')NEXT                                   SG$00150
//P7     JSET  ',&TYPE(7)'                                              SG$00160
//NEXT   NOP                                                            SG$00170
//PP&TYPE(2)   JSET  1                                                  SG$00180
//PP&TYPE(3)   JSET  1                                                  SG$00190
//PP&TYPE(4)   JSET  1                                                  SG$00200
//PP&TYPE(5)   JSET  1                                                  SG$00210
//PP&TYPE(6)   JSET  1                                                  SG$00220
//PP&TYPE(7)   JSET  1                                                  SG$00230
//       IF    ('&PPAUTO' EQ '').LAB6             NO AUTODIAL           SG$00240
//       NOP                                                            SG$00250
//ATDIAL JSET  ',AUTODIAL,&DIALER(1)'                                   SG$00260
//Y      JSET  &DIALER(1)-03                                            SG$00270
//       IF    (&DIALER(1) LT 12).LB1   CCA1                            SG$00280
//Y      JSET  &Y-16                    CCA2                            SG$00290
//.LB1   NOP                                                            SG$00300
//X      JSET  1                                                        SG$00310
//       IF    (&Y LT 02).LB10                                          SG$00320
//X      JSET  2                                                        SG$00330
//       IF    (&Y LT 03).LB10                                          SG$00340
//X      JSET  4                                                        SG$00350
//       IF    (&Y LT 04).LB10                                          SG$00360
//X      JSET  8                                                        SG$00370
//       IF    (&Y LT 05).LB10                                          SG$00380
//X      JSET  16                                                       SG$00390
//       IF    (&Y LT 06).LB10                                          SG$00400
//X      JSET  32                                                       SG$00410
//       IF    (&Y LT 07).LB10                                          SG$00420
//X      JSET  64                                                       SG$00430
//       IF    (&Y LT 08).LB10                                          SG$00440
//X      JSET  128                                                      SG$00450
//       IF    (&Y LT 09).LB10                                          SG$00460
//X      JSET  256                                                      SG$00470
//       IF    (&Y LT 10).LB10                                          SG$00480
//X      JSET  512                                                      SG$00490
//       IF    (&Y LT 11).LB10                                          SG$00500
//X      JSET  1024                                                     SG$00510
//       IF    (&Y LT 12).LB10                                          SG$00520
//X      JSET  2048                                                     SG$00530
//.LB10  IF    (&DIALER(1) GT 15).LB20  CCA2                            SG$00540
//Y      JSET  &CCH1**&X                                                SG$00550
//CCH1   JSET  &CCH1++&X                                                SG$00560
//       GO    .LB30                                                    SG$00570
//.LB20  NOP                                                            SG$00580
//Y      JSET  &CCH2**&X                                                SG$00590
//CCH2   JSET  &CCH2++&X                                                SG$00600
//.LB30  IF    (&Y NE 0).LAB6           NO CACH FOR DIALER              SG$00610
//       IF    ('&DIALER(2)' NE 'EON')NEXT                              SG$00620
//EON    JSET  ',EON'                                                   SG$00630
//NEXT   NOP                                                            SG$00640
               CACH&DIALER(1)=(DIALER&EON),                            XSG$00650
//.LAB6  NOP                                                            SG$00660
               CACH&P(1)=(&PLINESP&P2&P3&P4&P5&P6&P7&ATDIAL),          XSG$00670
//       GO    .LAB10                                                   SG$00680
//.LAB1  NOP                                                            SG$00690
               CACH&P(1)=&CACH,                                        XSG$00700
//.LAB10 NOP                                                            SG$00710
//       IF    (&P(1) LE 15).LAB7                                       SG$00720
//C2CCAS JSET  1                                                        SG$00730
//.LAB7  NOP                                                            SG$00740
//TUNAT  JSET  &PPAUTO++&TUNAT                                          SG$00750
//.LAB8  NOP                                                            SG$00760
         END                                                            SG$00770
