         PROC                                                           SG$00010
SG$MCLNK NAME                                                           SG$00020
//                                                              NOP     SG$00030
//NTCBS  JSET  &NTCBS+&DISCF                                            SG$00040
//NTCBS  JSET  &NTCBS+&TJRNF                                            SG$00050
//NFILES JSET  &NFILES+&DISCF                                           SG$00060
//NFILES JSET  &NFILES+&TJRNF                                           SG$00070
//                                                              NOP     SG$00080
//$SCR1  WORK2                                                          SG$00090
// OPTION JOBDUMP                                                       SG$00100
// OPTION SCAN,SUB                                                      SG$00110
// OPTION PRO                                                           SG$00120
// EXEC LNKEDT,NEWLOD                                                   SG$00130
// PARAM OUT=&OUTLOD                                                    SG$00140
/$                                                                      SG$00150
         LOADM     ML$$&MCPN                                            SG$00160
         LINKOP    RLIB=NEWOBJ,NOAUTO                                   SG$00170
         INCLUDE   ML$$&MCPN                                            SG$00180
//       IF    ('&CCA1' EQ '').LAB2A                                    SG$00190
         INCLUDE   CCA$&CCA1                                            SG$00200
//.LAB2A IF    ('&CCA2' EQ '').LAB2B                                    SG$00210
         INCLUDE   CCA$&CCA2                                            SG$00220
//.LAB2B IF    ('&CCA3' EQ '').LAB2C                                    SG$00230
         INCLUDE   CCA$&CCA3                                            SG$00240
//.LAB2C IF    ('&CCA4' EQ '').LAB2D                                    SG$00250
         INCLUDE   CCA$&CCA4                                            SG$00260
//.LAB2D IF    ('&CCA5' EQ '').LAB2E                                    SG$00261
         INCLUDE   CCA$&CCA5                                            SG$00262
//.LAB2E IF    ('&CCA6' EQ '').LAB2                                     SG$00263
         INCLUDE   CCA$&CCA6                                            SG$00264
//.LAB2  NOP                                                            SG$00270
//                                                                 NOP  SG$00280
//       IF    ('&MPAT' EQ '').LAB3A                                    SG$00290
         INCLUDE   TZ$PATCH,NEWOBJ                                      SG$00300
//       GO    .LAB3B                                                   SG$00310
//.LAB3A NOP                                                            SG$00320
TZ$PAT   EQU       0                                                    SG$00330
//.LAB3B NOP                                                            SG$00340
//                                                                 NOP  SG$00350
//       IF    ('&FTRACEMAX' EQ '').LAB82                               SG$00360
         INCLUDE   TZ$TRCMX,NEWOBJ                                      SG$00370
//       GO    .LAB84                                                   SG$00380
//.LAB82 IF    ('&FTRACEMIN' EQ '').LAB83                               SG$00390
         INCLUDE   TZ$TRCMN,NEWOBJ                                      SG$00400
//       GO    .LAB84                                                   SG$00410
//.LAB83 IF    ('&FTRACEDEV' EQ '').LAB83A                              SG$00420
         INCLUDE   TZ$TRCDV,NEWOBJ                                      SG$00430
//       GO    .LAB84                                                   SG$00440
//.LAB83A NOP                                                           SG$00450
TS#TRACE EQU       0                                                    SG$00460
//.LAB84 NOP                                                            SG$00470
//                                                                 NOP  SG$00480
//       IF    ('&FMONITOR' EQ '').LAB84A                               SG$00490
         INCLUDE   TZ$SPM,NEWOBJ                                        SG$00500
