// JOB SETREL,,5800,5800                                                SET00010
// DVC 20  // LFD PRNTR                                                 SET00020
//                                                              NOP     SET00030
//                                                              NOP     SET00040
// NOP             THE FOLLOWING ARE THE CURRENT STANDARD JSETS         SET00050
//                                                              NOP     SET00060
//                                                              NOP     SET00070
//VSNO  JSET   'REL030'                                                 SET00080
//                                                              NOP     SET00090
//                                                              NOP     SET00100
// NOP             THIS JOB STREAM EXPECTS THE FOLLOWING JSETS          SET00110
//                                                              NOP     SET00120
// NOP                 TYPE 8411,8414,8416,8418,8430                    SET00130
// NOP                  PREP: 1 IF SURFACE ANALYSIS IS TO BE PERFORMED  SET00140
//                                                              NOP     SET00150
// NOP             OPTIONAL JSETS WHICH MAY BE SUPPLIED                 SET00160
//                                                              NOP     SET00170
// NOP                  PREPONLY: ANY VALUE MEANS DON'T ASSIGN FILES    SET00180
// NOP                  ASGONLY:  ANY VALUE MEANS DON'T PREP AT ALL     SET00190
//                                                              NOP     SET00200
//                                                              NOP     SET00210
// CR                                                                   SET00220
//                                                              NOP     SET00230
// NOP   SYSRES FILE SIZES IN 256 BYTE BLOCKS                           SET00240
//                                                              NOP     SET00250
//UNUSED JSET  1                        UNUSED AREA IN FRONT OF DISC    SET00260
//ELOG   JSET  1200                     3  CYL FOR 8414                 SET00270
//ATRA   JSET  2240                    8 CYL FOR 8416                   SET00280                
//GEN    JSET  490                                                      SET00290
//DUMP   JSET  262144/256                                               SET00300
//SRC    JSET  700                     3 CYL FOR 8416                   SET00310
//MAC    JSET  10450                                                    SET00320
//DMACSZ JSET  1                        GAP FOR DIRECTORY EXPANSION     SET00330
//OBJ    JSET  6600                                                     SET00340
//DOBJSZ JSET  1                        GAP FOR DIRECTORY EXPANSION     SET00350
//JCS    JSET  3200                    9 CYL FOR 8416                   SET00360
//CATSZ  JSET  1                                                        SET00370
//LOD3   JSET  15000                                                    SET00380
//VTOCSZ JSET  1                        VTOC SIZE IN CYLS               SET00390
//TRA    JSET  2240                     8CYL FOR 8416                   SET00400                
//LOD1   JSET  280                                                      SET00410
//RLBSZ  JSET  6                        RUN LIBRARY GAP IN CYLS         SET00420
//LOD2   JSET  15000                                                    SET00430
//                                                              NOP     SET00440
// NOP   EQUATE THE DVC NUMBER TO THE PROPER LUT VALUE FOR DISC(TYPE)   SET00450
// NOP         AND THE BLOCKS PER CYLINDER(BLKS)                        SET00460
// NOP         AND THE HIGH TRACK ADDRESS(PHS0TRK)                      SET00470
// NOP         AND THE HIGH CYLINDER ADDRESS(PHS0CYL)                   SET00480
//                                                              NOP     SET00490
//       IF ('&TYPE' NE '8411')NEXT                                     SET00500
// EQU 51,20800000                                                      SET00510
//BLKS   JSET  10*11                                                    SET00520
//LASTRCK  JSET  09                                                     SET00530
// GO LAST                                                              SET00540
//NEXT   NOP                                                            SET00550
//                                                              NOP     SET00560
//       IF ('&TYPE' NE '8414')NEXT                                     SET00570
// EQU 51,20400000                                                      SET00580
//BLKS   JSET  20*20                                                    SET00590
//LASTRCK  JSET  13                                                     SET00600
// GO LAST                                                              SET00610
//NEXT   NOP                                                            SET00620
//                                                              NOP     SET00630
//       IF ('&TYPE' NE '8416')NEXT                                     SET00640
// EQU 51,20100000                                                      SET00650
//BLKS   JSET  7*40                                                     SET00660
//LASTRCK  JSET  06                                                     SET00670
// GO LAST                                                              SET00680
//NEXT   NOP                                                            SET00690
//                                                    NOP               SET00700
//       IF ('&TYPE' NE '8418')NEXT                                     SET00710
// EQU 51,20020000                                                      SET00720
//BLKS   JSET  7*40                                                     SET00730
//LASTRCK  JSET  06                                                     SET00740
// GO LAST                                                              SET00750
//NEXT   NOP                                                            SET00760
//                                                              NOP     SET00770
//       IF ('&TYPE' NE '8430')NEXT                                     SET00780
// EQU 51,20200000                                                      SET00790
//BLKS   JSET  19*33                                                    SET00800
//LASTRCK  JSET  12                                                     SET00810
// GO LAST                                                              SET00820
//NEXT   NOP                                                            SET00830
//                                                              NOP     SET00840
//LAST   NOP                                                            SET00850
//                                                              NOP     SET00860
// NOP   CONVERT BLOCK SIZES TO CYLINDER SIZES FOR THE SYSRES FILES     SET00870
// NOP         AND KEEP RUNNING COUNT TO POINT OF VTOC(TOT)             SET00880
// NOP         AND SET THE STARTING CYLINDER FOR EACH AREA (STXXXX)     SET00890
//                                                              NOP     SET00900
//TOT    JSET  &UNUSED                                                  SET00910
//                                                              NOP     SET00920
// SG$CVTHX    &TOT,STELOG                                              SET00930
//ELOGSZ JSET  &ELOG.//&BLKS                                            SET00940
//TOT    JSET  &TOT.+&ELOGSZ                                            SET00950
//                                                              NOP     SET00960
// SG$CVTHX    &TOT,STATRA                                              SET00970
//ATRASZ JSET  &ATRA.//&BLKS                                            SET00980
//TOT    JSET  &TOT.+&ATRASZ                                            SET00990
//                                                              NOP     SET01000
// SG$CVTHX    &TOT,STGEN                                               SET01010
//GENSZ  JSET  &GEN.//&BLKS                                             SET01020
//TOT    JSET  &TOT.+&GENSZ                                             SET01030
//                                                              NOP     SET01040
// SG$CVTHX    &TOT,STDUMP                                              SET01050
//DUMPSZ JSET  &DUMP.//&BLKS                                            SET01060
//TOT    JSET  &TOT.+&DUMPSZ                                            SET01070
//                                                              NOP     SET01080
// SG$CVTHX    &TOT,STSRC                                               SET01090
//SRCSZ  JSET  &SRC.//&BLKS                                             SET01100
//TOT    JSET  &TOT.+&SRCSZ                                             SET01110
//                                                              NOP     SET01120
// SG$CVTHX    &TOT,STMAC                                               SET01130
//MACSZ  JSET  &MAC.//&BLKS                                             SET01140
//TOT    JSET  &TOT.+&MACSZ                                             SET01150
//                                                              NOP     SET01160
//TOT    JSET  &TOT.+&DMACSZ                                            SET01170
//                                                              NOP     SET01180
// SG$CVTHX    &TOT,STOBJ                                               SET01190
//OBJSZ  JSET  &OBJ.//&BLKS                                             SET01200
//TOT    JSET  &TOT.+&OBJSZ                                             SET01210
//                                                              NOP     SET01220
//TOT    JSET  &TOT.+&DOBJSZ                                            SET01230
//                                                              NOP     SET01240
// SG$CVTHX    &TOT,STJCS                                               SET01250
//JCSSZ  JSET  &JCS.//&BLKS                                             SET01260
//TOT    JSET  &TOT.+&JCSSZ                                             SET01270
//                                                              NOP     SET01280
// SG$CVTHX    &TOT,STCAT                                               SET01290
//TOT    JSET  &TOT.+&CATSZ                                             SET01300
//                                                              NOP     SET01310
// SG$CVTHX    &TOT,STLOD3                                              SET01320                
//LOD3SZ JSET  &LOD3.//&BLKS                                            SET01330                
//TOT    JSET  &TOT.+&LOD3SZ                                            SET01340                
//                                                              NOP     SET01350
// SG$CVTHX    &TOT,VTOC                                                SET01360
//TOT    JSET  &TOT.+&VTOCSZ                                            SET01370
//                                                              NOP     SET01380
// SG$CVTHX    &TOT,STTRA                                               SET01390
//TRASZ  JSET  &TRA.//&BLKS                                             SET01400
//TOT    JSET  &TOT.+&TRASZ                                             SET01410
//                                                              NOP     SET01420
// SG$CVTHX    &TOT,STLOD1                                              SET01430
//LOD1SZ JSET  &LOD1.//&BLKS                                            SET01440
//TOT    JSET  &TOT.+&LOD1SZ                                            SET01450
//                                                              NOP     SET01460
//TOT    JSET  &TOT.+&RLBSZ                                             SET01470                
//                                                                 NOP  SET01480                
// SG$CVTHX     &TOT,STLOD2                                             SET01490                
//LOD2SZ JSET  &LOD2.//&BLKS                                            SET01500                
//TOT    JSET  &TOT.+&LOD2SZ                                            SET01510                
//                                                              NOP     SET01520
// IF    ('&ASGONLY' NE '')ASGFILES                                     SET01530
//                                                              NOP     SET01540
//                                                              NOP     SET01550
// NOP                 PREP THE DISC PACK                               SET01560
//                                                              NOP     SET01570
//                                                              NOP     SET01580
//                                                              NOP     SET01590
// DVC   51    // VOL  &VSNO.(NOVOL) // LFD DISKIN                      SET01600
// OPTION SCAN,SUB                                                      SET01610
// OPTION JOBDUMP                                                       SET01620
// EXEC  DSKPRP                                                         SET01630
/$                                                                      SET01640
         SERNR=&VSNO                                                    SET01650
         VTOCB=0&VTOC.00                                                SET01660
         VTOCE=0&VTOC&LASTRCK                                           SET01670
         ILOPT=1                                                        SET01680                
