         PROC                                                           SG$00010
SG$CPYCA NAME                                                           SG$00020
// OPTION JOBDUMP                                                       SG$00030
// OPTION SCAN,SUB                                                      SG$00040
// EXEC LIBS                                                            SG$00050
/$                                                                      SG$00060
         FIL   D0=$Y$SRC,D1=NEWSRC                                      SG$00070
//       IF    ('&MCP1' EQ '').LAB1                                     SG$00080
//CCA1   JSET  &MCP1                                                    SG$00090
         ADD.Q D0,S,CCA$&MCP1,D1                                        SG$00100
//.LAB1  IF    ('&MCP2' EQ '').LAB2                                     SG$00110
//CCA2   JSET  &MCP2                                                    SG$00120
         ADD.Q D0,S,CCA$&MCP2,D1                                        SG$00130
//.LAB2  IF    ('&MCP3' EQ '').LAB3                                     SG$00140
//CCA3   JSET  &MCP3                                                    SG$00150
         ADD.Q D0,S,CCA$&MCP3,D1                                        SG$00160
//.LAB3  IF    ('&MCP4' EQ '').LAB4                                     SG$00170
//CCA4   JSET  &MCP4                                                    SG$00180
         ADD.Q D0,S,CCA$&MCP4,D1                                        SG$00190
//.LAB4  NOP                                                            SG$00200
/*                                                                      SG$00210
         END                                                            SG$00220
