Skip to Content
IBM Z System Automationv4.3Instalación

System Automation 4.3 - Instalación

Para realizar la instalación, seguiremos la documentación de IBM:

https://www.ibm.com/docs/en/z-system-automation/4.3.0?topic=guide-installation-configuration 

Estos primeros pasos que voy a hacer son opcionales y son aplicables al sistema ADCD.

Los hago para tener en un disco concreto el software y poder reutilizarlo en otros sistemas:

  • Crear un disco nuevo
  • Crear un catálogo de ese disco
  • Crear un ALIAS que apunte a ese catálogo
  • Copiar el software de System Automation que tengo del disco original al disco nuevo

COPIAR SOFTWARE (Opcional)

Crear un disco nuevo

En mi caso, uno modelo 3 es suficiente:

alcckd /mnt/1TB2/ADCD/3.1_B_acc/SA4300 -d3390-3

Emuframe image

Se puede montar de forma dinámica.

awsmount 0AA8 -m /mnt/1TB2/ADCD/3.1_B_acc/SA4300

Emuframe image

En el sistema z/OS, ponemos el device offline:

V 0AA8,OFFLINE

Emuframe image

Con un job similar a este, inicializamos el disco como NO-SMS:

//IBMUSERC JOB (20,FB3),'INIT NO SMS DASD',COND=(0,NE),
//            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//ICKDSF EXEC PGM=ICKDSF,REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  INIT UNITADDRESS(0AA8) NOVERIFY VOLID(SA4300) PURGE -
    VTOC(0,1,149) INDEX(15,0,100)
