Sample JCL to assemble High Level Assembler source for impact analysis

This sample JCL assembles High Level Assembler source code to generate impact analysis data.

To use this sample JCL, you need to set site-specific values for the following data sets and options. This list refers to the callouts shown in the right margin of the sample.
  • 1 The library containing the High Level Assembler, if needed, followed by any other concatenated DDs.
  • 2 The High Level Assembler source file to be assembled.
  • 3 The High Level Assembler macro library followed by any other concatenated macro library partitioned data sets.
  • 4 The PDS member to contain the High Level Assembler output.
  • 5 The library containing the BCC2XML program.
  • 6 The z/OS® Extensions load library.
  • 7 The library filter file described in Gathering initial impact analysis data .
//ADMIN   JOB ,
//   MSGCLASS=H,MSGLEVEL=(1,1),TIME=(,4),REGION=70M
//*-------------------------------------------------------------------
//* Delete datasets that will be created later
//*-------------------------------------------------------------------
//DELETE   EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
  DELETE ADMIN.PROJ3.SYSADATA
  IF LASTCC = 8 THEN SET MAXCC = 4
  DELETE ADMIN.PROJ3.SYSIADSD
  IF LASTCC = 8 THEN SET MAXCC = 4
//*-------------------------------------------------------------------
//* Use the High Level Assembler V1R5+ to generate ADATA
//*-------------------------------------------------------------------
//HLASM    EXEC PGM=ASMA90,PARM='OBJECT,NODECK,ADATA'
//STEPLIB DD   DSN=<HLASM15 assembler>,DISP=SHR	 1
//*        DD   DSN=<other concatenated libraries>,DISP=SHR
//SYSIN    DD   DSN=ADMIN.PROJ3.HLASM.SRC(PGM1),DISP=SHR	 2
//SYSLIB   DD   DSN=ADMIN.PROJ3.HLASM.MACLIB,DISP=SHR	 3
//*        DD   DSN=<other concatenated copy library PDSes>,DISP=SHR
//SYSADATA DD   DSN=ADMIN.PROJ3.SYSADATA,DISP=(NEW,CATLG),
//         DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),
//         SPACE=(TRK,(200,40))
//SYSLIN   DD   DSN=<assembler output PDS member>,DISP=SHR	 4
//SYSPRINT DD   SYSOUT=*
//SYSUT1   DD   UNIT=VIO,SPACE=(32000,(30,30)),
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//*-------------------------------------------------------------------
//* Use BCC2XML to generate Impact Analysis data
//*-------------------------------------------------------------------
//DOADATA  EXEC PGM=BCC2XML,REGION=512K,PARM='/HLASM15'
//STEPLIB  DD   DSN=RCC.IA.TSCLOAD,DISP=SHR	 5
//SYSADATA DD   DSN=ADMIN.PROJ3.SYSADATA,DISP=SHR
//SYSIADSD DD   DSN=ADMIN.PROJ3.SYSIADSD,DISP=(NEW,CATLG),
//         DCB=(RECFM=FB,LRECL=112,BLKSIZE=27888),
//         SPACE=(TRK,(200,40))
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD   DUMMY
//*-------------------------------------------------------------------
//* Update VSAM KSDS with Impact Analysis data
//*-------------------------------------------------------------------
//UPKSDS   EXEC PGM=BCCIAUPD,COND=((4,LT,HLASM),(8,LT,DOADATA))
//STEPLIB  DD   DSN=RCC.IA.TSCLOAD,DISP=SHR	 6
//SYSPRINT DD   SYSOUT=*
//SYSTERM  DD   SYSOUT=*
//SYSOUT   DD   SYSOUT=*
//PLIDUMP  DD   SYSOUT=*
//SYSABEND DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*
//COPYAIX1  DD DSN=ADMIN.VSAM1.CCZVSAM.COPY.NUPATH1,DISP=SHR
//CALLAIX1  DD DSN=ADMIN.VSAM1.CCZVSAM.CALL.NUPATH1,DISP=SHR
//SEQCLUS   DD DSN=ADMIN.VSAM1.CCZVSAM.SEQ.BASE,DISP=SHR
//SYSIADSD DD   DSN=ADMIN.PROJ3.SYSIADSD,DISP=SHR
//*SYSIN    DD   DSN=ADMIN.PROJ3.FILTER,DISP=SHR	 7
//* or specify this as an in-stream dataset as below:
//SYSIN    DD   *
ADMIN.PROJ3.HLASM.SRC
ADMIN.PROJ3.HLASM.MACLIB
/*
//