//.LAB84A NOP                                                           SG$00510
//                                                              NOP     SG$00520
//Q      JSET  '&QMSADV&QMSBRA&QMSCAN&QMSDAT&QMSDIR&QMSERR&QMSIFS'      SG$00530
//Q      JSET  &Q ++ &QMSINT&QMSJOU&QMSLOG&QMSMSG&QMSMST&QMSRRI&QMSRRO  SG$00540
//Q      JSET  &Q ++ &QMSRET&QMSROU&QMSSQI&QMSSQO&QMSSOU&QMSTIM         SG$00550
//       IF    (&Q EQ 0).LAB2E                                          SG$00560
//       SG$LKMPS                                                       SG$00570
//.LAB2E NOP                                                            SG$00580
//                                                              NOP     SG$00590
//       IF    ('&FTRAN' EQ '').LAB2D                                   SG$00600
//       SG$TICAM                                                       SG$00610
//       GO    .LAB99                                                   SG$00620
//.LAB2D NOP                                                            SG$00630
//                                                                 NOP  SG$00640
//X      JSET  1                                                        SG$00650
//       IF    ('&FPIOCS' EQ '').LAB6                                   SG$00660
//X      JSET  2                                                        SG$00670
//.LAB6  IF    ('&FAUTOBUF' EQ '').LAB7                                 SG$00680
//X      JSET  3                                                        SG$00690
//.LAB7  IF    (&CCANUM LE 1).LAB7A                                     SG$00700
//X      JSET  3                                                        SG$00710
//.LAB7A NOP                                                            SG$00720
         INCLUDE   TZ$S&X,NEWOBJ                                        SG$00730
//                                                                 NOP  SG$00740
//       IF    ('&JRNT' EQ '').LAB8Z                                    SG$00750
         INCLUDE   ST$1100,NEWOBJ                                       SG$00760
//.LAB8Z NOP                                                            SG$00770
//                                                              NOP     SG$00780
//X      JSET  &NUSERS                                                  SG$00790
//       IF    (&X LE 2).LAB8                                           SG$00800
//X      JSET  2                                                        SG$00810
//.LAB8  IF    ('&FMULTIACT' EQ '').LAB8A                               SG$00820
//X      JSET  2                                                        SG$00830
//.LAB8A NOP                                                            SG$00840
         INCLUDE   TZ$ACT&X,NEWOBJ                                      SG$00850
         INCLUDE   TZ$TIMER,NEWOBJ                                      SG$00860
//                                                                 NOP  SG$00870
//       IF    ('&JRND&JRNT' EQ '').LAB21                               SG$00880
//X      JSET  1                                                        SG$00890
//       IF    ('&JRND' EQ '').LAB20                                    SG$00900
//X      JSET  2                                                        SG$00910
//.LAB20 NOP                                                            SG$00920
         INCLUDE   TZ$JRN&X,NEWOBJ                                      SG$00930
//.LAB21 NOP                                                            SG$00940
//                                                              NOP     SG$00950
//       IF    ('&FPIOCS' EQ '').LAB87                                  SG$00960
//X      JSET  X                                                        SG$00970
//       IF    ('&FNOPROTECT' EQ '').LAB85                              SG$00980
//X      JSET  N                                                        SG$00990
//.LAB85 NOP                                                            SG$01000
         INCLUDE   TZ$CCRU&X,NEWOBJ                                     SG$01010
//.LAB87 NOP                                                            SG$01020
//                                                                 NOP  SG$01030
//       IF    ('&FRBP1&FRBP2' EQ '').LAB87A                            SG$01040
//NTCBS  JSET  &NTCBS+1                 ONE  MORE TCB FOR RBP           SG$01050
//NFILES JSET  &NFILES+1                                                SG$01060
//NPUBS  JSET  2                        TWO PUBSLOTS                    SG$01070
//VDDI   JSET  3                       NEEDED FOR RBP                   SG$01080
         INCLUDE   TZ$ROUT,NEWOBJ                                       SG$01090
         INCLUDE   TZ$ROPCM,NEWOBJ                                      SG$01100
//       IF    ('&FRBP1' EQ '').LAB87A                                  SG$01110
         INCLUDE   TZ$RSVS,NEWOBJ                                       SG$01120
         INCLUDE   TZ$RSPIN,NEWOBJ                                      SG$01130
         INCLUDE   TZ$RSPNH,NEWOBJ                                      SG$01140
         INCLUDE   TZ$RSPPS,NEWOBJ                                      SG$01150
         INCLUDE   TZ$RSPRT,NEWOBJ                                      SG$01160
         INCLUDE   TZ$RCMD,NEWOBJ                                       SG$01170
         INCLUDE   TZ$RCMDX,NEWOBJ                                      SG$01180
         INCLUDE   TZ$RMGR,NEWOBJ                                       SG$01190
         INCLUDE   TZ$RFILE,NEWOBJ                                      SG$01200
         INCLUDE   TZ$ROPR,NEWOBJ                                       SG$01210
//.LAB87A NOP                                                           SG$01220
//                                                                 NOP  SG$01230
//       IF    ('&CCA1&CCA2&CCA3&CCA4' NE '').LAB81                     SG$01240
         INCLUDE   TZ$CCRIN,NEWOBJ                                      SG$01250