/*

Respondemos el reply que genera este job:

01,U

Termina correctamente.

Emuframe image

Ponemos online el disco:

V 0AA8,ONLINE

Emuframe image

En 3.4 comprobamos que es accesible y está bien definido.

Emuframe image

Crear catálogo en el disco

Se puede usar el siguiente job. Solo hay que indicar el disco en el parámetro SET P1='SA4300':

//IBMUSERC JOB (20,FB3),'JOB',COND=(0,NE),
//            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//E1  EXPORT SYMLIST=(P1)
//   SET P1='SA4300'
//DEFMCAT  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CATVOL1  DD UNIT=3390,VOL=SER=&P1.,DISP=SHR
//SYSIN    DD *,SYMBOLS=JCLONLY
  DEFINE   USERCATALOG (    -
               NAME(USERCAT.V&P1.                    ) -
               VOLUME(&P1.)                            -
               ICFCATALOG                              -
               CYL (1 1)                               -
               SHAREOPTIONS(3 4)                       -
               STORCLAS(SCNOSMS)                       -
               NWCK NOIMBED NOREPLICATE)

Emuframe image

Terminará correctamente.

Emuframe image

Tendremos definido el catálogo.

Emuframe image

Si queremos desconectar un catálogo del sistema, usamos el job:

//IBMUSERC JOB (20,FB3),'JOB',COND=(0,NE),
//            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//E1  EXPORT SYMLIST=(P1)
//   SET P1='SA4300'
//DEFMCAT  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CATVOL1  DD UNIT=3390,VOL=SER=&P1.,DISP=SHR
//SYSIN    DD *,SYMBOLS=JCLONLY
  EXPORT USERCAT.V&P1. DISCONNECT

Si por error desconectamos este catálogo del sistema, podremos volver a conectarlo con este job que realiza “IMPORT CONNECT”:

//IMPORTCN JOB (20,FB3),'IMPORT',COND=(0,NE),
//            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//STEP1    EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     IMPORT -
      OBJECTS -
         ((USERCAT.VSA4300 -
           VOLUME(SA4300) -
           DEVICETYPE(3390))) -
      CONNECT -
         CATALOG(CATALOG.Z31B.MASTER)
/*

Usamos un job como este para definir un ALIAS para System Automation:

//IBMUSERC JOB (20,FB3),'JOB',COND=(0,NE),
//            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//* DEFINE ALIAS
//PASO001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 DEFINE ALIAS (NAME(SA430) -
 RELATE(USERCAT.VSA4300)) -
 CATALOG(CATALOG.Z31B.MASTER)
/*

Emuframe image

Tendremos el ALIAS “SA430” definido.

Emuframe image

Usamos un job como este para definir un ALIAS para NetView.

En el sistema ADCD, las librerías originales se llaman NET640 y como ya hay una instalación de este producto llamadas NETVIEW, usaré NETVW64 para el ALIAS.

//IBMUSERC JOB (20,FB3),'JOB',COND=(0,NE),
//            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//* DEFINE ALIAS
//PASO001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 DEFINE ALIAS (NAME(NETVW64) -
 RELATE(USERCAT.VSA4300)) -
 CATALOG(CATALOG.Z31B.MASTER)
/*

Emuframe image

Ahora que tenemos los ALIAS, de forma opcional, podemos crear un dataset para guardar los jobs que hemos ido ejecutando (y los que ejecutaremos más adelante). De esa forma, tenemos todo en una misma librería y en el mismo disco.

Emuframe image

Nos aseguramos que la librería esté en el disco y en el catálogo que hemos creado.

Emuframe image

Copiar el software de System Automation

Usaré ADRDSSU para copiar las librerías TARGET (AUT430.SING*) al nuevo disco con el HLQ del ALIAS que hemos creado anteriormente (SA430).

El listado de las librerías TARGET podemos encontrarlo en el documento Program Directory:

https://www.ibm.com/docs/en/z-system-automation/4.3.0?topic=program-directory 

//IBMUSERC JOB (20,FB3),'JOB',COND=(0,NE),
//   CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID,REGION=0M
//STEPS01 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 COPY DATASET(INC(AUT430.SING*)) -
  OUTDYNAM (  (SA4300) ) -
  RENAMEU((AUT430.**,SA430.**))  -
  STORCLAS(SCNOSMS)  -
  SHR -
  TOL(ENQF) -
  ALLDATA(*) -
  RECATALOG(USERCAT.VSA4300)
/*

Emuframe image

El resultado será algo similar a esto:

1PAGE 0001     5695-DF175  DFSMSDSS 3.1 DATA SET SERVICES         2026.002 16:13
- COPY DATASET(INC(AUT430.SING*)) -
   OUTDYNAM (  (SA4300) ) -
   RENAMEU((AUT430.**,SA430.**))  -
   STORCLAS(SCNOSMS)  -
   SHR -
   TOL(ENQF) -
   ALLDATA(*) -
   RECATALOG(USERCAT.VSA4300)
 ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'COPY '
 ADR109I (R/I)-RI01 (01), 2026.002 16:13:17 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED
 ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
0ADR006I (001)-STEND(01), 2026.002 16:13:17 EXECUTION BEGINS
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGZFS ALLOCATED WITH NEWNAME SA430.SINGZFS, IN CATALOG USERCAT.VSA4300, ON VOLUME(S):
                          SA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGDMAP ALLOCATED WITH NEWNAME SA430.SINGDMAP, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGDMAP HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGINST ALLOCATED WITH NEWNAME SA430.SINGINST, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGINST HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGLINK ALLOCATED WITH NEWNAME SA430.SINGLINK, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGLINK HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGLOAD ALLOCATED WITH NEWNAME SA430.SINGLOAD, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGLOAD HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGLODE ALLOCATED WITH NEWNAME SA430.SINGLODE, ON VOLUME(S): SA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGLPA ALLOCATED WITH NEWNAME SA430.SINGLPA, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGLPA HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGMENU ALLOCATED WITH NEWNAME SA430.SINGMENU, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGMENU HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGMENV ALLOCATED WITH NEWNAME SA430.SINGMENV, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGMENV HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGMJPN ALLOCATED WITH NEWNAME SA430.SINGMJPN, ON VOLUME(S): SA4300
0ADR744W (001)-MRPAM(01), NO VALID MEMBERS WERE FOUND FOR PDS DATA SET AUT430.SINGMJPN. ONLY THE DIRECTORY WILL BE UPDATED
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGMJPN HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGOBJV ALLOCATED WITH NEWNAME SA430.SINGOBJV, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGOBJV HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
1PAGE 0002     5695-DF175  DFSMSDSS 3.1 DATA SET SERVICES         2026.002 16:13
-ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGPARM ALLOCATED WITH NEWNAME SA430.SINGPARM, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGPARM HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGPDB ALLOCATED WITH NEWNAME SA430.SINGPDB, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGPDB HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGPENU ALLOCATED WITH NEWNAME SA430.SINGPENU, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGPENU HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGPJPN ALLOCATED WITH NEWNAME SA430.SINGPJPN, ON VOLUME(S): SA4300
0ADR744W (001)-MRPAM(01), NO VALID MEMBERS WERE FOUND FOR PDS DATA SET AUT430.SINGPJPN. ONLY THE DIRECTORY WILL BE UPDATED
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGPJPN HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGPRF ALLOCATED WITH NEWNAME SA430.SINGPRF, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGPRF HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGREXV ALLOCATED WITH NEWNAME SA430.SINGREXV, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGREXV HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGREXX ALLOCATED WITH NEWNAME SA430.SINGREXX, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGREXX HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGSAMP ALLOCATED WITH NEWNAME SA430.SINGSAMP, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGSAMP HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGSENU ALLOCATED WITH NEWNAME SA430.SINGSENU, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGSENU HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGTENU ALLOCATED WITH NEWNAME SA430.SINGTENU, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGTENU HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR395I (001)-NEWDS(01), DATA SET AUT430.SINGTREX ALLOCATED WITH NEWNAME SA430.SINGTREX, ON VOLUME(S): SA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGTREX HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR465I (001)-CNVSM(01), DATA SET SA430.SINGLODE HAS BEEN CATALOGED IN CATALOG USERCAT.VSA4300
0ADR801I (001)-DDDS (01), 2026.002 16:13:21 DATA SET FILTERING IS COMPLETE. 22 OF 22 DATA SETS WERE SELECTED: 0 FAILED SERIALIZATION
                          AND 0 FAILED FOR OTHER REASONS
0ADR454I (001)-DDDS (01), THE FOLLOWING DATA SETS WERE SUCCESSFULLY PROCESSED
0                          AUT430.SINGZFS
0                          AUT430.SINGDMAP
1PAGE 0003     5695-DF175  DFSMSDSS 3.1 DATA SET SERVICES         2026.002 16:13
-                          AUT430.SINGINST
0                          AUT430.SINGLINK
0                          AUT430.SINGLOAD
0                          AUT430.SINGLODE
0                          AUT430.SINGLPA
0                          AUT430.SINGMENU
0                          AUT430.SINGMENV
0                          AUT430.SINGMJPN
0                          AUT430.SINGOBJV
0                          AUT430.SINGPARM
0                          AUT430.SINGPDB
0                          AUT430.SINGPENU
0                          AUT430.SINGPJPN
0                          AUT430.SINGPRF
0                          AUT430.SINGREXV
0                          AUT430.SINGREXX
0                          AUT430.SINGSAMP
0                          AUT430.SINGSENU
0                          AUT430.SINGTENU
0                          AUT430.SINGTREX
0ADR006I (001)-STEND(02), 2026.002 16:13:21 EXECUTION ENDS
0ADR013I (001)-CLTSK(01), 2026.002 16:13:21 TASK COMPLETED WITH RETURN CODE 0004
0ADR012I (SCH)-DSSU (01), 2026.002 16:13:21 DFSMSDSS PROCESSING COMPLETE. HIGHEST RETURN CODE IS 0004 FROM:
                          TASK    001

Comprobar que tenemos todos los datasets copiados.

Emuframe image

Emuframe image

Copiar el software de NetView

Usaré ADRDSSU para copiar las librerías TARGET. En este caso, hay que seleccionar las librerías TARGET de forma concreta, porque muchas no se pueden agrupar como ocurre con System Automation. El HLQ será el ALIAS que hemos creado anteriormente (NETVW64).

El listado de las librerías TARGET podemos encontrarlo en el documento Program Directory:

https://www.ibm.com/docs/en/z-netview/6.4.0?topic=640-z-netview-program-directory 

//IBMUSERC JOB (20,FB3),'JOB',COND=(0,NE),
//   CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID,REGION=0M
//STEPS01 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 COPY DATASET(INC(  -
       NET640.BNJPNL1  -
       NET640.BNJPNL2  -
       NET640.BNbashRC1  -
       NET640.CNMCLST  -
       NET640.CNMINST  -
       NET640.CNMLINK  -
       NET640.CNMPNL1  -
       NET640.CNMSAMP  -
       NET640.DSIPARM  -
       NET640.DSIPRF   -
       NET640.NVULIB   -
       NET640.SAQN*    -
       NET640.SCNM*    -
       NET640.SDSI*    -
       NET640.SDUIMSG1 -
       NET640.SEKGLANG -
       NET640.ZFS      -
                             )) -
  OUTDYNAM (  (SA4300) ) -
  RENAMEU((NET640.**,NETVW64.**))  -
  STORCLAS(SCNOSMS)  -
  SHR -
  TOL(ENQF) -
  ALLDATA(*) -
  RECATALOG(USERCAT.VSA4300)
/*

Emuframe image

Comprobar que tenemos los datasets creados:

Emuframe image

Emuframe image

COMIENZO INSTALACIÓN

Librería CONFWRK

Para hacer la instalación, hay que seguir estos pasos:

https://www.ibm.com/docs/en/z-system-automation/4.3.0?topic=sazos-preparing-configure-system-automation 

Hay que crear una librería para la configuración que no exceda los 35 caracteres con el LLQ “CONFWRK”. Debe seguir este patrón:

hlq.saplex.CONFLIB

Dejo un JCL para crearla:

//$02CONF  JOB CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
//   REGION=0M
//IDCAMS   EXEC PGM=IDCAMS
//CONFWRK  DD  DSN=SA430.ADCDPL.CONFWRK,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=3390,SPACE=(TRK,(15,5,5)),
//             STORCLAS=SCNOSMS,VOL=SER=SA4300,
//             DCB=(DSORG=PO,BLKSIZE=27920,LRECL=80,RECFM=FB)
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY

Emuframe image

Emuframe image

Ahora copiamos los miembros INGDOPT y INGDCONF de la librería .SINGSAMP a la librería que acabamos de crear (.CONFWRK).

Emuframe image

Emuframe image

Editar INGDOPT

Aquí dejo el detalle de la configuración que usaré. He intentando dejar la mayoría por defecto.

El miembro INGDOPT incluye documentación detallada sobre cada parámetro.

En el caso de los PROCs y STCs he intentado agruparlas bajo “ING*”.

Algunas características opcionales no las usaré. Otras, las configuraré en el futuro, como “Service Management Unite (SMU) console connection” (parámetro: sa_e2e_smu_ip).

En “sys_sms_managed_datasets”, voy a indicar “NO” porque quiero crear los datasets en el disco NO-SMS (SA4300), pero, en el caso de la versión ADCD, es necesario indicar la STORCLAS “SCNOSMS” para que los trate como NO-SMS.

Como el proceso no añadirá automáticamente STORCLAS(SCNOSMS), tendremos que editar el job a mano.

Es posible que haya que hacer otras modificaciones más adelante.

sys_jobcard_1=//ING<Ñ4:8>  JOB 'SA Z/OS-CONFIG',
sys_jobcard_2=//         CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),
sys_jobcard_3=//         REGION=256M,NOTIFY=&SYSUID
sys_sysname=S0W1
sys_jes_name=JES2
net_netview_domain_id=SA01
net_netview_taf_id=01
net_netview_majnode=MNING01
sa_hlq_smpe=SA430
nv_hlq_smpe=NETVW64
sa_usspath_smpe=/usr/lpp/ing
sa_hlq_user=SA430.SA00
sa_usspath_user=/var/ing
sys_sms_managed_datasets=NO
sys_sms_storclas=SCNOSMS
sys_sms_mgmtclas=
sys_sms_dataclas=
sys_dataset_unit=3390
sys_dataset_volser=SA4300
sys_hlq_sclbdll=CBC
sys_hlq_sceerun=CEE
sys_parmlib_suffix=SA
sa_xcf_grpid_suffix=SA
sa_xcf_plexid_suffix=00
sa_automation_policy=SA430.$POLICY.S0W1.PDB
sa_am_start_proc=INGEAMSA
sa_am_start_job.1=INGAM
sa_am_start_job.2=INGAM2
sa_saagent_start_proc=INGENVSA
sa_saagent_start_job=INGNVSA
sa_nvssi_start_proc=INGESSI
sa_nvssi_start_job=INGNVSSI
sa_ipldata_start_proc=INGEIPLC
sa_ipldata_start_job=INGIPLC
sys_tws_hlq_smpe=TWS
sys_tws_mlog_ds=TWS.V101A.MLOG
sys_cpsm_hlq_smpe=
nv_eas_start_proc=IHSAEVNT
nv_eas_eif_start_job=EIFAEVNT
nv_eas_eif_init_file=EIFINIT
nv_eas_eif_messagea_file=EIFMCFG
nv_eas_eif_ppi_name=INGEVOMN
nv_eas_eif_rec_host=
nv_eas_eif_rec_port=0
sa_e2e_smu_ip=
sa_e2e_agent_location=
net_e2e_agent_ip=
sa_usspath_user_e2e=adapter
sys_java_usspath_smpe=/usr/lpp/java/J17.0_64
sa_e2eagnt_start_proc=INGXEAGT
sa_e2eagnt_start_job=E2EAGENT
net_e2eagnt_rec_port=2003
sa_e2eadpt_start_proc=INGXADPT
sa_e2eadpt_start_job=E2EADPT
net_e2eadpt_snd_port=2002
net_e2eadpt_rec_port=2001
nv_eas_e2e_start_job=E2EEAS
nv_eas_e2e_init_file=E2EINIT
nv_eas_e2e_messagea_file=E2EMCFG
nv_eas_e2e_rec_port=5529
racf_group_auto=INGAUTO
racf_omvs_gid_auto=80004
racf_omvs_uid=90004
racf_omvs_home=/u/autooper
racf_group_autowrk=INGWRK
racf_omvs_gid_autowrk=80006
racf_group_user=INGUSER
racf_omvs_gid_user=80001
racf_group_oper=INGOPER
racf_omvs_gid_oper=80002
racf_group_admin=INGADMIN
racf_omvs_gid_admin=80003
racf_group_super=INGSUPER
racf_omvs_gid_super=80005

Emuframe image

Editar y ejecutar INGDCONF

En el job lo único que hay que editar son los valores de las variables “SET …” con los datos que hemos definido anteriormente. Después ejecutar el job.

//INGDCONF JOB CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
//   REGION=0M
//  SET SAPLEX=ADCDPL
//  SET HLQCONF=SA430
//  SET DASDDEF='STORCLAS=SCNOSMS,UNIT=3390,VOL=SER=SA4300'
//  SET HLQSMPSA=SA430
//  SET HLQSMPNV=NETVW64
//  SET OPTSMEM=INGDOPT
//  SET CONFWRK=&HLQCONF..&SAPLEX..CONFWRK
//  SET CONFLIB=&HLQCONF..&SAPLEX..CONFLIB
//STEP0010 EXEC PGM=IEFBR14
//DELILIB  DD DISP=(MOD,DELETE,DELETE),
//            DSN=&CONFLIB.,
//            &DASDDEF.,
//            SPACE=(TRK,(1,0,0)),LRECL=80,RECFM=FB
//STEP0020 EXEC PGM=IEFBR14
//STDOUT   DD DISP=(,CATLG,DELETE),
//            DSN=&CONFLIB.,
//            &DASDDEF.,
//            RECFM=FB,LRECL=80,BLKSIZE=6160,
//            SPACE=(CYL,(3,1,45),RLSE)
//IFÑÑ0020 IF (STEP0020.RC  EQ 00      OR
//             STEP0020.RUN EQ FALSE)  THEN
//STEP0030 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//IÑ1      DD DISP=SHR,
//            DSN=&HLQSMPSA..SINGSAMP
//IÑ2      DD DISP=SHR,
//            DSN=&HLQSMPNV..CNMSAMP
//OÑ1      DD DISP=SHR,DSN=&CONFLIB.
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(CYL,(5,1))
//SYSUT4   DD UNIT=SYSALLDA,SPACE=(CYL,(5,1))
//SYSIN    DD *
 
 C O=OÑ1,I=IÑ1
 
 SELECT  MEMBER=(INGSALLC,INGSDEL)
 SELECT  MEMBER=(INGSAMSA,HSASPRM)
 SELECT  MEMBER=(INGSNVSA,INGSINIT,INGSSGEN,INGESCAT,INGSPTOP)
 SELECT  MEMBER=(INGEPRT)
 SELECT  MEMBER=(INGSCMD,INGSAPF,INGSLNK,INGSLPA,INGSSSN,INGSBPX)
 SELECT  MEMBER=(INGESCH,INGSPROG,INGSSYS,INGSMPF,CTIHSAZZ)
 SELECT  MEMBER=(INGSDLG)
 SELECT  MEMBER=(INGSREAD)
 SELECT  MEMBER=(INGSNET,INGSMTAB)
 SELECT  MEMBER=(HSACTWR,HSAPIPLC,INGPIPLC,INGPHOM,INGPIXCU)
 SELECT  MEMBER=(INGJICVM)
 SELECT  MEMBER=(INGSJ010)
 SELECT  MEMBER=(INGSEVNT,INGSEINT,INGSMCFG,INGMFMTO)
 SELECT  MEMBER=(INGSADPT,INGSEAGT,INGSCE2E,INGMFMTE)
 SELECT  MEMBER=(INGDVIPA)
 SELECT  MEMBER=(INGSGENL,INGSSAF)
 
 C O=OÑ1,I=IÑ2
 
 SELECT  MEMBER=((CNMS0001,AMODETAB))
 SELECT  MEMBER=((CNMS0011,AUSSTAB))
 SELECT  MEMBER=((CNMS0040,ISTSDCOS))
 SELECT  MEMBER=((CNMS0050,INTERCOS))
 
/*
//IFÑÑ0030 IF (STEP0030.RC  EQ 00      OR
//             STEP0030.RUN EQ FALSE)  THEN
//STEP0040 EXEC PGM=IKJEFT1B,REGION=32M,
//            PARM='%INGRPREP INGOPTS INGCONF INGSVDT INGDSIP'
//INGOPTS  DD DISP=SHR,
//            DSN=&CONFWRK.(&OPTSMEM.)
//INGCONF  DD DISP=SHR,
//            DSN=&CONFLIB.
//INGSVDT  DD DISP=SHR,
//            DSN=&HLQSMPSA..SINGSAMP(INGDSVDT)
//INGDSIP  DD DISP=SHR,
//            DSN=&HLQSMPNV..DSIPARM(CNMSTYLE)
//SYSPROC  DD DISP=SHR,
//            DSN=&HLQSMPSA..SINGTREX                              @L1C
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//EIFÑÑ030 ENDIF                       Copy Member to CONFLIB
//EIFÑÑ020 ENDIF                       Allocate new   CONFLIB
//

Emuframe image

Comprobar que termina bien.

Emuframe image

Emuframe image

Instrucciones $INGREAD

Con la ejecución del job anterior, se han creado una serie de miembros dentro de la librería **.CONFLIB. Uno de ellos es **$INGREAD** y contiene las instrucciones que debemos seguir para la instalación.

Crear “working datasets”

Tenemos que ejecutar el job INGDSALC. Antes, en el caso de la versión ADCD, tengo que añadir la STORCLAS a cada creación de fichero para que vayan al disco que quiero.

STORCLAS(SCNOSMS)   -

Emuframe image

Comprobar que el job termina bien.

Emuframe image

Comprobar que todos los datasets se han creado en el disco deseado.

Emuframe image

Configuración NetView DSIPARM

Al ser una instalación nueva, hay que copiar los siguientes miembros de SA430.ADCDPL.CONFLIB a SA430.SA00.DSIPARM:

  • CNMSTGEN
  • INGESCAT
  • INGPTOP
  • INGXINIT

Emuframe image

Copiar HSAPRMSA a PARMLIB

Copiar el miembro HSAPRMSA (Automation Manager) de SA430.ADCDPL.CONFLIB a la PARMLIB que se ha creado durante la instalación (en mi caso, SA430.SA00.PARMLIB).

Emuframe image

Copiar STCs a PROCLIB

Copiar los siguientes miembros a la PROCLIB del sistema (en mi caso, USER.Z31B.PROCLIB):

  • INGEAMSA
  • INGENVSA
  • INGESSI
  • INGEPRT
  • INGEIPLC
  • INGPIPLC
  • INGPHOM
  • INGPIXCU

Si planeamos hacer que NetView arranque antes que JES2 (y no a la vez), debemos copiar INGEAMSA, INGENVSA y INGESSI a SYS1.PROCLIB. Por ejemplo, para que sea System Automation el que arranque todas las tareas.

https://www.ibm.com/docs/en/z-netview/6.4.0?topic=initialization-starting-netview-program-before-jes 

Emuframe image

Emuframe image

Configurar PARMLIB

La documentación indica que se pueden copiar los miembros a la PARMLIB correspondiente y editar en IEASYSxx para cargar esos miembros también o simplemente copiar el contenido a los miembros activos. Para evitar tener muchos ficheros diferentes, copiaré el contenido a la configuración activa.

BPXPRMSA

Contenido:

MOUNT FILESYSTEM('SA430.SINGZFS')
      MOUNTPOINT('/usr/lpp/ing')
      TYPE(ZFS)
      MODE(READ)

Emuframe image

COMMNDSA

Contenido:

COM = "S INGEAMSA,JOBNAME=INGAM,SUB=MSTR"
COM = "S INGENVSA,JOBNAME=INGNVSA,SUB=MSTR"
COM = "S INGESSI,JOBNAME=INGNVSSI,SUB=MSTR"

Emuframe image

IEAAPFSA

Contenido. Este lo copiaré al miembro PROGxx correspondiente.

SA430.SINGLOAD
SA430.SINGLODE
SA430.SINGLINK
SA430.SINGLPA
NETVW64.CNMLINK
NETVW64.SAQNLINK
NETVW64.SCNMLNKN
NETVW64.SCNMLNK1
APF ADD
    DSNAME(SA430.SINGLOAD)                               VOLUME(SA4300)
APF ADD
    DSNAME(SA430.SINGLODE)                               VOLUME(SA4300)
APF ADD
    DSNAME(SA430.SINGLINK)                               VOLUME(SA4300)
APF ADD
    DSNAME(SA430.SINGLPA)                                VOLUME(SA4300)
APF ADD
    DSNAME(NETVW64.CNMLINK)                              VOLUME(SA4300)
APF ADD
    DSNAME(NETVW64.SAQNLINK)                             VOLUME(SA4300)
APF ADD
    DSNAME(NETVW64.SCNMLNKN)                             VOLUME(SA4300)
APF ADD
    DSNAME(NETVW64.SCNMLNK1)                             VOLUME(SA4300)

Emuframe image

IEFSSNSA

Contenido. En mi caso, el parámetro de JES2 ya lo tengo definido igual. Añadiré el segundo al final (o después de la definición de JES2).

Además, ya tenía definido un subsistema de NetView. He comentado esa configuración.

                                       /* NAME OF PRIMARY SUBSYSTEM  */
