* $$ CTL CLASS=X
*/***** COP502B.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
* $$ JOB JNM=COP502B
* $$ LST CLASS=3,DISP=D,FCB=$$$$PEED,DEST=(,PSF),PAGEDEF=PRT2UP
// JOB COP502B BACKUP FEDERAL EXPRESS MASTER FILE
// ASSGN SYSIPT,SYSRDR
// ASSGN SYSLST,IGN
// DLBL INMST,'COP.FEDERAL.EXPRESS.SHIPMENT',,VSAM,CAT=MOLUCAT
// TLBL BKUP,'COP502P1,W'
// EXEC IDCAMS,SIZE=AUTO
REPRO OUTFILE-
(BKUP-
ENV-
( PDEV(2400)-
BLKSZ(16000)-
RECFM(FB)-
RECSZ(100)))-
INFILE(INMST)
/*
/&
* $$ EOJ
*/***** COP502B.INCLUDE //END// COPFEDX.SYSIN 001 */
*/***** COP501J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
* $$ JOB JNM=COP501,USER=TRACKUP
* $$ LST CLASS=X,FNO=1481,DEST=(*,PSF),PAGEDEF=PRT2UP,COPY=02, X
* $$ DISP=H,COPY=1,FORMDEF=GRL2UP,LST=SYS006,JNM=COP50101
// JOB COP501 UPLOAD FEDERAL EXPRESS DAILY MANIFEST FILES
/*
// DLBL DD1,'FEDEX1'
// EXTENT ,DOSWRK,1,0,1,300
// EXEC DABUTL,SIZE=DABUTL
UPLOAD FILE
PCNAME(SERVER4.ACME.COM)
DIRECTORY(\\RNET\SHIPPING\FEDEX)
FILENAME(SHIPFILE.RN1)
TYPE(DISK)
DISP(EMPTY)
DDNAME(DD1)
RECFM(FB)
RECSIZE(240)
BLKSIZE(2400)
MODE(TEXT)
/*
// DLBL DD1,'FEDEX2'
// EXTENT ,DOSWRK,1,0,1,300
// EXEC DABUTL,SIZE=DABUTL
UPLOAD FILE
PCNAME(SERVER4.ACME.COM)
DIRECTORY(\\RNET\SHIPPING\FEDEX)
FILENAME(SHIPFILE.RN2)
TYPE(DISK)
DDNAME(DD1)
DISP(EMPTY)
RECFM(FB)
RECSIZE(240)
BLKSIZE(2400)
MODE(TEXT)
/*
// DLBL SORTIN1,'FEDEX1'
// EXTENT ,DOSWRK,1,0,1,300
// DLBL SORTIN2,'FEDEX2'
// EXTENT ,DOSWRK,1,0,1,300
// DLBL SORTOUT,'COP.FEDEXW.DAILY'
// DLBL SORTWK1,'CPU--.==.SORT.WORK(D)'
// EXTENT SYS003,DOSWRK,1,0,001,600
// EXEC SORT,SIZE=100K
SORT FIELDS=(178,11,CH,A),WORK=1,FILES=2
RECORD TYPE=F,LENGTH=240
INPFIL BLKSIZE=2400
OUTFIL BLKSIZE=2400
OPTION PRINT=ALL
END
/*
/&
* $$ EOJ
*/***** COP501J.INCLUDE //END// COPFEDX.SYSIN 001 */
*/***** COP502J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
* $$ JOB JNM=COP502,USER=TRACKUP
* $$ LST CLASS=H,FNO=1481,FCB=$$$$PEED,DEST=(,PSF),PAGEDEF=PRT2UP
// JOB COP502T SORT DAILY FEDERAL EXP FILE
// OPTION PARTDUMP
// ASSGN SYSIPT,SYSRDR
// ASSGN SYSLST,IGN
// DLBL SORTIN1,'COP.FEDEXW.DAILY'
// DLBL SORTOUT,'==.WORKA.CPU--(K)'
// DLBL SORTWK1,'CPU--.==.SORT.WORK(D)'
// EXTENT SYS003,DOSWRK,1,0,001,600
// EXEC SORT,SIZE=100K
SORT FIELDS=(178,11,CH,A),WORK=1
INCLUDE COND=(1,4,CH,NE,X'40404040')
RECORD TYPE=F,LENGTH=240
INPFIL BLKSIZE=2400
OUTFIL BLKSIZE=2400
OPTION PRINT=ALL
END
/*
* ** STEP 02 ** UPDATE VSAM MASTER FILE
// DLBL ENTREX,'==.WORKA.CPU--(D)'
// DLBL INDAILY,'==.WORKA.CPU--(D)'
// TLBL INBKUP,'COP502P1,U'
// DLBL MASTER,'COP.FEDERAL.EXPRESS.SHIPMENT',,VSAM,CAT=MOLUCAT
// OPTION PARTDUMP
*/***** ADRDB.P /BEGIN/ COP502J.INCLUDE 002 */
LIBDEF PHASE,SEARCH=(CADB.DC26,CADB.IPC42,CADB.VSAMT21, X
CADB.USR90,CADB.INS90)
*/***** ADRDB.P //END// COP502J.INCLUDE 002 */
// EXEC COP502
INPUT=FEDEXW UPDATE=Y COL-7 FEDEXW OR ENTREX COL-24 Y OR N
/* END OF DATA
/& END OF JOB
* $$ EOJ
*/***** COP502J.INCLUDE //END// COPFEDX.SYSIN 001 */
*/***** CTP502J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
* $$ JOB JNM=CTP502
* $$ LST CLASS=H,FNO=1481,FCB=$$$$PEED,DEST=(,PR38351),PAGEDEF=PRT2UP
// JOB CTP502T WRITE FILE TO UPDATE DETAIL DATABASE
// OPTION PARTDUMP
// ASSGN SYSIPT,SYSRDR
// ASSGN SYSLST,IGN
// DLBL ENTREX,'TAPEMARK.DISK'
// DLBL INDAILY,'COP.FEDEXW.DAILY'
// DLBL OUTFLE,'COP695.TRACK.FILE'
// OPTION PARTDUMP
// EXEC CTP502
INPUT=FEDEXW UPDATE=N COL-7 FEDEXW OR ENTREX COL-24 Y OR N
/* END OF DATA
/& END OF JOB
* $$ EOJ
*/***** CTP502J.INCLUDE //END// COPFEDX.SYSIN 001 */
*/***** COP695J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
* $$ JOB JNM=COP695,USER=TRACKUP
// JOB COP695 UPDATE MANIFEST DETAIL WITH TRACKING NO
// ASSGN SYS015,02C
// ASSGN SYSIPT,SYSRDR
* $$ LST CLASS=3,FNO=1481,FCB=$$$$PEED,PAGEDEF=PRT150,DEST=(,PSF) X
* $$ DISP=H,COPY=1,FORMDEF=GRB1UP,JSEP=0
* $$ LST CLASS=X,FNO=1481,FCB=$$$$2UP,DEST=(*,PSF),PAGEDEF=PRT150, X
* $$ LST=SYS015,DISP=H,COPY=01,FORMDEF=GRB1UP,JNM=COP695R
// OPTION PARTDUMP
*/***** ADRDB.P /BEGIN/ COP695J.INCLUDE 002 */
LIBDEF PHASE,SEARCH=(CADB.DC26,CADB.IPC42,CADB.VSAMT21, X
CADB.USR90,CADB.INS90)
*/***** ADRDB.P //END// COP695J.INCLUDE 002 */
// DLBL PSFILE,'COP645.PASSPORT.DAILY',,,CONCAT
// TLBL PSFILE,'COP645.PASSPORT.DAILY.TAPE',,,CONCAT
// DLBL PSFILE,'COP645.PASSPORT.DAILY.MAD'
// DLBL FEFILE,'COP645.FED.HOME'
// DLBL VENFLE,'COP776.VEN.TRACKING'
/* DLBL VENFLE,'TAPEMARK.DISK'
// EXEC COP695
UPDATE=Y
/*
* $$ LST CLASS=1,FNO=1481,DEST=(,PSF),FCB=$$$$2UP,DISP=H,COPY=1, X
* $$ LST=SYS015
* M4VAPDS - GENERATE REPORT
*/***** M4VAPDS.PROC /BEGIN/ COP695J.INCLUDE 002 */
// LIBDEF PHASE,SEARCH=(MAC4.VTP4520G,APPL.FCB)
// LIBDEF SOURCE,SEARCH=MAC4.VTP4520G
*/***** M4VAPDS.PROC //END// COP695J.INCLUDE 002 */
// EXEC M4VAPDS
OPTION ERROR=NOPRINT,FCB=$$$$PEED
CREATE NAME=' ' NOSEP
POWER LST DISP=H,CLASS=0,FCB=$$$$PEED,DEST=(*,RNET)
POWER JOB JNM=COP695R
SELECT JOB=COP695R,CLASS=X
START PAGE 1
STOP PAGE 999999
END
PALTER LST,COP695R,CCLASS=X,CLASS=4
PALTER LST,COP695R,CCLASS=4,DEST=SCDCA
/*
*/***** RNET.PROC /BEGIN/ COP695J.INCLUDE 002 */
// ASSGN SYSIPT,SYSRDR COPIED FROM RNETA
/* LIBDEF PHASE,SEARCH=VIVSAM.UTIL20
/* DLBL RNETCTL,'RNET.CONTROL.CICSU',,VSAM,CAT=VIVUCAT
/* DLBL RNETCAT,'RNET.CATALOG.CICSBT',,VSAM,CAT=VIVUCAT
/* DLBL RNETMOP,'RNET.CATALOG.MOP',,VSAM,CAT=VIVUCAT
/* DLBL RNETLST,'RNET.CATALOG.LST',,VSAM,CAT=VIVUCAT
/* DLBL RNETINV,'RNET.CATALOG.INV',,VSAM,CAT=VIVUCAT
/* DLBL RNETSOP,'RNET.CATALOG.SOP',,VSAM,CAT=VIVUCAT
// EXEC RNETUTL,SIZE=RNETUTL
*/***** RNET.PROC //END// COP695J.INCLUDE 002 */
DOWNLOAD LIST
REPORT(COP695R)
CATALOG(RNETMOP)
/&
* $$ EOJ
*/***** COP695J.INCLUDE //END// COPFEDX.SYSIN 001 */
*/***** COP501N.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
* $$ JOB JNM=COP501N,USER=TRACKUP
* $$ LST CLASS=M,DEST=(,PSF),PAGEDEF=PRT2UP,FNO=1481
// JOB COP501N NULL FEDERAL EXPRESS MANIFEST FROM PC
// DLBL ARFILE,'==.WORKA.CPU--(D)'
// DLBL VIRTUL1,'DYL.VLINK.LIB008',,VSAM,CAT=MOLUCAT
// ASSGN SYSIPT,SYSRDR
*/***** DYL280II.PROC /BEGIN/ COP501N.INCLUDE 002 */
// PROC PHASLIB='IJSYSRS.SYSLIB'
* STEP - DYL280II TEMP FILE SETUP
// ASSGN SYSIPT,SYSRDR
// LIBDEF PHASE,SEARCH=(DYL.VISRES40, C
&PHASLIB)
// DLBL IJSYS04,'===.DYL280.WORK.FILE(D)',1 ----}--- DYL280 JCL
// EXTENT SYS004,VDIWRK,1,0,1,200 -------
// DLBL SYS008,'===.DYL280II.EXPANDED.FILE(D)',1 ------
// EXTENT SYS008,VDIWRK,1,0,1,200 }
// DLBL SYS009,'===.DYL280II.SYSLST(D)',1 }
// EXTENT SYS009,VDIWRK,1,0,1,904 }___ DYL280II
// DLBL SYS010,'===.DYL280II.CONTROL.BLOCKS.FILE(D)',1 } JCL
// EXTENT SYS010,VDIWRK,1,0,1,200 }
// DLBL SYS011,'===.DYL280II.WORK.FILE(D)',1 }
// EXTENT SYS011,VDIWRK,1,0,1,200 ----------------------
*/***** DYL280II.PROC //END// COP501N.INCLUDE 002 */
// EXEC DYL280
STATEOFF
OPTION NOXREF
OPTION NOTOTAL
OPTION STRUCTURED
OPTION PRINTERR
FILE PHONE F 80 80 SYS099 DUMMY
WORKAREA
RECORD_TYPE 1 CH
WORKAREA
VFILE FEDEX1 LIBNAME 'VIRTUL1' DISKETTE 1 FILENAME 'SHIPFILE'
EXT 'RN1' COUNT OUTCOUNT1 OUTPUT REPLACE FIELDS
RECORD_TYPE
VFILE FEDEX2 LIBNAME 'VIRTUL1' DISKETTE 1 FILENAME 'SHIPFILE'
EXT 'RN2' COUNT OUTCOUNT2 OUTPUT REPLACE FIELDS
RECORD_TYPE
;***********************************************************************
;* P R O C E D U R E S
;***********************************************************************
VOPEN FEDEX1
VOPEN FEDEX2
VCLOSE FEDEX1
VCLOSE FEDEX2
STOP
/* END OF DATA
// ASSGN SYSLST,IGN
// UPSI 0
// EXEC DYNUTIL
DELETE '===*' POOL=DOSWRK
/*
/&
* $$ EOJ
*/***** COP501N.INCLUDE //END// COPFEDX.SYSIN 001 */
Return to the Sample Job Stream List
//COPFEDX JOB (COPFEDX),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//*/***** COP502B.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
//*
//* STEP0010 PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS VS I MOLUCAT 'COP.FEDERAL.EXPRESS.SHIPMENT' REPRO
//INMST DD DSN=MVS.COP.FEDERAL.EXPRESS.SHIPMENT,
// DISP=SHR
//* MT O SYS005 UA 'COP502P1,W' REPRO
//BKUP DD DSN=MVS.COP502P1,
// DISP=(NEW,CATLG,DELETE),
// LRECL=100,
// RECFM=FB,
// UNIT=TAPE,
// VOL=(,RETAIN)
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
REPRO OUTFILE (BKUP ) INFILE(INMST)
/*
//*
//*/***** COP502B.INCLUDE //END// COPFEDX.SYSIN 001 */
//*/***** COP501J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
//*
//* STEP0020 PGM=DABUTL
//*
//STEP0020 EXEC PGM=DABUTL
//* SD O 'FEDEX1'
//DD1 DD DSN=MVS.FEDEX1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(300,75),RLSE),
// UNIT=SYSDA
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
UPLOAD FILE
PCNAME(SERVER4.ACME.COM)
DIRECTORY(\\RNET\SHIPPING\FEDEX)
FILENAME(SHIPFILE.RN1)
TYPE(DISK)
DISP(EMPTY)
DDNAME(DD1)
RECFM(FB)
RECSIZE(240)
BLKSIZE(2400)
MODE(TEXT)
/*
//*
//* STEP0030 PGM=DABUTL
//*
//STEP0030 EXEC PGM=DABUTL
//* SD O 'FEDEX2'
//DD1 DD DSN=MVS.FEDEX2,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(300,75),RLSE),
// UNIT=SYSDA
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
UPLOAD FILE
PCNAME(SERVER4.ACME.COM)
DIRECTORY(\\RNET\SHIPPING\FEDEX)
FILENAME(SHIPFILE.RN2)
TYPE(DISK)
DDNAME(DD1)
DISP(EMPTY)
RECFM(FB)
RECSIZE(240)
BLKSIZE(2400)
MODE(TEXT)
/*
//*
//* STEP0040 PGM=SORT
//*
//STEP0040 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* SD I SYS002 UA SORTIN1 'FEDEX1'
//SORTIN DD DSN=MVS.FEDEX1,
// DISP=OLD
//* SD I SYS003 UA SORTIN2 'FEDEX2'
// DD DSN=MVS.FEDEX2,
// DISP=OLD
//* SD O SYS001 UA 'COP.FEDEXW.DAILY'
//SORTOUT DD DSN=MVS.COP.FEDEXW.DAILY,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1000,250),RLSE),
// UNIT=SYSDA
//* PR O
//SYSOUT DD SYSOUT=*
//* CD I
//SYSIN DD *
SORT FIELDS=(178,11,CH,A)
RECORD TYPE=F,LENGTH=240
*INPFIL BLKSIZE=2400
*OUTFIL BLKSIZE=2400
*OPTION PRINT=ALL
END
/*
//*
//*/***** COP501J.INCLUDE //END// COPFEDX.SYSIN 001 */
//*/***** COP502J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
//*
//* STEP0050 PGM=SORT
//*
//STEP0050 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* SD I SYS002 UA SORTIN1 'COP.FEDEXW.DAILY'
//SORTIN DD DSN=MVS.COP.FEDEXW.DAILY,
// DISP=OLD
//* SD O SYS001 UA '==.WORKA.CPU--(K)'
//SORTOUT DD DSN=MVS.WORKA.CPU##,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1000,250),RLSE),
// UNIT=SYSDA
//* PR O
//SYSOUT DD SYSOUT=*
//* CD I
//SYSIN DD *
SORT FIELDS=(178,11,CH,A)
INCLUDE COND=(1,4,CH,NE,X'40404040')
RECORD TYPE=F,LENGTH=240
*INPFIL BLKSIZE=2400
*OUTFIL BLKSIZE=2400
*OPTION PRINT=ALL
END
/*
//*
//* ** STEP 02 ** UPDATE VSAM MASTER FILE
//*/***** ADRDB.P /BEGIN/ COP502J.INCLUDE 002 */
//*/***** ADRDB.P //END// COP502J.INCLUDE 002 */
//*
//* STEP0060 PGM=COP502
//*
//STEP0060 EXEC PGM=COP502
//* SD I '==.WORKA.CPU--(D)'
//ENTREX DD DSN=MVS.WORKA.CPU##,
// DISP=(OLD,DELETE,KEEP)
//* SD I '==.WORKA.CPU--(D)'
//INDAILY DD DSN=MVS.WORKA.CPU##,
// DISP=(OLD,DELETE,KEEP)
//* MT I 'COP502P1,U'
//INBKUP DD DSN=MVS.COP502P1,
// DISP=OLD
//* VS I MOLUCAT 'COP.FEDERAL.EXPRESS.SHIPMENT'
//MASTER DD DSN=MVS.COP.FEDERAL.EXPRESS.SHIPMENT,
// DISP=SHR
//*
//*/***** COP502J.INCLUDE //END// COPFEDX.SYSIN 001 */
//*/***** CTP502J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
//*
//* STEP0070 PGM=CTP502
//*
//STEP0070 EXEC PGM=CTP502
//* SD I 'TAPEMARK.DISK'
//ENTREX DD DSN=MVS.TAPEMARK.DISK,
// DISP=SHR
//* SD I 'COP.FEDEXW.DAILY'
//INDAILY DD DSN=MVS.COP.FEDEXW.DAILY,
// DISP=OLD
//* SD O 'COP695.TRACK.FILE'
//OUTFLE DD DSN=MVS.COP695.TRACK.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1000,250),RLSE),
// UNIT=SYSDA
//*
//*/***** CTP502J.INCLUDE //END// COPFEDX.SYSIN 001 */
//*/***** COP695J.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
//*/***** ADRDB.P /BEGIN/ COP695J.INCLUDE 002 */
//*/***** ADRDB.P //END// COP695J.INCLUDE 002 */
//*
//* STEP0080 PGM=COP695
//*
//STEP0080 EXEC PGM=COP695
//* SD I 'COP645.PASSPORT.DAILY'
//PSFILE DD DSN=MVS.COP645.PASSPORT.DAILY,
// DISP=SHR
//* MT I PSFILE 'COP645.PASSPORT.DAILY.TAPE'
// DD DSN=MVS.COP645.PASSPORT.DAILY.TAPE,
// DISP=SHR
//* SD I PSFILE 'COP645.PASSPORT.DAILY.MAD'
// DD DSN=MVS.COP645.PASSPORT.DAILY.MAD,
// DISP=SHR
//* SD I 'COP645.FED.HOME'
//FEFILE DD DSN=MVS.COP645.FED.HOME,
// DISP=SHR
//* SD I 'COP776.VEN.TRACKING'
//VENFLE DD DSN=MVS.COP776.VEN.TRACKING,
// DISP=SHR
//*
//* M4VAPDS - GENERATE REPORT
//*/***** M4VAPDS.PROC /BEGIN/ COP695J.INCLUDE 002 */
//*/***** M4VAPDS.PROC //END// COP695J.INCLUDE 002 */
//*
//* STEP0090 PGM=M4VAPDS
//*
//STEP0090 EXEC PGM=M4VAPDS
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
OPTION ERROR=NOPRINT,FCB=$$$$PEED
CREATE NAME=' ' NOSEP
POWER LST DISP=H,CLASS=0,FCB=$$$$PEED,DEST=(*,RNET)
POWER JOB JNM=COP695R
SELECT JOB=COP695R,CLASS=X
START PAGE 1
STOP PAGE 999999
END
PALTER LST,COP695R,CCLASS=X,CLASS=4
PALTER LST,COP695R,CCLASS=4,DEST=SCDCA
/*
//*
//*/***** RNET.PROC /BEGIN/ COP695J.INCLUDE 002 */
//*
//* STEP0100 PGM=RNETUTL
//*
//STEP0100 EXEC PGM=RNETUTL
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
*/***** RNET.PROC //END// COP695J.INCLUDE 002 */
DOWNLOAD LIST
REPORT(COP695R)
CATALOG(RNETMOP)
/*
//*
//*/***** COP695J.INCLUDE //END// COPFEDX.SYSIN 001 */
//*/***** COP501N.INCLUDE /BEGIN/ COPFEDX.SYSIN 001 */
//*/***** DYL280II.PROC /BEGIN/ COP501N.INCLUDE 002 */
//* STEP - DYL280II TEMP FILE SETUP
//*/***** DYL280II.PROC //END// COP501N.INCLUDE 002 */
//*
//* STEP0110 PGM=DYL280
//*
//STEP0110 EXEC PGM=DYL280
//* MODULE DYL280 PROCESSED BY PLUG-IN LCP280
//* I SYS256 IGN
//PHONE DD DUMMY
//* SD W SYS004 UA IJSYS04 '===.DYL280.WORK.FILE(D)'
//SYS004 DD DSN=&&SYS004,
// SPACE=(TRK,(200,50)),
// UNIT=SYSDA
//* PR O
//SYSPRINT DD SYSOUT=*
//*DLBL ARFILE,'==.WORKA.CPU--',,SD
//*DLBL VIRTUL1,'DYL.VLINK.LIB008',,VSAM,CAT=MOLUCAT
//*DLBL SYS008,'===.DYL280II.EXPANDED.FILE',,SD
//*DLBL SYS009,'===.DYL280II.SYSLST',,SD
//*DLBL SYS010,'===.DYL280II.CONTROL.BLOCKS.FILE',,SD
//*DLBL SYS011,'===.DYL280II.WORK.FILE',,SD
//* CD I
//SYSIN DD *
STATEOFF
OPTION NOXREF
OPTION NOTOTAL
OPTION STRUCTURED
OPTION PRINTERR
FILE PHONE FB 80 80 DUMMY
WORKAREA
RECORD_TYPE 1 CH
WORKAREA
VFILE FEDEX1 LIBNAME 'VIRTUL1' DISKETTE 1 FILENAME 'SHIPFILE'
EXT 'RN1' COUNT OUTCOUNT1 OUTPUT REPLACE FIELDS
RECORD_TYPE
VFILE FEDEX2 LIBNAME 'VIRTUL1' DISKETTE 1 FILENAME 'SHIPFILE'
EXT 'RN2' COUNT OUTCOUNT2 OUTPUT REPLACE FIELDS
RECORD_TYPE
;***********************************************************************
;* P R O C E D U R E S
;***********************************************************************
VOPEN FEDEX1
VOPEN FEDEX2
VCLOSE FEDEX1
VCLOSE FEDEX2
STOP
/*
//*
//* --> PGM=DYNUTIL <-- DELETED
//*
//SCRATCH EXEC PGM=IEFBR14
//*
//DEL001 DD DSN=MVS.COP502P1,DISP=(MOD,DELETE)
//DEL002 DD DSN=MVS.FEDEX1,DISP=(MOD,DELETE)
//DEL003 DD DSN=MVS.FEDEX2,DISP=(MOD,DELETE)
//DEL004 DD DSN=MVS.COP.FEDEXW.DAILY,DISP=(MOD,DELETE)
//DEL005 DD DSN=MVS.WORKA.CPU##,DISP=(MOD,DELETE)
//
Return to the Sample Job Stream List