Using IBM Application Development Tools for z/OS and OS/390

Appendix A. Supporting information 551

)PROC

IF (&ZCMD = '')

VER(&FMNVDDSN,NB)

&FMNVDCAT = &Z

&TvaR = TRUNC(&FMNVDORG,1)

IF (&FMNVDSH2 ¬= '')

VER(&FMNVDSH1,NONBLANK)

&TvaR = TRUNC(&FMNVDALO,1)

&FMNVDALO = TRANS(&TvaR R,REC K,KB M,MB T,TRK C,CYL *,*)

VER(&FMNVDALO,NB,LIST,REC,KB,MB,TRK,CYL)

VER(&FMNVDSP1,NONBLANK)

File Manager batch job to process multi-record file

Example A-3 depicts the full batch job used in XXXXXXXXXXXXX. The job includes file

clean-up, allocation, and invocation of File Manager.

Example: A-3 File Manager batch job

//DAVIN6F1 JOB (12345678),’PD PAK’,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), JOB00250

// REGION=32M,NOTIFY=&SYSUID

//*

//DELETE EXEC PGM=IDCAMS

//SYSPRINT DD SYSOUT=*

//SYSIN DD *

DELETE DAVIN6.SPLIT.REC01

DELETE DAVIN6.SPLIT.REC02

DELETE DAVIN6.SPLIT.REC03

DELETE DAVIN6.SPLIT.EXTRA

SET MAXCC = 0

/*

//FILESET EXEC PGM=IEFBR14

//SYSPRINT DD SYSOUT=*

//REC01 DD DSN=DAVIN6.SPLIT.REC01,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA,

// RECFM=FB,LRECL=80,BLKSIZE=0

//REC02 DD DSN=DAVIN6.SPLIT.REC02,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA,

// RECFM=FB,LRECL=80,BLKSIZE=0

//REC03 DD DSN=DAVIN6.SPLIT.REC03,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA,

// RECFM=FB,LRECL=80,BLKSIZE=0

//EXTRA DD DSN=DAVIN6.SPLIT.EXTRA,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA,

// RECFM=FB,LRECL=80,BLKSIZE=0

//*

//FM EXEC PGM=FILEMGR

//STEPLIB DD DSN=FMN310.SFMNMOD1,DISP=SHR

//* DD DSN=IGY.SIGYCOMP,DISP=SHR

//SYSPRINT DD SYSOUT=*

//RECORDS DD DISP=SHR,DSN=DAVIN6.WORK.TEXT(SAMPFIL1)

//REC01 DD DISP=OLD,DSN=DAVIN6.SPLIT.REC01

//REC02 DD DISP=OLD,DSN=DAVIN6.SPLIT.REC02

//REC03 DD DISP=OLD,DSN=DAVIN6.SPLIT.REC03

Note: This code was written for Introduction to the IBM Problem Determination Tools,

SG24-6296-00.