SUBSYS SUBNAME(JES2) PRIMARY(YES) START(NO)
                                       /* NAME OF NETVIEW SUBSYS @01C*/
SUBSYS SUBNAME(INGN) INITRTN(DSI4LSIT) INITPARM('TINYDS')

Emuframe image

CNMLINK

Contenido. Este lo copiaré al miembro PROGxx correspondiente.

SA430.SINGLOAD
SA430.SINGLINK
NETVW64.CNMLINK
NETVW64.SAQNLINK
NETVW64.SCNMLNKN
NETVW64.SCNMLNK1
LNKLST ADD NAME(LNKLST00) DSN(SA430.SINGLOAD)           VOLUME(SA4300)
LNKLST ADD NAME(LNKLST00) DSN(SA430.SINGLINK)           VOLUME(SA4300)
LNKLST ADD NAME(LNKLST00) DSN(NETVW64.CNMLINK)          VOLUME(SA4300)
LNKLST ADD NAME(LNKLST00) DSN(NETVW64.SAQNLINK)         VOLUME(SA4300)
LNKLST ADD NAME(LNKLST00) DSN(NETVW64.SCNMLNKN)         VOLUME(SA4300)
LNKLST ADD NAME(LNKLST00) DSN(NETVW64.SCNMLNK1)         VOLUME(SA4300)