//                                                              NOP     SG$01255
//       SG$ICMEQ  SG$PICEQ                                             SG$01260
//                                                              NOP     SG$01265
         ENTER     MCPINITL                                             SG$01270
//NTCBS  JSET  0                                                        SG$01280
//NFILES JSET  0                                                        SG$01290
//       GO    .LAB99Z                                                  SG$01300
//.LAB81 NOP                                                            SG$01310
//                                                              NOP     SG$01320
//X      JSET  0                                                        SG$01330
//       IF    (&STAT EQ 0).LAB1                                        SG$01340
//X      JSET  &X+4                                                     SG$01350
//.LAB1  IF    (&DISCQUE EQ 0).LAB2                                     SG$01360
//X      JSET  &X+2                                                     SG$01370
//.LAB2  IF    (&BTHR&FNTR EQ 0).LAB3                                   SG$01380
//X      JSET  &X+1                                                     SG$01390
//.LAB3  NOP                                                            SG$01400
//VER    SG$GTVER  &X,(1,2,4,3,5,6,5,6) STAT,DISCQUE,BTHR               SG$01410
         INCLUDE   TZ$BPS&VER,NEWOBJ                                    SG$01420
//                                                              NOP     SG$01430
//       IF    ('&FOPCOM' EQ '').LAB80                                  SG$01440
//       IF    ('&FRBP1&FRBP2' NE '').LAB80      IGNORE IF RBP          SG$01450
         INCLUDE   TZ$OPCMI,NEWOBJ                                      SG$01460
//.LAB80 NOP                                                            SG$01470
//                                                                 NOP  SG$01480
//X      JSET  2                                                        SG$01490
//       IF    ('&FSTDMCP&FTCI&FRBP1&FRBP2&FRPG' EQ '').LAB80A          SG$01500
//X      JSET  3                                                        SG$01510
//.LAB80A NOP                                                           SG$01520
         INCLUDE   TZ$MCTI&X,NEWOBJ                                     SG$01530
//                                                                 NOP  SG$01540
//       IF    ('&FDDI&VDDI&FNTR' EQ '').LAB10                          SG$01550
//       IF    ('&VDDI' NE '').LAB88                                    SG$01560
//VDDI   JSET  3                                                        SG$01570
//.LAB88 NOP                                                            SG$01580
         INCLUDE   TZ$DDI&VDDI,NEWOBJ                                   SG$01590
//                                                                 NOP  SG$01600
//.LAB10 IF    ('&FSTDMCP' EQ '').LAB11                                 SG$01610
//X      JSET  1                                                        SG$01620
//Y      JSET  1                                                        SG$01630
//       GO    .LAB12                                                   SG$01640
//                                                                 NOP  SG$01650
//.LAB11 IF    ('&FTCI' EQ '').LAB13                                    SG$01660
//       NOP                                                            SG$01670
//X      JSET  2                                                        SG$01680
//.LAB12 IF    ('&FTCI' EQ '').LAB12A                                   SG$01690
         INCLUDE   TZ$TCOM2,NEWOBJ                                      SG$01700
//Y      JSET  2                                                        SG$01710
//.LAB12A NOP                                                           SG$01720
//                                                                 NOP  SG$01730
//  IF  ('&D1004&D1004EM&DDCT2000&DDCT1000BATCH&T2780' NE '')NEXT       SG$01740
//       IF    ('&D9200&D9300&DDCT2EM&DBSC&FNTR' NE '')NEXT             SG$01750
//       IF    ('&DRDHA&DRDHB&DRDHC&DRDHD' NE '')NEXT                   SG$01760
//       IF    ('&FOUTDELV&Q&DISCQUE' EQ '').LAB91                      SG$01770
//NEXT   NOP                                                            SG$01780
//X      JSET  3                                                        SG$01790
//.LAB91 IF    ('&FSEGMENTS' EQ '').LAB91A                              SG$01800
//X      JSET  4                                                        SG$01810
//.LAB91A IF   ('&FDLIST' EQ '').LAB91B                                 SG$01820
//X      JSET  5                                                        SG$01830
//.LAB91B NOP                                                           SG$01840
         INCLUDE   TZ$MUST&X,NEWOBJ                                     SG$01850
