Figure 1. Sample JCL for
ACBJBAC2//********************************************************************
//* *
//* SAMPLE JCL TO DO FOUR OPERATIONS: *
//* *
//* 1. TRANSLATE ACS ROUTINES (ISMF OPTION 7.2) *
//* 2. VALIDATE ACS ROUTINES (ISMF OPTION 7.3) *
//* 3. TEST ACS ROUTINES (ISMF OPTION 7.4.3) *
//* 4. COMPARE BASE & NEW ACS LISTINGS *
//* *
//* INSTRUCTIONS BEFORE SUBMITTING: *
//* *
//* CHANGE JOBCARD *
//* CHANGE PREFIX *
//* CHANGE PARAMETERS *
//* *
//********************************************************************
//********************************************************************
//* *
//* TRANSLATE STEP: *
//* *
//* ACSSRC - PDS CONTAINING ACS ROUTINES TO BE *
//* TRANSLATED (INPUT) *
//* MEMBER - MEMBER NAME OF THE ROUTINE TO BE *
//* TRANSLATED (INPUT) *
//* SCDSNAME - NAME OF SCDS INTO WHICH THE ACS ROUTINES ARE *
//* TO BE TRANSLATED (OUTPUT) *
//* LISTNAME - TRANSLATE LISTING (OUTPUT) *
//* UPDHLVLSCDS - CONFIRM OPERATION ON AN UPLEVEL SCDS @WA41441*
//* When modifying an SCDS, that was formatted with a *
//* higher level of SMS, using a lower level of SMS *
//* will make this application fail unless you *
//* specify the UPDHLVLSCDS parameter as 'Y'. *
//* Default is 'N'. @WA41441*
//* Possible values : Y/N/BLANK @WA41441*
//********************************************************************
//TRANSLAT EXEC ACBJBAOB,
// PLIB1='SYS1.DGTPLIB',
// TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
Figure 2. Sample JCL for ACBJBAC2
(continued)DEL DATACLAS.LISTING
DEL MGMTCLAS.LISTING
DEL STORGRP.LISTING
DEL STORCLAS.LISTING
ISPSTART CMD(ACBQBAO1 +
ACSSRC(ACS.SOURCE) MEMBER(DATACLAS) +
SCDSNAME(MYSCDS) LISTNAME(DATACLAS.LISTING) +
UPDHLVLSCDS()) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
ISPSTART CMD(ACBQBAO1 +
ACSSRC(ACS.SOURCE) MEMBER(STORCLAS) +
SCDSNAME(MYSCDS) LISTNAME(STORCLAS.LISTING) +
UPDHLVLSCDS()) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
ISPSTART CMD(ACBQBAO1 +
ACSSRC(ACS.SOURCE) MEMBER(MGMTCLAS) +
SCDSNAME(MYSCDS) LISTNAME(MGMTCLAS.LISTING) +
UPDHLVLSCDS()) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
ISPSTART CMD(ACBQBAO1 +
ACSSRC(ACS.SOURCE) MEMBER(STORGRP) +
SCDSNAME(MYSCDS) LISTNAME(STORGRP.LISTING) +
UPDHLVLSCDS()) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************
//* *
//* COPY TRANSLATE LISTINGS *
//* *
//* SYSUT1 - INPUT (FROM PREVIOUS STEP) *
//* SYSUT2 - OUTPUT *
//* *
//********************************************************************
//TRANGEN EXEC PGM=IEBGENER
//SYSUT1 DD DSN=IBMUSER.DATACLAS.LISTING,DISP=SHR
// DD DSN=IBMUSER.STORCLAS.LISTING,DISP=SHR
// DD DSN=IBMUSER.MGMTCLAS.LISTING,DISP=SHR
// DD DSN=IBMUSER.STORGRP.LISTING,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//********************************************************************
//* *
//* VALIDATE STEP: *
//* *
//* SCDSNAME - NAME OF SCDS THAT CONTAINS THE TRANSLATED ACS *
//* ROUTINES TO BE VALIDATED (INPUT) *
//* TYPE - TYPE OF ACS ROUTINE TO BE VALIDATED (INPUT) *
//* LISTNAME - VALIDATE LISTING (OUTPUT) *
//* UPDHLVLSCDS - CONFIRM OPERATION ON AN UPLEVEL SCDS(Y/N) @WA41441*
//* *
//********************************************************************
//VALIDAT EXEC ACBJBAOB,
// PLIB1='SYS1.DGTPLIB',
// TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
Figure 3. Sample JCL for ACBJBAC2
(continued)DEL VALIDAT.LISTING
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQBAO2 SCDSNAME(MYSCDS) TYPE(*) +
LISTNAME(VALIDAT.LISTING) +
UPDHLVLSCDS()) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************
//* *
//* COPY VALIDATE LISTING *
//* *
//* SYSUT1 - INPUT (FROM PREVIOUS STEP) *
//* SYSUT2 - OUTPUT *
//* *
//********************************************************************
//VALGEN EXEC PGM=IEBGENER
//SYSUT1 DD DSN=IBMUSER.VALIDAT.LISTING,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//********************************************************************
//* *
//* TEST STEP *
//* *
//* SCDSNAME - NAME OF SCDS (INPUT) *
//* TESTBED - PDS CONTAINING TEST CASES (INPUT) *
//* MEMBER - MEMBERS TO BE TESTED IN TESTBED (INPUT) *
//* DC,SC,MC,SG - ROUTINES TO BE TESTED (INPUT) *
//* LISTNAME - TEST LISTING (OUTPUT) *
//* *
//********************************************************************
//TEST EXEC ACBJBAOB,
// PLIB1='SYS1.DGTPLIB',
// TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
DEL NEW.LISTING
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQBAIA +
SCDSNAME(MYSCDS) +
TESTBED(TESTCASE.LIBRARY) MEMBER(*) +
DC(Y) SC(Y) MC(Y) SG(Y) +
LISTNAME(NEW.LISTING)) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************
//* *
//* COPY TEST LISTING *
//* *
//* SYSUT1 - INPUT (FROM PREVIOUS STEP) *
//* SYSUT2 - OUTPUT *
//* *
//********************************************************************
//TSTGEN EXEC PGM=IEBGENER
//SYSUT1 DD DSN=IBMUSER.NEW.LISTING,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
Figure 4. Sample JCL for ACBJBAC2
(continued)//********************************************************************
//* *
//* COMPARE ACS LISTINGS *
//* *
//* PARAMETERS: *
//* *
//* BASELIST - BASE ACS TEST LIST (INPUT) *
//* NEWLIST - NEW ACS TEST LIST (INPUT) *
//* TESTBED - PDS CONTAINING TEST CASES (REFERENCE INPUT) *
//* RSLTDSN - COMPARISON RESULTS DATA SET (OUTPUT) *
//* XCPTPDS - EXCEPTION TEST CASE PDS (OUTPUT) *
//* XCPSPACE - SPACE values of Except DS (Optional) 3a@WA32832*
//* Values: (Primary Tracks,Secondary Tracks,Directory Blocks) *
//* which are positional and optional. Defaults: (3,1,20). *
//* *
//* NOTE: If you receive message IEC217I B14-0C on your exception *
//* data set, you need to increase your data set size by using *
//* the XCSPACE parameter (specially the directory blocks) *
//* *
//********************************************************************
//COMPARE EXEC ACBJBAOB,
// PLIB1='SYS1.DGTPLIB',
// TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
DEL PDS4
DEL RESULTS.LISTING
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(%ACBQBAC1 +
BASELIST(BASE.TESTLIST) +
NEWLIST(NEW.TESTLIST) +
TESTBED(TESTCASE.LIBRARY) +
RSLTDSN(COMPARE.LISTING) +
XCPTPDS(TESTCASE.EXCP) +
XCPSPACE(5,3,30)) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************
//* *
//* COPY COMPARISON RESULTS *
//* *
//* SYSUT1 - INPUT (FROM PREVIOUS STEP) *
//* SYSUT2 - OUTPUT *
//* *
//********************************************************************
//CMPGEN EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=IBMUSER.COMPARE.LISTING
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//*