IBM OS/390 User Manual

Page of 673
A method that used two SYSOUT devices and output two DCBs in the
program could also work.
 3. PROGRAM2 Changes
PROGRAM2 has to change for OS/390 to simulate the imbedded LST cards in
the VSE job (for DEST=KCJONES and DEST=HERBERT). PROGRAM1 was
OK as far as file assignments.
4.5.3 Sample VSE plus Carry-Over
In this example the job cards for JOB2 and JOB3 have been commented out
making this a POWER job that contains one VSE job with three jobsteps. Also,
the file definitions have all been moved to the beginning of the job. This
demonstrates the 
carry-over
″ 
effect where the file definitions are available
(
carry-over
″) 
to all steps within the VSE job.
* $$ JOB JNM=MYJOB,CLASS=F,USER=
ITSO SAMPLE
* $$ LST LST=SYSLST,JSEP=0,CLASS=W,COPIES=3
// JOB JOB1
EXTRACT RECORDS FROM TAPE
// ASSIGN SYS005,480
INPUT TAPE
// TLBL TAPEIN,
INPUT-TAPE
// DLBL DISKOUT,
WORK-DISK
′ , 0 ,
SD
// EXTENT DISKO1,0,100,500
// DLBL SORTIN,
WORK-DISK
′ , 0 ,
SD
// EXTENT DISK01,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)
// DLBL DISKIN,
WORK-DISK 2
′ , 0 ,
SD
// EXTENT DISK14,0
// DLBL PRODCAT,
PROD.USER.CATALOG
′ , ,
VSAM
// EXTENT PROD22,0
// DLBL MASTER,
PLANT.MASTER.FILE
′ , ,
VSAM,CAT=PRODCAT
/*
// 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
// 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
94
VSE to OS/390 Migration Workbook