// JOB SG$LIB                                                           SG$00010
// DVC   20    // LFD PRNTR                                             SG$00020
// USESYS                                                               SG$00030
// DVC 50  // VOL &OS3REL  // LBL $Y$JCS  // LFD NEWJCS,0               SG$00040
// DVC 50  // VOL &OS3REL  // LBL $Y$MAC  // LFD NEWMAC,0               SG$00050
// DVC 50  // VOL &OS3REL  // LBL $Y$LOD  // LFD NEWLOD,0               SG$00060
// DVC 50  // VOL &OS3REL  // LBL $Y$OBJ  // LFD NEWOBJ,0               SG$00070
// DVC 50  // VOL &OS3REL  // LBL $Y$SRC  // LFD NEWSRC,0               SG$00080
// DVC 51 // VOL &VSNO // LBL $Y$JCS,,99999 // LFD SYSJCS,0,INIT        SG$00090
// DVC 51 // VOL &VSNO // LBL $Y$MAC,,99999 // LFD SYSMAC,0,INIT        SG$00100
// DVC 51 // VOL &VSNO // LBL $Y$LOD,,99999 // LFD SYSLOD,0,INIT        SG$00110
// DVC 51 // VOL &VSNO // LBL $Y$OBJ,,99999 // LFD SYSOBJ,0,INIT        SG$00120
// DVC 51 // VOL &VSNO // LBL $Y$SRC,,99999 // LFD SYSSRC,0,INIT        SG$00130
// OPTION      JOBDUMP                                                  SG$00140
// OPTION      SCAN,SUB                                                 SG$00150
//       EXEC  LIBS,NEWLOD                                              SG$00160
/$                                                                      SG$00170
//                                                              NOP     SG$00180
         FIL   D0=NEWLOD,D1=SYSLOD      $Y$LOD                          SG$00190
//                                                              NOP     SG$00200
        COP.CG D0,,SYSTEM,D1            SYSTEM LOAD MODULES             SG$00210
         COP.CG D0,,SPAT,D1                                             SG$00220
//                                                              NOP     SG$00230
// IF    ('&LNKR' NE '')NEXT                                            SG$00240
        COP.CG D0,,LNKEDT,D1            LINKAGE EDITOR                  SG$00250
//NEXT   NOP                                                            SG$00260
//                                                              NOP     SG$00270
// IF    ('&ASMB' NE '')NEXT                                            SG$00280
        COP.CG D0,,ASM,D1               ASSEMBLER                       SG$00290
//NEXT   NOP                                                            SG$00300
//                                                              NOP     SG$00310
// IF    ('&RP1G' NE '')NEXT                                            SG$00320
        COP.CG D0,,RPGII,D1             STANDARD RPGII COMPILER         SG$00330
//NEXT   NOP                                                            SG$00340
//                                                              NOP     SG$00350
// IF    ('&ECOB' NE '')NEXT                                            SG$00360
        COP.CG D0,,COBOL,D1             EXTENDED COBOL COMPILER         SG$00370
//NEXT   NOP                                                            SG$00380
//                                                              NOP     SG$00390
// IF    ('&SCOB' NE '')NEXT                                            SG$00400
         COP.CG    D0,,BCOBOL,D1        BASIC COBOL                     SG$00410
//NEXT   NOP                                                            SG$00420
//                                                              NOP     SG$00430
// IF    ('&FORT' NE '')NEXT                                            SG$00440
         COP.CG    D0,,BFOR,D1                                          SG$00450
//NEXT   NOP                                                            SG$00460
//                                                              NOP     SG$00470
// IF    ('&IMS' NE '')NEXT                                             SG$00480
        COP.CG D0,,IMS,D1               DELIVERED IMS LOAD MODULES      SG$00490
         COP.CG D0,,IMPAT,D1                                            SG$00500
//NEXT   NOP                                                            SG$00510
//                                                              NOP     SG$00520
// IF    ('&LP' NE '')NEXT                                              SG$00530
        COP.CG D0,,LP,D1                LINEAR PROGRAMMING              SG$00540
//NEXT   NOP                                                            SG$00550
//                                                              NOP     SG$00560
// IF    ('&OLM' NE '')NEXT                                             SG$00570
        COP.CG D0,,OLM,D1               DELIVERED OLM LOAD MODULES      SG$00580
         COP.CG D0,,OLPAT,D1                                            SG$00590
