TAG      PROC  P,0,TYPE=(STDMCP),TRANSNT=,USERS=,                      XSG$00010
               FEATURES=,FEAT01ES=,FEAT02ES=,FEAT03ES=,FEAT04ES=,      XSG$00020
               FEAT05ES=,FEAT06ES=,FEAT07ES=,FEAT08ES=,FEAT09ES=,      XSG$00030
               FEAT10ES=,FEAT11ES=,FEAT12ES=,FEAT13ES=,FEAT14ES=,      XSG$00040
               FEAT15ES=,FEAT16ES=,FEAT17ES=,FEAT18ES=,FEAT19ES=        SG$00050
SG$CCA   NAME                                                           SG$00060
SG$CCAR  NAME  SG$CCAR                                                  SG$00070
//       IF    ('&P(0)' EQ 'SG$CCAR').LAB6                              SG$00080
//                                                              NOP     SG$00090
//CCANUM JSET  &CCANUM+1                                                SG$00100
//       IF    ('&TAG' EQ 'PIOCS').LABPAT                               SG$00105
//F&TYPE(1) JSET 1                                                      SG$00110
//.LABPAT NOP                                                           SG$00115
//       IF    ('&TYPE(1)' NE 'DDI').LAB1                               SG$00120
//       IF    (&TYPE(2) LE &VDDI).LAB1                                 SG$00130
//V&TYPE(1)  JSET  &TYPE(2)                                             SG$00140
//.LAB1  NOP                                                            SG$00150
//                                                              NOP     SG$00160
//X      JSET  1                                                        SG$00170
//       IF    ('&USERS' EQ '').LAB4                                    SG$00180
//X      JSET  &USERS                                                   SG$00190
//.LAB4  NOP                                                            SG$00200
//                                                              NOP     SG$00210
//NUSERS JSET  &NUSERS+&X                                               SG$00220
//       IF    ('&TAG' NE 'PIOCS').LAB5                                 SG$00230
//PUSERS JSET  &PUSERS+&X                                               SG$00240
//.LAB5  NOP                                                            SG$00250
//                                                              NOP     SG$00260
//       IF    ('&TYPE(1)' NE 'TCI').LAB2                               SG$00270
//SAVEOBJ&CCANUM   JSET  ',NEWOBJ'                                      SG$00280
//       IF    ('&TRANSNT' NE 'YES').LAB3                               SG$00290
//FTRAN  JSET  1                                                        SG$00300
//       GO    .LAB2                                                    SG$00310
//.LAB3  NOP                                                            SG$00320
//NTCBS  JSET  &NTCBS+1                                                 SG$00330
//                                                              NOP     SG$00340
//.LAB2  NOP                                                            SG$00350
//F&TAG  JSET  1                                                        SG$00360
//                                                              NOP     SG$00370
//       IF    ('&FEAT01ES' EQ '').LAB6                                 SG$00380
//       SG$CCAR   FEATURES=&FEAT01ES                                   SG$00390
//       IF    ('&FEAT02ES' EQ '').LAB6                                 SG$00400
//       SG$CCAR   FEATURES=&FEAT02ES                                   SG$00410
//       IF    ('&FEAT03ES' EQ '').LAB6                                 SG$00420
//       SG$CCAR   FEATURES=&FEAT03ES                                   SG$00430
//       IF    ('&FEAT04ES' EQ '').LAB6                                 SG$00440
//       SG$CCAR   FEATURES=&FEAT04ES                                   SG$00450
//       IF    ('&FEAT05ES' EQ '').LAB6                                 SG$00460
//       SG$CCAR   FEATURES=&FEAT05ES                                   SG$00470
//       IF    ('&FEAT06ES' EQ '').LAB6                                 SG$00480
//       SG$CCAR   FEATURES=&FEAT06ES                                   SG$00490
//       IF    ('&FEAT07ES' EQ '').LAB6                                 SG$00500
//       SG$CCAR   FEATURES=&FEAT07ES                                   SG$00510
//       IF    ('&FEAT08ES' EQ '').LAB6                                 SG$00520
//       SG$CCAR   FEATURES=&FEAT08ES                                   SG$00530
//       IF    ('&FEAT09ES' EQ '').LAB6                                 SG$00540
//       SG$CCAR   FEATURES=&FEAT09ES                                   SG$00550
//       IF    ('&FEAT10ES' EQ '').LAB6                                 SG$00560
//       SG$CCAR   FEATURES=&FEAT10ES                                   SG$00570
//       IF    ('&FEAT11ES' EQ '').LAB6                                 SG$00580
//       SG$CCAR   FEATURES=&FEAT11ES                                   SG$00590
//       IF    ('&FEAT12ES' EQ '').LAB6                                 SG$00600
//       SG$CCAR   FEATURES=&FEAT12ES                                   SG$00610
//       IF    ('&FEAT13ES' EQ '').LAB6                                 SG$00620
//       SG$CCAR   FEATURES=&FEAT13ES                                   SG$00630
//       IF    ('&FEAT14ES' EQ '').LAB6                                 SG$00640
//       SG$CCAR   FEATURES=&FEAT14ES                                   SG$00650
//       IF    ('&FEAT15ES' EQ '').LAB6                                 SG$00660
//       SG$CCAR   FEATURES=&FEAT15ES                                   SG$00670
//                                                              NOP     SG$00680
//.LAB6  IF    ('&FEATURES' EQ '').LAB7                                 SG$00690
//F&FEATURES(1)    JSET  1                                              SG$00700
//F&FEATURES(2)    JSET  1                                              SG$00710
//F&FEATURES(3)    JSET  1                                              SG$00720
//F&FEATURES(4)    JSET  1                                              SG$00730
//F&FEATURES(5)    JSET  1                                              SG$00740
//F&FEATURES(6)    JSET  1                                              SG$00750
//F&FEATURES(7)    JSET  1                                              SG$00760
//F&FEATURES(8)    JSET  1                                              SG$00770
//F&FEATURES(9)    JSET  1                                              SG$00780
//F&FEATURES(10)   JSET  1                                              SG$00790
//.LAB7  NOP                                                            SG$00800
         END                                                            SG$00810
