To install or update DGS mainframe files

Pre-allocate the following TSO/mainframe datasets, substituting a high-level dataset name qualifier appropriate to your own site for your.name. Use the same qualifier for both datasets. These datasets are used to store the files that you upload from the %ProgramFiles(x86)%\Micro Focus\Enterprise Developer\etc\mainframe directory.

your.name.CNTL.X
A sequential fixed block file
organization  PS
record format FB
record length 80
block size    6160

your.name.ISPPLIB.X
A sequential fixed block file
organization  PS
record format FB
record length 80
block size    6160
 
your.name.ISPPLIBH.X
A sequential fixed block file
organization  PS
record format FB
record length 80
block size    6160

your.name.ISPSLIB.X
A sequential fixed block file
organization  PS
record format FB
record length 80
block size    6160
 
your.name.LOADLIB2.X
A sequential fixed block file
organization  PS
record format FB
record length 80
block size    3120

Transfer the binary files to the TSO/mainframe datasets you just created. Transfer to the mainframe using binary mode (no ASCII to EBCDIC conversion). Although this example shows the appropriate ftp commands, you can also transfer the files using IND$FILE or any other file transfer tool that you have:

put CNTL.bin        'your.name.CNTL.X'
put IPSPPLIB.bin    'your.name.ISPPLIB.X'
put IPSPPLIBH.bin   'your.name.ISPPLIBH.X'
put ISPSLIB.bin     'your.name.ISPSLIB.X'
put LOADLOIB2.bin   'your.name.LOADLIB2.X'

Transfer the instjcl.txt fileto any suitable PDS, substituting the name of the PDS for your.pds. Transfer this file to the mainframe in ASCII mode. Although this example shows the appropriate ftp commands, you can also transfer the files using IND$FILE or any other file transfer tool that you have:

put instjcl.txt 'your.pds(INSTJCL)'

Customize the installation JCL by editing the INSTJCL member:

//jobname JOB (9999,9999),'DEFINE ',
//   MSGCLASS=X,CLASS=A,NOTIFY=&SYSUID,
//   MSGLEVEL=(1,1)
//*******************************************************
//DGSINST PROC PREFIX=
//DELETE  EXEC PGM=IEFBR14
//DEL1 DD DSN=&PREFIX..CNTL,DISP=(MOD,DELETE),
//        SPACE=(TRK,(1))
//DEL2 DD DSN=&PREFIX..ISPPLIB,DISP=(MOD,DELETE),
//        SPACE=(TRK,(1))
//DEL3 DD DSN=&PREFIX..ISPSLIB,DISP=(MOD,DELETE),
//        SPACE=(TRK,(1))
//DEL4 DD DSN=&PREFIX..ISPPLIBH,DISP=(MOD,DELETE),
//        SPACE=(TRK,(1))
//DEL5 DD DSN=&PREFIX..LOADLIB,DISP=(MOD,DELETE),
//        SPACE=(TRK,(1))
//STEP20  EXEC PGM=IEFBR14
//CREATE1 DD DSN=&PREFIX..CNTL,SPACE=(CYL,(5,2,80)),
//        DCB=(LRECL=80,RECFM=FB,BLKSIZE=22480),
//        UNIT=SYSDA,DISP=(NEW,CATLG)
//CREATE2 DD DSN=&PREFIX..ISPPLIB,SPACE=(CYL,(5,2,80)),
//        DCB=(LRECL=80,RECFM=FB,BLKSIZE=22480),
//        UNIT=SYSDA,DISP=(NEW,CATLG)
//CREATE3 DD DSN=&PREFIX..ISPPLIBH,SPACE=(CYL,(5,2,80)),
//        DCB=(LRECL=80,RECFM=FB,BLKSIZE=22480),
//        UNIT=SYSDA,DISP=(NEW,CATLG)
//CREATE4 DD DSN=&PREFIX..ISPSLIB,SPACE=(CYL,(5,2,80)),
//        DCB=(LRECL=80,RECFM=FB,BLKSIZE=22480),
//        UNIT=SYSDA,DISP=(NEW,CATLG)
//CREATE5 DD DSN=&PREFIX..LOADLIB,SPACE=(CYL,(5,2,80)),
//        DCB=(LRECL=0,RECFM=U,BLKSIZE=22528),
//        UNIT=SYSDA,DISP=(NEW,CATLG)
//RECEIVE1 EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INFILE   DD DSN=&PREFIX..CNTL.X,DISP=SHR
//SYSTSIN DD DUMMY
//RECEIVE2 EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INFILE   DD DSN=&PREFIX..ISPPLIB.X,DISP=SHR
//SYSTSIN DD DUMMY
//RECEIVE3 EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INFILE   DD DSN=&PREFIX..ISPPLIBH.X,DISP=SHR
//SYSTSIN DD DUMMY
//RECEIVE4 EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INFILE   DD DSN=&PREFIX..ISPSLIB.X,DISP=SHR
//SYSTSIN DD DUMMY
//RECEIVE5 EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INFILE   DD DSN=&PREFIX..LOADLIB2.X,DISP=SHR
//SYSTSIN DD DUMMY
//  PEND
//DGSINST EXEC DGSINST,
//       PREFIX='your.name'
//RECEIVE1.SYSTSIN DD *
  RECEIVE INDDNAME(INFILE)
     DSN('your.name.CNTL')
/*
//RECEIVE2.SYSTSIN DD *
  RECEIVE INDDNAME(INFILE)
     DSN('your.name.ISPPLIB')
/*
//RECEIVE3.SYSTSIN DD *
  RECEIVE INDDNAME(INFILE)
     DSN('your.name.ISPPLIBH')
/*
//RECEIVE4.SYSTSIN DD *
  RECEIVE INDDNAME(INFILE)
     DSN('your.name.ISPSLIB')
/*
//RECEIVE5.SYSTSIN DD *
  RECEIVE INDDNAME(INFILE)
     DSN('your.name.LOADLIB2')
/*

Tailor the job card as needed
Set the PREFIX variable to the high level qualifier that you used for the CNTL.X, ISPPLIB.X, ISPPLIBH.X, ISPSLIB.X and LOADLIB2.X datasets
Change the dataset in the RECEIVE DSN parameter to:
- your.name.CNTL
- your.name.ISPPLIB
- your.name.ISPPLIBH
- your.name.ISPSLIB
- your.name.LOADLIB2
where your.name is the high level qualifier specified in the PREFIX variable.

Submit INSTJCL to:

Allocate five libraries:
- your.name.CNTL
- your.name.ISPPLIB
- your.name.ISPPLIBH
- your.name.ISPSLIB
- your.name.LOADLIB2
Populate the libraries with the data extracted from:
- your.name.CNTL.X
- your.name.ISPPLIB.X
- your.name.ISPPLIBH.X
- your.name.ISPSLIB.X
- your.name.LOADLIB2.X

Edit APS CLIST/Logon Procedures:

In the appropriate APS logon procedure or CLIST, enter your.name.ISPPLIB and your.name.ISPPLIBH as the first two files associated with the ISPPLIB DD name
In the appropriate APS logon procedure or CLIST enter your.name.ISPSPLIB as the first file associated with the ISPSLIB DD name

Copy the following APSCNTL files to your mainframe APS installation area CNTL PDS:

your.name.ISPSLIB.CNTL.APSHEX
your.name.ISPSLIB.CNTL.APSHXMFG