IBM OS/390 manual Sample VSE plus Carry-Over, Extent DISKO1,0,100,500, Extent DISK14,0,600,500

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

94VSE to OS/390 Migration Workbook