Sample ICQMIFP PROC

//*  NAME:       ICQMIFP  -  MASS INSTALLATION FILE PROCESSING
//*  COPYRIGHT:  5645-001
//*              (C) COPYRIGHT IBM CORP. 1989
//*              LICENSED MATERIALS - PROPERTY OF IBM
//*              REFER TO COPYRIGHT INSTRUCTIONS
//*              FORM NUMBER G120-2083
//*
//* THIS SAMPLE PROCEDURE MAY BE MODIFIED AND SAVED IN THE
//* PROCLIB DATA SET.  IT MAY BE USED TO INVOKE MASS INSTALLATION
//* OR EXPORT FILE PROCESSING.
//*
//*  PARAMETERS:
//*
//*   MODE='MODE(INST)'- SIGNAL FOR UPGRADE AND INSTALL (DEFAULT VALUE)
//*   MODE='MODE(EXP)' - SIGNAL FOR MASS EXPORT
//*
//*   BACKUP='BACKUP(Y)' - SIGNAL AUTOMATIC BACKUPS (DEFAULT VALUE)
//*   BACKUP='BACKUP(N)' - SIGNAL NO AUTOMATIC BACKUPS
//*
//*   AMNAME='AMNAME()'- APPLICATION MANAGER APPLICATION NAME
//*                      (DEFAULT VALUE - ICQAPPLMGR)
//*   AMLANG='AMLANG()'- APPLICATION MANAGER APPLICATION LANGUAGE
//*                      (DEFAULT VALUE - ENGLISH)
//*
//*   ICQQUAL='ICQ' - FIRST-LEVEL QUALIFIER FOR THE APPLICATION
//*                      MANAGER DATA SETS.
//*   CONTROL='MASS' - SECOND QUALIFIER FOR THE INPUT AND OUTPUT
//*                         DATA SETS REQUIRED FOR MASS PROCESSING
//*   ISPLVL='V2R3' - FIRST QUALIFIER FOR THE ISPF/PDF DATA SETS
//*   ISRLVL='V2R3' - FIRST QUALIFIER FOR THE ISPF DATA SETS
//*
//ICQMIFP  PROC MODE='MODE(INST)',
//   BACKUP='BACKUP(Y)',
//   AMNAME='AMNAME(ICQAPPLMGR)',
//   AMLANG='AMLANG(ENGLISH)',
//   ICQQUAL='ICQ',
//   CONTROL='MASS',
//   ISPLVL='V2R3',
//   ISRLVL='V2R3'
//ICQMASS  EXEC PGM=IKJEFT01,REGION=4096K,SYNAMNBR=40,
// PARM='%ICQAMRMI &MODE &BACKUP &AMNAME &AMLANG'
//*
//*
//*------- INSTALLATION DATASETS --------------------------------**
//*
//*  INPUT INSTALLATION LIBRARY
//ICQINST DD DSN=&ICQQUAL..&CONTROL..INPUT,DISP=SHR
//*
//*  OUTPUT INSTALLATION LIBRARY
//ICQOUT  DD DSN=&ICQQUAL..&CONTROL..OUTPUT,DISP=OLD
//*
//*  BACKUP INSTALLATION LIBRARY
//ICQBACK DD DSN=&ICQQUAL..&CONTROL..BACKUP,DISP=OLD
//*
//*
//*------- UPGRADE DATASETS -------------------------------------**
//*
//*  UPGRADE LIBRARY
//ICQUPGR DD DSN=&ICQQUAL..&CONTROL..UPGRADE,DISP=SHR
//*
//*
//*------- MASS EXPORT DATASETS ---------------------------------**
//*
//*  EXPORT CONTROL FILE
//ICQEXPT DD DSN=&ICQQUAL..&CONTROL..EXPORT,DISP=SHR
//*
//*
//*------- TABLE DATA SETS TO BE ADMINISTERED -------------------**
//*
//*  ADMINISTRATOR TABLES DATA SET TO BE MASS PROCESSED
//ICQXATAB DD DSN=&ICQQUAL..ICQAMTAB,DISP=OLD
//*  USER TABLES DATA SET TO BE MASS PROCESSED
//ICQXUTAB DD DSN=&ICQQUAL..ICQCMTAB,DISP=OLD
//*
//*
//*------- APPLICATION MANAGER TABLES DATA SET ------------------**
//*
//*  SYSTEM LEVEL ADMINISTRATOR TABLES DATA SET, REFERENCE
//ICQAMTAB DD DSN=&ICQQUAL..ICQAMTAB,DISP=SHR
//*
//*------- CLIST DATA SETS --------------------------------------**
//*
//SYSPROC  DD DSN=&ICQQUAL..ICQCCLIB.CLIST,DISP=SHR
//         DD DSN=&ISPLVL..ISPALIB,DISP=SHR
//         DD DSN=&ISRLVL..ISRCLIB,DISP=SHR
//*
//*------- ISPF DATA BASE DATA SETS -----------------------------**
//*
//ISPPLIB  DD DSN=&ICQQUAL..ICQPLIB,DISP=SHR
//         DD DSN=&ISPLVL..ISPPLIB,DISP=SHR
//         DD DSN=&ISRLVL..ISRPLIB,DISP=SHR
//ISPMLIB  DD DSN=&ICQQUAL..ICQMLIB,DISP=SHR
//         DD DSN=&ISRLVL..ISPMLIB,DISP=SHR
//         DD DSN=&ISPLVL..ISRMLIB,DISP=SHR
//ISPTLIB  DD DSN=&ICQQUAL..ICQTLIB,DISP=SHR
//         DD DSN=&ISRLVL..ISPTLIB,DISP=SHR
//         DD DSN=&ISPLVL..ISRTLIB,DISP=SHR
//ISPSLIB  DD DSN=&ICQQUAL..ICQSLIB,DISP=SHR
//         DD DSN=&ISRLVL..ISPSLIB,DISP=SHR
//         DD DSN=&ISPLVL..ISRSLIB,DISP=SHR
//*
//*------- ISPF TEMPORARY DATA SETS -----------------------------**
//*
//ISPCTL1  DD DISP=NEW,UNIT=SYSVIO,SPACE=(CYL,(1,1)),
//         DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,BUFNO=5)
//ISPCTL2  DD DISP=NEW,UNIT=SYSVIO,SPACE=(CYL,(1,1)),
//         DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,BUFNO=5)
//ISPLST1  DD DISP=NEW,UNIT=SYSVIO,SPACE=(CYL,(1,1)),
//         DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA,BUFNO=5)
//ISPLST2  DD DISP=NEW,UNIT=SYSVIO,SPACE=(CYL,(1,1)),
//         DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA,BUFNO=5)
//*
//*------- DUMMY ISPF PROFILE DATASET ---------------------------**
//*
//ISPPROF  DD DSN=&&ISPPROF,
//         DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB).
//         SPACE=(TRK,(2,2,3)),UNIT=SYSDA,
//         DISP=(NEW,DELETE,DELETE)
//*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//SYSPRINT DD DD SYSOUT=*