Application Delivery Foundation for z/OS Common Components

https://www.ibm.com/docs/en/adffzscc/1.10.0
Admin
Application Delivery Foundation for z/OS Common Components provides shared services and tools...
Tokens:11,627
Snippets:17
Trust Score:10
Update:10 months ago
Show doc for...
Tokens:
Raw
### Copy ADFzCC Base Sample Installation Jobs using IEBCOPY

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This JCL snippet uses the IEBCOPY utility to copy sample installation jobs for the ADFzCC Base feature from a source data set to a target JCL library. It selects specific members related to SMP/E environment setup, allocation, and application.

```JCL
//STEP1    EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//IN       DD DSN=IBM.HVWR190.F2,
//            DISP=SHR,
//*           VOL=SER=**filevol**,
//            UNIT=SYSALLDA
//OUT      DD DSNAME=**jcl-library-name**,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(5,5,5)),
//*           VOL=SER=**dasdvol**,
//            UNIT=SYSALLDA
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSIN    DD *
    COPY INDD=IN,OUTDD=OUT
    SELECT MEMBER=(IPVWSMPE,IPVWRECV,IPVWALOC)
    SELECT MEMBER=(IPVWDDEF,IPVWAPLY,IPVWACPT)
/*

```

--------------------------------

### SMP/E APPLY CHECK with Recommended Service

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This command performs an SMP/E APPLY CHECK to ensure all recommended and critical service is installed with the specified FMIDs. It requires the latest HOLDDATA and utilizes SOURCEID(RSU*) and FIXCAT(IBM.PRODUCTINSTALL-REQUIREDSERVICE). The GROUPEXTEND operand ensures all requisite SYSMODs are considered.

```jcl
APPLY S(fmid,fmid,...) CHECK
FORFMID(fmid,fmid,...)
SOURCEID(RSU*)
FIXCAT(IBM.PRODUCTINSTALL-REQUIREDSERVICE)
GROUPEXTEND .

```

--------------------------------

### Copy ADFzCC JPN Sample Installation Jobs using IEBCOPY

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This JCL snippet uses the IEBCOPY utility to copy sample installation jobs for the ADFzCC JPN feature from a source data set to a target JCL library. It selects specific members for RECEIVE, ALLOCATE, DDDEF, APPLY, and ACCEPT operations for the Japanese version.

```JCL
//STEP1    EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//IN       DD DSN=IBM.HVWR190.F2,
//            DISP=SHR,
//*           VOL=SER=**filevol**,
//            UNIT=SYSALLDA
//OUT      DD DSNAME=**jcl-library-name**,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(5,5,5)),
//*           VOL=SER=**dasdvol**,
//            UNIT=SYSALLDA
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSIN    DD *
    COPY INDD=IN,OUTDD=OUT
    SELECT MEMBER=(IPVWRCVJ,IPVWALOJ)
    SELECT MEMBER=(IPVWDDFJ,IPVWAPLJ,IPVWACPJ)
/*

```

--------------------------------

### SMP/E APPLY CHECK with HIPER APAR Bypass

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This command performs an SMP/E APPLY CHECK while allowing the installation to proceed even with unresolved HIPER APARs. It uses the BYPASS(HOLDCLASS(HIPER)) operand, requiring subsequent review of the Exception SYSMOD report. It also specifies recommended service and GROUPEXTEND.

```jcl
APPLY S(fmid,fmid,...) CHECK
FORFMID(fmid,fmid,...)
SOURCEID(RSU*)
FIXCAT(IBM.PRODUCTINSTALL-REQUIREDSERVICE)
GROUPEXTEND
BYPASS(HOLDCLASS(HIPER)) .
..any other parameters documented in the program directory

```

--------------------------------

### JCL to Allocate z/OS UNIX File System for Web Downloads

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This JCL job allocates and formats a new z/OS UNIX File System (zFS) and mounts it to a specified path. It uses IDCAMS to define the cluster, IOEAGFMT to format the aggregate, and IKJEFT01 to execute shell commands for directory creation and mounting. The job requires specific parameter substitutions for the zFS dataset name and the mount path. Ensure the userid has SUPERUSER privileges.

