Chhwe (chhwe) wrote,
Chhwe
chhwe

In the days of my youth...

//TSO1R JOB (999,POK),'SCHWEIZER',
//         TIME=1440,
//         REGION=6500K,
//         CLASS=A,
//         MSGCLASS=X,
//         MSGLEVEL=(1,1)
//*
//*
//JOBLIB   DD DISP=SHR,DSN=SERV.ST009431.LOADLIB
//*
//*--------------------------------------------------------------------
//* THIS JOB CREATES ICHRDSNT, THE RACF DATA BASE NAME TABLE,
//* FOR ONE PRIMARY AND ONE BACKUP RACF DATA BASE.
//*
//*   REJECT : TRY TO REJECT USERMOD IPOSDS0 (FOR RERUN PURPOSES)
//*            THIS STEP MAY END WITH RC=12.
//*
//*   ASSEM  : RACF DATA BASE NAMES AND DATA BASE OPTIONS ARE
//*            ASSEMBLED INTO AN SMP/E USERMOD, IPOSDS0.
//*
//*   RECAPP : RECEIVE AND APPLY THE USERMOD IPOSDS0.
//*
//*-------------------------------------------------------------------
//REJECT  EXEC PGM=GIMSMP,COND=(4000,LT),REGION=6500K
//STEPLIB  DD DSN=TARGSYS.ASMA.V1R2M0.SASMMOD1,
//            DISP=SHR
//SMPCSI   DD DSN=TARGSYS.SMPE.GLOBAL.CSI,DISP=SHR
//*
//SMPPTS   DD DISP=SHR,
//            DSN=TARGSYS.SMPE.SMPPTS
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SMPOUT   DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPWRK1  DD UNIT=SYSDA,SPACE=(6160,(3,3,1)),
//            DISP=(,DELETE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SMPWRK2  DD UNIT=SYSDA,SPACE=(6160,(3,3,1)),
//            DISP=(,DELETE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SMPWRK3  DD UNIT=SYSDA,SPACE=(3120,(5,5,1)),
//            DISP=(,DELETE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSUT1   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SYSUT2   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SYSUT3   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SYSUT4   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SMPHOLD  DD DUMMY
//SMPPTFIN DD DUMMY
//SMPCNTL  DD *
 SET BDY(GLOBAL) .
 LIST SYSMOD(IPOSDS0) .
 REJECT S(IPOSDS0)
 BYPASS(APPLYCHECK,ACCEPTCHECK)
 RC(LIST=00,SET=00) .
 RESETRC .
