EFS program example
The following example shows how an EFS program can be used to change control statements at run-time.
The following information is assumed for this example DFSORT
run:
- The EFS program "EFSPGM" resides in the same library as the DFSORT modules.
- The JCL statements for the application are:
//EXAMPLE1 JOB A12345,'J. SMITH' //S1 EXEC PGM=SORT,PARM='EFS=EFSPGM' //SYSOUT DD SYSOUT=A //SORTIN DD DSNAME=SMITH.INPUT,DISP=SHR, // UNIT=3380,SPACE=(TRK,(15,2)),VOL=SER=XYZ003, // DCB=(LRECL=80,BLKSIZE=80,RECFM=F) //SORTOUT DD DSNAME=SMITH.OUTPUT,DISP=(NEW,KEEP), // UNIT=3380,SPACE=(TRK,(15,2)),VOL=SER=XYZ003 //SYSIN DD * SORT FIELDS=(5,20,CH,A,13,5,BI,D) OPTION STOPAFT=30,DYNALLOC=3390 /*