//ALLOVSAM JOB 'ZUPEK-ADMVS32',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
DEMONSTRATION JCL - ALLOCATE A VSAM DATASET VIA IDCAMS
//*
//*
THIS JOBSTREAM DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- BATCH EXECUTION OF ACCESS METHOD SERVICES
//*
//*-----------------------------------------------------------------//DELDEF
EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN
DD *
DELETE TESTDATA.VSAM.SYSUT4
SET
MAXCC=0
DEFINE CLUSTER
(NAME(TESTDATA.VSAM.SYSUT4)
KEYS(22 0)
RECSZ(400,400))
//
//YUPSVC99 JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
//*-----------------------------------------------------------------//* COBOL LOAD MODULE UTILIZING DYNAMIC ALLOCATION
//*-----------------------------------------------------------------//STEP1
EXEC PGM=CBLSVC99
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSIN
DD *
BRUCE'S TEST DATA
/*
//COBBATCH JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* SAMPLE PL/I BATCH COMPILE AND LINK
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IKFCBL00
//SYSIN
DD DSN=ADMVS.Z.COBOL(SAMPLE1),DISP=SHR
//SYSPRINT DD SYSOUT=A
//DKALLOC
JOB 'ZUPEK-SVC',CLASS=A,MSGCLASS=A,TYPRUN=HOLD
//*-----------------------------------------------------------------//* COBOL LOAD MODULE UTILIZING DYNAMIC ALLOCATION
//*-----------------------------------------------------------------//STEP1
EXEC PGM=DRVDKA
//SYSOUT
DD *
//SYSPRINT DD *
/*

//DB2BATCH JOB 'STINGRAY',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
THIS JOB DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- SUPPORT FOR BATCH DB2 VIA IKJEFT01 (ALIAS PROXT01)
//*
- EXECUTION OF AN EMBEDDED SQL PROGRAM
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSREPT
DD SYSOUT=*
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=OLD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
DD *
DSN SYSTEM(DB2)
RUN PROGRAM(DB2BATCH) PLAN(SAMPLES) PARMS('/ORG') LIB('TDB2.RUNLIB.LOAD')
END
//

//IEBQSAM JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
//* IEBQSAM CONVERTS ALL FORMS OF QSAM - (VARIABLE <-> FIXED <-> VREC)
//*
//* DSORG=PS,RECFM=VB
TO DSORG=PS,RECFM=VREC
//* DSORG=PS,RECFM=VREC TO DSORG=PS,RECFM=VB
//* DSORG=PS,RECFM=VREC TO DSORG=PS,RECFM=FB
//* DSORG=PS,RECFM=VB
TO DSORG=PS,RECFM=FB
//* DSORG=PS,RECFM=FB
TO DSORG=PS,RECFM=VREC
//* DSORG=PS,RECFM=FB
TO DSORG=PS,RECFM=VB
//*
//* SYSUT1 IS THE DD DEFINING THE INPUT DATA SET
//* SYSUT2 IS THE DD DEFINING THE OUTPUT DATA SET
//*
//*-----------------------------------------------------------------//STEP0
EXEC PGM=IEFBR14
//SYSUT1
DD DSN=TESTDATA.VARYING.DATA,DISP=(MOD,DELETE,DELETE)
/*
//STEP1
EXEC PGM=IEBQSAM
//SYSUT1
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.VARYING.DATA,DISP=(,CATLG,DELETE),
//
DCB=(LRECL=406,RECFM=VB)
//

//IOCBL02 JOB 'IOCBL02-CBL',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
//* CBL LOAD MODULE BEING INVOKED BY JCL SCANNER/SYSTEM RDR
//* RECORD I-O - ONE STEP JOB
//*
//* COBOL PROGRAM CALLS PL/I, AND 370 ASSEMBLER PASSING PARMS.
//*
//*-----------------------------------------------------------------//STEP1
EXEC PGM=IOCBL02
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT
DD SYSOUT=*
//*
//STEP2
EXEC PGM=IOCBL02
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT
DD SYSOUT=*
//
//IOPL01 JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
THIS JOB DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- SUPPORT FOR ALLOCATE AND FREE, AND EXECUTION OF IOPL01
//*
- USING THE IKEFT01 (TSO) INTERFACE.
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
DD *
/**************************************/
/*
ALLOCATE SYSUT1 &
*/
/*
ALLOCATE SYSUT2
*/
/**************************************/
ALLOC FI(SYSUT1) DA('TESTDATA.UNSORTED.DATA') SHR
ALLOC FI(SYSUT2) DA('TESTDATA.SORTED.DATA') OLD
/**************************************/
/*
EXECUTE IOPL01
*/
/**************************************/
CALL IOPL01
/**************************************/
/*
FREE AND REALLOCATE SYSUT1
*/
/**************************************/
FREE FI(SYSUT1)
ALLOC FILE(SYSUT1) DA('TESTDATA.UNSORTED.DATA') SHR
/**************************************/
/*
EXECUTE IOPL01 */
/*
** NOTE DD PERSISTENCE **
*/
/**************************************/
CALL IOPL01