/*
//*
//ASSEM   EXEC PGM=ASMA90,COND=(4000,LT),
//             REGION=6500K,
//             PARM='DECK,NOOBJECT'
//STEPLIB  DD DSN=TARGSYS.ASMA.V1R2M0.SASMMOD1,
//            DISP=SHR
//SYSLIB   DD DSN=TARGSYS.SYS1.AMODGEN,
//            DISP=SHR
//*
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(10,2))
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(10,2))
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(10,2))
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DSN=&LOADSET,
//            DISP=(,PASS),
//            UNIT=SYSDA,
//            SPACE=(CYL,(5,1))
//SYSIN    DD *
 PUNCH '++USERMOD (IPOSDS0).'
 PUNCH '++ VER (Z038) FMID(HRF2240).'
 PUNCH '++ MOD (ICHRDSNT) DISTLIB(AOSBN) LMOD(ICHRDSNT).'
ICHRDSNT CSECT ,
ICHRDSNT AMODE 31
ICHRDSNT RMODE 24
***********************************************************************
*                                                                     *
*   MODULE NAME = ICHRDSNT                                            *
*                                                                     *
*   DESCRIPTIVE NAME = RACF DATA BASE NAME TABLE                      *
*                                                                     *
*   FUNCTION = THIS TABLE CONTAINS THE NAMES FOR THE RACF DATA BASES. *
*              THE NAMES ARE IN PAIRS, THE FIRST BEING THE            *
*              PRIMARY DATA BASE AND THE SECOND BEING THE BACKUP      *
*              DATA BASE.                                             *
*                                                                     *
*   THE FORMAT OF THE FLAG FIELD IS AS FOLLOWS:                       *
*                                                                     *
*   BIT SETTING        MEANING                                        *
*    00.. ....         NO UPDATES TO BACKUP DATA BASE                 *
*    10.. ....         UPDATE BACKUP DATA BASE EXCEPT STATISTICS      *
*    11.. ....         UPDATE BACKUP DATA BASE INCLUDING STATISTICS   *
*    .... ...1         USE THE RESIDENT DATA BLOCK OPTION, IF BIT     *
*                      7 IS ZERO, ONLY INDEX BLOCKS WILL BE KEPT IN   *
*                      STORAGE. OTHERWISE INDEX, BAM, AND PROFILE     *
*                      BLOCKS WILL BE KEPT IN STORAGE.                *
*                                                                     *
*   NOTE: IF YOU WISH TO USE THE EXISTING RACF DATA BASES FROM YOUR   *
*         DRIVING SYSTEM, THEN YOU NEED TO CHANGE THE NAMES OF THE    *
*         PRIMARY AND BACKUP DATA BASES BELOW TO YOUR EXISTING NAMES. *
*         ALSO BE SURE TO CATALOG YOUR EXISTING DATA BASES IN THE     *
*         TARGET SYSTEM MASTER CATALOG SO THAT THEY ARE AVAILABLE TO  *
*         THE NEW SYSTEM.                                             *
*                                                                     *
***********************************************************************
*
 DC   AL1(1)                 NUMBER OF ENTRIES     ONE
*
*                                    PRIMARY RACF DS NAME
 DC   CL44'SYS1.RACF.PRIMARY'
*                                    BACKUP RACF DS NAME
 DC   CL44'SYS1.RACF.BACKUP'
 DC   AL1(255)               NUMBER OF RESIDENT BLOCKS
 DC   B'11000001'            UPDATES DUPLICATED ON BACKUP DS
*                                    USE RESIDENT DATA BLOCKS
*
 END
/*
//*
//*
//RECAPP  EXEC PGM=GIMSMP,COND=(4000,LT),REGION=6500K
//STEPLIB  DD DSN=TARGSYS.ASMA.V1R2M0.SASMMOD1,
//            DISP=SHR
//*
//SMPCSI   DD DISP=SHR,
//            DSN=TARGSYS.SMPE.GLOBAL.CSI
//SMPPTS   DD DISP=SHR,
//            DSN=TARGSYS.SMPE.SMPPTS
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SMPOUT   DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPWRK1  DD UNIT=SYSDA,SPACE=(6160,(3,3,1)),
//            DISP=(,DELETE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SMPWRK2  DD UNIT=SYSDA,SPACE=(6160,(3,3,1)),
//            DISP=(,DELETE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SMPWRK3  DD UNIT=SYSDA,SPACE=(3120,(5,5,1)),
//            DISP=(,DELETE),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSUT1   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SYSUT2   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SYSUT3   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SYSUT4   DD UNIT=SYSDA,SPACE=(6160,(3,3,1))
//SMPHOLD  DD DUMMY
//SMPPTFIN DD DSN=&LOADSET,DISP=(OLD,DELETE)
//SMPCNTL  DD *
 SET BDY(O24T100) .
 UCLIN .
 REP LMOD(ICHRDSNT) SYSLIB(LINKLIB) .
 ENDUCL .
 SET BDY(GLOBAL) .
 RECEIVE S(IPOSDS0) SYSMODS .
 SET BDY(O24T100) .
 APPLY S(IPOSDS0) REDO .
/*
//*
Tags: birdlore
Subscribe

  • Сосисочники

    исчезли как класс.

  • Алая аура прото-Прохныча

    ... Иваныч помнил даже нулевые годы XXI века или как их называли — "лютые нулевые". Алексей с трудом верил в жестокие рассказы об этом времени.…

  • Re: Why so many tunes named "Gan Ainm"?

    The sensorily-challenged Gan (short for Ganymede, and totally blind, deaf, smell and touch-deficient) Ainm was a renowned uilleann trombonist from…

  • Post a new comment

    Error

    Comments allowed for friends only

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 2 comments