IBM OS/390 User Manual

job (all definitions available to all steps). OS/390 operation does not perform this

″

carry-over

″ (

unique to VSE).

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

VSE to OS/390 Migration Workbook