//                                                              NOP     SET01690
//       IF    ('&PREP' NE '1')LABNP                                    SET01700
         TRCON=N                                                        SET01710
         INSRT=Y                                                        SET01720
         PREPT=1                                                        SET01730
//LABNP  NOP                                                            SET01740
//                                                              NOP     SET01750
VOL1                                                                    SET01760
//                                                              NOP     SET01770
//       IF    ('&PREP' NE '1')LBB5         NO SURF ANAL                SET01780
// CR                                                                   SET01790
//LBB5   NOP                                                            SET01800
/*                                                                      SET01810
//                                                               NOP    SET01820                
//                                                               NOP    SET01830                
// NOP                        TEST  UPSI                                SET01840                
//                                                               NOP    SET01850                
//                                                               NOP    SET01860                
// SKIP FATAL,10                                                        SET01870                
// SKIP WARN,01                                                         SET01880                
// GO ALOC                                                              SET01890                
//WARN   NOP                                                            SET01900                
// OPR 'JS02 NON FATAL ERROR OCCURED-FILES WILL BE ALLOCATED'           SET01910                
// OPR 'JS02 RECOMMEND RERUN FOR CLEAN PREP-PROGRAMER DECISION'         SET01920                
// GO ALOC                                                              SET01930                
//FATAL  NOP                                                            SET01940                
// OPR 'JS03 FATAL ERROR HAS OCCURED-JOB IS TERMINATED'                 SET01950                
// OPR 'JS03 RETURN TO PROGRAMER-CORRECT-RERUN SETREL'                  SET01960                
// GO FINISHED                                                          SET01970                
//ALOC   NOP                                                            SET01980                
//                                                              NOP     SET01990
//                                                              NOP     SET02000
// NOP             ALLOCATE THE SYSRES FILES                            SET02010
//                                                              NOP     SET02020
//                                                              NOP     SET02030
//ASGFILES NOP                                                          SET02040
//                                                              NOP     SET02050
// IF    ('&PREPONLY' NE '')FINISHED                                    SET02060
//                                                              NOP     SET02070
// DVC   51    // VOL &VSNO                                             SET02080
// EXT   ST,C,,&STGEN,&GENSZ    // LBL $Y$GEN,,99999   // LFD ANY1      SET02090
//                                                              NOP     SET02100
// DVC   51    // VOL &VSNO                                             SET02110
// EXT   ST,C,,&STJCS,&JCSSZ    // LBL $Y$JCS,,99999   // LFD ANY1      SET02120
//                                                              NOP     SET02130
// DVC   51    // VOL &VSNO                                             SET02140
// EXT   ST,C,,&STCAT,&CATSZ    // LBL $Y$CAT,,99999   // LFD ANY1      SET02150
//                                                              NOP     SET02160
// DVC   51    // VOL &VSNO                                             SET02170
// EXT ST,C,10,&STLOD1,&LOD1SZ // EXT ST,C,10,&STLOD2,&LOD2SZ           SET02180                
// EXT ST,C,10,&STLOD3,&LOD3SZ // LBL $Y$LOD,,99999  // LFD ANY1        SET02190                
//                                                              NOP     SET02200
// DVC   51    // VOL &VSNO                                             SET02210
// EXT   ST,C,,&STMAC,&MACSZ    // LBL $Y$MAC,,99999   // LFD ANY1      SET02220
//                                                              NOP     SET02230
// DVC   51    // VOL &VSNO                                             SET02240
// EXT   ST,C,,&STOBJ,&OBJSZ    // LBL $Y$OBJ,,99999   // LFD ANY1      SET02250
//                                                              NOP     SET02260
// DVC   51    // VOL &VSNO                                             SET02270
// EXT   ST,C,,&STSRC,&SRCSZ    // LBL $Y$SRC,,99999   // LFD ANY1      SET02280
//                                                              NOP     SET02290
// DVC   51    // VOL &VSNO                                             SET02300
// EXT   ST,C,,&STTRA,&TRASZ    // LBL $Y$TRAN,,99999  // LFD ANY1      SET02310
//                                                              NOP     SET02320
// DVC   51    // VOL &VSNO                                             SET02330
// EXT   ST,C,,&STATRA,&ATRASZ  // LBL $Y$TRANA,,99999 // LFD ANY1      SET02340
//                                                              NOP     SET02350
// DVC   51    // VOL &VSNO                                             SET02360
// EXT   ST,CF,,BLK,(256,&ELOG) // LBL $Y$ELOG,,99999  // LFD ANY1      SET02370
//                                                              NOP     SET02380
// DVC   51    // VOL &VSNO                                             SET02390
// EXT   ST,CF,,BLK,(256,&DUMP) // LBL $Y$DUMP,,99999  // LFD $Y$DUMP   SET02400                
//                                                              NOP     SET02410
// EXEC SG$OPN                                                          SET02420
//FINISHED NOP                                                          SET02430
/&                                                                      SET02440