//                                                                 NOP  SG$01860
//       IF    ('&QTYP&TAX0' EQ '').LAB14                               SG$01870
//Y      JSET  &Y+2                                                     SG$01880
//.LAB14 NOP                                                            SG$01890
//       IF    (&X LT 3).LAB14A                                         SG$01900
//Y      JSET  5                                                        SG$01910
//.LAB14A      NOP                                                      SG$01920
         INCLUDE   TZ$CNC&Y,NEWOBJ                                      SG$01930
//                                                                 NOP  SG$01940
//X      JSET  1                                                        SG$01950
//       IF    ('&FTOPRI' EQ '').LAB15                                  SG$01960
//X      JSET  2                                                        SG$01970
//.LAB15 NOP                                                            SG$01980
//       IF    ('&DISCQUE' NE '').LAB13A                                SG$01990
         INCLUDE   TZ$QUE&X,NEWOBJ                                      SG$02000
//       GO    .LAB13                                                   SG$02010
//                                                                 NOP  SG$02020
//.LAB13A      NOP                                                      SG$02030
//X      JSET  1                                                        SG$02040
//       IF    ('&FRESTART' EQ '').LAB13B                               SG$02050
//X      JSET  2                                                        SG$02060
//.LAB13B NOP                                                           SG$02070
         INCLUDE   TZ$DQUE&X,NEWOBJ                                     SG$02080
//.LAB13 NOP                                                            SG$02090
//                                                                 NOP  SG$02100
//       SG$RDH                                                         SG$02110
//                                                              NOP     SG$02120
         INCLUDE   TZ$OVL,NEWOBJ                                        SG$02130
         ENTER     MCPINITL                                             SG$02140
//                                                              NOP     SG$02150
//       SG$DUST                                                        SG$02160
//                                                              NOP     SG$02170
//NTCBS  JSET  &NTCBS+1                                                 SG$02180
//.LAB99 NOP                                                            SG$02190
//                                                              NOP     SG$02200
//       SG$ICMEQ                                                       SG$02210
//                                                              NOP     SG$02220
//.LAB99Z NOP                                                           SG$02230
//       IF    ('&FRBP2' EQ '').LAB99A                                  SG$02240
         REGION    RBTASK1                                              SG$02250
         INCLUDE   TZ$RSVS,NEWOBJ                                       SG$02260
         OVERLAY   RBTASK1                                              SG$02270
         INCLUDE   TZ$RSPNH,NEWOBJ                                      SG$02280
         OVERLAY   RBTASK1                                              SG$02290
         INCLUDE   TZ$RSPPS,NEWOBJ                                      SG$02300
         OVERLAY   RBTASK1                                              SG$02310
         INCLUDE   TZ$RSPRT,NEWOBJ                                      SG$02320
         REGION    RBTASK2                                              SG$02330
         INCLUDE   TZ$RCMDX,NEWOBJ                                      SG$02340
         OVERLAY   RBTASK2                                              SG$02350
         INCLUDE   TZ$RCMD,NEWOBJ                                       SG$02360
         OVERLAY   RBTASK2                                              SG$02370
         INCLUDE   TZ$RMGR,NEWOBJ                                       SG$02380
         OVERLAY   RBTASK2                                              SG$02390
         INCLUDE   TZ$RFILE,NEWOBJ                                      SG$02400
         REGION    RBTASK3                                              SG$02410
         INCLUDE   TZ$ROPR,NEWOBJ                                       SG$02420
         OVERLAY   RBTASK3                                              SG$02430
         INCLUDE   TZ$RSPIN,NEWOBJ                                      SG$02440
//.LAB99A NOP                                                           SG$02450
//                                                                 NOP  SG$02460
//       IF    (&NFILES GT 9).LAB4                                      SG$02470
//NFILES JSET  0&NFILES                                                 SG$02480
//.LAB4  NOP                                                            SG$02490
//       IF    (&NTCBS GT 9).LAB5                                       SG$02500
//NTCBS  JSET  0&NTCBS                                                  SG$02510
//.LAB5  IF    (&NPUBS GT 9).LAB5A                                      SG$02520
//NPUBS  JSET  0&NPUBS                                                  SG$02530
//.LAB5A NOP                                                            SG$02540
SG$FILES EQU       &NFILES                                              SG$02550
SG$TCBS  EQU       &NTCBS                                               SG$02560
SG$PUBS  EQU       &NPUBS                                               SG$02570
/*                                                                      SG$02580
         END                                                            SG$02590
