Сравнение наборов данных; Rexx Execs; конфиги между двумя системами sysplex - PullRequest
Новая
       49

Сравнение наборов данных; Rexx Execs; конфиги между двумя системами sysplex

0 голосов
/ 20 марта 2020

В последние несколько лет нам приходилось создавать отдельное тестирование и разработку SYSPLEX из нашего производства.

Это было непросто, потому что мы видим, что конфигурации и наборы данных вышли из строя c.

Я хотел бы сейчас начать настройку скриптов (REXX / CLIST) для поиска и сравнения в обеих системах. Поскольку DASD больше не подключен между двумя средами, лучшим вариантом будут отчеты FTP (PROD> локальная машина> TEST).

Перед тем, как приступить к повторному изобретению колеса, мы можем использовать его. в нашем распоряжении? (открыто для ISV, так как у нас есть несколько: Compuware; FDR; Seasoft; Syncsort; TDMF)

Ушедший в отставку Sysprog создал сценарий FDR, который отлично справился со всеми наборами данных на томе, чтобы проверить, работают ли они. были на том же символе c: 

//$CATVLCK JOB (xxxx,xxxx),PR70-JOHNNY,TIME=(59,59),MSGCLASS=X
/*ROUTE PRINT LOCAL
/*ROUTE XEQ   LOCAL
/*JOBPARM COPIES=1,LINES=99,LINECT=60,SYSAFF=*
//*
//*   CHECK THE CATALOG ENTRY FOR THE DATA SETS ON THE SPEICIFIED
//*   VOLUME (LINE 16) AND REPORT ANY THAT DO NOT HAVE THE SYSTEM
//*   SYMBOLIC &PPRES IN THE THE VOLSER FIELD
//*
//FDR     EXEC PGM=FDREPORT,REGION=5M
//SYSPRINT DD SYSOUT=(,)
//ABRMAP   DD DISP=(,PASS),DSN=&&ABRMAP,UNIT=DISK,SPACE=(TRK,(1,1))
//*BRMAP   DD SYSOUT=C,HOLD=Y
//ABRSUM   DD SYSOUT=(,)
//SYSIN    DD  *
 XSELECT VOL=PPRES4
 REPORT FIELD=(DSN)
 PRINT SUM=NO,PAGEWIDTH=80,LINECNT=99,DISABLE=(DATESTAMP,PAGENUMBER),
       ENABLE=FASTPATH
//SORT1   EXEC PGM=SORT,REGION=4M
//SORTIN    DD DISP=(OLD,PASS),DSN=&&ABRMAP
//SORTOUT   DD DISP=(,PASS),DSN=&&CMDS,UNIT=DISK,SPACE=(TRK,(1,1))
//SYSOUT    DD SYSOUT=(,)
//SYSIN     DD *
  SORT FIELDS=COPY
  INCLUDE COND=((02,12,CH,NE,C'SYS1.VTOCIX.'),
           AND,(02,17,CH,NE,C'HLQ.DEVT7.VOLUME'),
           AND,(03,1,CH,EQ,C'.',
             OR,04,1,CH,EQ,C'.',
             OR,05,1,CH,EQ,C'.',
             OR,06,1,CH,EQ,C'.',
             OR,07,1,CH,EQ,C'.',
             OR,08,1,CH,EQ,C'.',
             OR,09,1,CH,EQ,C'.',
             OR,10,1,CH,EQ,C'.'))
  OUTREC FIELDS=(C'  %CATVLCHK ',
                2,44,24X)
//LOGON    EXEC PGM=IKJEFT01,DYNAMNBR=70
//SYSPROC    DD DSN=HLQ.DEVT.CLIST,DISP=SHR
//           DD DSN=HLQ.PRODTSOE.CLIST,DISP=SHR
//SYSTSPRT   DD SYSOUT=C,HOLD=YES
//SYSTSIN    DD DISP=(OLD,PASS),DSN=&&CMDS
//

Я не уверен, будет ли масштабироваться этот пример exe c или мне нужно убедительное управление SV C как git ( например, ref: [zigi] ) или даже управление генерацией PDSE.

В конце дня мне нужно подтолкнуть нас к сравнению CI / CD.

...