//NEXT   NOP                                                            SG$00600
//       IF    ('&DMS' NE '')NEXT       DELIVER DMS LOAD MODULES        SG$00610
         COP.CG    D0,,DMS,D1                                           SG$00620
         COP.CG    D0,,DMSPAT,D1                                        SG$00630
//NEXT   NOP                                                            SG$00640
//       IF    ('&MCS' NE '')NEXT       DELIVERED MCS LOAD MODULES      SG$00650
         COP.CG    D0,,MCS,D1                                           SG$00660
         COP.CG    D0,,MCSPAT,D1                                        SG$00670
//NEXT   NOP                                                            SG$00680
//       IF    ('&FOR' NE '')NEXT       DELIVERED FORTRAN IV LOAD MOD   SG$00690
         COP.CG    D0,,EFOR,D1                                          SG$00700
//NEXT   NOP                                                            SG$00710
//       IF    ('&CPM' NE '')NEXT       DELIVERD CPM LOAD MODULES       SG$00720
         COP.CG    D0,,CPM,D1                                           SG$00730
//NEXT   NOP                                                            SG$00740
// IF    ('&LNKR' NE '')NOOBJ                                           SG$00750
         FIL   D0=NEWOBJ,D1=SYSOBJ      $Y$OBJ                          SG$00760
//                                                              NOP     SG$00770
        COP.CG D0,,SYSTEM,D1            SYSTEM OBJECT MODULES           SG$00780
         COP.CG D0,,SPAT,D1                                             SG$00790
//                                                              NOP     SG$00800
// IF    ('&RP1G' NE '')NEXT                                            SG$00810
        COP.CG D0,,RPGII,D1             RPGII RUN TIME SUBROUTINES      SG$00820
         COP.CG D0,,RPAT,D1                                             SG$00830
//NEXT   NOP                                                            SG$00840
//                                                              NOP     SG$00850
// IF    ('&ECOB' EQ '')COBOBJ                                          SG$00860
// IF    ('&SCOB' NE '')NEXT                                            SG$00870
//COBOBJ NOP                                                            SG$00880
        COP.CG D0,,COBOL,D1             COBOL RUN TIME SUBROUTINES      SG$00890
         COP.CG D0,,CPAT,D1                                             SG$00900
//NEXT   NOP                                                            SG$00910
//                                                              NOP     SG$00920
//       IF    ('&FORT&FOR' EQ '11')NEXT                                SG$00930
         COP.CG    D0,,CFOR,D1                                          SG$00940
//       IF    ('&FORT' NE '')NEXT1                                     SG$00950
         COP.CG    D0,,BFOR,D1                                          SG$00960
         COP.CG D0,,FPAT,D1                                             SG$00970
//NEXT1  IF    ('&FOR' NE '')NEXT                                       SG$00980
         COP.CG    D0,,EFOR,D1                                          SG$00990
//NEXT   NOP                                                            SG$01000
//                                                              NOP     SG$01010
// IF    ('&IMS' NE '')NEXT                                             SG$01020
        COP.CG D0,,IMS,D1               DELIVERED IMS GENR MODULES      SG$01030
         COP.CG  D0,,LIBSUBS,D1                                         SG$01035
         COP.CG D0,,IMPAT,D1                                            SG$01040
//NEXT   NOP                                                            SG$01050
//       IF    ('&DMS' NE '')NEXT                                       SG$01060
         COP.CG    D0,,DMS,D1                                           SG$01070
         COP.CG    D0,,DMSPAT,D1                                        SG$01080
//NEXT   NOP                                                            SG$01090
//       NOP   MAKE DATA MANAGEMENT OBJECT MODS SHAREABLE               SG$01100
//       IF    ('&SALL&PRNT' EQ '').SHR1                                SG$01110
         REN   D1,O,PR$IOA.RON,PR$IOA                                   SG$01120
         REN   D1,O,PR$IOB.RON,PR$IOB                                   SG$01130
         REN   D1,O,PR$IOC.RON,PR$IOC                                   SG$01140
         REN   D1,O,PR$IOD.RON,PR$IOD                                   SG$01150
         REN   D1,O,PR$IOE.RON,PR$IOE                                   SG$01160
         REN   D1,O,PR$IOF.RON,PR$IOF                                   SG$01170
         REN   D1,O,PR$IOG.RON,PR$IOG                                   SG$01180
         REN   D1,O,PR$IOH.RON,PR$IOH                                   SG$01190
         REN   D1,O,PRSYSA.RON,PRSYSA                                   SG$01200
