| Examples where
the EXTFILE and EXTMBR values are both constants |
FFILE1 IF E DISK
FFILE2 LIKEFILE(FILE1)
|
*LIBL/FILE1(*FIRST)
*LIBL/FILE2(*FIRST)
|
FFILE1 IF E DISK EXTFILE('MYLIB/MYFILE')
FFILE2 LIKEFILE(FILE1)
|
MYLIB/MYFILE(*FIRST)
MYLIB/MYFILE(*FIRST)
|
FFILE1 IF E DISK
FFILE2 LIKEFILE(FILE1) EXTFILE('MYLIB/MYFILE')
|
*LIBL/FILE1(*FIRST)
MYLIB/MYFILE(*FIRST)
|
FFILE1 IF E DISK EXTFILE('MYLIB/MYFILE1')
FFILE2 LIKEFILE(FILE1) EXTFILE('MYLIB/MYFILE2')
|
MYLIB/MYFILE1(*FIRST)
MYLIB/MYFILE2(*FIRST)
|
FFILE1 IF E DISK EXTMBR('MBR1')
FFILE2 LIKEFILE(FILE1)
|
*LIBL/FILE1(MBR1)
*LIBL/FILE2(MBR1)
|
FFILE1 IF E DISK
FFILE2 LIKEFILE(FILE1) EXTMBR('MBR1')
|
*LIBL/FILE1(*FIRST)
*LIBL/FILE2(MBR1)
|
FFILE1 IF E DISK EXTMBR('MBR1')
FFILE2 LIKEFILE(FILE1) EXTFILE('MYLIB/MYFILE2')
|
*LIBL/FILE1(MBR1)
MYLIB/MYFILE2(MBR1)
|
| Examples where
the EXTFILE and EXTMBR values are both variable |
FFILE1 IF E DISK EXTFILE(extfileVariable)
FFILE2 LIKEFILE(FILE1)
Value of extfileVariable: 'MYLIB/MYFILE'
|
MYLIB/MYFILE(*FIRST)
*LIBL/FILE2(*FIRST)
|
FFILE1 IF E DISK
FFILE2 LIKEFILE(FILE1) EXTFILE(extfileVariable)
Value of extfileVariable: 'MYLIB/MYFILE'
|
*LIBL/FILE1(*FIRST)
MYLIB/MYFILE(*FIRST)
|
FFILE1 IF E DISK EXTFILE(extfileVariable1)
FFILE2 LIKEFILE(FILE1) EXTFILE(extfileVariable2)
Value of extfileVariable1: 'MYLIB/MYFILE1'
Value of extfileVariable2: 'MYLIB/MYFILE2'
|
MYLIB/MYFILE1(*FIRST)
MYLIB/MYFILE2(*FIRST)
|
FFILE1 IF E DISK EXTMBR(extmbrVariable)
FFILE2 LIKEFILE(FILE1)
Value of extmbrVariable: 'MBR1'
|
*LIBL/FILE1(MBR1)
*LIBL/FILE2(*FIRST)
|
FFILE1 IF E DISK
FFILE2 LIKEFILE(FILE1) EXTMBR(extmbrVariable)
Value of extmbrVariable: 'MBR1'
|
*LIBL/FILE1(*FIRST)
*LIBL/FILE2(MBR1)
|
FFILE1 IF E DISK EXTMBR(extmbrVariable)
FFILE2 LIKEFILE(FILE1) EXTFILE(extfileVariable)
Value of extmbrVariable: 'MBR1'
Value of extfileVariable: 'MYLIB/MYFILE2'
|
*LIBL/FILE1(MBR1)
MYLIB/MYFILE2(*FIRST)
|
| Examples where
the EXTFILE and EXTMBR values are mixed variables and constants |
FFILE1 IF E DISK EXTFILE(extfileVariable1) EXTMBR('MBR1')
FFILE2 LIKEFILE(FILE1)
Value of extfileVariable1: 'MYLIB/MYFILE1'
|
MYLIB/MYFILE1(MBR1)
*LIBL/FILE2(MBR1)
|
FFILE1 IF E DISK EXTMBR(extmbrVariable)
FFILE2 LIKEFILE(FILE1)
Value of extmbrVariable: 'MBR1'
|
*LIBL/FILE1(MBR1)
*LIBL/FILE2(*FIRST)
|
FFILE1 IF E DISK EXTFILE('MYLIB/MYFILE1') EXTMBR(extmbrVariable)
FFILE2 LIKEFILE(FILE1)
Value of extmbrVariable: 'MBR1'
|
MYLIB/MYFILE1(MBR1)
MYLIB/MYFILE1(*FIRST)
|