Filter
Top Products
job (all definitions available to all steps). OS/390 operation does not perform this
″carry-over″ (unique to VSE).
4.5.1 Sample VSE JCL
This example shows one POWER job containing three VSE jobs.
* $$ JOB JNM=MYJOB,CLASS=F,USER=′ ITSO SAMPLE′
* $$ LST LST=SYSLST,JSEP=0,CLASS=W,COPIES=3
// JOB JOB1 extract records from tape
// ASSGN SYS005,480 input tape
// TLBL TAPEIN,′ INPUT-TAPE′
// DLBL DISKOUT,′ WORK-DISK′,O,SD
// EXTENT DISK01,1,0,100,500
// EXEC PROGRAM1,SIZE=AUTO
// MTC SYS005,RUN unload tape
/*
* check previous job
// PAUSE in case it abended
/*
/&
// JOB JOB2 SORT WORK FILE BY PLANT NUMBER
* $$ LST LST=SYSLST,JSEP=0,CLASS=A
// DLBL SORTIN,′ WORK-DISK′,0,SD
// EXTENT DISKO1,0
// DLBL SORTOUT,′ WORK-DISK 2′,0,SD
// EXTENT DISK14,0,600,500
/ DLBL SORTWK1,′%%SORT.WORK1′,0,VSAM,RECSIZE=100,RECORDS=50000, C
DISP=(NEW,DELETE)
// DLBL SORTWK2,′%%SORT.WORK2′,0,VSAM,RECSIZE=100,RECORDS=50000, C
DISP=(NEW,DELETE)
// EXEC SORT,SIZE=200K
SORT FIELDS=(1,32,CH,A),WORK=2
RECORD TYPE=F,LENGTH=87
INPFIL BLKSIZE=4350
OUTFIL BLKSIZE=4350
/*
* SORT ENDED
/&
// JOB JOB3 PRINT REPORT
// DLBL DISKIN,′ WORK-DISK 2′,0,SD
// EXTENT DISK14,0
// DLBL PRODCAT,′ PROD.USER.CATALOG′,,VSAM
// DLBL MASTER,′ PLANT.MASTER.FILE′,,VSAM,CAT=PRODCAT
// EXEC PROGRAM2,SIZE=300K
* $$ LST LST=SYS010,DEST=KCJONES
01 ENDICOTT
* $$ LST LST=SYS010,DEST=HERBERT
02 BOEBLINGEN
/*
/&
* $$ EOJ
92 VSE to OS/390 Migration Workbook