//.SHR1  IF    ('&SALL&PTPR' EQ '').SHR2                                SG$01210
         REN   D1,O,PI$IOA.RON,PI$IOA                                   SG$01220
         REN   D1,O,PT$IOA.RON,PT$IOA                                   SG$01230
         REN   D1,O,PT$IOB.RON,PT$IOB                                   SG$01240
         REN   D1,O,PT$IOC.RON,PT$IOC                                   SG$01250
         REN   D1,O,PT$IOD.RON,PT$IOD                                   SG$01260
         REN   D1,O,PT$IOE.RON,PT$IOE                                   SG$01270
         REN   D1,O,PT$IOF.RON,PT$IOF                                   SG$01280
//.SHR2  IF    ('&SALL&CARD' EQ '').SHR3                                SG$01290
         REN   D1,O,CD$IOA.RON,CD$IOA                                   SG$01300
         REN   D1,O,CD$IOB.RON,CD$IOB                                   SG$01310
         REN   D1,O,CD$IOC.RON,CD$IOC                                   SG$01320
         REN   D1,O,CD$IOD.RON,CD$IOD                                   SG$01330
         REN   D1,O,CD$IOE.RON,CD$IOE                                   SG$01340
         REN   D1,O,CD$IOF.RON,CD$IOF                                   SG$01350
         REN   D1,O,CD$IOG.RON,CD$IOG                                   SG$01360
         REN   D1,O,CD$IOH.RON,CD$IOH                                   SG$01370
         REN   D1,O,CD$IOI.RON,CD$IOI                                   SG$01380
         REN   D1,O,CD$IOJ.RON,CD$IOJ                                   SG$01390
         REN   D1,O,CD$IOK.RON,CD$IOK                                   SG$01400
         REN   D1,O,CD$IOL.RON,CD$IOL                                   SG$01410
//.SHR3  IF    ('&SALL&SAMT' EQ '').SHR4                                SG$01420
         REN   D1,O,DD$T001.RON,DD$T001                                 SG$01430
         REN   D1,O,DD$T100.RON,DD$T100                                 SG$01440
         REN   D1,O,DD$T111.RON,DD$T111                                 SG$01450
//.SHR4  IF    ('&SALL&SAMD' EQ '').SHR5                                SG$01460
         REN   D1,O,DD$S001.RON,DD$S001                                 SG$01470
         REN   D1,O,DD$S011.RON,DD$S011                                 SG$01480
         REN   D1,O,DD$S100.RON,DD$S100                                 SG$01490
         REN   D1,O,DD$S101.RON,DD$S101                                 SG$01500
         REN   D1,O,DD$S111.RON,DD$S111                                 SG$01510
//.SHR5  IF    ('&SALL&ISAM' EQ '').SHR6                                SG$01520
         REN   D1,O,IS$0013.RON,IS$0013                                 SG$01530
         REN   D1,O,IS$0211.RON,IS$0211                                 SG$01540
         REN   D1,O,IS$0311.RON,IS$0311                                 SG$01550
         REN   D1,O,IS$0313.RON,IS$0313                                 SG$01560
         REN   D1,O,IS$1011.RON,IS$1011                                 SG$01570
         REN   D1,O,IS$1313.RON,IS$1313                                 SG$01580
//.SHR6  IF    ('&SALL&IRAM' EQ '').SHR7                                SG$01590
         REN   D1,O,D3$I000.RON,D3$I000                                 SG$01600
         REN   D1,O,D3$I111.RON,D3$I111                                 SG$01610
//.SHR7  IF    ('&SALL&NAM' EQ '').SHR8                                 SG$01620
         REN   D1,O,DD$N001.RON,DD$N001                                 SG$01630
         REN   D1,O,DD$N011.RON,DD$N011                                 SG$01640
         REN   D1,O,DD$N100.RON,DD$N100                                 SG$01650
         REN   D1,O,DD$N101.RON,DD$N101                                 SG$01660
         REN   D1,O,DD$N111.RON,DD$N111                                 SG$01670