```JCL
//FILESYS  JOB <job information>
//* 
//* - Provide valid job card information
//* - Change:
//*   @zfs_path@
//*   ----+----1----+----2----+----3----+----4----+----5
//*              - To the absolute z/OS UNIX path for the download
//*                package (starting with /)
//*              - Maximum length is 50 characters
//*              - Do not include a trailing /
//*   @zfs_dsn@
//*              - To your file system data set name
//* 
//* Your userid MUST be defined as a SUPERUSER to successfully
//* run this job
//* 
//CREATE   EXEC PGM=IDCAMS,REGION=0M,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE CLUSTER ( - 
         NAME(@zfs_dsn@) - 
         TRK(375  10) - 
         LINEAR - 
         SHAREOPTIONS(3) - 
         )
//* 
//         SET ZFSDSN='@zfs_dsn@'
//FORMAT   EXEC PGM=IOEAGFMT,REGION=0M,COND=(0,LT),
//            PARM='-aggregate &ZFSDSN. -compat'
//*STEPLIB  DD DISP=SHR,DSN=IOE.SIOELMOD        before z/OS 1.13
//*STEPLIB  DD DISP=SHR,DSN=SYS1.SIEALNKE       from z/OS 1.13
//SYSPRINT DD SYSOUT=*
//* 
//MOUNT    EXEC PGM=IKJEFT01,REGION=0M,COND=(0,LT)
//SYSEXEC  DD DISP=SHR,DSN=SYS1.SBPXEXEC
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  PROFILE MSGID WTPMSG
  oshell umask 0022; + 
    mkdir -p @zfs_path@
  MOUNT + 
    FILESYSTEM('@zfs_dsn@') + 
    MOUNTPOINT('@zfs_path@') + 
    MODE(RDWR) TYPE(ZFS) PARM('AGGRGROW')
//* 

```

--------------------------------

### Upload ADFzCC Base Package using FTP

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This snippet demonstrates the FTP commands required to upload the ADFzCC Base package, including its readme and pax.Z files, to a specified z/OS UNIX path. It assumes the user is connected to the z/OS host and has already navigated to the target directory. The process involves setting the transfer mode to ASCII for the readme file and binary for the pax.Z file.

```shell
C:\>ftp mvsaddr
Connected to mvsaddr.
220-FTPD1 IBM FTP CS %version% at mvsaddr, %time% on %date%.
220 Connection will close if idle for more than 5 minutes.
User (mvsaddr:(none)):_ tsouid
331 Send password please.
Password:_ tsopw
230 tsouid is logged on.  Working directory is "tsouid.".
ftp> cd @zfs_path@
250 HFS directory @zfs_path@ is the current working directory
ftp> ascii
200 Representation type is Ascii NonPrint
ftp> put d:\HVWR190.readme.txt
200 Port request OK.
125 Storing data set @zfs_path@/HVWR190.readme.txt
250 Transfer completed successfully.
ftp: 19845 bytes sent in 0.01 sec. (1366.67 Kb/s)
ftp> binary
200 Representation type is Image
ftp> put d:\HVWR190.pax.Z
200 Port request OK.
125 Storing data set @zfs_path@/HVWR190.pax.Z
250 Transfer completed successfully.
ftp: 4612608 bytes sent in 1.26 sec. (1040.52 Kb/s)
ftp> quit
221 Quit command received. Goodbye.
```

--------------------------------

### Upload ADFzCC Japanese Feature Package using FTP

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This snippet shows the FTP commands to upload the ADFzCC Japanese feature package, including its readme and pax.Z files, to the z/OS UNIX file system. Similar to the base package upload, it requires establishing an FTP connection, changing to the correct directory, and using ASCII for the readme and binary for the pax.Z file transfer.

```shell
C:\>ftp mvsaddr
Connected to mvsaddr.
220-FTPD1 IBM FTP CS %version% at mvsaddr, %time% on %date%.
220 Connection will close if idle for more than 5 minutes.
User (mvsaddr:(none)):_ tsouid
331 Send password please.
Password:_ tsopw
230 tsouid is logged on.  Working directory is "tsouid.".
ftp> cd @zfs_path@
250 HFS directory @zfs_path@ is the current working directory
ftp> ascii
200 Representation type is Ascii NonPrint
ftp> put d:\JVWR191.readme.txt
200 Port request OK.
125 Storing data set @zfs_path@/JVWR191.readme.txt
250 Transfer completed successfully.
ftp: 19521 bytes sent in 0.01 sec. (1323.80 Kb/s)
ftp> binary
200 Representation type is Image
ftp> put d:\JVWR191.pax.Z
200 Port request OK.
125 Storing data set @zfs_path@/JVWR191.pax.Z
250 Transfer completed successfully.
ftp: 96768 bytes sent in 1.26 sec. (1115.22 Kb/s)
ftp> quit
221 Quit command received. Goodbye.
```

--------------------------------

### Extract ADFzCC Base with JCL

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This JCL extracts the ADFzCC Base component from a compressed PAX archive. It uses `oshell` to execute the `pax` command for extraction and `GIMUNZIP` to process the extracted files into SMP/E compatible datasets. Ensure `@PREFIX@` and `@zfs_path@` are correctly specified.