Emuframe image

LPALSTSA

Contenido:

SA430.SINGLPA,
NETVW64.SCNMLPA1

Emuframe image

CTIHSAZZ

Si no existe ya, copiarlo al PARMLIB.

Emuframe image

MPFLSTXX

Añadir los siguientes mensajes al miembro correspondiente de MPFLSTxx de la PARMLIB que estemos usando.

Esto sirve para que solo se mande el mensaje AOF603D al AUTO y no el resto de mensajes AOF*.

AOF603D es el reply (WTOR) de arranque de System Automation.

AOF603D,SUP(NO),RETAIN(NO),AUTO(YES)
AOF*,SUP(NO),RETAIN(NO),AUTO(NO)

¡MUY IMPORTANTE! Si tenemos una entrada tipo:

.NO_ENTRY,AUTO(NO)

(como la que se ve en la imagen)

Emuframe image

Debemos cambiarlo a AUTO(YES) porque si no lo hacemos, habrá tareas que muestren mensajes que no estarán contemplados por este MPF LIST y tampoco llegarán a System Automation. Por lo tanto, las tareas se quedarán esperando un mensaje de “UP” que nunca recibirán.

.NO_ENTRY,AUTO(YES)

Emuframe image

Configurar VTAM

Hay que ejecutar el miembro INGMTAB de la librería SA430.ADCDPL.CONFLIB para crear unos recursos de VTAM en la nueva librería SA430.ADCDPL.CONFLIB.VTAMLIB.

En mi caso, en el paso DSALC tuve que añadir “STORCLAS=SCNOSMS,”.

//DSALC    EXEC PGM=IEFBR14
//ALLOC    DD DSN=SA430.ADCDPL.CONFLIB.VTAMLIB,
//            DISP=(NEW,CATLG,CATLG),STORCLAS=SCNOSMS,
//            UNIT=3390,VOL=SER=SA4300,
//            SPACE=(TRK,(15,15,15)),DSNTYPE=PDS,
//            DCB=(RECFM=U,LRECL=0,BLKSIZE=6144)

Comprobar que termina bien.

Emuframe image

Tendremos los siguientes módulos, de los cuales sólo voy a copiar AMODETAB e ISTSDCOS a mi VTAMLIB activa (en mi caso, USER.Z31B.VTAMLIB). El motivo es que ya tengo un AUSSTAB personalizado que modificaré más adelante y el miembro INTERCOS indica que es opcional.

Para saber las librerías VTAMLIB y VTAMLST de las que disponemos, hay que mirar la STC de VTAM. Ahí aparecerá la concatenación de librerías de ambas DDs.

Emuframe image

Emuframe image

Copiar el miembro SA430.ADCDPL.CONFLIB(MNING01) a una librería **.VTAMLST que usemos en el sistema (en mi caso, USER.Z31B.VTAMLST).

Emuframe image

Añadirlo al miembro ATCCONxx de la librería **.VTAMLST. En mi caso, USER.Z31B.VTAMLST(ATCCON00). De esta manera, esos nodos se activarán cuando arranque VTAM.

Emuframe image

Configurar Seguridad - RACF

Hay que ejecutar el job SA430.ADCDPL.CONFLIB(INGGENL). Este job crea una librería con un job que contiene los comandos de RACF para configurar toda la seguridad.

Recomiendo poner más espacio en el parámetro SPACE del que viene por defecto.

//CNFREALC EXEC PGM=IKJEFT01,REGION=32M
//SYSPROC  DD DSN=SA430.SINGTREX,DISP=SHR
//SYSTSIN  DD *
 INGRRSYM DEBUG=NO TRACE=O -
          ACTION=EXECUTE -
          DDIN=REALCCMD