//.SHR8  IF    ('&SALL&DAM' EQ '').SHR9                                 SG$01680
         REN   D1,O,DD$D111.RON,DD$D111                                 SG$01690
//.SHR9  NOP                                                            SG$01700
//NOOBJ  NOP                                                            SG$01710
//                                                              NOP     SG$01720
// IF    ('&ASMB' NE '')NOMAC                                           SG$01730
         FIL   D0=NEWMAC,D1=SYSMAC      $Y$MAC                          SG$01740
//                                                              NOP     SG$01750
        COP.CG D0,,SYSTEM,D1            SYSTEM PROC MODULES             SG$01760
         COP.CG D0,,SPAT,D1                                             SG$01770
//                                                              NOP     SG$01780
//       IF    ('&FORT&FOR' EQ '11')NEXT                                SG$01790
         COP.CG    D0,,CFOR,D1                                          SG$01800
//NEXT   NOP                                                            SG$01810
//                                                              NOP     SG$01820
// IF    ('&ICAM' NE '')NEXT                                            SG$01830
        COP.CG D0,,ICAM,D1              ICAM INTERFACE PROC MODULES     SG$01840
         COP.CG D0,,ICPAT,D1                                            SG$01850
//NEXT   NOP                                                            SG$01860
//                                                              NOP     SG$01870
// IF    ('&IMS' NE '')NEXT                                             SG$01880
        COP.CG D0,,IMS,D1               IMS INTERFACE PROC MODULES      SG$01890
         COP.CG D0,,IMPAT,D1                                            SG$01900
//NEXT   NOP                                                            SG$01910
//       IF    ('&DMS' NE '')NEXT       DMS PROC MODULES                SG$01920
         COP.CG    D0,,DMS,D1                                           SG$01930
         COP.CG    D0,,DMSPAT,D1                                        SG$01940
//NEXT   NOP                                                            SG$01950
//NOMAC  NOP                                                            SG$01960
//                                                              NOP     SG$01970
         FIL   D0=NEWJCS,D1=SYSJCS      $Y$JCS                          SG$01980
//                                                              NOP     SG$01990
        COP.CG D0,,SYSTEM,D1            SYSTEM RUN STREAMS AND JPROCS   SG$02000
         COP.CG D0,,SPAT,D1                                             SG$02010
// NOP   COPY SYSGEN JOBSTREAMS AND JPROCS                              SG$02020
         COP.C D0,S,SG$,D1                                              SG$02030
         COP.C D0,P,SG$,D1                                              SG$02040
//       IF    ('&OLM' NE '')NEXT       OLM JOBSTREAMS                  SG$02050
         COP.CG    D0,,OLM,D1                                           SG$02060
         COP.CG    D0,,OLMPAT,D1                                        SG$02070
//NEXT   NOP                                                            SG$02080
//       IF    ('&IMS' NE '').NEXT                                      SG$02090
         COP.CG D0,,IMS,D1                                              SG$02100
//.NEXT  NOP                                                            SG$02110
         FIL   D0=NEWSRC,D1=SYSSRC      $Y$SRC                          SG$02120
         COP.CG    D0,,SYSTEM,D1        SYSTEM SOURCE                   SG$02130
         COP.CG    D0,,SPAT,D1                                          SG$02140
         COP.C D0,S,S$,D1                                               SG$02150
         COP.C D0,S,I$,D1                                               SG$02160
         COP.C D0,S,CCA$,D1                                             SG$02170
         COP.C D0,S,N$                                                  SG$02171
         COP.C D0,S,L$                                                  SG$02172
//       IF    ('&IMS' NE '')NEXT                                       SG$02180
         COP.CG    D0,,IMS,D1           DELIVERD IMS COPY MODULES       SG$02190
         COP.CG    D0,,IMPAT,D1                                         SG$02200
//NEXT   IF    ('&DMS' NE '')NEXT       DMS SOURCE MODULES              SG$02210
         COP.CG    D0,,DMS,D1                                           SG$02220
         COP.CG    D0,,DMSPAT,D1                                        SG$02230
//NEXT   NOP                                                            SG$02240
/*                                                                      SG$02250
//       OPR   'KEY IN ''RV SG$SUPMK'' TO RUN NEXT SYSGEN JOB'          SG$02260
/&                                                                      SG$02270