//
//IOPL02 JOB 'IOPL02-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* PL/I LOAD MODULE BEING INVOKED BY JCL SCANNER/SYSTEM RDR
//* RECORD I-O - ONE STEP JOB
//*-----------------------------------------------------------------//STEP1
EXEC PGM=IOPL02
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT
DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//STEP2
EXEC PGM=IOPL02
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT
DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//
//IOPL02 JOB 'IOPL02-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* PL/I LOAD MODULE BEING INVOKED BY JCL SCANNER/SYSTEM RDR
//* RECORD I-O - ONE STEP JOB
//*-----------------------------------------------------------------//STEP1
EXEC PGM=IOPL02
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT
DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//STEP2
EXEC PGM=IOPL02
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT
DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//
//IOPL04 JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* PL/I LOAD MODULE BEING INVOKED BY JCL SCANNER/SYSTEM RDR
//* RECORD I-O - READ ONE FILE WRITE TWO FILES
//*-----------------------------------------------------------------//STEP0
EXEC PGM=IEFBR14
//SYSUT1
DD DSN=TESTDATA.SORTED.DATA.SYSUT3,DISP=(MOD,DELETE,DELETE)
/*
//STEP1
EXEC PGM=IOPL04
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSUT3
DD DSN=TESTDATA.SORTED.DATA.SYSUT3,DISP=(,CATLG,DELETE),
//
DCB=(RECFM=FB,LRECL=400)
//

//IOPL05 JOB 'ZUPEK-ADMVS32',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
DEMONSTRATION JCL - IOPL05
//*
//*
THIS JOBSTREAM DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- BATCH EXECUTION OF ACCESS METHOD SERVICES
//*
- PL/I RECORD I-O AND PL/I VSAM I-O
//*
//*-----------------------------------------------------------------//DELDEF
EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN
DD *
DELETE TESTDATA.VSAM.SYSUT4
SET
MAXCC=0
DEFINE CLUSTER
(NAME(TESTDATA.VSAM.SYSUT4)
KEYS(22 0)
RECSZ(400 400))
//*-----------------------------------------------------------------//*
//* PL/I LOAD MODULE DOING RECORD AND VSAM I-O
//*
//*-----------------------------------------------------------------//STEP2
EXEC PGM=IOPL05
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSUT3
DD DSN=TESTDATA.SORTED.DATA.SYSUT3,DISP=SHR
//SYSUT4
DD DSN=TESTDATA.VSAM.SYSUT4,DISP=SHR
//
//IOPL06 JOB 'ZUPEK-ADMVS32',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* PL/I LOAD MODULE - READ WITH RECORD I-O THEN READ AND COMPARE VSAM
//*
//*-----------------------------------------------------------------//STEP2
EXEC PGM=IOPL06
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//*SYSUT4
DD DUMMY
//SYSUT4
DD DSN=TESTDATA.VSAM.SYSUT4,DISP=SHR
//
//PLIBG
JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* SAMPLE PL/I BATCH COMPILE AND LINK
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IEL0AA,PARM='NOTEST,LANGLVL(SAA2),LIST,AG,X'
//SYSIN
DD DSN=ADMVS.Z.PLI(IOPL01),DISP=SHR

//SYSPRINT
//STEP02
//SYSLIN
//SYSPRINT

DD SYSOUT=A
EXEC PGM=IEWL
DD DSN=ADMVS.Z.PLI(IOPL01),DISP=SHR
DD SYSOUT=A

//ISP516# JOB 'ZUPEK-ADMVS32',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
//* PL/I IMS BATCH JOB INVOKED VIA AN IN-STREAM DFSRRC00 PROC
//* PL/I RECORD-IO WITH IMS DB CALLS
//*
//*-----------------------------------------------------------------//*
//IMSBATCH PROC PGM=,
//
PSB=,
//
IMSTYPE=BMP
//*
//STEP01
EXEC PGM=DFSRRC00,
//
PARM=(&IMSTYPE,&PGM,&PSB,,0000,,0,,,,T,IMST,,N)
//STEPLIB DD DSN=PGMLIB,DISP=SHR
//
DD DSN=PGMLIB2,DISP=SHR
//
DD DSN=IMS.EXITLIB,DISP=SHR
//
DD DSN=IMS.LOADLIB,DISP=SHR
//
DD DSN=IMS.RESLIB,DISP=SHR
//DFSRESLB DD DSN=IMS.RESLIB,DISP=SHR
//DFSVSAMP DD DSN=IMS.CNTLLIB(DFSVSAM),DISP=SHR
//IEFRDER DD DUMMY,
//
DCB=(RECFM=VB,LRECL=8188,BLKSIZE=8192)
//SYSOUT
DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//
PEND
//*
//STEP1OF1 EXEC IMSBATCH,PGM=PLIBMP,PSB=PLIDEMO
//SYSIN1
DD
DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//*
//
//PLICDB2 JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* SAMPLE PL/I BATCH COMPILE AND LINK
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IEL0AA,
//
PARM='PP(SQL(DBNAME'SAMPLE')),NOTEST'
//SYSIN
DD DSN=ADMVS.Z.PLI(IMSDB2T),DISP=SHR
//SYSPRINT DD SYSOUT=A
//STEP02
EXEC PGM=IEWL
//SYSLIN
DD DSN=ADMVS.Z.PLI(IMSDB2T),DISP=SHR
//SYSPRINT DD SYSOUT=A

//PLIDB2 JOB 'STINGRAY',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
THIS JOB DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- SUPPORT FOR BATCH DB2 VIA IKJEFT01 (ALIAS PROXT01)
//*
- EXECUTION OF AN EMBEDDED SQL PROGRAM
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IKJEFT01,REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
DD *
DSN SYSTEM(DB2)
RUN PROGRAM(PLIDB2) PLAN(SAMPLES) PARMS('/JOB SAMPLE14 STEP01') LIB('TDB2.RUNLIB.LOAD')
END
//
//REFRESH JOB 'RICK',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* BATCH REFRESH OF A PDS
//*-----------------------------------------------------------------//STEP4
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=RB
PRJ1=ADMVS
LIB1=Z
TYP1=COBOL
/*
//SAMPLE1 JOB 'STINGRAY',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
DEMONSTRATION JCL - SAMPLE1
//*
//*
THIS JOBSTREAM DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- FILE ALLOCATION FOR SYSUT1
//*
- PARAMETER PASSING
//*
- DISPLAY UPON CONSOLE SCREEN MANAGEMENT
//*-----------------------------------------------------------------//STEP1
EXEC PGM=SAMPLE1,PARM='SAMPLE PARM DATA'
//SYSUT1
DD DSN=TESTDATA.SAMPLE.TXT,DISP=SHR
//SYSOUT
DD SYSOUT=*

//
//SAMPCBL2 JOB 'ZUPEK-ADMVS32',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
DEMONSTRATION JCL - SAMPLE12
//*
//*
THIS JOBSTREAM DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- BATCH EXECUTION OF ACCESS METHOD SERVICES
//*
//*-----------------------------------------------------------------//DELDEF
EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//FLATFILE DD DSN=TEST.SAMPLE.TEXT12,DISP=OLD
//SYSIN
DD *
DELETE TEST.SAMPLE.VSAM12
SET
MAXCC=0
DEFINE CLUSTER
(NAME(TEST.SAMPLE.VSAM12)
KEYS(20 0)
RECSZ(100 100))
DEFINE AIX
(NAME(TEST.SAMPLE.VSAM12.INDEX)
RELATE(TEST.SAMPLE.VSAM12)
KEYS(10 20)
NONUNIQUEKEY)
REPRO INFILE(FLATFILE)
OUTDATASET(TEST.SAMPLE.VSAM12) REPLACE
PRINT INDATASET(TEST.SAMPLE.VSAM12)
LISTC LEVEL(TEST.SAMPLE)
//
//SVC99
JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* PL/I LOAD MODULE UTILIZING DYNAMIC ALLOCATION
//*-----------------------------------------------------------------//STEP1
EXEC PGM=SVC99
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT
DD SYSOUT=A
//SYSPRINT DD SYSOUT=*
/*

//TESTALI JOB 'DSNALI-TEST',CLASS=A,MSGCLASS=A

//STEP1
EXEC PGM=PLIALI1X,REGION=1024K
//

//BATCAT JOB 'RICK',CLASS=A,MSGCLASS=A

//*-----------------------------------------------------------------//*
//* BELOW ARE ALL THE POSSIBLE PARMS REQUIRED IN SYSIN DD *
//*-----------------------------------------------------------------//*
//* FUNC=U(Uncatalog),CB(Correlate/Build PDS),RB(Rebuild PDS),
//*
A(ALLOCATE) , C(CORRELATE DATASET
, D(DELETE)
//* PRJ1=
//* LIB1=
//* TYP1=
//* DSNAM=
//* DSORG=
//* RECFM=
//* LRECL=
//* TRTCH=
//* GDGNO=
//* DRIVE=
//* SUB1=
//* SUB2=
//* SUB3=
//* SUB4=
//* EXTEN=
//* PCDSN=
//*-----------------------------------------------------------------//*
//* BATCH UNCATALOG OF A PDS
//*-----------------------------------------------------------------//STEP1
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=U
PRJ1=ADMVS
LIB1=PDS
TYP1=TEST
/*
//STEP1A
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=CB
PRJ1=ADMVS
LIB1=PDS
TYP1=TEST
DSORG=PO
RECFM=LSEQ
LRECL=00080
TRTCH=A
DRIVE=C
SUB1=STINGRAY
EXTEN=CBL
/*
//STEP1B
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*

//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=CB
PRJ1=ADMVS
LIB1=PDS
TYP1=TEST2
DSORG=PO
RECFM=LSEQ
LRECL=00080
TRTCH=A
DRIVE=C
SUB1=MVSWB
SUB2=PLIWB
SUB3=IMSDEMO
EXTEN=CBL
/*
//*-----------------------------------------------------------------//*
//* BATCH DATASET ALLOCATION
//*-----------------------------------------------------------------//STEP2
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=A
DSNAM='TEST.RICK.TEST'
DSORG=PS
RECFM=FB
LRECL=00080
TRTCH=E
/*
//*-----------------------------------------------------------------//*
//* BATCH DATASET UNCATALOG
//*-----------------------------------------------------------------//STEP3
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=U
DSNAM='TEST.RICK.TEST'
/*
//*-----------------------------------------------------------------//*
//* BATCH DATASET DELETE
//*-----------------------------------------------------------------//STEP3A
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=D
DSNAM='TEST.GDG.MODEL'
/*
//*-----------------------------------------------------------------//*
//* BATCH REFRESH OF A PDS
//*------------------------------------------------------------------

//STEP4
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=RB
PRJ1=ADMVS
LIB1=PDS
TYP1=TEST
/*
//*-----------------------------------------------------------------//*
//* BATCH GDG MODEL ALLOCATION
//*-----------------------------------------------------------------//STEP5
EXEC PGM=BATCAT00
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSIN
DD *
FUNC=A
DSNAM='TEST.GDG.MODEL'
DSORG=PS
RECFM=FB
LRECL=00080
TRTCH=E
GDGNO=5
/*
//
//TESTDSND JOB 'IDAEFT01',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
THIS JOB DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- SUPPORT FOR BATCH DB2 VIA IKJEFT01 (ALIAS PROXT01)
//*
- EXECUTION OF AN EMBEDDED SQL PROGRAM
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IKJEFT01,PARM='DSN SYSTEM(DB2)',REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
DD *
* *** DSN COMMAND ISSUED AS PART OF PARM - SEE ABOVE
REBIND SYSTEM(DXX)
RUN PROG
(PLIALI2D) PLAN(/* DATA BASE */SAMPLE) PARMS(/* PARM STRING */'TSO''S POWER') /*
*/+
BADKEYWORD CP PARMS('1000')
/*
*/+
LIB('TDB2.RUNLIB.LOAD')
/* TRAILING COMMENT
RUN PROGRAM (PLIALI3D) PLAN(ALIDBASE)+
PARMS('1000');
END
DSN SYSTEM(DB2)
RUN PROG
(PLIALI2D) PLAN(SAMPLE)
PARMS('-1000')
RUN PROGRAM (PLIALI3D) PLAN(ALIDBASE) PARMS('-1000')
END

//
//TESTDSNX JOB 'IDAEFT01',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
THIS JOB DEMONSTRATES THE FOLLOWING FEATURES:
//*
//*
- SUPPORT FOR BATCH DB2 VIA IKJEFT01 (ALIAS PROXT01)
//*
- EXECUTION OF AN EMBEDDED SQL PROGRAM
//*
//*-----------------------------------------------------------------//STEP01
EXEC PGM=IKJEFT01,PARM='DSN SYSTEM(DB2)',REGION=1024K
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
DD *
/** *** DSN COMMAND ISSUED AS PART OF PARM - SEE ABOVE
/* REBIND SYSTEM(DXX)
RUN PROG
(PLIALI2X) PLAN(/* DATA BASE */SAMPLE) /*
BADKEYWORD CP PARMS('1000')
/*
*/
/* RUN PROGRAM (PLIALI3X) PLAN(ALIDBASE)+
PARMS('1000');
END
/*DSN SYSTEM(DB2)
RUN PROG
(PLIALI2X) PLAN(SAMPLE)
PARMS('-1000')
RUN PROGRAM (PLIALI3X) PLAN(ALIDBASE) PARMS('-1000')
END
//
//TESTMVS JOB 'DAVINDER',CLASS=A,MSGCLASS=A
//*-----------------------------------------------------------------//*
//* PL/I LOAD MODULE BEING INVOKED BY JCL SCANNER/SYSTEM RDR
//* PERFORM RECORD I-O
//*-----------------------------------------------------------------//FIRST
EXEC PGM=PLIMVS,PARM='/FRIDAY'
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=OLD
//TEMP
DD DSN=&&DSA,DISP=(,PASS),DCB=(LRECL=400,RECFM=FB)
//SYSPRINT DD SYSOUT=A
//SYSOUT
DD SYSOUT=A
//INPUT
DD *
DAVINDER
//*-----------------------------------------------------------------//SECOND
EXEC PGM=PLIS099,PARM='/FRIDAY'
//DUMMYDD DD DUMMY
//PASS
DD DSN=&&DSA,DISP=(OLD,DELETE)
//SRC
DD DSN=ADMVS.Z.PLI(PLIMVS),DISP=SHR
//SYSPRINT DD SYSOUT=A
//*
//THIRD
EXEC PGM=DRVDKA,PARM='/FRIDAY'
//DUMMYDD DD DUMMY
//PASS
DD DSN=&&DSA,DISP=(OLD,DELETE)
//SRC
DD DSN=ADMVS.Z.PLI(PLIMVS),DISP=SHR
//SYSPRINT DD SYSOUT=A

//*
//FOURTH
EXEC PGM=PLIS099,PARM='/FRIDAY'
//DUMMYDD DD DUMMY
//PASS
DD DSN=&&DSA,DISP=(OLD,DELETE)
//SRC
DD DSN=ADMVS.Z.PLI(PLIMVS),DISP=SHR
//SYSPRINT DD SYSOUT=A
//*
//FIFTH
EXEC PGM=PLIS099,PARM='/FRIDAY'
//DUMMYDD DD DUMMY
//PASS
DD DSN=&&DSA,DISP=(OLD,DELETE)
//SRC
DD DSN=ADMVS.Z.PLI(PLIMVS),DISP=SHR
//SYSPRINT DD SYSOUT=A
//*
//SIXTH
EXEC PGM=PLIMVS,PARM='/FRIDAY'
//DUMMYDD DD DUMMY
//PASS
DD DSN=&&DSA,DISP=(OLD,DELETE)
//SRC
DD DSN=ADMVS.Z.PLI(PLIMVS),DISP=SHR
//SYSPRINT DD SYSOUT=A
//*
//SEVENTH EXEC PGM=IOCBL02,PARM='/FRIDAY'
//SYSOUT
DD SYSOUT=A
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=OLD
//DUMMYDD DD DUMMY
//PASS
DD DSN=&&DSA,DISP=(OLD,DELETE)
//SRC
DD DSN=ADMVS.Z.PLI(PLIMVS),DISP=SHR
//SYSPRINT DD SYSOUT=A
//*
//EIGHTH
EXEC PGM=IOPL02,PARM='/FRIDAY'
//SYSOUT
DD SYSOUT=A
//SYSUT1
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT2
DD DSN=TESTDATA.SORTED.DATA,DISP=OLD
//DUMMYDD DD DUMMY
//PASS
DD DSN=&&DSA,DISP=(OLD,DELETE)
//SRC
DD DSN=ADMVS.Z.PLI(PLIMVS),DISP=SHR
//SYSPRINT DD SYSOUT=A
//*
//
//TESTS099
//STEP1
//MODEL
//SYSOUT
//*SYSUT1
//*SYSUT2
//SYSPRINT
//DDDUMMY
//DDSTAR
INPUT
/*
//

JOB 'DAVINDER',CLASS=A,MSGCLASS=A
EXEC PGM=PLIS099,PARM='/FRIDAY'
DD DSN=ADMVS.Z.CNTL,DISP=SHR
DD SYSOUT=A
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
DD DSN=TESTDATA.SORTED.DATA,DISP=(,CATLG,DELETE),
DD SYSOUT=A
DD DUMMY
DD *

//TESTSORT JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A

//STEP01 EXEC PGM=DFSORT
//SORTIN DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SORTOUT DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT DD SYSOUT=A
//SYSIN
DD *
SORT FIELDS=(1,6,CH,A,7,12,CH,D)
/*
//
//TESTSOUT
//STEP1
//MODEL
//SYSOUT
//*SYSUT1
//*SYSUT2
//SYSPRINT
//DDDUMMY
//DDSTAR
INPUT
/*
//

JOB 'DAVINDER',CLASS=A,MSGCLASS=A
EXEC PGM=PLISSOUT,PARM='/FRIDAY'
DD DSN=ADMVS.Z.CNTL,DISP=SHR
DD SYSOUT=A
DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
DD DSN=TESTDATA.SORTED.DATA,DISP=(,CATLG,DELETE),
DD SYSOUT=A
DD DUMMY
DD *

//TESTSRTA JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A

//STEP01 EXEC PGM=TSTSRTA
//TASKIN DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//TASKOUT DD DSN=TESTDATA.SORTED.DATA,DISP=(MOD,CATLG,CATLG),
//
DCB=(LRECL=400,RECFM=FB)
//SYSOUT DD SYSOUT=A
//
//TESTSRTB JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//STEP01 EXEC PGM=TSTSRTB
//SORTIN DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SORTOUT DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT DD SYSOUT=A
//SYSIN
DD *
SORT FIELDS=(1,6,CH,A,7,12,CH,D)
/*
//
//TESTSRTC JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A
//STEP01 EXEC PGM=TSTSRTC
//TASKIN DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SYSUT3 DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT DD SYSOUT=A
//

//TESTSRTD JOB 'ZUPEK-PLI',CLASS=A,MSGCLASS=A

//STEP01 EXEC PGM=TSTSRTD
//SORTIN DD DSN=TESTDATA.UNSORTED.DATA,DISP=SHR
//SORTOUT DD DSN=TESTDATA.SORTED.DATA,DISP=SHR
//SYSOUT DD SYSOUT=A
//
//TESTVSAM
//STEP01
//PROFVSAM
//STEP02
//PROFVSAM
//

JOB 'ZUPEK-ADMVS32',CLASS=A,MSGCLASS=A
EXEC PGM=TESTVSAM,PARM='BRUCE ZUPEK'
DD DSN=TEST.VSAM.DATA,DISP=SHR
EXEC PGM=TESTVSAM,COND=(240,NE)
DD DSN=TEST.VSAM.DATA,DISP=SHR

//*
//STEP1
EXEC PGM=IDCAMS
//SYSOUT
DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT1
DD DSN=MISNSA.TRI.INVTXT,DISP=SHR
//SYSUT2
DD DSN=&&OUT,DISP=(,PASS,DELETE),
//
UNIT=WORK,SPACE=(TRK,(300,120),RLSE),
//
DCB=(RECFM=VB,LRECL=32704,BLKSIZE=0)
//SYSIN
DD *
REPRO INFILE(SYSUT1) OUTFILE(SYSUT2)
//*
//VRECGEN1 EXEC PGM=VRECGEN1
//STEPLIB DD DSN=MISNSA.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT
DD SYSOUT=*
//INPDD
DD DSN=&&OUT,DISP=(OLD,DELETE)
//*
DCB=(RECFM=VB,LRECL=32704,BLKSIZE=32708)
//OUTDD
DD DSN=MISNSA.TRI.INVTXT.EXTR,
//
UNIT=TEST,DISP=(,CATLG,DELETE),
//
SPACE=(TRK,(600,90),RLSE),
//
DCB=(RECFM=VB,LRECL=32706,BLKSIZE=32710)
//

*/