/*
//SYSTSPRT DD SYSOUT=*
//REALCCMD DD *
 DELETE 'SA430.ADCDPL.CONFLIB.&SYSNAME.'
 ALLOCATE -
  DATASET('SA430.ADCDPL.CONFLIB.&SYSNAME.') -
   NEW CATALOG -
   VOL(SA4300) UNIT(3390) -
   STORCLAS(SCNOSMS) -
   TRACKS -
   DSORG(PO) -
   DIR(5) -
   SPACE(30,15,) -
   RECFM(F,B) -
   LRECL(80) -
   BLKSIZE(27920)
/*
//*
//IFÑDSA   IF (CNFREALC.RC  EQ 00      OR
//             CNFREALC.RUN EQ FALSE)  THEN
//*-------------------------------------------------------------------
//*  Generate System Specific SAF command member into CONFLIB.sysname
//*-------------------------------------------------------------------
//SAFGENL  EXEC PGM=IKJEFT01,REGION=32M
//SYSPROC  DD DSN=SA430.SINGTREX,DISP=SHR
//SYSTSIN  DD *
 INGRRSYM DEBUG=NO TRACE=O -
   DDIN=SAFDSIN -
   DDDROP=SAFSYM -
   DDOUT='SA430.ADCDPL.CONFLIB.&SYSNAME.(INGESAF)'
/*
//SAFDSIN  DD DISP=SHR,DSN=SA430.ADCDPL.CONFLIB(INGESAF)
//SAFSYM   DD *
  &SLASHFW
/*
//SYSTSPRT DD SYSOUT=*
//*
//EIFÑDSA  ENDIF                       Allocate Local CONFLIB DS
//*
//

Comprobar que termina bien.

Emuframe image

Ahora tendremos la nueva librería SA430.ADCDPL.CONFLIB.sysname (en mi caso, SA430.ADCDPL.CONFLIB.S0W1). Dentro tendremos el job para hacer la configuración de RACF.

MUY IMPORTANTE. Revisar bien ese job antes de ejecutar. Es mejor ir ejecutando los comandos poco a poco y solo aquellos que necesitemos.

Algunos cambios que he tenido que hacer.

Para evitar este error:

https://www.ibm.com/docs/en/zos/3.1.0?topic=messages-irr52174i 

IRR52174I Incorrect UID 90004. This value is already in use by AUTINIT1.

C '(UID(90004) +' '(UID(90004) SHARED +'

Para evitar el error al crear perfiles de dataset genéricos con doble asterisco ”**”:

IKJ56702I INVALID DATASET NAME, ‘SA430.**’

Enhanced Generic Naming

https://www.ibm.com/docs/en/zos/3.1.0?topic=pnds-generic-profile-rules-when-enhanced-generic-naming-is-active 

SETROPTS EGN

Emuframe image

IMPORTANTE: Cuando revisemos la salida del job no debemos fijarnos solo en que termine con RC=00. Esto solo indica que los comandos de RACF se han ejecutado. Debemos revisar la salida completa para ver los errores que hayan podido aparecer por los comandos.

En mi caso, me ha dado este error en algunos usuarios. Esto parece debido a que la DB de RACF se ha quedado sin espacio. Para poder corregirlo, debería sacar un listado de los usuarios que han dado este error, ampliar la DB de RACF y volver a dar los comandos.

ICH51013I PROFILE ADDED OR ALTERED BUT NO ROOM TO MAKE ALIAS INDEX ENTRY.

Emuframe image

Crear directorios - MKDIR

Por último, debemos crear los directorios en OMVS que hemos definido en la configuración. Se puede hacer con este job:

//$05MKDIR JOB CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
//   REGION=0M
//MKDIR    EXEC PGM=IKJEFT1A
//SYSTSPRT DD   SYSOUT=*
//STDOUT   DD   SYSOUT=*
//STDERR   DD   SYSOUT=*
//SYSTSIN  DD   *
  BPXBATCH SH mkdir -p /u/autooper
  BPXBATCH SH mkdir -p /var/ing

Emuframe image

Comprobar que termina bien.

Emuframe image

Opcional - Registro SMF 114

Se puede añadir el registro 114 de SMF para informes de disponibilidad.

https://www.ibm.com/docs/en/z-system-automation/4.3.0?topic=members-step-4i-update-smfprmxx 

En mi caso, se capturan todos menos el tipo 99.

Emuframe image

Últimos cambios antes de IPL

Voy a explicar algunas modificaciones previas que ayudarán a resolver algunos errores del primer arranque.

STC - INGEAMSA

El primer arranque debe ser con TYPE=COLD para que formatee los ficheros.

Emuframe image

En el fichero de parámetros que usa la STC INGEAMSA, SA430.SA00.PARMLIB(HSAPRMSA), desactivar el LOG STREAM (LOGSTREAM=NO).

Emuframe image

STC - INGENVSA

Para esta STC puse el parámetro LOGSTREAM=NO en su fichero de configuración DSIPARM porque, de momento, no lo voy a usar.

Emuframe image

En mi caso: SA430.SA00.DSIPARM(INGXINIT)

Emuframe image

Modificar IEASYMxx

Debemos añadir los siguientes símbolos al fichero IEASYMxx que estemos usando. Se puede ver con el comando D IPLINFO.

CNMDOMN es el dominio que configuramos en el miembro INGDOPT.

CNMTCPN es el nombre de TCPIP.

CNMNETID es el nombre de la red.

SYMDEF(&CNMDOMN='SA01')
SYMDEF(&CNMTCPN='TCPIP')
SYMDEF(&CNMNETID='NETD')

Emuframe image

RACF - Permisos adicionales

En el sistema ADCD, aparecerán estos errores de RACF cuando arranque la tarea INGNVSA:

RO T=28,*ALL,D IPLINFO
IEE345I ROUTE    AUTHORITY INVALID, FAILED BY SECURITY PRODUCT
ICH408I USER(START1  ) GROUP(SYS1    ) NAME(ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ) 011
  MVS.ROUTE.CMD.ALLSYSTEMS CL(OPERCMDS)
  INSUFFICIENT ACCESS AUTHORITY
  FROM MVS.ROUTE.CMD.* (G)
  ACCESS INTENT(READ   )  ACCESS ALLOWED(NONE   )
 
ICH408I USER(AUTINIT1) GROUP(INGAUTO ) NAME(ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ)  969
  MVS.MCSOPER.AINIT1W1 CL(OPERCMDS)
  INSUFFICIENT ACCESS AUTHORITY
  FROM MVS.MCSOPER.* (G)
  ACCESS INTENT(READ   )  ACCESS ALLOWED(NONE   )
AOF206I 11:10:24 : "MVS DISPLAY TIME" COMMAND FAILED FOR AOFRANTL  970
 : RECEIVED "DWO521I TASK AUTINIT1 IS NOT AUTHORIZED BY THE
 SECURITY SOFTWARE TO OBTAIN EXTENDED CONSOLE AINIT1W1  "
 
 ICH408I USER(AUTINIT1) GROUP(INGAUTO ) NAME(ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ)  148
  MVS.DISPLAY.TIMEDATE CL(OPERCMDS)
  INSUFFICIENT ACCESS AUTHORITY
  FROM MVS.DISPLAY.* (G)
  ACCESS INTENT(READ   )  ACCESS ALLOWED(NONE   )
AOF206I 11:25:27 : "MVS DISPLAY TIME" COMMAND FAILED FOR AOFRANTL  149
 : RECEIVED "IEE345I DISPLAY  AUTHORITY INVALID, FAILED BY
 SECURITY PRODUCT  "

Dar los siguientes comandos para asignar los permisos correctos:

PERMIT MVS.ROUTE.CMD.* CLASS(OPERCMDS) ID(SYS1) ACCESS(READ)
PERMIT MVS.MCSOPER.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(READ)
PERMIT MVS.DISPLAY.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(READ)
 
Otros comandos para evitar errores cuando se arranque System Automation con la automatización activada:
 
PERMIT MVS.ROUTE.CMD.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(READ)
PERMIT MVS.CANCEL.STC.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(UPDATE)
 
PERMIT MVS.START.STC.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(UPDATE)
PERMIT MVS.MODIFY.STC.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(UPDATE)
PERMIT MVS.STOP.STC.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(UPDATE)
 
PERMIT MVS.* CLASS(OPERCMDS) ID(INGAUTO) ACCESS(UPDATE)
 
Refrescar configuración:
SETROPTS RACLIST(OPERCMDS) REFRESH

Emuframe image

Emuframe image

En el miembro de configuración de NetView, hay que activar la autenticación por SAF (RACF en mi caso) para que podamos acceder al producto.

En mi caso, tengo que editar SA430.SA00.DSIPARM(CNMSTGEN) para modificar y añadir lo siguiente:

SECOPTS.OPERSEC = SAFDEF
*SECOPTS.OPERSEC = SAFPW
SECOPTS.CMDAUTH = SAF.PASS
*SECOPTS.CMDAUTH = TABLE.INGESCAT
 
Para evitar errores, añadir:
SECOPTS.OPSPAN = SAF

Emuframe image

Después tenemos que conectar los usuarios personales a uno de los grupos que hemos definido en RACF (según el nivel de acceso que deban tener): INGSUPER, INGADMIN, INGOPER, INGUSER

En mi caso, quiero todos los permisos:

CONNECT IBMUSER GROUP(INGSUPER)

Asignar jobID a la STC INGNVSA - DSIRQJOB

DSIRQJOB es una tarea interna de NetView que sirve para asignar un jobID a la STC “INGNVSA” cuando arrancamos con “SUB=MSTR” y poder ver una parte del joblog desde SDSF para detectar errores. Por defecto, viene desactivado.

Para activarlo:

Copiamos el miembro CNMSTYLE de la librería TARGET de NetView DSIPARM a nuestra librería donde estamos realizando las modificaciones.

Emuframe image

En mi caso, de NETVW64.DSIPARM(CNMSTYLE) a SA430.SA00.DSIPARM

Emuframe image

Localizamos la siguiente línea y la marcamos como comentario:

*TASK.DSIRQJOB.MOD=*NONE*

Emuframe image

Ponemos el parámetro TASK.DSIRQJOB.INIT a Yes para que arranque la tarea interna de NetView DSIRQJOB:

TASK.DSIRQJOB.INIT = Y

Emuframe image

Cuando hagamos IPL y arranque NetView, podemos comprobar que esta tarea está activa con los comandos:

LIST DSIRQJOB
TASKUTIL DSIRQJOB

Emuframe image

Para poder arrancar NetView completamente antes que JES2 y que se asigne un jobID posteriormente, debemos cumplir los requisitos que se indican aquí:

https://www.ibm.com/docs/en/z-netview/6.4.0?topic=initialization-starting-netview-program-before-jes 

La documentación indica:

• All data sets must be referenced by VOL=SER or be cataloged in the master catalog.

Si has seguido esta instalación, los datasets no los tenemos catalogados en el catálogo maestro. Aún no he probado si es necesario, pero dejo la STC modificada con los parámetros incluidos:

//INGENVSA PROC PROG=DSIMNT,
//*                            ** NETVIEW DOMAIN NAME
//       DOMAIN=SA01,
//*                            ** GROUPID AS PART OF THE NAME OF
//*                               SA PLEX SHARED DATASETS
//       GRPID=SA,
//*                            ** USER DSN HIGH LEVEL QUALIFIER
//       Q1=SA430.SA00,
//*                            ** NETVIEW DSN HIGH LVL QUALIFIER
//       SQ1=NETVW64,
//*                            ** SA z/OS DSN HIGH LVL QUALIFIER
//       SQ2=SA430,
//*                            ** VSAM DSN    HIGH LVL QUALIFIER
//       VQ1=SA430.SA00,
//*                            ** SA z/OS DSN HIGH LVL QUALIFIER-VSAM
//       VQ2=SA430.SA00,
//*                            ** IWS DSN HIGH LVL QUALIFIER
//       EQQ=TWS,
//*                            ** IWS MLOG DS NAME OF LOCAL TRACKER
//       EQQMLOG=TWS.V101A.MLOG,
//* Comment out the following symbolic if starting NetView before JES
//*      SOUTA='*',            ** Default printed output class
//       REG=0,                ** Region Size(Im MB) for NetView
//       SUBSYM='',            ** Symbolic substitution switch
//*                            ** *SUBSYM = enable symbolic substitution
//*                            ** *NOSUBSYM = disable symbolic
//*                            **             substitution
//*                            ** Default option: *SUBSYM
//       NV2I='',
//*                            ** UNIQUE AID  A two character value
//*                            ** used to build a symbolic in SA z/OS
//*                            ** If you specify a value, you MUST
//*                            ** rename/copy CNMSTYLE to CxxSTYLE
//*                            ** to match.
//*                            ** Default Value: NM
//       TRSIZE=''
//*                            ** INTERNAL TRACE TABLE SIZE - Number
//*                            ** of pages to be allocated for the
//*                            ** NetView Internal Trace tablewhich is
//*                            ** located in a data space.
//*                            ** Valid Range:   0-524286
//*                            ** Default Value: 4000
//*                            ** If a value of 0 is passed, internal
//*                            ** trace is not started early.
//*                            ** Trace options in CNMSTYLE take effect
//*                            ** even if trace is not started early.
//*
//**********************************************************************
//NETVIEW  EXEC PGM=&PROG,TIME=1440,
//         REGION=&REG.M,
//         PARM=(24K,200,
//           '&DOMAIN','','','&SUBSYM','&NV2I','&TRSIZE'),
//         DPRTY=(13,13)
//DSICLD   DD   DSN=&Q1..CNMCLST,DISP=SHR,             USER TARGET
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ2..SINGREXX,DISP=SHR,           SA TARGET  @L2C
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..SAQNCLST,DISP=SHR,           NETVIEW TARGET
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..CNMCLST,DISP=SHR,            NETVIEW TARGET
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..CNMSAMP,DISP=SHR,            NETVIEW SAMPLIB
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//DSIOPEN  DD   DSN=&SQ1..SDSIOPEN,DISP=SHR,
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//DSIPARM  DD   DSN=&Q1..&DOMAIN..DSIPARM,DISP=SHR,    USER TARGET
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&Q1..DSIPARM,DISP=SHR,             USER TARGET
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ2..SINGPARM,DISP=SHR,           SA TARGET  @L2C
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..SAQNPARM,DISP=SHR,           NETVIEW TARGET
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..DSIPARM,DISP=SHR,            NETVIEW TARGET
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//DSILIST  DD   DSN=&Q1..&DOMAIN..DSILIST,DISP=SHR,    USER TARGET
//    UNIT=3390,VOL=SER=SA4300
//DSIASRC  DD   DSN=&Q1..&DOMAIN..DSIASRC,DISP=SHR,    USER TARGET
//    UNIT=3390,VOL=SER=SA4300
//DSIARPT  DD   DSN=&Q1..&DOMAIN..DSIARPT,DISP=SHR,    USER TARGET
//    UNIT=3390,VOL=SER=SA4300
//DSIVTAM  DD   DUMMY
//********************************************************************
//DSIPRF   DD   DSN=&SQ2..SINGPRF,DISP=SHR,            SA TARGET  @L2C
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..DSIPRF,DISP=SHR,             NETVIEW TARGET
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//* SA z/OS Message library
//*
//DSIMSG   DD   DSN=&SQ2..SINGMENU,DISP=SHR,           SA US      @L2C
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..SDSIMSG1,DISP=SHR,           NETVIEW TARGET
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//* SA z/OS Panel library
//*
//BNJPNL1  DD   DSN=&SQ1..BNJPNL1,DISP=SHR,
//    UNIT=3390,VOL=SER=SA4300
//BNJPNL2  DD   DSN=&SQ1..BNJPNL2,DISP=SHR,
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//CNMPNL1  DD   DSN=&SQ2..SINGPENU,DISP=SHR,           SA US      @L2C
//    UNIT=3390,VOL=SER=SA4300
//         DD   DSN=&SQ1..CNMPNL1,DISP=SHR,            NETVIEW US
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//* AUTOMATION STATUS FILE
//*
//AOFSTAT  DD  DSN=&Q1..&DOMAIN..STATS,DISP=SHR,
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//* SA z/OS password dataset
//*
//INGPSWD  DD  DSN=&Q1..INGXSG&GRPID..INGPSWD,
//    UNIT=3390,VOL=SER=SA4300,
//         DISP=SHR,AMP='AMORG,BUFNI=10,BUFND=5'
//********************************************************************
//* Relational Data Services File (RDS)
//*
//INGEMUGL DD DSN=&VQ2..&DOMAIN..EMUGLBL,DISP=SHR,
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//* IPLDATA collection dataset
//*
//HSAIPL   DD   DSN=&VQ2..INGXSG&GRPID..IPLDATA,DISP=SHR,
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//* NETVIEW LOG DATASETS
//*
//DSILOGP  DD   DSN=&VQ1..&DOMAIN..DSILOGP,
//    UNIT=3390,VOL=SER=SA4300,
//         DISP=SHR,AMP='AMORG,BUFNI=20,BUFND=20'
//DSILOGS  DD   DSN=&VQ1..&DOMAIN..DSILOGS,
//    UNIT=3390,VOL=SER=SA4300,
//         DISP=SHR,AMP='AMORG,BUFNI=20,BUFND=20'
//********************************************************************
//* NetView trace log
//* - enable the following entries according to your needs
//*DSITRCP  DD   DSN=&VQ1..&DOMAIN..DSITRCP,DISP=SHR,AMP=AMORG
//*DSITRCS  DD   DSN=&VQ1..&DOMAIN..DSITRCS,DISP=SHR,AMP=AMORG
//********************************************************************
//* SAVE/RESTORE FACILITY VSAM DATA BASE
//*
//DSISVRT  DD   DSN=&VQ1..&DOMAIN..DSISVRT,
//    UNIT=3390,VOL=SER=SA4300,
//         DISP=SHR,AMP=AMORG
//********************************************************************
//* IWS Datasets
//*
//EQQMLOG  DD   DSN=&EQQMLOG.,DISP=SHR,
//    UNIT=3390,VOL=SER=TWS000
//EQQMLIB  DD   DSN=&EQQ..SEQQMSG0,DISP=SHR,
//    UNIT=3390,VOL=SER=TWS000
//EQQDUMP  DD   DUMMY
//********************************************************************
//* Diagnostic Information
//*
//INGDUMP  DD   DSN=&VQ2..&DOMAIN..INGDUMP,DISP=SHR,
//    UNIT=3390,VOL=SER=SA4300
//********************************************************************
//* use the following dummy card to avoid a SYSOUT reference if you
//* are starting NetView before starting JES
//SYSPRINT DD   DUMMY
//*SYSPRINT DD   SYSOUT=&SOUTA
//

En este punto ya podemos hacer IPL. Después de eso, las tareas deberían arrancar, pero aún no tenemos una DB de políticas de automatización.

Después de IPL

Como las tareas habrán arrancado con “SUB=MSTR”, solo podremos ver el jobLog de la tarea INGNVSA.

COM = "S INGEAMSA,JOBNAME=INGAM,SUB=MSTR"
COM = "S INGENVSA,JOBNAME=INGNVSA,SUB=MSTR"
COM = "S INGESSI,JOBNAME=INGNVSSI,SUB=MSTR"

En SDSF → DA

Emuframe image

Si queremos comprobar que todo ha ido bien, se pueden parar las tareas y volver a arrancarlas sin “SUB=MSTR”. De esta manera, veremos el log completo y podremos confirmar que las tareas que estamos probando funcionan.

P INGNVSA
P INGNVSSI
P INGAM

La tarea INGAM tiene otras opciones de parada cuando no podemos esperar a que termine algún proceso interno:

https://www.ibm.com/docs/en/z-system-automation/4.3.0?topic=operations-automation-managers-started-task 

F INGAM,STOP,IMMED
F INGAM,STOP,FORCE
 
O:
F INGAM,STOP,DEFER

Arrancar con:

S INGEAMSA,JOBNAME=INGAM
S INGENVSA,JOBNAME=INGNVSA
S INGESSI,JOBNAME=INGNVSSI

Dejo el log de arranque de mis tareas como referencia.

INGAM

El mensaje HSAM1304A es debido a que no he creado una DB de políticas de automatización.

1                       J E S 2  J O B  L O G  --  S Y S T E M  S 0 W 1  --  N O D E  S 0 W 1
0
 14.15.37 STC04482 ---- SATURDAY,  03 JAN 2026 ----
 14.15.37 STC04482  IEF695I START INGEAMSA WITH JOBNAME INGAM    IS ASSIGNED TO USER START1  , GROUP SYS1
 14.15.37 STC04482  $HASP373 INGAM    STARTED
 14.15.37 STC04482  IEF403I INGAM - STARTED - TIME=14.15.37
 14.15.37 STC04482  IEF761I INGAM INGAM HSAPLIB HSAPSPLM/A DD IS ALREADY ALLOCATED AND WILL BE USED BY THIS TASK.
 14.15.37 STC04482  IEE252I MEMBER HSAPRMSA FOUND IN SA430.SA00.PARMLIB
 14.15.37 STC04482  IEE252I MEMBER CTIHSAZZ FOUND IN USER.Z31B.PARMLIB
 14.15.37 STC04482  HSAM1004I ARM REGISTER FAILED FOR ELEMENT=HSAAM_S0W1$$$$1 TYPE=HSAMGR, IXCARM RET=0000000C RSN=00000160.
 14.15.37 STC04482  HSAM1005I COMMUNICATION IS XCF ONLY. THE TAKEOVER FILE WILL BE USED FOR HOT START AND RECOVERY PURPOSES.
 14.15.37 STC04482  HSAM1389I BUILD ID FOR HSAPIEHM 2022064 024003 16 01.
 14.15.37 STC04482  HSAM1000I AUTOMATION MANAGER SUBTASKS ARE BEING STARTED.
 14.15.37 STC04482  HSAL1083I AUTOMATION MANAGER HAS CREATED THE INITIAL POSIX THREAD WITH PID=16842760.
 14.15.37 STC04482  HSAL1072I AUTOMATION MANAGER IS BLOCKING OMVS SHUTDOWN.
 14.15.37 STC04482  HSAM1315I SUCCESSFUL ALLOCATION OF TAKEOVER FILE SA430.SA00.INGXSGSA.TAKEOVER.
 14.15.37 STC04482  HSAL1107I REFRESH OF TAKEOVER FILE DSN=SA430.SA00.INGXSGSA.TAKEOVER WITH CURRENT AUTOMATION MANAGER DATA STARTED.
 14.15.38 STC04482  HSAL1108I REFRESH OF TAKEOVER FILE DSN=SA430.SA00.INGXSGSA.TAKEOVER COMPLETED.
 14.15.38 STC04482  INGY1004I AUTOMATION MANAGER CALL FAILED. RC=x'0008', REASON=x'10D4'
 14.15.38 STC04482  HSAM1305I UNABLE TO PROCESS SA z/OS AUTOMATION CONFIGURATION DATA SET SA430.$POLICY.S0W1.PDB.SOCNTL.
 14.15.38 STC04482 *03 HSAM1304A SPECIFY SA z/OS AUTOMATION CONFIGURATION DATA SET NAME.
 14.15.38 STC04482  HSAM1310I RC=8 REAS=4308 OPCODE=08010001 (MAIN.2) ReadConfiguration.
 14.15.38 STC04482  HSAM1311I Config map could not be opened, PROBLEM WITH:  040
    040             'SA430.$POLICY.S0W1.PDB.SOCNTL(AOFACFMP)': ERROR 67: EDC5067I An
    040             attempt was made to open a nonexistent file for read.

INGNVSSI

1                       J E S 2  J O B  L O G  --  S Y S T E M  S 0 W 1  --  N O D E  S 0 W 1
0
 14.15.54 STC04484 ---- SATURDAY,  03 JAN 2026 ----
 14.15.54 STC04484  IEF695I START INGESSI  WITH JOBNAME INGNVSSI IS ASSIGNED TO USER START1  , GROUP SYS1
 14.15.54 STC04484  $HASP373 INGNVSSI STARTED
 14.15.54 STC04484  IEF403I INGNVSSI - STARTED - TIME=14.15.54
 14.15.54 STC04484  CNM226I NetView Program to Program Interface initialization is completed
 14.15.54 STC04484  CNM541I NetView subsystem INGN is fully functional

INGNVSA

1                       J E S 2  J O B  L O G  --  S Y S T E M  S 0 W 1  --  N O D E  S 0 W 1
0
 14.15.45 STC04483 ---- SATURDAY,  03 JAN 2026 ----
 14.15.45 STC04483  IEF695I START INGENVSA WITH JOBNAME INGNVSA  IS ASSIGNED TO USER START1  , GROUP SYS1
 14.15.45 STC04483  $HASP373 INGNVSA  STARTED
 14.15.45 STC04483  IEF403I INGNVSA - STARTED - TIME=14.15.45
 14.15.45 STC04483  DSI244I NETVIEW TRACE ACTIVE FOR TASK = ALL : MODE = INT, SIZE = 4000 WITH OPTIONS = QUE PSS DISP STOR UEXIT MOD
                             SAF TCP
 14.15.45 STC04483  DSI899I DSI244I , SAF TRACE = FAILURES FOR REQUEST TYPES = AUTH EXTRACT FASTAUTH LIST STAT TOKENMAP TOKENXTR
                             VERIFY
 14.15.45 STC04483  CNM910I 'BPX1SDD WITH PROCESSDEFER+JOBPERM+NObashTUNDUB+UNIQUEACEE' REQUEST ACCEPTED
 14.15.45 STC04483  IEC141I 013-64,IFG0196J,INGNVSA,INGNVSA,DSIVTAM,,,  050
    050             NULLFILE
 14.15.45 STC04483  DSI530I 'DSIDCBMT' : 'DSIDCBMT' IS READY AND WAITING FOR WORK
 14.15.46 STC04483  DSI530I 'DSITIMMT' : 'DSITIMMT' IS READY AND WAITING FOR WORK
 14.15.46 STC04483  BNH350I NETVIEW HIGH-LEVEL LANGUAGE SUPPORT HAS BEEN SUCCESSFULLY INITIALIZED WITH LE/370 LIBRARIES
 14.15.46 STC04483  DSI530I 'DSIHLLMT' : 'DSIHLLMT' IS READY AND WAITING FOR WORK
 14.15.46 STC04483  DSI530I 'DSISTMMT' : 'DSISTMMT' IS READY AND WAITING FOR WORK
 14.15.46 STC04483  DSI530I 'DSILOGMT' : 'DSILOGMT' IS READY AND WAITING FOR WORK
 14.15.46 STC04483  ICH70001I SA01PPT  LAST ACCESS AT 13:03:14 ON SATURDAY, JANUARY 3, 2026
 14.15.46 STC04483  DWO854I Canzlog is active.
 14.15.53 STC04483  DSI556I DSILOG : VSAM DATASET 'OPEN' COMPLETED, DDNAME = 'DSILOGP' RETURN CODE = X'00', ACB ERROR FIELD = X'00'
 14.15.53 STC04483  DSI556I DSILOG : VSAM DATASET 'OPEN' COMPLETED, DDNAME = 'DSILOGS' RETURN CODE = X'00', ACB ERROR FIELD = X'00'
 14.15.53 STC04483  DSI530I 'DSILOG  ' : 'DST' IS READY AND WAITING FOR WORK
 14.15.53 STC04483  DSI240I DSILOG   :  NETWORK LOG IS NOW ACTIVE
 14.15.53 STC04483  BNH803I VALUE *NONE* FOR KEYWORD ARCHIVE.HLQ CONFLICTS WITH VALUE YES FOR KEYWORD ARCHIVE.WRITE
 14.15.54 STC04483  DWO840I OPER1 IS NOT DEFINED TO NETVIEW
 14.15.54 STC04483  DWO840I NETOP1 IS NOT DEFINED TO NETVIEW
 14.15.54 STC04483  NetView "SA01" style sheet processing has begun.
 14.15.54 STC04483  This is an example styleMsg statement in CNMSTUSR.
 14.15.54 STC04483  There is one blank preceding the earlier "is".
 14.15.54 STC04483  Remember, NetView is one word.  The value of &DOMAIN
 14.15.54 STC04483  is "SA01" and &NV2I is "NM".
 14.15.54 STC04483  BNH111I NETVIEW LOGON SCREEN BYPASS IS NOW ENABLED.
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTINIT1
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTINIT2
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTOAON
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTOCMON
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTOCSMF
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTOEDAT
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTOPSAV
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTOXCF
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTOXDSC
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTO1
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK AUTO2
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK DBAUTO1
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK DSIIPCHK
 14.15.54 STC04483  CNM570I STARTING AUTOMATION TASK MVSCMDS
 14.15.54 STC04483  ICH70001I AUTINIT1 LAST ACCESS AT 13:03:29 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTINIT2 LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTOAON  LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTOCMON LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTOCSMF LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTOEDAT LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTOPSAV LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTOXCF  LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTOXDSC LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTO1    LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I AUTO2    LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I DBAUTO1  LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I DSIIPCHK LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.54 STC04483  ICH70001I MVSCMDS  LAST ACCESS AT 13:03:23 ON SATURDAY, JANUARY 3, 2026
 14.15.55 STC04483  DWO044I AUTOMATION TABLE LISTING 'LISTNAME' SUCCESSFULLY GENERATED
 14.15.55 STC04483  DSI410I DSIPARM MEMBER DSITBL01 BEING USED FOR NETVIEW AUTOMATION
 14.15.55 STC04483 *04 DSI802A SA01     REPLY WITH VALID NCCF SYSTEM OPERATOR COMMAND
 14.15.55 STC04483  DSI530I 'DSIWTOMT' : 'SYSOP' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  DSI530I 'DSIACBMT' : 'SA01' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  DSI530I 'DSIGKPMT' : 'DSIGKPMT' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  DSI530I 'CNMCSSIR' : 'Subsystem Router' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  INGY1131I PPI Receiver INGUXPPI is active. TASK=INGUXPPI
 14.15.55 STC04483  CNM112I LOG BROWSE TASK INITIALIZATION IS COMPLETE
 14.15.55 STC04483  DWO154I NETVIEW HAS RECEIVED JES JOBID STC04483
 14.15.55 STC04483  DSI530I 'DSIRQJOB' : 'OPT' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  DSI556I DSISVRT : VSAM DATASET 'OPEN' COMPLETED, DDNAME = 'DSISVRT' RETURN CODE = X'00', ACB ERROR FIELD = X'00'
 14.15.55 STC04483  DSI530I 'DSISVRT ' : 'DST' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  DWO320I DSIUDST IS ACTIVATING WITH SECURITY LEVEL: NONE
 14.15.55 STC04483  DSI530I 'DUIDGHB ' : 'DST' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  DSI530I 'DSIUDST ' : 'DST' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  DSI530I 'EZLTCFG ' : 'DST' IS READY AND WAITING FOR WORK
 14.15.55 STC04483  BNH740I REMOTE OPERATIONS USING TCP/IP TCPIP ARE NOW ENABLED
 14.15.55 STC04483  DUI513I STATUS FOCAL POINT READING INITIALIZATION PARAMETERS FROM 'DUIFPMEM' AS SPECIFIED IN 'DUIISFP'.
 14.15.55 STC04483  DSI530I 'CNMTAMEL' : 'DST' IS READY AND WAITING FOR WORK
 14.15.56 STC04483  DSI530I 'DSIHPDST' : 'DST' IS READY AND WAITING FOR WORK
 14.15.58 STC04483  DSI633I CNMEAUTB COMMAND SUCCESSFULLY COMPLETED
 14.15.58 STC04483  Auxiliary commands beginning.
 14.15.58 STC04483  EXCMD AUTOAON,EZLEANTL
 14.15.58 STC04483  DSI112I SA01 READY FOR LOGONS AND SYSTEM OPERATOR COMMANDS
 14.15.58 STC04483  DWO854I VTAM is active.
 14.15.58 STC04483  DSI530I 'DSIMONIT' : 'DSIMONIT' IS READY AND WAITING FOR WORK
 14.15.58 STC04483  DSI530I 'DSIXCFMT' : 'DSIXCFMT' IS READY AND WAITING FOR WORK
 14.15.59 STC04483  AOF617I SA z/OS INITIALIZATION STARTED
 14.15.59 STC04483  DWO854I ?MVSCMDREVISION is active.
 14.15.59 STC04483  BNH592I MEMBER SA01 HAS JOINED GROUP DSIPLX01.
 14.15.59 STC04483  BNH588I WAITING FOR SYSPLEX MASTER IN GROUP DSIPLX01 TO BECOME ACTIVE.
 14.15.59 STC04483  IEA630I  OPERATOR AINIT1W1 NOW ACTIVE,   SYSTEM=S0W1    , LU=AUTINIT1
 14.15.59 STC04483  DISPLAY T
 14.15.59 STC04483  IEE136I LOCAL: TIME=14.15.59 DATE=2026.003  UTC: TIME=13.15.59 DATE=2026.003
 14.16.00 STC04483  ICH70001I AUTINIT1 LAST ACCESS AT 14:15:54 ON SATURDAY, JANUARY 3, 2026
 14.16.02 STC04483  RO T=28,*ALL,D IPLINFO
 14.17.16 STC04483  DSI530I 'DSI6DST ' : 'DST' IS READY AND WAITING FOR WORK
 14.17.16 STC04483  BNH020I DSI6SCF PROCESSED SUCCESSFULLY.  0 ENTRY POINTS WERE ADDED TO THE SPHERE OF CONTROL

Acceso a NetView

Para acceder a NetView, en el caso de ADCD, usaremos el comando:

L SA01

En otros sistemas podría ser:

logon applid(SA01)
o
logon applid=SA01

El nombre de la aplicación lo encontramos en el miembro MNING01 que incluimos en la librería VTAMLST anteriormente.

Parámetro: “SA01 APPL”

Emuframe image

Emuframe image

Emuframe image

Cuando entramos, podemos definir las teclas para movernos por el log de NetView (comando BLOG) usando el comando PFKDEF.

Emuframe image

Configurar PF Keys por defecto

Si no queremos tener que asignar las PF Keys cada vez que entramos, debemos definir el segmento NETVIEW al usuario deseado:

ALTUSER your_userid NETVIEW(IC(LOGPROF1) MSGRECVR(NO) CTL(GLOBAL))
 
ALTUSER IBMUSER NETVIEW(IC(LOGPROF1) MSGRECVR(NO) CTL(GLOBAL))

Emuframe image

De esta forma, al entrar, se ejecutará el REXX LOGPROF1 automáticamente que, entre otras cosas, asigna la definición de las PF Keys.

Emuframe image

Con el comando SDF, podemos entrar a los paneles que más adelante nos mostrarán el estado de las tareas en el sistema. Aún no mostrará nada relevante debido a que no tenemos la DB de políticas de automatización.

Emuframe image

En este punto ya tenemos un primer arranque estable.

Lo siguiente será crear una DB de políticas de automatización. Esta información estará en otro apartado en la web.

Last updated on
Conectar Asistente IA con z/OSPolíticas Automatización