diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/CLEANOVR.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/CLEANOVR.jcl index 7cc6586..1e3366e 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/CLEANOVR.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/CLEANOVR.jcl @@ -1,4 +1,4 @@ -//IBMUSERO JOB (0000),'Dan Walther',CLASS=A,MSGCLASS=Z,MSGLEVEL=(1,1), +//IBMUSERO JOB (0000),'Your Name',CLASS=A,MSGCLASS=Z,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,REGION=0M //*-------------------------------------------------------------------* //*--Report processor group Overrides --------------------------------* diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#1.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#1.jcl index 1ffec7e..1dd545d 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#1.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#1.jcl @@ -2,7 +2,7 @@ // 'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A, // NOTIFY=&SYSUID //*------------------------------------------------------------------- -// SET SYSEXEC=CAPRD.NDVR.PROD.CATSNDVR.CEXEC +// SET SYSEXEC=YOUR.NDVR.PROD.ADMINSYS.CEXEC //*-------------------------------------------------------------- //*- To Report and delete very old elements from Test ----------- //*-------------------------------------------------------------- @@ -11,9 +11,9 @@ //*--------------------------------------------------------------------* //STEP1 EXEC PGM=NDVRC1,REGION=4M, // PARM='BC1PCSV0' -//STEPLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTU -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTH -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD +//STEPLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTU +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTH +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD //BSTIPT01 DD * LIST ELEMENT '*' FROM ENVIRONMENT SMPLTEST SYSTEM '*' SUBSYSTEM '*' diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#2.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#2.jcl index a5035eb..3c0ac9a 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#2.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#2.jcl @@ -2,7 +2,7 @@ // 'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A, // NOTIFY=&SYSUID //*------------------------------------------------------------------- -// SET SYSEXEC=CAPRD.NDVR.PROD.CATSNDVR.CEXEC +// SET SYSEXEC=YOUR.NDVR.PROD.ADMINSYS.CEXEC //*-------------------------------------------------------------- //*- To Report Packages created over nnn days ago ----------- //*-------------------------------------------------------------- @@ -11,9 +11,9 @@ //*--------------------------------------------------------------------* //STEP1 EXEC PGM=NDVRC1,REGION=4M, // PARM='BC1PCSV0' -//STEPLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTU -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTH -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD +//STEPLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTU +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTH +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD //BSTIPT01 DD * LIST PACKAGE ID '*' WHERE DATE TYPE CR IS OLDER THAN 20 DAYS diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#3.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#3.jcl index bf35e13..d73af55 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#3.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#3.jcl @@ -2,7 +2,7 @@ // 'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A, // NOTIFY=&SYSUID //*------------------------------------------------------------------- -// SET SYSEXEC=CAPRD.NDVR.PROD.CATSNDVR.CEXEC +// SET SYSEXEC=YOUR.NDVR.PROD.ADMINSYS.CEXEC //*-------------------------------------------------------------- //*- Add members of a PDS into Endevor ----------- //*-------------------------------------------------------------- @@ -55,9 +55,9 @@ //*--------------------------------------------------------------------* //STEP03 EXEC PGM=NDVRC1,REGION=4M, // PARM='BC1PCSV0' -//STEPLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTU -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTH -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD +//STEPLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTU +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTH +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD //BSTIPT01 DD * LIST ELEMENT '*' FROM ENVIRONMENT SMPLPROD STAGE P SYSTEM '*' SUBSYSTEM '*' TYPE "*" diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#4.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#4.jcl index 7489f8a..eeacb93 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#4.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#4.jcl @@ -5,17 +5,17 @@ //*-- Execute PDM to update elements out of sync. --------------------* //*-- Outputs: IBMUSER.ENDEVOR.WIPFILE --------------------* //*-------------------------------------------------------------------* -// SET SYSEXEC=SYS1.EXEC -// SET SYSEXEC=CAPRD.NDVR.PROD.CATSNDVR.CEXEC +// SET SYSEXEC=YOUR.REXX.EXEC +// SET SYSEXEC=YOUR.NDVR.PROD.ADMINSYS.CEXEC //*-------------------------------------------------------------------* //PDM#001 EXEC PGM=NDVRC1, // DYNAMNBR=1500, // REGION=4096K, // PARM='C1BM3000' -//STEPLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTU -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTH -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD -//CONLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD +//STEPLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTU +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTH +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD +//CONLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD //C1MSGS1 DD SYSOUT=* //C1MSGS2 DD DSN=&&C1MSGS2,DISP=(NEW,PASS), // UNIT=SYSDA,SPACE=(TRK,(5,5)), @@ -65,10 +65,10 @@ //*--------------------------------------------------------------------* //PDM#003 EXEC PGM=NDVRC1,REGION=4M, // PARM='BC1PCSV0' -//STEPLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTU -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTH -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD -//CONLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD +//STEPLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTU +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTH +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD +//CONLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD //BSTIPT01 DD DSN=&&CSVLISTS,DISP=(OLD,DELETE) //APIEXTR DD DSN=&&CSVFILE, // DCB=(RECFM=FB,LRECL=1800,BLKSIZE=9000,DSORG=PS), diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#5.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#5.jcl index a5f1797..b6fd9cd 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#5.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#5.jcl @@ -8,8 +8,8 @@ //*-------------------------------------------------------------------- // SET TABLE=IBMUSER.NDVR.DATASETS <- Saved 3.4 data // SET TABLE=IBMUSER.PUBLIC.DATASETS <- Saved 3.4 data -// SET SYSEXEC=SYS1.EXEC <- Rexx library -// SET SYSEXEC=CAPRD.NDVR.EMER.CATSNDVR.CSIQCLS0 +// SET SYSEXEC=YOUR.REXX.EXEC <- Rexx library +// SET SYSEXEC=YOUR.NDVR.EMER.ADMINSYS.CSIQCLS0 //*-------------------------------------------------------------------- //TEST001 EXEC PGM=IRXJCL,PARM='ENBPIU00 PARMLIST' //TABLE DD DISP=SHR,DSN=&TABLE diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#6.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#6.jcl index 8e087e4..1047926 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#6.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#6.jcl @@ -1,12 +1,12 @@ //IBMUSER5 JOB (0000),'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B, // REGION=0M,MSGCLASS=A,NOTIFY=&SYSUID //*-------------------------------------------------------------------- -//*- SYS1.EXEC(ALLOLIKE) +//*- YOUR.REXX.EXEC(ALLOLIKE) //*-------------------------------------------------------------------- // SET DSNLIST=IBMUSER.MYLIST.DATASETS <- -// SET DSNLIST=IBMUSER.CAPRD.DATASETS <- +// SET DSNLIST=IBMUSER.YOUR.DATASETS <- // SET DSNLIST=IBMUSER.TESTING.DATASETS <- -// SET SYSEXEC=SYS1.EXEC <- +// SET SYSEXEC=YOUR.REXX.EXEC <- //*-------------------------------------------------------------------- //*- IBMUSER.JCL(EXAMPL#5) -------------------------------------------- //*-------------------------------------------------------------------- diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#8.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#8.jcl index 6b6ef75..98ec01e 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#8.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL#8.jcl @@ -3,8 +3,8 @@ // NOTIFY=&SYSUID 00040000 //*------------------------------------------------------------------- 00050000 // SET WORKLIB=IBMUSER.PARMS 00060000 -// SET CSIQCLS0=CAPRD.NDVR.PROD.CATSNDVR.CSIQCLS0 00070000 -// SET NDVR#HLQ=CAPRD.NDVR.V180CA06 00080000 +// SET CSIQCLS0=YOUR.NDVR.PROD.ADMINSYS.CSIQCLS0 00070000 +// SET NDVR#HLQ=YOUR.NDVR.V180CA06 00080000 //*------------------------------------------------------------------- 00090000 //* Report processor usage 00100000 //* Outputs: 00110000 diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1A.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1A.jcl index b4bf888..56300c0 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1A.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1A.jcl @@ -30,6 +30,6 @@ LIST ELEMENT '*' ELM_LAST_LL_DATE=&ELM_LAST_LL_DATE @ &ELM_LAST_LL_TIME //TABLE DD DSN=&&CSVFILE,DISP=(OLD,DELETE) //SYSTSPRT DD SYSOUT=* -//SYSEXEC DD DISP=SHR,DSN=CARSMINI.NDVR.R1801.CSIQCLS0 +//SYSEXEC DD DISP=SHR,DSN=YOURHLQ.NDVR.R1801.CSIQCLS0 //TBLOUT DD SYSOUT=* diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1B.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1B.jcl index d170529..9a4b7bc 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1B.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL1B.jcl @@ -54,6 +54,6 @@ Element- Type---- Dup System-- Subsys-- --Date-- Signout &Element &Type &dup &System &Subsys &Date &Userid //TABLE DD DSN=&&CSVFILE2,DISP=(OLD,DELETE) //SYSTSPRT DD SYSOUT=* -//SYSEXEC DD DISP=SHR,DSN=CARSMINI.NDVR.R1801.CSIQCLS0 +//SYSEXEC DD DISP=SHR,DSN=YOURHLQ.NDVR.R1801.CSIQCLS0 //TBLOUT DD SYSOUT=* diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2$.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2$.jcl index 688cef1..79578d0 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2$.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2$.jcl @@ -2,7 +2,7 @@ // 'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A, // NOTIFY=&SYSUID //*------------------------------------------------------------------- -// SET SYSEXEC=CAPRD.NDVR.PROD.CATSNDVR.CEXEC +// SET SYSEXEC=YOUR.NDVR.PROD.ADMINSYS.CEXEC //*-------------------------------------------------------------- //*- To Report Packages created over nnn days ago ----------- //*-------------------------------------------------------------- @@ -11,9 +11,9 @@ //*--------------------------------------------------------------------* //STEP1 EXEC PGM=NDVRC1,REGION=4M, // PARM='BC1PCSV0' -//STEPLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTU -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTH -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD +//STEPLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTU +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTH +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD //BSTIPT01 DD * LIST PACKAGE ID '*' WHERE DATE TYPE CR IS OLDER THAN 20 DAYS diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2B.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2B.jcl index b9f1a99..45a946e 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2B.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2B.jcl @@ -4,7 +4,7 @@ //*-------------------------------------------------------------- // JCLLIB ORDER=(IBMUSER.JCL.CSV) //*-- -//*- To Report Elements moved within a date span ----------- +//*- To Report Element changes within a date span ----------- //*-------------------------------------------------------------- // EXPORT SYMLIST=(*) <- make JCL symbols available //*--- diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2P.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2P.jcl index 5ca483e..ad9cdc3 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2P.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2P.jcl @@ -2,7 +2,7 @@ // 'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A, // NOTIFY=&SYSUID //*------------------------------------------------------------------- -// SET SYSEXEC=CAPRD.NDVR.PROD.CATSNDVR.CEXEC +// SET SYSEXEC=YOUR.NDVR.PROD.ADMINSYS.CEXEC //*-------------------------------------------------------------- //*- To Report Packages created over nnn days ago ----------- //*-------------------------------------------------------------- @@ -11,9 +11,9 @@ //*--------------------------------------------------------------------* //STEP1 EXEC PGM=NDVRC1,REGION=4M, // PARM='BC1PCSV0' -//STEPLIB DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTU -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQAUTH -// DD DISP=SHR,DSN=CAPRD.NDVR.V160PRD.CSIQLOAD +//STEPLIB DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTU +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQAUTH +// DD DISP=SHR,DSN=YOUR.NDVR.V160PRD.CSIQLOAD //BSTIPT01 DD * LIST PACKAGE ID '*' WHERE DATE TYPE CR IS OLDER THAN 20 DAYS diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2R.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2R.jcl new file mode 100644 index 0000000..3337443 --- /dev/null +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/EXAMPL2R.jcl @@ -0,0 +1,59 @@ +//IBMUSER2 JOB (0000), +// 'ENDEVOR JOB',MSGLEVEL=(1,1),CLASS=B,REGION=0M,MSGCLASS=A, +// NOTIFY=&SYSUID +//*------------------------------------------------------------------- +// SET CSVFILE=IBMUSER.YOUR.CSVFILE.#2 +// SET CSVFILE=IBMUSER.YOUR.CSVFILE.#3 +// SET CSVFILE=IBMUSER.YOUR.CSVFILE.#4 +// SET CSVFILE=IBMUSER.YOUR.CSVFILE +// SET SYSEXEC=IBMUSER.REXX +// SET SYSEXEC=YOUR.NDVR.PROD.ADMINSYS.CEXEC +//*-------------------------------------------------------------- +//*- To Report Packages created over nnn days ago ----------- +//*--------------------------------------------------------------------* +//* STEP 1 -- Execute CSV Utility to gather Package information +//*--------------------------------------------------------------------* +//REPORT EXEC PGM=IRXJCL,PARM='ENBPIU00 PARMLIST' +//TABLE DD DSN=&CSVFILE,DISP=SHR +//PARMLIST DD * + MODEL TBLOUT OPTION0 0 + MODEL TBLOUT OPTIONS A +//HEADING DD * +* Package--------- Status----- CreateDate UpdateDate CreatorId- PackageAge +//*-+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 +//MODEL DD * +&DetailLine +//OPTION0 DD * + LinesPerPage = 15 + LineCount = LinesPerPage + 1 + DaysAgo = 60 /* Number of days for cutoff */ +//OPTIONS DD * +* Bypass processing for Table header + If $row# < 1 then $SkipRow = 'Y' +* Calculate age of Package creation + BaseDate = DATE('B') /* Today in Base format */ + UpdateDate = Substr(UPDT_DATE,1,4) || Substr(UPDT_DATE,6,2) + UpdateDate = UpdateDate || Substr(UPDT_DATE,9,2) + If DATATYPE(UpdateDate) /= 'NUM' then $SkipRow = 'Y' + BaseOld = DATE(B,UpdateDate,S) /* Convert Upd date to Base fmt */ + PackageAge = BaseDate - BaseOld /* Determine how many days ago */ + If PackageAge < DaysAgo then $SkipRow = 'Y' /* Skip if recent */ +* Build report detail line .... + DetailLine = Copies(' ',120); + DetailLine = Overlay(PKG_ID,DetailLine,03) + DetailLine = Overlay(STATUS,DetailLine,20) + DetailLine = Overlay(CREATE_DATE,DetailLine,32) + DetailLine = Overlay(UPDT_DATE,DetailLine,43) + DetailLine = Overlay(CREATE_USRID,DetailLine,54) + DetailLine = Overlay(PackageAge,DetailLine,65) +* Determine whether it is time for page heading + LineCount = LineCount + 1 + If LineCount > LinesPerPage then x = BuildFromMODEL(HEADING) + If LineCount > LinesPerPage then LineCount = 1 +//SYSEXEC DD DSN=&SYSEXEC,DISP=SHR +//SYSTSPRT DD SYSOUT=* +//SYSPRINT DD SYSOUT=* +//SYSIN DD DUMMY +//TBLOUT DD SYSOUT=* +//*------------------------------------------------------------------- + diff --git a/endevor/Field-Developed-Programs/Table-Tool-Examples/LISTDSNS.jcl b/endevor/Field-Developed-Programs/Table-Tool-Examples/LISTDSNS.jcl index 3f78cd2..cb2e430 100644 --- a/endevor/Field-Developed-Programs/Table-Tool-Examples/LISTDSNS.jcl +++ b/endevor/Field-Developed-Programs/Table-Tool-Examples/LISTDSNS.jcl @@ -30,7 +30,7 @@ Dataset------------------------------------ DSorg Fmt Recz Blksz Mmbrs //MODEL DD * &DSN &ThisDSORG &ThisRECFM &ThisLRECL &ThisBLKSZ &ThisMembs //TABLE DD DSN=&&LISTCAT,DISP=(OLD,DELETE) -//SYSEXEC DD DISP=SHR,DSN=CARSMINI.NDVR.R1801.CSIQCLS0 +//SYSEXEC DD DISP=SHR,DSN=YOURHLQ.NDVR.R1801.CSIQCLS0 //SYSTSIN DD DUMMY //SYSTSPRT DD SYSOUT=* //TBLOUT DD SYSOUT=*