```JCL
//EXTRACT  JOB <job information>
//* 
//*   - Provide valid job card information
//*   - Change:
//*       @PREFIX@
//*       ----+----1----+----2----+
//*                  - To your desired data set name prefix
//*                  - Maximum length is 25 characters
//*                  - This value is used for the names of the
//*                    data sets extracted from the download-package
//*       @zfs_path@
//*       ----+----1----+----2----+----3----+----4----+----5
//*                  - To the absolute z/OS UNIX path for the
//*                    download-package (starting with /)
//*                  - Maximum length is 50 characters
//*                  - Do not include a trailing /
//*
//UNPAX    EXEC PGM=IKJEFT01,REGION=0M,COND=(0,LT)
//SYSEXEC  DD DISP=SHR,DSN=SYS1.SBPXEXEC
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  oshell cd @zfs_path@/ ; +
    pax -rvf HVWR190.pax.Z
//*
//GIMUNZIP EXEC PGM=GIMUNZIP,REGION=0M,COND=(0,LT)
//*STEPLIB  DD DISP=SHR,DSN=SYS1.MIGLIB
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(CYL,(50,10))
//SYSUT4   DD UNIT=SYSALLDA,SPACE=(CYL,(25,5))
//SMPOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPDIR   DD PATHDISP=KEEP,
// PATH='@zfs_path@/'
//SYSIN    DD *

```
<GIMUNZIP>
<ARCHDEF archid="IBM.HVWR190.SMPMCS" 
         newname="@PREFIX@.IBM.HVWR190.SMPMCS"/>
<ARCHDEF archid="IBM.HVWR190.F1" 
         newname="@PREFIX@.IBM.HVWR190.F1"/>
<ARCHDEF archid="IBM.HVWR190.F2" 
         newname="@PREFIX@.IBM.HVWR190.F2"/>
<ARCHDEF archid="IBM.HVWR190.F3" 
         newname="@PREFIX@.IBM.HVWR190.F3"/>
<ARCHDEF archid="IBM.HVWR190.F4" 
         newname="@PREFIX@.IBM.HVWR190.F4"/>
<ARCHDEF archid="IBM.HVWR190.F5" 
         newname="@PREFIX@.IBM.HVWR190.F5"/>
<ARCHDEF archid="IBM.HVWR190.F6" 
         newname="@PREFIX@.IBM.HVWR190.F6"/>
<ARCHDEF archid="IBM.HVWR190.F7" 
         newname="@PREFIX@.IBM.HVWR190.F7"/>
<ARCHDEF archid="IBM.HVWR190.F8" 
         newname="@PREFIX@.IBM.HVWR190.F8"/>
<ARCHDEF archid="IBM.HVWR190.F9" 
         newname="@PREFIX@.IBM.HVWR190.F9"/>
</GIMUNZIP>
//*
```

--------------------------------

### Extract ADFzCC Japanese Feature with JCL

Source: https://www.ibm.com/docs/en/adffzscc/1.10.0/index_topic=program-directory

This JCL extracts the ADFzCC Japanese feature from a compressed PAX archive. Similar to the base extraction, it uses `oshell` for `pax` and `GIMUNZIP` for dataset creation. Customize `@PREFIX@` and `@zfs_path@` appropriately.

```JCL
//EXTRACT  JOB <job information>
//* 
//*   - Provide valid job card information
//*   - Change:
//*       @PREFIX@
//*       ----+----1----+----2----+
//*                  - To your desired data set name prefix
//*                  - Maximum length is 25 characters
//*                  - This value is used for the names of the
//*                    data sets extracted from the download-package
//*       @zfs_path@
//*       ----+----1----+----2----+----3----+----4----+----5
//*                  - To the absolute z/OS UNIX path for the
//*                    download-package (starting with /)
//*                  - Maximum length is 50 characters
//*                  - Do not include a trailing /
//*
//UNPAX    EXEC PGM=IKJEFT01,REGION=0M,COND=(0,LT)
//SYSEXEC  DD DISP=SHR,DSN=SYS1.SBPXEXEC
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  oshell cd @zfs_path@/ ; +
    pax -rvf JVWR191.pax.Z
//*
//GIMUNZIP EXEC PGM=GIMUNZIP,REGION=0M,COND=(0,LT)
//*STEPLIB  DD DISP=SHR,DSN=SYS1.MIGLIB
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(CYL,(50,10))
//SYSUT4   DD UNIT=SYSALLDA,SPACE=(CYL,(25,5))
//SMPOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPDIR   DD PATHDISP=KEEP,
// PATH='@zfs_path@/'
//SYSIN    DD *

```
<GIMUNZIP>
<ARCHDEF archid="IBM.JVWR191.SMPMCS" 
         newname="@PREFIX@.IBM.JVWR191.SMPMCS"/>
<ARCHDEF archid="IBM.JVWR191.F1" 
         newname="@PREFIX@.IBM.JVWR191.F1"/>
<ARCHDEF archid="IBM.JVWR191.F2" 
         newname="@PREFIX@.IBM.JVWR191.F2"/>
<ARCHDEF archid="IBM.JVWR191.F3" 
         newname="@PREFIX@.IBM.JVWR191.F3"/>
<ARCHDEF archid="IBM.JVWR191.F4" 
         newname="@PREFIX@.IBM.JVWR191.F4"/>
```
```
Tokens:
Raw